pdd熊猫直播:求:VB窗口单击时输出右对齐的九九表代码
来源:百度文库 编辑:中科新闻网 时间:2024/10/05 11:57:14
Private Sub Form_Load()
Dim x As Integer
Dim y As Integer
Dim z As String
Me.Text1.Text = ""
For y = 1 To 9
For x = 1 To y
z = x * y
z = Right$("0000" + z, 2)
Me.Text1.Text = Me.Text1.Text + z + " "
Next x
Me.Text1.Text = Me.Text1.Text + Chr$(13) + Chr$(10)
Next y
End Sub
Private Sub Form_Click()
Dim x, y As Integer
For x = 1 To 9 ' 每次循环生成一行
Print Tab(90 - 9 * x); ‘为了打印右上三角,也是这个程序的关键所在
For y = 1 To x ' 每次循环生成一项
If x * y > 9 Then
Print Spc(2); CStr(y); "×"; CStr(x); "="; CStr(x * y); '这个if语句是为了使打印的格式整齐一点
Else
Print Spc(3); CStr(y); "×"; CStr(x); "="; CStr(x * y);
End If
Next y
Print
Next x
End Sub
不错!!不错!!不错!!