填空题

随机产生位学生的分数(分数范围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)【】___
Next i
Print "最小值是：";Min
End Sub
以上程序的功能是：用 Array 函数建立一个含有个元素的数组，然后查找并输出该数组中各元素的最小值。请填空。