我不行了,请VB战士们...

Question

是对了,可是VB又说AA不是变量.需要过程.这是怎么回事!!帮忙!!

Answer 1

这要叫子函数未定义... 一定加分,不够再加贴子
Private Sub Form_Load()
Dim aa As IntegerSelect Case aa
Case 1
sum = num1 + num2
Case 2
sum = num1 - num2
Case 3
sum = num1 * num2
Case 4
sum = num1 / num2
End SelectEnd SubPrivate Sub Command2_Click(Index As Integer)
Select Case Index
Case 0
Text1.Text = "" '加法
aa 1
Case 1
Text1.Text = "" '减法
aa 2
Case 2
Text1.Text = "" '乘法
aa 3
Case 3
Text1.Text = "" '除法
aa 4
Case 4
Unload Me
Case 5
Text1.Text = ""
Text1.Text = Str(sum)
Case 6
Text1.Text = ""
sum = 0
num1 = 0
num2 = 0
End Select
End Sub

Answer 2

aa 应该是一个过程才对,后面的 1,2,3 之类的是参数
如
private sub aa(ddd as integer)
'过程处理语句
end sub

Answer 3

Command2_Click中每个case下面有一个aa X,你没有定义这个函数

Answer 4

你的意思是用AA来控制加减cheng除运算，对吧，你应该把AA定义成全局变量，不是把Dim aa As Integer写在form_load里面，而是外面，另外在command2_click中aa 1没有加"="号。