久久久国产精品秘人口麻豆|永久免费AV无语国产|人成电影免费中文字幕|久久AV嫩草影院2

（考試時(shí)間90分鐘，滿分100分）

一、選擇題
（1）-（35）題每題2分，共70分。
下列各題A)、B)、C)、D)四個(gè)先項(xiàng)中,只有一個(gè)選擇是正確的,請(qǐng)將正確選項(xiàng)涂寫在答題卡相應(yīng)位置上,答在試卷上不得分。
(1) 下列不能打開屬性窗口的操作是 。
A) 執(zhí)行"視圖"菜單中的"屬性窗口"命令
B) 按F4鍵
C) 按Ctrl+T
D) 單擊工具欄上的"屬性窗口"按鈕 。
(2) 下列可以打開立即窗口的操作是 。
A) Ctrl+D B) Ctrl+E C) Ctrl+F D) Ctrl+G
(3) inputBox函數(shù)反回值的類型為 。
A) 數(shù)值 B) 字符串
C) 變體 D) 數(shù)值或字符串（視輸入的數(shù)據(jù)而定）
(4) 可以同時(shí)刪除字符串前導(dǎo)和尾部空白的函數(shù)是 。
A) Ltrim B) Rtrim C) Trim D) Mid
(5) 表達(dá)式4+5 \ 6 * 7 / 8 Mod 9 的值是
A) 4 B) 5 C) 6 D) 7
(6) 如果在立即窗口中執(zhí)行以下操作：
a=8 <CR> (<CR>是回車�，蠋n?
b=9 <CR>
print a>b <CR>
則輸出結(jié)果是 。
A) -1 B) 0 C) False D) True
(7) 以下語句的輸出結(jié)果是 。
Print Format $(32548.5,"000,000.00")
A) 32548.5 B) 32,548.5 C) 032,548.50 D) 32,548.50
(8) 執(zhí)行以下程序段后，變量c$的值為
a$="Visual Basic Programing"
b$="Quick"
c$=b$ & UCase(Mid$(a$,7,6)) & Right $ (a$,11)
A) Visual BASIC Programing
B) Quick Basic Programing
C) QUICK Basic Programing
D) Quick BASIC Programing
(9) 為了在按下回車鍵時(shí)執(zhí)行某個(gè)命令按鈕的事件過程，需要把該命令按鈕的一個(gè)屬性設(shè)置為True，這個(gè)屬性是 。
A) Value B) Default C) Cancel D) Enabled
(10) 為了把焦點(diǎn)移到某個(gè)指定的控件，所使用的方法是
A) SetFocus B) Visible C) Refresh D) GetFocus
(11) 設(shè)a=6，則執(zhí)行 x=IIf(a>5,-1,0)后，x 的值為 。
A) 5 B) 6 C) 0 D) -1
(12) 執(zhí)行下面的程序段后，x 的值為 。
x=5
For i=1 To 20 Step 2
x=x+i\5
Next i
A) 21 B) 22 C) 23 D) 24
(13) 在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click()
For i=1 To 4
x=4
For j =1 To 3
x=3
For k=1 To 2
x=x+6
Next k
Next j
Next i
Print x
End Sub
程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是 。
A) 7 B) 15 C) 157 D) 538
(14) 在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過程：
Prevate Sub Command1_Click()
x=0
Do Until x=-1
a = InputBox("請(qǐng)輸入A的值")
a = Val(a)
b = InputBox("請(qǐng)輸入B的值")
b = Val(b)
x = InputBox("請(qǐng)輸入x的值")
x = Val(x)
a = a+b+x
Loop
Print a
End Sub
程序運(yùn)行后，單擊命令按鈕，依次在輸入對(duì)話框中輸入5、4、3、2、1、-1，則輸出結(jié)果為 。
A) 2 B) 3 C) 14 D) 15
(15) 在窗體(Name屬性為Form1)上畫兩個(gè)文本框（其Name屬性分別為Text1和Text2）和一個(gè)命令按鈕（Name 屬性為Command1），然后編寫如下兩個(gè)事件過程：
Private Sub Command1_Click()
a=Text1.Text+Text2.Text
Print a
End Sub

