您所在位置：主题：路过的也进来看看+++++++送分的!进来都有分!
yaoyusheng
[专家分：460] 发布于 2007-07-28 08:50:00
Dim x(10)
For i = 1 To 10
Print "x("; i; ")=";
input x(i)
Print x(i)
Next i
For i = 1 To 9
For j = i + 1 To 10
If x(i) > x(j) Then t = x(i): x(i) = x(j): x(j) = t
Next j
Next i
Cls
For i = 1 To 10
Print x(i)
Next i
End
(输入10个数,按从小到大排列)
这个程序在QB里是正确的.可为什么在VB里一定要把dim x(10)改成dim x!(10)或改成dim x(10) as double呢? 也可以把input x(i)改成x(i)=val(inputbox(""))
为什么,为什么呢?
是不是数组如果不声明默认为string?
For i = 1 To 10
Print "x("; i; ")=";
input x(i)
Print x(i)
Next i
For i = 1 To 9
For j = i + 1 To 10
If x(i) > x(j) Then t = x(i): x(i) = x(j): x(j) = t
Next j
Next i
Cls
For i = 1 To 10
Print x(i)
Next i
End
(输入10个数,按从小到大排列)
这个程序在QB里是正确的.可为什么在VB里一定要把dim x(10)改成dim x!(10)或改成dim x(10) as double呢? 也可以把input x(i)改成x(i)=val(inputbox(""))
为什么,为什么呢?
是不是数组如果不声明默认为string?
