if 函数(九九乘法表) 怎么做

发布网友发布时间：2022-05-24 12:31

共3个回答

热心网友时间：2023-10-13 08:47

'添加窗体Form1,然后添加如下代码:
Private Sub Form_Load()
    Me.AutoRedraw = True
    Dim i, j As Integer
    Print "九九乘法表 "
    Print "*1 2 3 4 5 6 7 8 9"
    For i = 1 To 9
        For j = 1 To i
            Print i & " " & j & "*" & i & "=" & i * j & " ";
        Next
        Print
    Next
End Sub

热心网友时间：2023-10-13 08:47

'添加窗体Form1,添加下代码:
Private Sub Form_Load()
Me.AutoRedraw = True
Dim i, j As Integer
Print "九九乘法表 "
Print "*1 2 3 4 5 6 7 8 9"
For i = 1 To 9
For j = 1 To i
Print i & " " & j & "*" & i & "=" & i * j & " ";
Next
Print
Next
End Sub

热心网友时间：2023-10-13 08:48

你要告诉我你想用什么语言来写呀

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com