【VB开源代码栏目提醒】:文章导读:在新的一年中，各位网友都进入紧张的学习或是工作阶段。网学会员整理了VB开源代码-Ex3_8.frm的相关内容供大家参考，祝大家在新的一年里工作和学习顺利！

    VERSION 5.00
    Begin VB.Form Ex3_8 
       Caption         =   "Form1"
       ClientHeight    =   3090
       ClientLeft      =   60
       ClientTop       =   450
       ClientWidth     =   4680
       LinkTopic       =   "Form1"
       ScaleHeight     =   3090
       ScaleWidth      =   4680
       StartUpPosition =   3  '窗口缺省
    End
    Attribute VB_Name = "Ex3_8"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    Private Sub Form_Click()
                Dim arr(10), sum As Integer '定义变量
                Dim arrElement As Variant
                Dim i As Integer
                sum = 0
                For i = 1 To 10 '为数组赋值
                    arr(i) = i
                Next
                For Each arrElement In arr '累加数组中各个值
                    sum = sum + arrElement
                Next
                Print "1+2+...+10=" & sum '打印结果
    End Sub
    
    

上一篇：Ex3_7.frm
下一篇：浅析普外科围手术期抗菌药物的应用