UC知道关于VB排序的问题！急！找人回答
来源：百度知道 编辑：UC知道 时间：2024/06/09 11:45:39
Dim a(5) As Integer
Private Sub Command1_Click()
Dim i As Integer
For i = 1 To 5
a(i) = Int((10 - 1 + 1) * Rnd + 1)
Print a(i)
Next i
End Sub
这个程序出来的序列是竖的，而我需要的是横的 比如说我需要的是“8 6 4 2 7”，而我执行出来的却是“8
6
4
2
7 "
请高人指教！
Private Sub Command1_Click()
Dim i As Integer
For i = 1 To 5
a(i) = Int((10 - 1 + 1) * Rnd + 1)
Print a(i)
Next i
End Sub
这个程序出来的序列是竖的，而我需要的是横的 比如说我需要的是“8 6 4 2 7”，而我执行出来的却是“8
6
4
2
7 "
请高人指教！
Print a(i) 改成Print a(i) ;
注意后面加一个分号。
Dim a(5) As Integer
dim s as string
Private Sub Command1_Click()
Dim i As Integer
s=""
For i = 1 To 5
a(i) = Int((10 - 1 + 1) * Rnd + 1)
s=s & a(i) & " "
Print s
Next i
End Sub
一楼的正确！
也可以加逗号试试
加逗号会分得很开
加一个分号正确
最好End sub前加一个Print
如果题目严格的话，有时要用Tab定位