一到九乘法口诀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