資源簡介

臨河三中2021～2022學年上學期高三年級月考
高三（VB）試卷
試卷總分：100分 考試時間：70分鐘
姓名 班級 考號
注意事項：1．答卷前，務必將自己的姓名、準考證號等填寫在試卷和答題卡上，并正確粘貼條形碼。
2．選擇題答案用2B鉛筆把答題卡對應題目的答案標號涂黑。非選擇題有0.5毫米黑色字跡筆將答案寫在答題卡指定位置。在試卷上答題無效。
3．考試結束后，只交答題卡，試卷自己保留，以備講評使用。
一、選擇題：本題共20小題，每小題2分，共40分。在每小題給出的四個選項中，只有一項是符合題目要求的。
1、以下敘述中錯誤的是（ ）
A、打開一個工程文件時，系統自動裝入與該工程有關的窗體文件
B、保存VB程序時，應分別保存窗體文件、工程文件和模塊文件
C、由于VB屬于高級語言，所以其程序不能以解釋方式執行
D、一個工程可以添加多個模塊文件
2、將數據和程序（ ）起來的一個邏輯實體稱為“對象”
A、連接 B、封裝 C、串接 D、調試
3、如果一個變量N未經定義就直接賦值即N＝3.1415，則該變量的類型為（ ）
A、 Variant B、 Single C、 Double D、Integer
4、事件的名稱必須是（ ）
A、窗體所能識別的 B、能夠被用戶觸發的
C、對象所能識別的 D、該事件有對應的方法可執行
5、以下不符合VB語法的常量是（ ）
A、20－10 B、”電腦” C、true D、2.6E+01
6、在VB中，數據100&的類型是（ ）
A、單精度型 B、雙精度型 C、整型 D、長整型
7、設有語句：x=InputBox("輸入數值"，"0"，"示例") 程序運行后，如果從鍵盤上輸入數值10，并按回車鍵，則下列敘述中正確的是（ ）
A、變量X的值是數值“示例”B、在InputBox對話框標題欄中顯示的是"示例"
C、0是默認值 D、變量X的值是字符串"10"
8、下列屬性中屬于邏輯型的是（ ）
A、Caption B、BorderStyle C、Visible D、Name
9、窗體上有一個名為Label1的標簽，為了使該標簽透明并且沒有邊框，正確的屬性設置為（ ）
A、Label1.BackStyle=0： Label1.BorderStyle=0
B、Label1.BackStyle=1： Label1.BorderStyle=1
C、Label1.BackStyle=true： Label1.BorderStyle=true
D、Label1.BackStyle=False： Label1.BorderStyle=False
10、設窗體上有一個文本框，名稱為Text1，程序運行后，要求該文本框只能顯示信息，不能接收輸入的信息，以下能實現該操作的語句是（ ）
A、Text1.MaxLength=0 B、Text1.Enabled=False
C、Text1.Visible=False D、Text1.Width=0
11、命令按鈕不支持的事件是（ ）
A、Click B、DblClick C、GotFocus D、LostFocus
12、命令按鈕command1的事件過程如下：
Private sub command1_click( )
X=inputbox(“輸入：”,”輸入整數”)
Msgbox “輸入的數據是：”,,”輸入數據：”+X
End sub
程序運行 后，單擊command1，從鍵盤上輸入數據10，則以下敘述中錯誤的是（ ）
A、X的值是數值型數據10 B、輸入對話框的標題是“輸入整數”
C、信息框的標題是“輸入數據：10”D、信息框中的顯示是“輸入的數據是：”
13、運行以下程序段后，輸出結果為（ ）
X%=1/4
Y%=11/4
Print x%;y%
A、0.25 0.75 B、1 3 C、0 2 D、0 3
14、若變量X＝1，則執行語句if x then x=0 else x=1后，X的值是（ ）
A、0 B、1 C、實時錯誤 D、編譯錯誤
15、設a=2,b=3,c=4,d=5,下列表達式的值是 3>2*b OR a=c AND b<>c OR c>d （ ）
A、1 B、 True C、False D、-1
16、運行下面程序段時，若從鍵盤輸入－5，則變量Y的值是（ ）
X=-5
A=val(inputbox(“請輸入A的值：”))
Select case a
Case is>0
Y=x+1
Case is =0
Y=x+2
Case else
Y=x+3
End select
A、－5 B、－2 C、－4 D、－3
17、有如下程序段
X=2
For I = 1 to 10 step 2
X=x+i
Next 運行程序后，X的值是（ ）
A、26 B、27 C、38 D、57
18、已知X和Y是字符型變量，運行下面程序段后，變量Y的值是（ ）
X=”ABCDEFG”
For I =4 to 1 setp -1
Y=y+mid(x,I,1)
Next
A、ABCD B、DCBA C、DEFG D、GFED
19、以下程序段的輸出結果是（ ）
x=1
y=4
Do Until y>4
x=x*y
y=y+1
Loop
Print x
A、1 B、4 C、8 D、20
20、執行下面的程序段后，i的值為( )
X=5
For I = 1 TO 20 STEP 2
X=X+i^2
Next i
A. 21 B. 22 C. 1335 D. 50
二、填空題(每空1分,共10分)
21、可以在中斷狀態下查詢對象值的窗口是___________________。
22、在VB中，發生在對象上且能被對象識別的動作稱為_________________。
23、當Rem放在某語句后，必須用“______”分隔，否則會出錯。
24、表達式7 + 33 \ 6 * 7 / 8 Mod 2的值是_________________。
25、同時具有列表框與文本框功能的控件是_________________。
26、設有如下程序段：a$= " beijingshanghai ":b$=mid(a$,instr(a$,”g”)+6)執行上面的程序段后，變量b$的值為______________。
27、循環結構for I = 5.5 to 0 step -2的循環次數是_________________
28、若要設置文本框的滾動條生效，必須先把___________屬性設置為True。
29、在窗體上畫兩個文本框Text1和Text2和一個命令按鈕Command1然后在命令按鈕的代碼窗口中編寫如下事件過程:
Private Sub Command1 _ Click( )
Text1.Text=”Vb Programming”
Text2.Text=Text1.Text
Text1.Text=”ABCD”
End Sub
程序運行后，單擊命令按鈕，文本框Text1中顯示的內容為
文本框Text2中顯示的內容為
三、程序填空題（每空2分，共50分）
30、以下程序執行后將輸出100到200之間所有的素數，并統計素數的個數
Private Sub Form_Click()
Dim i%, j%, k%, t% 't為統計素數的個數
Dim b As Boolean
For i = 100 To 200
b = True
k= ________【1】_____________
j = Int(Sqr(i))
Do While k <= j And b
If i Mod k = 0 Then
_______【2】______________
End If
__________【3】___________
Loop
if b=true then
t = t + 1
Form1.Print i
End If
Next i
Print "t="; t
End Sub
31、下面這段程序是從3個數中找出最小值
Dim x%,y%,z%,min%
X=val(inputbox(“請輸入X的值”))
Y=val(inputbox(“請輸入Y的值”))
Z=val(inputbox(“請輸入Z的值”))
If _______【4】________then
Min=y
Else
Min=x
End if
If zPrint “最小值是：”;min
32、下列程序的功能是找出被5、7除，余數為1的最小5個正整數。
Private Sub Form_Click()
Dim Ncount%, n%
Ncount =_________【6】_____________
n = 1
Do
If ___________【7】__________ Then
Print n
Ncount = Ncount + 1
End If
n = n + 1
Loop Until _______【8】________=5
End Sub
33、完善程序，使其能輸出1-2+3-4+5-6+……+99-100的值。程序如下：
Private Sub Command1_Click()
S = __________【9】___________
For i = 1 To _________【10】____________
S = s+((-1)^(___________【11】__________)) *i
Next i
Print s
End Sub
34、以下程序運行時，用戶可以在文本框Text1中輸入文本，單擊command1“添加”按鈕后將文本中輸入的內容加到列表框的末尾，用戶選某列表框的某一個列表項后，單擊command2“刪除”按鈕，將刪除該列表項；如果沒有任何一項選中，將有出錯提示"先選擇，再刪除！"。
Private Sub Command1_Click()‘ 添加按鈕
If Len(Text1.Text) <> 0 Then
___________【12】__________
Text1.Text = ""
Text1.SetFocus
End If
End Sub
Private Sub Command2_Click() ‘刪除按鈕
If __________【13】___________ Then
MsgBox "先選擇，再刪除！"
Else
_________【14】____________
End If
End Sub
35、下面的程序是求100以內奇數和s的值，請將程序補充完整。
Private Sub Command1_Click()
Dim s As Single
Dim i As Single
s = ______【15】______
For i = 1 To 100 Step ____【16】____
______【17】________
Next ______【18】________
Print ______【19】________
End Sub
36、在窗體上添加1個列表框、1個命令按鈕和1個標簽，其名稱分別為List1,Command1和Label1,通過屬性窗口把列表框中的項目設置為“第一個項目”，“第二個項目”，“第三個項目”，“第四個項目”。程序運行后，在列表框中選擇一個項目，然后單擊命令按鈕 ，將所選擇的項目刪除，并在標簽中顯示列表框當前的項目數。將程序補充完整。
Private Sub Command1_Click()
If List1.ListIndex >= _______【20】_________ Then
List1.RemoveItem _______【21】_______
Label1.Caption = _______【22】_______
Else
MsgBox "請選擇要刪除的項目"
______【23】________
End Sub
37、在窗體上畫一個標簽（名稱為label1）和一個計時器（名稱為timer1），然后編寫如下幾個事件過程：。程序運行后，單擊窗體，將在標簽中顯示當前時間，每隔1秒鐘變換1次。
Private sub form_load( )
Timer1.enabled=false
Timer1.interval=_______【24】_______
End sub
Private sub form_click( )
Timer1.enabled=_______【25】_______
End sub
Private sub timer1_timer( )
Label1.caption=time
End sub
高三計算機班VB答案
一、選擇題（每題2分，共40分）
1－5CBACA 6-10DDCAB
11-15BADAC 16－20BBBBB
二、填空題（每空1分，共10分）
21、立即窗口 22、事件 23、冒號 或 :
24、7 25、組合框
26、“hai” 27、3 28、multiline
29、“ABCD” “Vb Programming”
三、程序填空題（每空2分，共50分）
30、[1]2 [2]b = False [3]k = k + 1
31、[4]x >y或y 32、[6]0 [7]n Mod 5 = 1 And n Mod 7 = 1 [8]Ncount
33、[9]0 [10]100 [11]i+1
34、[12]List1.AddItem Text1.Text
[13]List1.ListIndex = -1
[14]List1.RemoveItem List1.ListIndex
35、[15]0 [16]2 [17]s=s+i
[18]i [19]s
36、[20]0 [21]List1.ListIndex
[22]List1.ListCount [23]end if
37、[24]1000 [25]True
高三計算機班VB——明細表
一、選擇題
1. vb各文件的使用
2. VB特點
3. 數據類型
4. 數據類型
5. 不通過類型常量特點
6. 類型說明符
7. Inputbox函數的使用
8. 邏輯性常量
9. 標簽控件的屬性
10. 文本框控件的屬性
11. 事件名
12. 消息框
13. 數值型數據不同類型的轉換
14. 單行條件語句
15. 關系表達式
16. Select case條件語句的使用
17. For循環中循環變量
18. For循環中字符串的連接
19. Do循環中計數、累乘
20. For循環中循環變量
二、填空題
21. VB各窗口功能
22. 對象三要素概念
23. 注釋語句語法規則
24. 計算算術表達式
25. 控件功能
26. 計算字符串表達式
27. 計算循環次數
28. 文本框屬性
29. 賦值語句
三、程序填空題
30. 循環求素數
31. 三個數求最小數
32. 找特定條件的5個最小正整數
33. 利用循環計算帶符號的累加
34. 列表框的添加、刪除問題
35. For循環求奇數和
36. 列表框選中項刪除、項目總數
37. 計時器顯示時間

展開更多......

收起↑