一到九乘法口诀VB源码:

Private Sub Form_Load()

form1.Width = form1.Width * 1.5 '窗口长度扩增1.5被显示全部内容

Show '输出到窗口参数1

Dim i As Integer

Dim k As Integer

For k = 1 To 9 Step 1

For i = 1 To k Step 1

Print i & “*”; k & “=” & i * k & " "; 'Print 输出窗口参数2

Next i

Print vbCrLf

Next k

End Sub