Private Sub Formm_Load()
Text1 Text=""
Text2 Text=""
End sub
程序運(yùn)行后，在第一個(gè)文本框（Text1）和第二個(gè)文本框（Text2）中分別輸入123和321，然后單擊命令按鈕，則輸出結(jié)果為 。
A) 444 B) 321123 C) 123321 D) 132231
(16) 閱讀下面的程序段：
For i=1 To 3
For j=1 To i
For k=j To 3
a=a+1
Next k
Next j
Next i
執(zhí)行上面的三重循環(huán)后，a 的值為 。
A) 3 B) 9 C) 14 D) 21
(17) 在窗體上畫一個(gè)文本框（其中Name屬性為Text1），然后編寫如下事件過程：
Private Sub Form_Load()
Ttext1.Text=""
Text1.SetFocus
For i=1 To 10
Sum=Sum+i
Next i
Text1.Text=Sum
End Sub
上述程序的運(yùn)行結(jié)果是 。
A) 在文本框Text1中輸出55
B) 在文本框Text1中輸出0
C) 出錯(cuò)
D) 在文本框Text1中輸出不定值
(18) 在窗體上畫兩個(gè)文本框(其Name 屬性分別為Text1和Text2)和一個(gè)命令按鈕(其Name屬性為Command1)，然后編寫如下事件過程：
Private Sub Command1_Click()
x=0
Do While x<50
x=(x+2)*(x+3)
n=n+1
Loop
Text1.Text=Str(n)
Text2.Text=Str(x)
End Sub
程序運(yùn)行后，單擊命令按鈕，在兩個(gè)文本框中顯示的值分別為
A) 1和0 B) 2和72 C) 3和50 D) 4和168
(19) 用下面語句定義的數(shù)組的元素個(gè)數(shù)是 。
Dim A (-3 To 5) As Integer
A) 6 B) 7 C) 8 D) 9
(20) 以下程序的輸出結(jié)果是
Option Base 1
Private Sub Command1_Click()
Dim a(10),p(3) As Integer
k=5
For i=1 To 10
a(i)=i
Next i
For i=1 To 3
p(i)=a(i*i)
Next I
For i=1 To 3
k=k+p(i)*2
Next i
Print k
End sub
A) 33 B) 28 C) 35 D) 37
(21) 在窗體上面畫一個(gè)命令按鈕，然后編寫如下事件過程：
Option Base 1
Private Sub Commandl_Click()
Dim a
a = Array(1,2,3,4)
j = 1
For i = 4 To Step -1
s = s + a(i)*j
j =j*10
Next i
Print s
End Sub
運(yùn)行上面的程序，單擊命令按鈕，其輸出結(jié)果是 。
A) 4321 B) 12 C) 34 D) 1234
(22) 在窗體上面一個(gè)命令按鈕（其Name屬性為Commandl），然后編寫如下代碼：
Option Base 1
Private Sub Commandl_Click( )
Dim a(4,4)
For i =1 To 4
For j =1 To 4
a(i,j) = (i-1)*3+j
Next j
Next i
For i =3 To 4
For j =3 To 4
Print a(j,i);
Next j
Print
Next i
End Sub
程序運(yùn)行后，單擊命令按鈕，其輸出結(jié)果為 。
A) 6 9 B) 7 10 C) 8 11 D) 9 12
7 10 8 11 9 12 10 13
(23) 假定有如下的Sub過程：
Sub S（x As Single,y As Single）
t = x
x =t/y
y =t Mod y
End Sub
在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過程：
Private Sub Commandl_Click ( )
Dim a As Single
Dim b As Single
a =5
b =4
S a,b
Print a,b
End Sub
程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果為 。
A) 5 4 B) 1 1 C) 1.25 4 D) 1.25 1
(24) 閱讀程序：
Function F(a As Integer)
b = 0
Static c
b = b+1
c = c+1
f = a+b+c
End Function

Private Sub Commandl_Click ()
Dim a As Integer
a =2
For i =1 To 3
Print F(a)
Next i
End Sub
運(yùn)行上面的程序，單擊命令按鈕，輸出結(jié)果為 。
A) 4 B) 4 C) 4 D) 4
4 5 6 7
4 6 8 9
(25) 閱讀程序：
Sub subP(b() As Integer)
For i =1 To 4
b(i)=2*i
Next i
End Sub

