UC知道VB显示错误！
来源：百度知道 编辑：UC知道 时间：2024/06/10 04:51:18
例如
*
**
***
****
*****
******
*******
********
代码：
Private Sub Fom_Click()
Dim I,J As Integer
For I = 1 To 8
Print Tab(10-I);
For J = 1 To I
Print"*";
Next J
Print
Next I
End Sub
实际显示：
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
现在我的VB输出什么都是一竖过！根本不会横着过！是不是VB设置错误了！
Private Sub Form_Click()
Dim I,J As Integer
For I = 1 To 8
Print Tab(10-I);
For J = 1 To I
Print"*";
Next J
Print
Next I
End Sub
代码错了，掉了个"r"
你们都没看清楚我说什么！
我说输出什么内容都是一竖过，不会打横！（横竖调换了的感觉）
不是叫你们研究其他方法！
这是VB系统的问题，而不是代码问题！！
我只是随便拿一个例子，说明我的Visual Basic6.0软件有问题
现在我
*
**
***
****
*****
******
*******
********
代码：
Private Sub Fom_Click()
Dim I,J As Integer
For I = 1 To 8
Print Tab(10-I);
For J = 1 To I
Print"*";
Next J
Next I
End Sub
实际显示：
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
现在我的VB输出什么都是一竖过！根本不会横着过！是不是VB设置错误了！
Private Sub Form_Click()
Dim I,J As Integer
For I = 1 To 8
Print Tab(10-I);
For J = 1 To I
Print"*";
Next J
Next I
End Sub
代码错了，掉了个"r"
你们都没看清楚我说什么！
我说输出什么内容都是一竖过，不会打横！（横竖调换了的感觉）
不是叫你们研究其他方法！
这是VB系统的问题，而不是代码问题！！
我只是随便拿一个例子，说明我的Visual Basic6.0软件有问题
现在我
不会呀.你的代码没问题的..你是VB6.0吗?
Print"*";
这后面有一个;号,就是不换行呀..就不会象你说的那样,一竖排的呀.
Private Sub Fom_Click()
Dim I,J As Integer
Dim s
For I = 1 To 8
Print Tab(10-I);
For J = 1 To I
s=s&"*"
Next J
Print s;
Print
Next I
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer, n As Integer 'i,j 做循环用，n是输出的行数
n = 9
For i = 1 To n
For j = 1 To i
Print "*";
Next
Print
Next
End Sub