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
程式執行後,單擊命令按鈕,窗體上的輸出結果是:
請填空。