【VB开源代码栏目提醒】：本文主要为网学会员提供Ex3_7.frm，希望对需要Ex3_7.frm网友有所帮助，学习一下!

    VERSION 5.00
    Begin VB.Form Ex3_7 
       Caption         =   "Form1"
       ClientHeight    =   1770
       ClientLeft      =   60
       ClientTop       =   450
       ClientWidth     =   3915
       LinkTopic       =   "Form1"
       ScaleHeight     =   1770
       ScaleWidth      =   3915
       StartUpPosition =   3  '窗口缺省
       Begin VB.CommandButton Command1 
          Caption         =   "计算"
          Height          =   375
          Left            =   1080
          TabIndex        =   0
          Top             =   960
          Width           =   1215
       End
    End
    Attribute VB_Name = "Ex3_7"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    Private Sub Command1_Click()
          Dim n As Integer, sum As Long  '声明计算变量n和累加变量sum
         sum = 0
         For i = 1 To 99 Step 2  '计算1到100内的奇数和
             sum = sum + i
         Next
        Print "奇数和 Sum="; sum
    
    End Sub
    

上一篇：Ex3_6.frm
下一篇：应用数学学报编辑部联系方式