【VB开源代码栏目提醒】:以下是网学会员为您推荐的VB开源代码-EX3_9.frm，希望本篇文章对您学习有所帮助。

    VERSION 5.00
    Begin VB.Form EX3_9 
       Caption         =   "Form1"
       ClientHeight    =   3090
       ClientLeft      =   60
       ClientTop       =   450
       ClientWidth     =   7695
       LinkTopic       =   "Form1"
       ScaleHeight     =   3090
       ScaleWidth      =   7695
       StartUpPosition =   3  '窗口缺省
    End
    Attribute VB_Name = "EX3_9"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    Private Sub Form_Click()
    Dim i, j, z As Integer '定义变量
    For i = 1 To 9  '外部循环
        j = 1
        Do While j <= i  '内循环
            z = i * j
            Print j & "*" & i & "=" & z & "  "; '打印公式
            j = j + 1
        Loop
        Print
    Next i
    End Sub
    
    

上一篇：Ex3_8.frm
下一篇：她要是喜欢我