神马品牌网宝宝装备分解能得到啥:我想用VB做一个九九乘法表却出现错误请高手指点一下！！！
来源：百度文库 编辑：神马品牌网 时间：2024/05/05 04:25:38
Dim strTime As String
Form1.Print Chr(10); Tap(30); "九九乘法表"
Form1.Print Tap(29); "-----------"
For I = 1 To 9
For j = 1 To I
strTime = I & "*" & j & "=" & I * j
Form1.Print Tap((j - 1) * 8 + 3); strTime;
Next j
Form.Print
Next I
End Sub
Private Sub Command1_Click()
Dim strTime As String
Form1.Print Chr(10); Tap(30); "九九乘法表"
Form1.Print Tap(29); "-----------"
For I = 1 To 9
For j = 1 To I
strTime = I & "*" & j & "=" & I * j
Form1.Print Tap((j - 1) * 8 + 3); strTime;
Next j
Form1.Print
Next I
End Sub
这也不能运行啊！！
Private Sub Command1_Click()
Dim strTime As String
Form1.Print Chr(10); Tab(30); "九九乘法表"
Form1.Print Tab(29); "-----------"
For I = 1 To 9
For j = 1 To I
strTime = I & "*" & j & "=" & I * j
Form1.Print Tab((j - 1) * 8 + 3); strTime;
Next j
Form1.Print
Next I
End Sub
这样就可以了
tap错了啊!改成tab
form中的也没有用啊!
和command-click()重复!
你第一段程序里一会是form,一会儿是form1,应该把倒数第三行Form.Print改成form1.print
另外如果要在窗体上打印可省略窗体的名称，直接print就可以了
Form_Load 也能打印，不过要把Form1的AutoRedraw属性改成true，在属性栏第二行能看到。或在下面代码Dim那行之后加一句：form1.autoredraw=true
还有tap 和tab也是一个问题
改后代码如下：
Private Sub Form_Load()
Dim strTime As String
Print Chr(10); Tab(30); "九九乘法表"
Print Tab(29); "-----------"
For I = 1 To 9
For j = 1 To I
strTime = I & "*" & j & "=" & I * j
Print Tab((j - 1) * 8 + 3); strTime;
Next j
Print
Next I
End Sub
Form_Load 中 不能用 print。打印不出来的。画个按钮吧，双击，再把你的程序拷进去