_第5章_VB循环结构_For研究.ppt

P50例题 Private Sub Form_click() Dim s As Single, i As Integer n = Val(InputBox(请输入n, 提示)) s = 0 For i = 1 To n Step 1 s = s + I Next i Print 1到; n; 之和为：; s End Sub Private Sub Command1_Click() s = 0 For k = 1 To 3 If k = 1 Then x = 1 ElseIf k = 2 Then x = 2 ElseIf k = 3 Then x = 3 Else x = 4 End If Print x s = s + x Next k Print s End Sub * 用输入框输入10个数字，并用Print方法输出 A = Val(InputBox(输入第1个数)) B = Val(InputBox(输入第2个数)) C = Val(InputBox(输入第3个数)) D = Val(InputBox(输入第4个数)) E = V