Private Sub Commandl_Click()
Dim a(1 To 4)As Integer
a (1)=5
a (2)=6
a (3)=7
a (4)=8
subP a ()
For i =1 To 4
Print a(i)
Next i
End Sub
運(yùn)行上面的程序，單擊命令按鈕，輸出結(jié)果為 。
A）2 B）5 C）10 D）出錯(cuò)
4 6 12
6 7 14
8 8 16
(26) 下列不能打開菜單編輯器的操作是 。
A）按Ctrl+E
B）單擊工具欄中的"菜單編輯器"按鈕
C）執(zhí)行"工具"菜單中的"菜單編輯器"命令
D）按Shift + Alt + M
(27) 假定有一個(gè)菜單項(xiàng)，名為MenuItem，為了在運(yùn)行時(shí)使該菜單項(xiàng)失效（變灰），應(yīng)使用的語句為 。
A) MenuItem. Enabled=False
B) MenuItem. Enabled=True
C) MenuItem. Visible=True
D) Menultem. Visible=False
(28) 在程序運(yùn)行期間，如果拖動(dòng)滾動(dòng)條上的滾動(dòng)塊，則觸發(fā)的滾動(dòng)條事件是 。
A) Move B) Change C) Scroll D) GetFocus
(29) 假定窗體上有一個(gè)標(biāo)簽，名為Labell，為了使該標(biāo)簽透明并且沒有邊框，則正確的屬性設(shè)置為 。
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
(30) 在窗體上畫一個(gè)列表框和一個(gè)文本框，然后編寫如下兩個(gè)事件過程：
Private Sub Form_Load ()
List1.AddItem"357"
List1.AddItem"246"
List1.AddItem"123"
Listl.AddItem"456"
Text1.Text=""
End Sub

Private Sub List1_ DblClick ( )
a =List1.Text
Print a+Text1.Text
End Sub
程序運(yùn)行后，在文本框中輸入"789"（見圖1），然后雙擊列表框中的"456"，則輸出結(jié)果為 。
A) 1245 B) 456789 C) 789456 D) 0
(31) 為了暫時(shí)關(guān)閉計(jì)時(shí)器，應(yīng)把該計(jì)時(shí)器的某個(gè)屬性設(shè)置為False ，這個(gè)屬性是 。
A) Visible B) Timer C) Enabled D) Interval
(32) 為了把一個(gè)記錄型變量的內(nèi)容寫入文件中指定的位置，所使用的語句的格式為 。
A）Get文件號(hào)，記錄號(hào)，變量名
B）Get文件號(hào)，變量名，記錄號(hào)
C）Put文件號(hào)，變量名，記錄號(hào)
D）Put文件號(hào)，記錄號(hào)，變量名
(33) 對(duì)窗體編寫如下事件過程：
Private Sub Form _MouseDown(Button As Integer, _
Shift As Integer, X As Single Y As Single)
If Button =2 Then
Print "AAAAA"
End If
End Sub

