UC知道简单的VB程序问题
来源：百度知道 编辑：UC知道 时间：2024/05/17 01:17:25
想学学VB编程，定义一个数组, 包含5个元素, 都是随机整数(随便输入), 要求把他们按照从大到小的顺序排列起来，这段代码应该怎么改：
dim a(4),str
for i=0 to 4
a(i)=inputbox("输入"& i+1 &"shu")
Next
Dim temp
For i=0 To 4
If a(i)< a(i+1)then
temp=a(i)
a(i)=a(i+1)
a(i+1)=temp
Exit for
End If
next
str=str&" "&a(i)
msgbox(str)
还是不行啊，用我写的那个可以改改么．．．
楼上的都运行不起来．．
dim a(4),str
for i=0 to 4
a(i)=inputbox("输入"& i+1 &"shu")
Next
Dim temp
For i=0 To 4
If a(i)< a(i+1)then
temp=a(i)
a(i)=a(i+1)
a(i+1)=temp
Exit for
End If
next
str=str&" "&a(i)
msgbox(str)
还是不行啊，用我写的那个可以改改么．．．
楼上的都运行不起来．．
Private Sub Command1_Click()
Dim a(4), str
For i = 0 To 4
a(i) = Val(InputBox("输入" & i + 1 & "shu"))
Next
Dim temp
For j = 0 To 3
For i = 0 To 3 '你这个叫交换排序，如果一定要用则这段需执行4(即数组的长度-1)次
If a(i) < a(i + 1) Then '加val，保证是数字大小排，而不是字符排
temp = a(i)
a(i)&nbs