Question

急！来VB编程高手！谢谢啦，请帮忙解决这道程序设计题

在名称为Cmd1的命令按钮单击事件中，分别用DO unti1-Loop和For循环语句编写程序实现计算：1+4+7+10+13，并将结果在Text1中显示出来

Answer 1

Private Sub Cmd1_Click()
Dim i As Integer, s As Integer
i = 1
Do Until i > 13
s = s + i
i = i + 3
Loop
Text1.Text = s
End Sub

Private Sub Cmd1_Click()
Dim i As Integer, s As Integer
For i = 1 To 13 Step 3
s = s + i
Next
Text1.Text = s
End Sub

Answer 2

画面自己添加2个按钮 2个文本
Private Sub Command1_Click()
Dim i As Integer

i = 1

Do Until i >= 13
i = i + 3
Loop

Text1.Text = i
End Sub

Private Sub Command2_Click()
Dim i As Integer

For i = 1 To 13 Step 0
i = i + 3
If i = 13 Then Exit For
Next

Text2.Text = i
End Sub