3.5 实例：利用数组计算用户输入的整数之和

本实例主要利用Visual Basic中数组功能定义一个数组，并利用数组保存用户输入的一系列数据，最后计算出用户输入的数据的总和。

程序界面设计：在窗体中放置4个标签控件、1个命令按钮。窗体界面如图3.5所示。

图3.5 程序界面

双击“输入数据”按钮，在打开的代码编辑窗口输入以下代码：

        Private Sub Command1_Click()
        Dim myNum() As Integer                              '声明动态数组
        Dim i As Integer                                    '确定输入的整数的个数
        Dim mySum As Integer                                '保存所有整数之和
        Dim j As Integer
        i = InputBox("请输入你要输入的整数个数：", "输入整数", 1)       '获得用户要输入
    的整数的个数
        ReDim myNum(i -1)                                  '重新定义数组
        mySum = 0
        Label3.Caption = ""
        For j = 0 To i -1
            myNum(j) = InputBox("请输入第" & j + 1 & "个整数：", "输入整数", 0) '用户
    输入整数保存到数组中
            If j = i -1 Then
        Label3.Caption = Label3.Caption & myNum(j)          '在label3中输出用户输入
    的整数
            Else
        Label3.Caption = Label3.Caption & myNum(j) & "+"                '在label3 中输
    出用户输入的整数
            End If
            mySum = mySum + myNum(j)                        '计算输入整数的和
        Next
        Label4.Caption = mySum                              '在label4中输出整数的和
        End Sub

程序启动后，单击“输入数据”按钮，将弹出一个输入对话框，要求用户输入要输入的整数的个数。如图3.6所示。单击“确定”按钮后，将根据用户输入的整数依次弹出输入窗口让用户输入整数，如图3.7所示：

图3.6 输入第一个数字

图3.7 输入第二个数字

输入所有的整数后，单击“确定”按钮，程序将显示计算结果，如图3.8所示。

图3.8 程序运行结果