怎样用vb在窗体上输出九九乘法表?

发布网友发布时间：2022-05-04 22:59

共4个回答

热心网友时间：2022-06-26 21:29

Private Sub Form_Click()
Dim i, j As Integer
Dim s As String
Print Tab(35); "九九乘法表"
For i = 1 To 9
For j = 1 To i
s = i & "×" & j & "=" & i * j
Print Tab((j - 1) * 9 + 2); s;
Next j
Print
Next i
End Sub

热心网友时间：2022-06-26 21:29

Dim I As Integer, J As Integer

For I = 1 To 9
For J = 1 To 9
If J <= I Then
Print Space(1) & J & "*"; I & "=" & I * J;
End If
Next J
Print
Next I

热心网友时间：2022-06-26 21:30

sub multipliy()
dim arr1(1 to 10,1 to 10) as byte
dim row as byte,column as byte
print tab(2);
for row=1 to 9
for column=1 to 9
arr1(row,column)=row*column
next column
print row;" ";
next row
print " "
for row=1 to 9
print row;" ";
for column=1 to 9
print arr1(row,column);" ";
next column
print ""
next row
end sub

参考资料：原创

热心网友时间：2022-06-26 21:31

Private Sub Form_Load()
Dim Cols, Rows, strMsg
strMsg = ""
For Rows = 1 To 9
For Cols = 1 To Rows
strMsg = strMsg & Cols & "X" & Rows & "=" & Rows * Cols & Chr(9)
Next
strMsg = strMsg & vbCrLf
Next
MsgBox strMsg
End Sub