Dim i As Integer, j As Integer, s As Integer
Private Sub Command1_Click()
Print Tab(35); "九九乘法表"
For i = 1 To 9 For j = 1 To 9Print Tab((j - 1) * 9); i & "×" & j & "=" & i * j;
Next j Print Next i PrintEnd Sub
Private Sub Command2_Click()
Print Tab(35); "九九乘法表(下三角)"
For i = 1 To 9 For j = 1 To i? '就只有这里有点变化1 to iPrint Tab((j - 1) * 9); i & "×" & j & "=" & i * j;
Next j Print Next i PrintEnd Sub
Private Sub Command3_Click()
Print Tab(35); "九九乘法表(上三角)"
For i = 1 To 9 For j = i To 9? '就只有这里有点变化i to 9Print Tab((j - 1) * 9); i & "×" & j & "=" & i * j;
Next j Print Next iEnd Sub
本文来自作者[雨琴]投稿，不代表雷雅号立场，如若转载，请注明出处：https://www.ajtg.com.cn/tg/7554.html
评论列表（4条）
我是雷雅号的签约作者“雨琴”！
希望本篇文章《九九乘法表vb代码》能对你有所帮助！
本站[雷雅号]内容主要涵盖：生活百科,小常识,生活小窍门,知识分享
本文概览：Dim i As Integer, j As Integer, s As IntegerPrivate Sub Command1_Click()Print Tab(35); "...