查人人中国名人网工厂一个月:求：VB窗口单击时输出右对齐的九九表代码
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/07 09:07:05
就是在VB当中，单击窗体时，屏幕输出“右对齐”的九九表代码，恳请不吝赐教……
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
不错!!不错!!不错!!