VB考试题目求解答
VB考试题目求解答
日期：2012-07-15 20:13:07 人气：2
代码
Dim a As Integer
Dim b As Integer
Private Sub C1_Click()
If a > b Then
For i = b To a
Sum = Sum + i
Next
Else
For i = a To b
Sum = Sum + i
Next
End If
text3.Text = Sum
End Sub
Private Sub Text1_Click()
a = InputBox("请输入&