计算机二级《VB》填空题练习与答案

xx年计算机二级《VB》填空题练习与答案
1.随机产生位学生的分数(分数范围0～00)，存放数组a中，以每分一个“*”显示，如下列图(-)所示。

Private Sub formClick()
Dim a%( To )
For i = To
a(i) = 【】
Print 【】
Next i
End Sub
2.输出大小可变的正方形图案，如图.所示，最外圈是第一层，要求每层上用的数字与层数相同。

Option Base
Private Sub FormClick()
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
3.下面的程序是将输入的一个数插入到按递减的有序数列中，插入后使该序列仍有序。

Private Sub formClick()
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
4.冒泡排序程序如下，请填空。

Private Sub FormClick()
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
5.在窗体上画一个名称为“Command”的命令按钮，然后编写如下事件过程：
Private Sub CommandClick()
Dim a As String
a = ""
For i = To
Print Space( - i); Mid$(a, 【】 , * i - ) Next i
End Sub
程序运行后，单击命令按钮，窗体上的输出结果是: 请填空。