超力高科 招股说明书:请问这样编程那里有错阿vb

来源：百度文库 编辑：高校问答 时间：2024/04/29 06:32:43
Dim n%, i%
Dim a() As Integer
Dim b() As Integer
Dim x%, p%

Private Sub Command1_Click()
Dim a() As Integer, n%, j%, i%, temp%, p%, q%
n = 10
ReDim a(n)
Randomize
For i = 1 To 10
a(i) = Int(Rnd * 90 + 10)
Next i
ReDim Preserve a(1 To 10)
For i = 1 To 10 - 1
p = i
For j = i + 1 To 10
If a(j) < a(p) Then p = j
Next j
temp = a(i)
a(i) = a(p)
a(p) = temp
Picture1.Print a(i);
Next i
For i = 1 To 10
b(i) = a(i)
Next i
End Sub

Private Sub Command2_Click()
Dim y As Variant
Select Case p
Case Is < 1
For i = 10 To 1 Step -1
b(i + 1) = b(i)
Next i
b(1) = x
Case Is > 10
b(11) = x
Case Else
For i = 10 To p Step -1
b(i + 1) = b(i)
Next i
b(p) = x
End Select
For Each y In b
Picture4.Print y
Next y
End Sub

没有什么错误啊

请问这样编程那里有错阿vb vb 编程 请问我这样编程哪有错阿 请问VB编程高手们： 那里有vb的编程例子看？ jsp编程有错 请问如何下载VB编程平台 请问VB编程高手!急啊~~~ 请问有外文VB编程的书名 VB编程~~ VB 编程