一、選擇題
（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+DB) Ctrl+E C) Ctrl+FD) 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>是回車鍵，下同)

b=9 <CR>

print a>b<CR>

則輸出結(jié)果是 。

A) -1 B) 0 C) False D) True

(7) 以下語(yǔ)句的輸出結(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è)命令按鈕的事件過(guò)程，需要把該命令按鈕的一個(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) 5B) 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è)命令按鈕，然后編寫如下事件過(guò)程：

Private Sub Command1_Click()

For i=1 To 4

x=4

For j =1 To 3

x=3

or k=1 To 2

x=x+6

Next k

Next j

Next i

Print x

End Sub

程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是 。

A) 7B) 15 C) 157 D) 538

(14)在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過(guò)程：

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) 2B) 3C) 14D) 15

(15)在窗體(Name屬性為Form1)上畫兩個(gè)文本框（其Name屬性分別為Text1和Text2）和一個(gè)命令按鈕（Name 屬性為Command1），然后編寫如下兩個(gè)事件過(guò)程：

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) 3B) 9C) 14D) 21

(17)在窗體上畫一個(gè)文本框（其中Name屬性為Text1），然后編寫如下事件過(guò)程：

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)，然后編寫如下事件過(guò)程：

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)用下面語(yǔ)句定義的數(shù)組的元素個(gè)數(shù)是。

Dim A (-3 To 5) As Integer

A) 6B) 7C) 8D) 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) 33B) 28C) 35D) 37

(21)在窗體上面畫一個(gè)命令按鈕，然后編寫如下事件過(guò)程：

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) 4321B) 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過(guò)程：

Sub S（x As Single,y As Single）

t = x

x =t/y

y =t Mod y

End Sub

在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過(guò)程：

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) 4B) 4C) 4D) 4

4 5 67

4 6 89

(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）2B）5C）10D）出錯(cuò)

46 12

67 14

88 16

(26)下列不能打開菜單編輯器的操作是。

A）按Ctrl+E

B）單擊工具欄中的“菜單編輯器”按鈕

C）執(zhí)行“工具”菜單中的“菜單編輯器”命令

D）按Shift + Alt + M

(27)假定有一個(gè)菜單項(xiàng)，名為MenuItem，為了在運(yùn)行時(shí)使該菜單項(xiàng)失效（變灰），應(yīng)使用的語(yǔ)句為。

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)簽，名為L(zhǎng)abell，為了使該標(biāo)簽透明并且沒(méi)有邊框，則正確的屬性設(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è)事件過(guò)程：

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)容寫入文件中指定的位置，所使用的語(yǔ)句的格式為 。

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ì)窗體編寫如下事件過(guò)程：

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

BBBBBAAAAA

(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,所使用的語(yǔ)句為【4】 。

（5）在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過(guò)程：

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è)命令按鈕，然后編寫如下事件過(guò)程：

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è)命令按鈕，然后編寫如下過(guò)程：

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語(yǔ)言程序設(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

轉(zhuǎn)帖于：計(jì)算機(jī)等級(jí)考試_考試吧