UC知道VB小程序的调试问题
来源：百度知道 编辑：UC知道 时间：2024/05/15 18:48:05
实现目的：单击窗体现实九九乘法表
程序：
Option Explicit
Private Sub Form_Click()
Dim a As Integer
Dim b As Integer
Dim s As String
Print String(80, "=")
For a = 1 To 9
For b = 1 To 9
s = b & "x" & a & "=" & b * a
Print Tab((b - 1) * 9 + 1); s;
Next
Print
Next
Print String(80, "=")
End Sub
调试出现问题
1.单击一次窗体现实乘法表只能显示到6×9，单击第二次才能出现到9×9
2.程序中
Print Tab((b - 1) * 9 + 1); s;
Next
Print
Next
Print String(80, "=")
第一个print起什么作用。
请指点，不胜感激
程序：
Option Explicit
Private Sub Form_Click()
Dim a As Integer
Dim b As Integer
Dim s As String
Print String(80, "=")
For a = 1 To 9
For b = 1 To 9
s = b & "x" & a & "=" & b * a
Print Tab((b - 1) * 9 + 1); s;
Next
Next
Print String(80, "=")
End Sub
调试出现问题
1.单击一次窗体现实乘法表只能显示到6×9，单击第二次才能出现到9×9
2.程序中
Print Tab((b - 1) * 9 + 1); s;
Next
Next
Print String(80, "=")
第一个print起什么作用。
请指点，不胜感激
1、你把窗口拉的足够大，就不会只显示到6×9了，你的程序没有这个问题；
2、Print Tab((b - 1) * 9 + 1); s;
Next
Print
Next
Print String(80, "=") 这一段中共有三个print
(1)Print Tab((b - 1) * 9 + 1); s; 中的print打印s,即 1 x 1 = 1 等内容；
（2）Print 中的print起换行作用，有了它，不会把所有1 x 1 = 1 直到9 x 9 = 81 都打到一行上；
（3）Print String(80, "=") 中的print在打印乘法表之前和之后各打印一连串的等号，即＝＝＝＝＝＝，以但使乘法表看起来更像一个表。
这个程序没有什么问题，祝你开心！