山东卫视体育频道:vb 编程 请问我这样编程哪有错阿

来源：百度文库 编辑：中科新闻网 时间：2024/04/28 20:40:04
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

ReDim a(n)
Randomize
For i = 1 To 10
I = O TO 10-1

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%

重复声明变量出错

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