Private Sub Command1 Click()
Dim a(1 To 10)As Integer
Dim i As Integer
For i=1 To 10
a(i)=i * i
Next i
List1.Add Item Str(a(i))
End Sub
运行程序,单击命令按钮Command1后,出现的错误提示为:( )
实现上述功能的VB程序如下,但加框处代码有错,请改正。
Const n=10
Dim a(1 To n)As Integer
Private Sub Form_Load()
‘获取排序前数据,并依次存储在数组a中,并在文本框Text1中显示。代码略
End Sub
Private Sub Command1_Click()
Dim i As Integer,j As Integer,t As Integer
Dim top As Integer
top=1
For i=1 To n-1
For j=
To n-1 ‘⑴
If a(i)>a(j+1)Then
t=a(j):a(j)=a(j+1):a(j+1)=t
ElseIf a(j)=a(j+1)Then ‘相邻两个数据相等,由前面数据对进行覆盖处理
‘⑵
top=top+1
End If
Next j
Next i
Text2.Text=“ ”
For i=top To n
Text2.Text=Text2.Text+Str(a(i))
Next i
End Sub
Const n =6
Dim a(1 To n * n) As Integer
Private Sub Form_Load() '产生n*n个数组元素,每行按n个数显示在list1中
For i = 1 To n * n
a(i) = Int(Rnd * 90) + 10
s = s + Str(a(i))
IfThen
List1.AddItem s
s = ""
End If
Next i
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer, w As Integer, s As String
For i = 1 To n * n
k = i
For j = k + n To
If a(k) > a(j) Then k = j
Next j
If
Then t = a(k): a(k) = a(i): a(i) = t
Next i
'将排序后数组a的元素,按每行n个数显示在list2中,代码略
End Sub

Dim tmp As Single ,s As String ,ch As String ,i As Integer s = "1,20,36,29,3,"
tmp = 0
For i = 1 To Len(s)
ch = Mid(s, i, 1)
If ch <> "," Then
Else
If Then
List1.AddItem Str(tmp)
End If
tmp = 0
End If
Next i
上述程序段中横线处可选语句为:
① tmp = tmp * 10 + Val(ch)
② tmp = tmp + ch
③ Sqr(tmp) ^ 2 = tmp
④ Int(Sqr(tmp)) = Sqr(tmp)
则方框处处语句依次为: ( )