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

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

　　2016年上半年计算机等级考试将于本周六开考，同学们都复习得怎么样了?下面百分网小编为大家搜索整理了关于《VB》填空题练习与答案，欢迎参考练习，希望对大家备考有所帮助!想了解更多相关信息请持续关注我们应届毕业生考试网。

　　1.随机产生位学生的分数(分数范围0～00)，存放数组a中，以每分一个“*”显示，如下图(-)所示。

　　Private Sub form_Click()

　　Dim a%( To )

　　For i = To

　　a(i) = _______【】______

　　Print _______【】_______

　　Next i

　　End Sub

　　2.输出大小可变的正方形图案，如图.所示，最外圈是第一层，要求每层上用的数字与层数相同。

　　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

　　3.下面的程序是将输入的一个数插入到按递减的有序数列中，插入后使该序列仍有序。

　　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

　　4.冒泡排序程序如下，请填空。

　　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

　　5.在窗体上画一个名称为“Command”的命令按钮，然后编写如下事件过程：

　　Private Sub Command_Click()

　　Dim a As String

　　a = ""

　　For i = To

　　Print Space( - i); Mid$(a, _【】__ , * i - )

　　Next i

　　End Sub

　　程序运行后，单击命令按钮，窗体上的输出结果是:

　　请填空。