資源簡介

臨河三中2021～2022學年上學期期中考試
高二計算機（VB）試卷
試卷總分：100分 考試時間：70分鐘
姓名 班級 考號
注意事項：1．答卷前，務必將自己的姓名、準考證號等填寫在試卷和答題卡上，并正確粘貼條形碼。
2．選擇題答案用2B鉛筆把答題卡對應題目的答案標號涂黑。非選擇題用0.5毫米黑色字跡筆將答案寫在答題卡指定位置。在試卷上答題無效。
3．考試結束后，只交答題卡，試卷自己保留，以備講評使用。
第Ⅰ卷（共50分）
一、 選擇題：本題共50小題，每小題1分，共50分。在每小題給出的四個選項中，只有一項是符合題目要求的。
1. 以下關于屬性設置正確的說法是( )。
A、在屬性窗口中可以設置所有屬性的屬性值
B、在程序代碼中可以設置所有屬性的屬性值
C、屬性的名稱由VB事先定義，用戶不能改變
D、所有對象的屬性都是可見的
1. 表達式Int(8*sqr(36)*10^(-2)*10+0.5)/10的值是（）.
A、 .48 B、 .048 C、 .5 D、 .05
1. 表達式Val(".123E2CD")的值是（）
A、.123 B、12.3 C、0 D、.123E2CD
1. 系統符號常量的定義可以通過（）獲得.
A、對象瀏覽器 B、代碼窗口 C、屬性窗口 D、工具箱
1. 表達式(7\3+1)*(18\5-1)的值是（）.
A、8.67 B、7.8 C、6 D、6.67
1. 表達式5^2 Mod 25\2^2的值是（）.
A、1 B、0 C、6 D、4
1. 表達式25.28 Mod 6.99的值是（）.
A、1 B、5 C、4 D、出錯
1. 下面表達式中,（）的運算結果與其他三個不同.
A、Exp(-3.5) B、Int(-3.5)+0.5
C、-Abs(-3.5) D、Sgn(-3.5)-2.5
1. 表達式Int(Rnd(0)+1)+Int(Rnd(1)-1)的值是（）.
A、1 B、0 C、01 D、2
1. 表達式Left("howareyou",3)的值是（）.
A、how B、are C、you D、howareyou
1. 表達式Abs(-5)+Len("ABCDE")的值是（）.
A、5ABCDE B、05ABCDE C、10 D、0
1. 下面change事件過程中，文本框text1用來接收輸入，該事件過程的作用是：
Private Sub Text1_Change()
Text2.Text = Str(2 * 3.1416 * Val(Text1.Text))
End Sub
A. 將在文本框text1中輸入的數字變為數值
B. 將在文本框text1中輸入的數字作為半徑，求圓的面積并轉換為字符串
C. 只要text1中的內容一改變，text2中顯示的圓周長也隨之改變
D. 事件過程中存在錯誤，事件過程不能執行
1. 函數Len(Str(Val("123.4")))的值為（）.
A、11 B、5 C、6 D、8
1. 設A="12345678",則表達式Val(Left(A,4)+Mid(A,4,2))的值（）
A、123456 B、123445 C、8 D、6
1. 函數Ucase(Mid("Visualbasic",8,5))的值為（）.
A、Visual B、ASIC C、VISUAL D、BASIC
1. 表達式Str(Len("123"))+Str(77.7)的值為（）.
A、 3 77.7 B、200.7 C、80.7 D、12377.7
1. 表達式(-1)*Sgn(-100+Int(Rnd*100))的值是（）.
A、0 B、1 C、-1 D、隨機函數
1. 設有如下聲明：
Dim X As Integer??
如果Sgn(X)的值為-1，則X的值是()
A、整數 B、大于0的整數 C、等于0的整數 D、小于0的數
1. 在窗體(名稱為Forn1) 上畫一個名稱為Text的文本框和一個名稱為Command1的命令按鈕，然后編寫一個事件過程。程序運行以后，如果在文本框中輸入一個字符，則把命令按鈕的標題設置為“計算機考試”。以下能實現上述操作的事件過程是:
A. Private Sub Textl Change( )Command1.Caption=”計算機考試”End Sub B. Private Sub Command1 _Click( )Caption="計算機考試”End Sub
C. Private Sub Foml Click( )Text1.Caption="計算機考試"End Sub D. Private Sub Command1 Click( ) Text1.Text-="計算機考試"End Sub
1. 假定有如下的窗體事件過程:
Private Sub Form Click( )
a$ = "Microsoft Visual Basic
b$ = Right(a$, 5)
c$ = Mid(a$， 1， 9)
MsgBox a$，34， b$
End Sub
程序運行后單擊窗體，則在彈出的信息框中的標題欄中顯示的信息：
A. Microsoft Visual B. Microsoft Visual Basic
C. Basic D. 5
1. 在窗體上畫一個文本框， 然后編寫如下事件過程:
Private Sub Form Click( )
x = InputBox("請輸入一 個整數")
Print x + Textl.Text
End Sub
程序運行時，在文本框中輸入456，然后單擊窗體，在輸入對話框中輸入123，單擊“確定"按鈕后，在窗體上顯示的內容是
A.123 B.456 C.579 D.123456
1. 數據2013是( )數據。
A.整型 B.長整型 C.字符型 D.日期型
1. 設窗體上有一個文本框，名稱為Textl,程序運行后，要求該文本框只能顯示信息，不能接受輸入的信息，以下能實現該操作的語句是( )。
A.Text1.MaxLength=0 B. Textl .Enabled=Flase
C.Text1.Visible=Flase D. Text1.Width=0
1. 如果希望一個窗體在顯示的時候沒有邊框，應該完成的操作是( )
A.將窗體的Caption設成空字符 B.將窗體的Enabled屬性置成False
C.將窗體的Borderstyle置成None D.將窗體的ContalBox置成False
1. 消息框函數MsgBox不但能輸出信息，還能通過返回值告訴程序用戶( )
A.按下哪一個按鈕 B.是否繼續 C.哪個圖標 D.幾個按鈕
1. 下列賦值語句正確的是( )
A. A+B+C=0 B. A=B+C C. SIN A、 =B+C D. A=2*π*R
1. 數學式cos45°寫成VB表達式是
A. COS45 B.COS (45) C.COS (45°) D.COS (45*3.14/180)
1. \ 、 / 、 Mod、*四個算術運算符中，優先級別最低的是
A. / B. \ C. Mod D. *
1. 以下敘述中正確的是
A. 窗體的Name屬性指定窗體的名稱，用來標識一一個窗體
B.窗體的Name性的值是顯示在窗體標題欄中的文本
C.可以在運行期間改變對象的Name屬性的值
D.對象的Name屬性值可以為空
1. 下列正確聲明各組變量的是( )。
A、Dim abc As Integer , num As Single B、Dim a%, b%, c%, a￥
C、Dim I%, N$ As Integer D、public dim n%
1. 設有如下變量聲明
Dim TestDate As Date
為變量TestDate正確賦值的表達方式是
A. TextDate =#1/1/2002#
B. TestDate= #“1/1/2002”#
C. TextDate=date(“1/1/2002”)
D. TestDate=Format(“ m/d/yy”,”1/1/2002”)
1. 設有語句
X=InputBox("輸入數值”，“0",“示例)
程序運行后，如果從鍵盤上輸入數值10并按回車鍵，則下列敘述中正確的是
A.變量x的值是數值10
B.在InputBox對話框標題欄中顯示的是“示例”
C.0是默認值
D.變量X的值是字符串“10”
1. 以下能夠觸發文本框Change事件的操作是
A.文本框失去焦點 B.文本框獲得焦點
C.設置文本框的焦點 D.改變文本框的內容
1. 下列敘述中正確的是 ( )
A.只有窗體才是Visual Basic中的對象
B.只有控件才是Visual Basic中的對象
C.窗體和控件都是Visual Basic中的對象
D.窗體和控件都不是Visual Basic中的對象
1. VB的邏輯類型數據占( ) 字節內存
A.2 B. 4 C.8 D.16
1. 在表示長整數時，可作為長整數尾部符號的是
A. # B. ! C. & D. $
1. 為了使標簽中的內容居中顯示，應把Alignnent屬性設置為
A.0 B.1 C. 2 D.3
1. 決定標簽內顯示內容的屬性是
A. Text B. Name C. Alignment D. Caption
1. 下列關于面向對象編程的敘述錯誤的是
A.屬性是描述對象特征的數據 B.方法指示對象的行為
C.事件是能夠被對象識別的動作 D. Visual Basic程序的運行機制是面向對象
1. 在窗體上畫一個名稱為Text1的文本框和一個名稱為Command1的命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click()
Text1.Text = "visual"
Me.Text1 = "basic"
Text1 = "program"
End Sub
程序運行后，如果單擊命令按鈕，則在文本框中顯示的是
A. Visual B. Basic C. Program D. 出錯
1. 有如下程序段:
Dim str1 As String*5
Str1="Visual Basic”
當該段程序被執行完時，變量str1 的值為
A.“Visual Basic" B.“V“ C.“Visual” D.“Visua”
1. 語句X=X+1的正確含義是（）
A、變量X的值與X+1的值相等
B、將變量X的值存到X+1中去
C、將變量X的值加1后賦給變量X
D、變量X的值為1
1. 下列哪組語句可以將變量A、B的值互換（ ）
A、A=B：B=A B、A=A+B：B=A-B : A=A-B
C、A=C：C=B :B=A D、A=(A+B)/2:B=(A-B)/2
1. 函數String（n,”str”）的功能是（ ）。
A、把數值型數據轉換為字符串
B、返回由n個字符組成的字符串
C、從字符串中取出n個字符
D、從字符串中第n個字符的位置開始取子字符串
1. 在窗體上畫一個命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click()
MsgBox Str(123 + 321)
End Sub
程序運行后，單擊命令按鈕，則在信息框中顯示的提示信息為
A、字符串“123+321” B、字符串“444” C、數值“444” D、空白
1. 假定編寫了如下4個窗體事件的事件過程，則運行應用程序并顯示窗體后，已經執行的事件過程是
A、Load B、Click C、LostFocus D、KeyPress
1. 為了使標簽具有“透明”的顯示效果，需要設置的屬性是
A、Caption B、Alignment C、Backstyle D、AutoSize
1. 設窗體中有一個文本框Text1，若在程序中執行了Text1.SetFocus，則觸發
A、Text1的SetFocus事件 B、Text1的GotFocus事件
C、Text1的LostFocus事件 D、窗體的GotFocus事件
1. 設窗體的名稱為Form1，標題為Win，則窗體的MouseDown事件過程的過程名是
A、Form1_MouseDown B、Win_MouseDown
C、Form_MouseDown D、MouseDown_Form1
1. 窗體上有名稱為Command1的命令按鈕和名稱為Textl的文本框
Private Sub Command1_Click（）
Text1．Text="程序設計"
Text1．SeFocus
End Sub
Private Sub Text1_GotFocus（）
Text1．Text="等級考試"
End Sub
運行以上程序，單擊命令按鈕后（）。
A.文本框中顯示的是"程序設計"，且焦點在文本框中
B.文本框中顯示的是"等級考試"，且焦點在文本框中
C.文本框中顯示的是"程序設計"，且焦點在命令按鈕上
D.文本框中顯示的是"等級考試"，且焦點在命令按鈕上
第Ⅱ卷（共50分）
二、填空題（20*1分=20分，答案寫在答題紙上）
1. 按要求寫賦值語句：已知字符串變量x其值為某個小寫字母，將其轉換為大寫字母并存儲在字符串變量ch中。
1. 按要求寫賦值語句：產生隨機數，范圍為[5,16]的整數，并存儲在Integer類型變量x中__________________
1. 為了使標簽能自動調整大小以顯示標題（Caption屬性）的全部文本內容，應把該標簽的 屬性設置為True。
1. 將數學表達式:____________
1. 將數學表達式:____________
1. 計算函數sqr(sqr(81))的值為________
1. 在命令按鈕上釋放鼠標按鈕時，所觸發的事件稱為：_________
1. 要想在文本框中顯示滾動條，首先需要將Multiline屬性設為_______，然后修改ScrlooBars屬性。
1. “Hello”是_________型常量，False是_________型常量。
1. 為了使一個標簽具有邊框，必須把它的BorderStyle屬性設置為________
1. 閱讀一下程序段，程序運行后變量a的結果為_______
a = 1
b = 2
a = a + b
b = a + b
1. 一個按鈕其Name屬性為Cmd1，當其單擊事件過程的名稱應為___________
1. 在面向對象的程序設計中，由_______定義其外觀特征，由_________定義其行為，由__________定義其與用戶的交互。
1. 假定一個文本框的Name屬性為Text1，為了使該文本框獲得焦點，應執行的語句是_____________________
1. 根據下圖寫出InputBox函數中的參數。InputBox（ ， ， ）
三、程序填空題（每空2分，共30分）
1. 序的功能是：當單擊Command1命令按鈕時，Text1和Text2控件中的內容將進行交換；單擊命令按鈕Command1時可以關閉窗體。
Private Sub Command1_Click()
[1]
Text1.Text = Text2.Text
[2]
End Sub
Private Sub Command2_Click()
[3]
End Sub
1. 根據注釋語句將程序段補充完整。
Private Sub Command1_Click()
Label1.Caption = "你是男是女呀？" '改變Label1的標題內容
[4] 'Label2的內容居中顯示
[5] '將Label2的邊框樣式改為無邊框
End Sub
1. 下面程序段的功能是：通過按鈕Command1把字符串“輕輕松松學VB”按20號字體大小輸出到窗體上的（2000，1500）；單擊Command2清除窗體中的文字內容。
Private Sub Command1_Click()
Dim x As String
x = "輕輕松松學VB"
[6] = 20
[7]
[8]
Show
Print x
End Sub
Private Sub Command2_Click()
[9]
End Sub
1. 下面程序段將一個三位整數倒序輸出。
Private Sub Form_Click()
Dim x%, b%, s%, g%
x = Val(Text1.Text)
b = [10]
s = [11]
g = [12]
x = g * 100 + s * 10 + b
Print [13]
End Sub
1. 下面程序的功能是：單擊“啟動”按鈕后，能在標簽Label1中顯示當前時間。（該程序中窗體上只有一個標簽控件）
Private Sub [14]____________
Label1.Caption = [15]___________
End Sub
高二計算機（VB）答案
一、 選擇題：
1-5：CCBAC 6-10:ACABA
11-15:CCCBB 16-20:ABDAC
21-25:DABCA 26-30:BDCAA
31-35:ADDCA 36-40:CCDDC
41-45:DCBBB 46-50:ACBCB
二、填空題
51. ch = UCase(x)
52. x = Int(Rnd * 12 + 5)
53.AutoSize
54.sqr(log(x))/abs(2*x-1)
55.(1+y/x)/(1-y/x)
56.3
57.mouseup
58.true
59.字符 布爾
60.1
61.3
62. Cmd1_Click()
63.屬性 方法 事件
64. Text1.SetFocus
65.請輸入半徑 輸入對話框 10
三、程序填空題
66.[1] t = Text1.Text [2] Text2.Text = t [3]unload me
67.[4] Label2.Alignment = 2 [5] Label2.BorderStyle = 0
68.[6]fontsize=20 [7]current=2000 [8]currenty=1500 [9]cls
69.[10]x\100 [11]x\10 mod 10 [12]x mod 10 [13] x
70. [14] Form_Load() [15]time

展開更多......

收起↑