下面是引用panasonic732于2005-06-9 07:53发表的 :
喔喔...我看错了...=.=

你要的方法是这样的

变数 & "字串" & 变数

改成这样的话
MsgBox "学生成绩为 数学" & a(0, p) "国文" & a(1, p) "英文" & a(2, p), 0, "成绩单"

他出现错误~~语法错误!!

对了>"<

(2)排序到地要怎么用阿!
好像被我混掉了= ="
给个提示好吗?

2的用法好像是
要点一下后+1....直到30
可是这个语法是啥?

查书没找着>"<

MsgBox "学生成绩为 数学" & a(0, p) & "国文" & a(1, p) & "英文" & a(2, p), 0, "成绩单"

2的用法好像是
要点一下后+1....直到30
可是这个语法是啥?

回圈...

下面是引用panasonic732于2005-06-9 20:14发表的 :
MsgBox "学生成绩为 数学" & a(0, p) & "国文" & a(1, p) & "英文" & a(2, p), 0, "成绩单"

2的用法好像是
要点一下后+1....直到30
可是这个语法是啥?
.......

欧欧!!少加了&
感谢^^

回圈........@@"
我想想.....................>"<

加油吧 ^^
我补充一下 变数a & "字串" & 变数b

变数a后面想加入字串或变数中间都要有 &

假如有文意不清再发问喔...我国文不好...^^"

对不起....可是我剩下的都不会写了>"<
有哪位好心的大大可以教一下吗?

1.(2)的排序要怎么用阿?
完全没头绪>"<

2.我试过拉出5个Command设成A-E
再拉出5个Text来对应~~再拉出一个Command来做结的型式
可是command和text要怎样用在一起阿!不是没反应就是变成无穷回圈@@"
快疯了 >"< ~~~阿!!
救救我八     星期一要考了>"<

我突然想到一种方法!!
可以写1-2
就是

Dim q1 As String
Dim q2 As String
q1 = InputBox("数学=0 国文=1 英文=2", "请输入带查询的科目代码")
q2 = InputBox("请输入学生学号", "1~5")
degree = 1
For r = 1 To 5 Step 1
If a(q1, q2) < a(q1, r) Then
degree = degree + 1
End If
Next r
MsgBox "学生排名为" & degree, 0, "查询结果"

当然还是要补上阵列

Dim a(3, 5)
a(0, 1) = 20
a(0, 2) = 40
a(0, 3) = 30
a(0, 4) = 79
a(0, 5) = 74

a(1, 1) = 79
a(1, 2) = 81
a(1, 3) = 68
a(1, 4) = 62
a(1, 5) = 68

a(2, 1) = 43
a(2, 2) = 89
a(2, 3) = 62
a(2, 4) = 65
a(2, 5) = 78

请问这样可以吗?

还有请帮我想~~下一题!
主要的问题是~~~~点一下Command
使一个数值资料+1
这是怎样办到的>"<

万是拜托~~由衷感谢!!
十万火急阿

我尝试这样写

Private Sub Command1_Click()
a = 0
If a > 30 Then
MsgBox "SORRY", 0, "人数已满"
If Click Then
a = a + 1
Text1.Text = a
End If
End If

End Sub

可是没反应>"<

我硬搞了一个蛮阳春的写法>"<
勉强可用= ="
可是我有一个问题!!
就是只要选课人数到30后再把text重新输入其他的值程式就不动了!!
请问大大~~有哪里可以修改的吗?

(一般)(宣告)
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
Dim e As Integer

Private Sub Command1_Click()
If a < 30 Then
a = Val(Text1.Text) + 1
Text1.Text = a
If a = 30 Then
MsgBox "成功开课", 0, "选课结束!!"
End If
End If
End Sub

Private Sub Command2_Click()
If b < 30 Then
b = Val(Text2.Text) + 1
Text2.Text = b
If b = 30 Then
MsgBox "成功开课", 0, "选课结束!!"
End If
End If
End Sub

Private Sub Command3_Click()
If c < 30 Then
c = Val(Text3.Text) + 1
Text3.Text = c
If c = 30 Then
MsgBox "成功开课", 0, "选课结束!!"
End If
End If
End Sub

Private Sub Command4_Click()
If d < 30 Then
d = Val(Text4.Text) + 1
Text4.Text = d
If d = 30 Then
MsgBox "成功开课", 0, "选课结束!!"
End If
End If
End Sub

Private Sub Command5_Click()
If e < 30 Then
e = Val(Text5.Text) + 1
Text5.Text = e
If e = 30 Then
MsgBox "成功开课", 0, "选课结束!!"
End If
End If
End Sub

Private Sub Command6_Click()
If a < 5 Then
Label1.Caption = "开课失败"
End If
If a >= 5 And a <= 30 Then
Label1.Caption = "开课成功"
End If

If b < 5 Then
Label2.Caption = "开课失败"
End If
If b >= 5 And b <= 30 Then
Label2.Caption = "开课成功"
End If

If c < 5 Then
Label3.Caption = "开课失败"
End If
If c >= 5 And c <= 30 Then
Label3.Caption = "开课成功"
End If

If d < 5 Then
Label4.Caption = "开课失败"
End If
If d >= 5 And d <= 30 Then
Label4.Caption = "开课成功"
End If

If e < 5 Then
Label5.Caption = "开课失败"
End If
If e >= 5 And e <= 30 Then
Label5.Caption = "开课成功"
End If

End Sub

你可以把按钮跟a.b.c设成一连串的阵列
可以减少重覆的程式码