Private Sub Command1_Click()
Static Sum As Integer
Dim I As Integer
I = 1
Do
Sum = Sum + I
I = I + 1
Loop While I <= 5
Text1.Text = Sum
Text2.Text = I
End Sub
程序运行后,两次单击Command1按纽后,文本框Text1、Text2上的输出结果是( )。
A、10 5 B、15 6
C、25 5 D、30 6
出自:国家开放大学Visual Basic6.0程序设计