高手帮我看看这个程序啊 是VB做的啊

来源：百度知道 编辑：UC知道 时间：2024/06/26 04:46:50
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 Sub
private function iSum(i1 as integer,i2 as integer) as integer
isum=0
if i1<i2 then
dim iCount as integer
for icount=i1 to i2
isum=isum+icount
next
end if
end function

对,,是VB做的!!