level 1
Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim strS As String
Debug.Print(StrDup(100, "="))
For intI As Integer = 1 To 9
For intJ As Integer = 1 To 9
If intJ <= intI Then
strS = intJ & "×" & intI & "=" & intI * intJ
Debug.Write(Space(3) & strS)
End If
Next
Debug.Print(vbNewLine)
Next
Debug.Print(StrDup(100, "="))
End Sub
End Clas
2012年04月15日 10点04分
