Question

vb 数据库 数组

Private Sub Command1_Click()
Print "随机输入的数据"
n = 0
Dim s As String
Do While b = 0
n = n + 1
ReDim Preserve a(n) As Integer
s = InputBox("输入数据")
If s = "" Then
n = n - 1
Exit Do
Else
a(n - 1) = s
End If
Loop
Call paixu(a(), n)
For i = 0 To n - 1
Print a(i); " ";
Next i
End Sub
哪错拉

Answer 1

Dim s As String ,a() as integer '改一下
ReDim Preserve a(n) '改一下

a(n - 1) = s 改成a(n - 1) = val(s)

Answer 2

程序不完整,不要只发这个事件过程,全部一起发过来

Answer 3

Do While b = 0
b的初始值是什么啊？你都没有循环的判断变量！