資源簡介

臨河三中2021-2022學年第一學期
高三計算機類Visual Basic程序設計期中考試試卷
一、單項選擇題（每小題2分，共40分，從下列每小題給出的四個選項中選出一個正確答案，用鉛筆把答題卡上對應題目的答案標號涂黑，如需改動，用橡皮擦干凈后，再選涂其他答案）
1. 以下能在窗體Form1的標題欄中顯示“VisualBasic窗體"的語句是_____。
A. Form1.Name ="VisualBasic窗體"
B. Form1.Title="VisualBasic窗體"
C. Form1.Caption="VisualBasic窗體"
D. Form1.Text="VisualBasic窗體”
2.在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程:
Private Sub Command1_Click( )
Move 500，500
End Sub
程序運行后，單擊命令按鈕，執行的操作為_____。
A.命令按鈕移動到距窗體左邊界、上邊界各500的位置
B.窗體移動到距屏幕左邊界、上邊界各 500的位置
C. 命令按鈕向左、上方向各移動500
D. 窗體向左、上方向各移動500
3.在窗體上有若干控件，其中有一個名稱為Text1的文本框。影響Text1的Tab順序的屬性是_____。
A. TabStop B. Enabled C. Visible D. Tabindex
4.在窗體上畫一個名稱為List1的列表框，為了對列表框中的每個項目都能進行處理，應使用的循環語句為_____。
A. For i=0 To List1.ListCount-1
.....
Next
B. For i=0 To ListCount-1
.....
Next
C. For i=1 To List1.listCount
.....
Next
D. For i=1 To ListCount
.....
Next
5.以下Case語句中錯誤的是_____
A. Case 0 To10 B.Case is>10
C. Case is>10 And is<50 D. Case 3,5, is>10
6. 以下關于圖片框控件的說法中，錯誤的是______
A. 可以通過Print方法在圖片框中輸出文本
B. 清空圖片框控件中圖形的方法之一是加載一個空圖形
C. 圖片框控件可以作為容器使用
D.用Stretch屬性可以自動調整圖片框中圖形的大小
7.執行語句s=Len(Mid("VisualBasic",1,6,)后，s的值是____。
A. Visual B. Basic C. 6 D.11
8.當一個復選框被選中時，它的Value屬性的值是_____
A.3 B. 2 C.1 D.0
9.以下關于函數過程的敘述中，正確的是_____
A.函數過程形參的類型與函數返回值的類型沒有關系
B.在函數過程中，過程的返回值可以有多個
C.當數組作為函數過程的參數時，既能以傳值方式傳遞，也能以傳址方式傳遞
D.如果不指明函數過程參數的類型，則該參數沒有數據類型
10.確定一個控件在窗體上的位置的屬性是_____
A.Width和Height B. Width 或Height
C.Top和Left D. Top或Left
11.在窗體上畫一個名稱為Text1的文本框和一個名稱為Command1的命令按鈕,然后編寫如下事件過程
Private Sub Command1 _Click（）
Text1.Text = "Visual"
Me.Text1= "Basic"
Text1 = "Program"
End Sub
程序運行后，如果單擊命令按鈕，則在文本框中顯示的是_____
A. Visual B. Basic C. Program D.出錯
12.以下關系表達式中，其值為False 的是_____
A. "ABC">"AbC" B. "the"<>"they"
C. "VISUAL"=UCase("Visual") D. "Integer">"Int"
13.語句Print 5/4*6\5 Mod 2的輸出結果是_____
A. 0 B. 1 C.2 D. 3
14.在窗體上畫一個文本框、一個標簽和一個命令按鈕，其名稱分別為Text1、Label1和Command1,然后編寫如下兩個事件過程:
Private SubCommand1_ Click( )
strText = InputBox("請輸入")
Text1.Text = strText
End Sub
Private Sub Text1_Change()
Label1.Caption = Right(Trim(Text1.Text), 3)
End Sub
程序運行后，單擊命令按鈕，如果在輸入對話框中輸入abcdef,則在標簽中顯示的內容是_____
A.空 B. abedef C.abc D. def
15.在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程:
Private Sub Command1_ Click（）
x=-5
If Sgn(x) Then
y= Sgn(x^2)
Else
y= Sgn(x)
End If
Print y
End Sub
程序運行后，單擊命令按鈕，窗體上顯示的是______
A. -5 B.25 C. 1 D. -1
16.在窗體上畫一個命令按鈕(其NAME屬性為Command1),然后編寫如下代碼
Option Base 1
Private Sub Command1Click()
Dim a
s= 0
a= Array(1,2,3,4)
j=1
For i= 4 To 1 Step -1
s=s+a(i)*j
j=j* 10
Next i
Print s
End Sub
運行上面的程序，單擊命令按鈕，其輸出結果是_____
A.4321 B.1234 C. 34 D.12
17.在窗體上畫一個名稱為Command1的命令按鈕和一個名稱為Text1的文本框，然后編寫如下事件過程:
Private Sub Command1_ Click()
n = Val(Text1.Text)
For i=2 To n
For j= 2 To sqr(i)
If i Mod j=0 Then Exit For
Next j
If j>Sqr(i) Then Print i
Next i
End Sub
該事件過程的功能是_____
A.輸出n以內的奇數B.輸出n以內的偶數
C.輸出n以內的素數D.輸出n以內能被j整除的數
18. 在窗體上畫一個名稱為Text1的文本框和一個名稱為Command1的命令按鈕，然后編如事件過程:
Private Sub Command1_Click()
Dim array1(10, 10) As integer
Dim I As integer,j As integer
For i= 1 To 4
For j= 2 To 5
Array1(i,j)=i+j
Next j
Next i
Text1.Text = array1(2, 5) + array1(3, 4)
End Sub
程序運行后，單擊命令按鈕，在文本框中顯示的值是_____
A.15 B. 14 C.13 D.12
19.以下程序的運行結果是______
Private Sub Form_Click( )
a= 1:b= 1
Print"A=";a; "B=";b
Call mult(a, b)
Print"A=";a; "B=";b
End Sub
Sub mult(x, y)
x=2* x
y=3*y
End Sub
A. A=1 B=1 B. A=1 B=1 C. A=1 B=1 D. A=1 B=1
A=1 B=1 A=1 B=3 A=2 B=3 A=2 B=1
20. 在VB中設計程序時，能自動被檢查出來的錯誤是_____
A.語法錯誤B.語法錯誤和邏輯錯誤C.運行錯誤D.邏輯錯誤
二、填空題(每空1分，共10分)
21.產生一個[20，50]范圍內的隨機數的表達式是 。
22. VB中的變量如果沒有顯示聲明其數據類型，則默認為 。
23. Visual Basic提供了結構化程序設計的三種基本結構，三種基本結構是 、 和 。
24.根據數組中元素的個數是否可以變化，數組分為 數組和
數組。
25.如果列表框的ListCount屬性為20，則列表框的最后一項的Listindex值為 。
26. 在過程調用中，參數的傳遞可分為 傳遞和 傳遞兩種方式。
三、程序填空題(每空2分，共50分)
27.下面過程max()用于求3個數中的最大值，利用這個過程求5個數中的最大值，請填空。
Private Sub Command1_Click( )
Print “5個數34、124、68、73、352的最大值是：”
Max1 = max(34,124,68)
Max1 = 【1】
Print Max1
End Sub
Public Function max(ByVal a%,ByVal b%,ByVal c%)
If 【2】 Then
M = a
Else
M = b
End If
If 【3】 Then
Max = m
Else
【4】
End If
End Function
28.窗體上有一個圖片框Picture1，兩個命令按鈕Command1和Command2,如圖所示。當單擊命令按鈕Command1時，在圖片框中畫出正弦函數，當單擊命令按鈕Command2時，清空圖片框中的圖像，請填空。
Private Sub Command1_Click()
Picture1.Scale (-6, 6)-(6, -6)
Picture1.DrawWidth = 5
For i = -6 To 6 Step 0.0001
Picture1.【5】 (i, 【6】 )
【7】
End Sub
Private Sub Command2_Click()
Picture1.【8】
End Sub
29.編寫事件過程并滿足以下要求:單擊命令按鈕1,產生50個[50, 300]隨機整數并顯示在列表框1中，單擊命令按鈕2,在列表框2中顯示上述隨機整數中的所有大于100的數，并在列表框1中刪除該數。如圖所示。
Private Sub Command1_ Click（）
Randomize
For i= 1 To 50
x = 【9】
List1. 【10】
Next i
End Sub
Private Sub Command2 _Click( )
For i=【11】 To 0 step -1
If 【12】 Then
List2.AddItem 【13】
List1.【14】
【15】
Next i
End Sub
30.以下程序suixian可以判斷某個數字是否為水仙花數，所謂“水仙花數”是指一個3位數，其各個數字立方和等于該數本身。
Private Sub Command1_Click（）
Dim i As Integer
For i = 100 to 999
【16】
Next i
End Sub
Public Sub suixian(x As Integer)
Dim i%,j%,k%
i = 【17】
j = (x -i * 100)\10
k = 【18】
If 【19】 Then Print x
End Sub
31.用隨機數產生50個[10,100]不重復的正整數放入數組,從小到大排序,每行輸出10個數。
Private Sub Command1Click()
Dim a(1 To 50) As Integer, i%, j%, t%, p%, n%, x%
n=0
Randomize
Do While n<50
x= 【20】
For i= 1 To n
If 【21】 Then Exit For
Next i
If i> n Then
【22】
a(n)=x
End If
Loop
For i= 1 To 49
【23】
For j=i+ 1 To 50
If a(p)> a(j) Then 【24】
Next j
t= a(p): a(p) = a(i): a(i)=t
Next i
For i= I To 50
Print a(i);
if 【25】 Then Print
Next i
End Sub
高三計算機類Visual Basic程序設計期中考試答案
一、選擇題（每題2分，共40分）
1.C 2.B 3. D 4.A 5.C
6.D 7.C 8.C 9.A 10.C
11.C 12.A 13.B 14.D 15.C
16.B 17.C 18.B 19.C 20.A
二、填空題（每空1分，共10分）
21.Int(31*rnd + 20)
22.變體型
23.順序結構、選擇結構、循環結構
24.靜態、動態
25.19
26.按值、按址
三、程序填空題（每空2分，共50分）
27.（8分）【1】、max(max1,73,352)【2】、a>b
【3】、m>c 【4】、Max = C
28.（8分）【5】、Pset【6】、Sin(i)
【7】、Next i 【8】、Cls
29. （14分）【9】、int(Rnd*251+50)【10】、addItem x
【11】、List1.ListCount -1 【12】、List1.List(i)>100
【13】、List1.List(i)【14】、RemoveItem i
【15】、End If
30. （8分）【16】、Call suixian(i)【17】、x\100
【18】、x mod 10 【19】、i^3 + j^3 +k^3 = x
31. （12分）【20】、int(Rnd*91+10)【21】、x = a(n)
【22】、n = n +1 【23】、p = i
【24】、p = j【25】、i mod 10

展開更多......

收起↑