UC知道vb 数据库 数组
来源：百度知道 编辑：UC知道 时间：2024/05/21 11:25:06
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
哪错拉
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
哪错拉
Dim s As String ,a() as integer '改一下
ReDim Preserve a(n) '改一下
a(n - 1) = s 改成a(n - 1) = val(s)
程序不完整,不要只发这个事件过程,全部一起发过来
Do While b = 0
b的初始值是什么啊？你都没有循环的判断变量！