编写VB程序,计算任意两个自然数之间的自然数之和

Question

如题所述

Answer 1

Private Sub Command1_Click()

Sum = 0

i = Text1.Text

j = Text2.Text

For n = i To j Step 1

Sum = Sum + n

Next n

Text3.Text = Sum

End Sub

 

Private Sub Command2_Click()
End

End Sub

 

Private Sub Command3_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = “”

End Sub

Answer 2

Private Sub Form_Click()
Dim b, c As Long
Randomize '产生随机数
b = Int(Rnd * 100)
c = Int(Rnd * 100)
Print b; "+"; c; "="; b + c

End Sub