作业帮 > 综合 > 作业

计算n个数的累加和(循环、InputBox)

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/23 23:27:48
计算n个数的累加和(循环、InputBox)
(1)设计一个Form上有2个文本框(n值和累加和)、2个命令按钮:“计算”和“退出”.
(2)用户在“n值”文本框中输入数值,单击“计算” 按钮时,连续弹出InputBox,由用户输入用于累加的数据.
(3) 当n个数据输入完毕,在“累加和”文本框中显示计算结果.
(5)单击“退出”按钮结束程序运行.
Option Base 1
Private Sub Command1_Click()
Dim sum As Integer
Dim x As Integer
If Text1.Text = "" Then
MsgBox ("请输入n的值")
Exit Sub
End If
For i = 1 To Val(Text1.Text)
x = InputBox("请输入第" & i & "个数:")
sum = sum + x
Next i
Text2.Text = sum
End Sub
Private Sub Command2_Click()
End
End Su