神马品牌网骆驼鞋公司官网:劳驾各味大虾帮我看看这个vb题目，不难的，用不了多长时间。
来源：百度文库 编辑：神马品牌网 时间：2024/04/25 14:16:06
请写出下列程序的输出结果：
Private Sub Command1_Click()
Dim i As Integer, j As Integer, star1 As String, star2 As String
star1 = "?"
star2 = "O"
FontSize = 12
For i = 1 To 6
Form1.Print Tab(10 + i * 3);
For j = 1 To (6 - i) * 3 + 1
Select Case j
Case 1, (6 - i) * 3 * 1
Form1.Print star1;
Case Else
Form1.Print star2;
End Select
Next j
Print
Next i
End Sub
请问你是用vb作出来的结果吗？我做得怎么是
-------------?0000000000000?0
----------------?0000000000?0
-------------------?0000000?0
----------------------?0000?0
-------------------------?0?0
----------------------------?
这两个结果是不是一样的？我们老师说是你那样的结果，可我做不出来。这跟vb的版本或什么设置有关系吗？我用的是vb6.0简体中文企业版。破解版本是序列号为11111111的那个。
Private Sub Command1_Click()
Dim i As Integer, j As Integer, star1 As String, star2 As String
star1 = "?"
star2 = "O"
FontSize = 12
For i = 1 To 6
Form1.Print Tab(10 + i * 3);
For j = 1 To (6 - i) * 3 + 1
Select Case j
Case 1, (6 - i) * 3 * 1
Form1.Print star1;
Case Else
Form1.Print star2;
End Select
Next j
Next i
End Sub
请问你是用vb作出来的结果吗？我做得怎么是
-------------?0000000000000?0
----------------?0000000000?0
-------------------?0000000?0
----------------------?0000?0
-------------------------?0?0
----------------------------?
这两个结果是不是一样的？我们老师说是你那样的结果，可我做不出来。这跟vb的版本或什么设置有关系吗？我用的是vb6.0简体中文企业版。破解版本是序列号为11111111的那个。
就这样,没有“_”啊，
______________?OOOOOOOOOOOOO?O
_______________?OOOOOOOOOO?O
________________?OOOOOOO?O
_________________?OOOO?O
__________________?O?O
___________________?
我用的也是VB6.0，这两个结果一样吧。
试一下就知道。
你拿VB6.0运行一下，不就知道结果了吗？？