Private Sub Command1_Click()
Dim s As String
s = 0
For i = Text1.Text To Text2.Text
s = s + i
Text3.Text = s
Next i
End Sub
Private Sub Command2_Click()
If Val(Text3.Text) = Val(Text1) + Val(Text2) Then
Label1.Caption = "答对了"
Else
Label1.Caption = "答错了"
End If
End Sub
题目是这样啊!
单击第一个命令按钮!计算出10~50之间整数的和!单击第二个命令按钮如果计算正确,则LABEL1则提示答对了.否则提示答错了,
Private Sub Command1_Click()Text3.Text = isum(cint(text1.text),cint(text2.text))End Sub Private Sub Command2_Click() If Text3.Text = isum(cint(text1.text),cint(text2.text)) Then Label1.Caption = "答对了" Else Label1.Caption = "答错了" End If End Subprivate function iSum(i1 as integer,i2 as integer) as integer i