Private Sub Form _ MouseUp(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
Print "BBBBB"
End Sub
程序運(yùn)行后，如果單擊鼠標(biāo)右鍵，則輸出結(jié)果為　　　　。
A) AAAAA B) BBBBB C) AAAAA D) BBBBB
BBBBB AAAAA
(34) 為了在運(yùn)行時(shí)能顯示窗體左上角的控制框（系統(tǒng)菜單），必須　　　　。
A) 把窗體的Contro1Box 屬性設(shè)置為Fale,其他屬性任意
B) 把窗體的ControlBox 屬性設(shè)置為True,并且把Boder Style屬性設(shè)置為1-5
C) 把窗體的ControlBox 屬性設(shè)置為False,同時(shí)把BoderStyle屬性調(diào)協(xié)為非0值
D) 把窗體的ControlBox 屬性設(shè)置為True,同時(shí)把BoderStyle屬性設(shè)置為0值
(35) 對(duì)窗體編寫如下代碼：
Option Base 1
Private Sub Form_KeyPress(KeyAscii As Integer)
a = Array(237,126,87,48,498)
m1 = a(1)
m2 = 1
If KeyAscii = 13 Then
For i =2 To 5
If a(i)>ml Then
m1 =a(j)
m2 =i
End If
Next i
End If
Print m1
Print m2
End Sub
程序運(yùn)行后，按回車鍵，輸出結(jié)果為
A) 48 B) 237 C) 498 D) 498
4 1 5 4
二、填空題（每空２分，共30分）
請(qǐng)將每空的正確答案寫在答題卡[1]-[15]序號(hào)的橫線上，答在試卷上不得分。
（1）設(shè)有如下的Visual Basic表達(dá)式：
5 * x^2 - 3 * x - 2 * Sin(a)/3
它相當(dāng)于代數(shù)式【1】 。
（2）執(zhí)行下面的程序段后，s的值為 【2】 。
s = 5
For i = 2.6 To 4.9 Step 0.6
s = s+1
Next i
（3）表達(dá)式Fix(-32.68)+Int(-23.02)的值為 【3】 。
（4）為了在運(yùn)行時(shí)把圖形文件picfile. jpg裝入圖片框Picture1,所使用的語句為【4】 。
（5）在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click()
a = InputBox("請(qǐng)輸入一個(gè)整數(shù)")
b = InputBox("請(qǐng)輸入一個(gè)整數(shù)")
Print a + b
End Sub
程序運(yùn)行后，單擊命令按鈕，在輸入對(duì)話框中分別輸入321和456，輸出結(jié)果為 【5】 。
(6) 執(zhí)行下面的程序段后，b的值為【6】 。
a=300
b=20
a=a+b
b=a-b
a=a-b
(7) 以下程序段的輸出結(jié)果是【7】 。
num=0
While num<=2
num=num+1
Print num
Wend
(8) 在窗體畫一個(gè)命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click()
Dim a(1 To 10)
Dim p(1 To 3)
k=5
For i=1 To 10
a(i)=i
Next i
For i=1 To 3
p(i)=a(i*i)
Next i
For i=1 To 3
k=k+p(i)*2
Next i
Print k
End Sub
程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是【8】 。
(9) 下面的程序用"冒泡"法將數(shù)組a中的10個(gè)整數(shù)按升序排列，請(qǐng)?jiān)凇?】、【10】、【11】處將程序補(bǔ)充完整。
Option Base 1
Private Sub Command1_Click()
Dim a
a=Array(678,45,324,528,439,387,87,875,273,823)
For i=【9】
For j=【10】
If a(i) 【11】 a(j) Then
a1=a(i)
a(i)=a(j)
a(j)=a1
End If
Next j
Next i
For i=1 To 10
Print a(i)
Next i
End Sub
(10) 在窗體畫一個(gè)命令按鈕，然后編寫如下過程：
Function fun(ByVal num As Long)As Long
Dim k As Long
k=1
num=Abs(num)
Do While num
k=k*(num Mod 10)
num=num\10
Loop
fun=k
End Function

Private Sub Command1_Click()
Dim n As Long
Dim r As Long
n=InputBox("請(qǐng)輸入一個(gè)數(shù)")
n=CLng(n)
r=fun(n)
Print r
End Sub
程序運(yùn)行后，單擊命令按鈕，在輸入對(duì)話框中輸入234，輸出結(jié)果為【12】 。
(11) 如果要將某個(gè)菜單項(xiàng)設(shè)計(jì)為分隔線，則該菜單項(xiàng)的標(biāo)題應(yīng)設(shè)置為【13】 。
(12) 假定建立了一個(gè)工程，該工程包括兩個(gè)窗體，其名稱(Name 屬性)分別為Form1和Form2，啟動(dòng)窗體為Form1。在Form1畫一個(gè)命令按鈕Command1，程序運(yùn)行后，要求當(dāng)單擊該命令按鈕時(shí)，F(xiàn)orm1窗體消失，顯示窗體Form2，請(qǐng)?jiān)凇?4】和【15】處將程序補(bǔ)充完整。
Private Sub Command1_Click()
【14】 Form1
Form2. 【15】
End Sub
〖完〗
二級(jí)筆試樣卷Visual Basic語言程序設(shè)計(jì)答案
一、選擇題
(1) C (2) D (3) B (4) C (5) B
(6) C (7) C (8) D (9) B (10) A
(11) D (12) A (13) B (14) A (15) C
(16) C (17) C (18) B (19) D (20) A
(21) D (22) D (23) D (24) B (25) A
(26) D (27) A (28) C (29) A (30) B
(31) C (32) D (33) A (34) B (35) C
二、填空題
(1) [1]
(2) [2] 9
(3) [3] 56
(4) [4] Picturel.Picture = LoadPicture("picfile.jpg")
(5) [5] 321456
(6) [6] 300
(7) [7] 1
2
3
(8) [8] 33
(9) [9] a To 9
[10] i+1 To 10
[11] >=
(10) [12] 24
(11) [13] -
(12) [14] Unload
[15] Show