填空题
随机产生位学生的分数(分数范围0～00)，存放数组a中，以每分一个“*”显示，如下图（-）所示。
Private Sub form_Click()
Dim a%( To )
For i = To
a(i) = _______【】______
Print _______【】_______
Next i
End Sub
输出大小可变的正方形图案，如图.所示，最外圈是第一层，要求每层上用的数字与层数相同。
Option Base
Private Sub Form_Click()
Dim a()
n = InputBox("输入 n")
ReDim a(n, n)
For i = To (n ) /
For j = i To n - i
For k = i To n - i
_______【】_______
Next k
Next j
Next i
For i = To n
For j = To n
_______【】_______
Next j
_______【】_______
Next i
End Sub
下面的程序是将输入的一个数插入到按递减的有序数列中，插入后使该序列仍有序。
Private Sub form_Click()
Dim a, i%, n%, m%
a = Array(, , , , , , , , , )
n = UBound(A）
ReDim _______【】_______
m = Val(InputBox("输入插入的数 n"))
For i = UBound(A） - To 0 Step -
If m >= a(i) Then
_______【】_______
If i = 0 Then a(i) = m
Else
_______【】_______
Exit For
End If
Next i
For i = 0 To UBound(A）
Print a(i)
Next i
End Sub
冒泡排序程序如下，请填空。
Private Sub Form_Click()
Dim a, i%, n%, j%
a = Array(, , , , , , , , )
n = UBound(A）
For i = 0 To n -
For j = 0 To n - - i
If a(j) > a(j ) Then
_______【】_______
_______【0】_______
a(j ) = t
End If
Next j
Next i
For i = 0 To UBound(A）
Print a(i)
Next i
End Sub
.在窗体上画一个名称为“Command”的命令按钮，然后编写如下事件过程：
Private Sub Command_Click()
Dim a As String
a = ""
For i = To
Print Space( - i); Mid$(a, _【】__ , * i - )
Next i
End Sub
程序运行后，单击命令按钮，窗体上的输出结果是:
请填空。
.以下程序段产生00个～之间的随机整数，并进行统计。数组元素S(i)(i=,,,)的值表示等于i的随机数的个数，要求输出如下格式：
S()=. . .
S()=. . .
S()=. . .
S()=. . .
将程序补充完整。
Dim S() As Integer
Randomize
For I= To 00
X=Int(Rnd * )
S(X)=S(X)
Next I
For I= To
_【】___
Next I
.以下程序代码将任意一组数存入数组，从键盘接收一数据，将其插入数组中，插入的位置也从键盘接收。
Dim A( )
Private Sub Form_Click( )
N=InputBox("数据个数:")
N=N
&, nbsp; __【】__
For I=To N-
A(I)=Val(InputBox("原数据:"))
Next I
D=Val(InputBox("插入的数据:"))
P=Val(InputBox("插入的位置:"))
Do While P>N Or P<
MsgBox"位置越界!"
P=Val(InputBox("插入的位置:"))
Loop
For I=N To P Step -
A(I)=A(I-)
Next I
A(P)=D
For I= To N
Text.Text=Text.Text & Str(A(I))&""
Next I
End Sub
.设在窗体上有一个文本框Text，一个标签数组Label，共有0个标签，以下程序代码实现在单击任一个标签时将标签的内容添加到文本框现有内容之后。
Private Sub Labell_Click(Index As Integer)
Text.Text=_【】___
End Sub
0.设有如下程序
Private Sub Form_Click()
Dim a As Integer, b As Integer
a = 0 :b = 0
P a, b
p a, b
p a, b
Print "a=";a,"b=";b
End Sub
Sub p(x As Integer, ByVal y As Integer)
x = x 0
y = y 0
End Sub
Sub p(ByVal x As Integer, y As Integer)
x = x 0
y = y 0
End Sub
Sub p(ByVal x As Integer, ByVal y As Integer)
x = x 0
y = y 0
End Sub
该程序运行后，单击窗体，则在窗体上显示的内容是：a = _【】___和 b =__【】__。
.设有程序
Option Base
Private Sub Command_Click()
Dim arr,Max as Integer
arr=Array(,,,,,,,)
__【】___=arr()
For i= To
If arr(i)>Max Then_【0】_
Next i
Print"最大值是："；Max
End Sub
以上程序的功能是：用Array函数建立一个含有个元素的数组，然后查找并输出该数组中元素的最大值。请填空。
12.设有如下程序：
Option Base
Private Sub Command_Click()
Dim arr
Dim Min As Integer,i As Integer
arr=Array(,,,-,,,,)
Min=__【】__
For i= To
If arr(i)
【1】Int(Rnd * 100 1)
【2】String(a(i) / 2, "*"); "a("; i; ")="; a(i)
【3】a(j, k) = i
【4】Print Tab(j * 3); a(i, j);
【5】Print
【6】Preserve a(n 1)
【7】a(i 1) = a(i)
【8】a(i 1) = m
【9】t = a(j)
【10】a(j) = a(j 1)
【11】6-I
【12】Print "S(";I;")=";S(I)
【13】ReDim A(N)
【14】Text1.Text & Labell(Index).Caption
【15】Form2.aaa(a,b,c1)
【16】bbb a,b,c2
【17】30
【18】70
【19】Max
【20】Max=arr1(i)
【21】12或arr1(1)
【22】Min=arr1(i)
