黄色在线观看视频-黄色在线免费看-黄色在线视频免费-黄色在线视频免费看-免费啪啪网-免费啪啪网站

一、選擇題
（1）—（35）題每題2分，共70分。
下列各題A)、B)、C)、D)四個先項中,只有一個選擇是正確的,請將正確選項涂寫在答題卡相應位置上,答在試卷上不得分。

(1) 下列不能打開屬性窗口的操作是。

A) 執行“視圖”菜單中的“屬性窗口”命令

B) 按F4鍵

C) 按Ctrl+T

D) 單擊工具欄上的“屬性窗口”按鈕。

(2) 下列可以打開立即窗口的操作是。

A) Ctrl+DB) Ctrl+E C) Ctrl+FD) Ctrl+G

(3) inputBox函數反回值的類型為。

A) 數值B) 字符串

C) 變體D) 數值或字符串（視輸入的數據而定）

(4) 可以同時刪除字符串前導和尾部空白的函數是。

A) Ltrim B) Rtrim C) Trim D) Mid

(5) 表達式4+5 \ 6 * 7 / 8 Mod 9 的值是

A) 4 B) 5 C) 6 D) 7

(6) 如果在立即窗口中執行以下操作：

a=8 <CR>(<CR>是回車鍵，下同)

b=9 <CR>

print a>b<CR>

則輸出結果是 。

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

(7) 以下語句的輸出結果是。

Print Format $(32548.5,“000,000.00”)

A) 32548.5 B) 32,548.5 C) 032,548.50 D) 32,548.50

(8) 執行以下程序段后，變量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) 為了在按下回車鍵時執行某個命令按鈕的事件過程，需要把該命令按鈕的一個屬性設置為True，這個屬性是。

A) Value B) Default C) Cancel D) Enabled

(10)為了把焦點移到某個指定的控件，所使用的方法是

A) SetFocus B) Visible C) Refresh D) GetFocus

(11)設a=6，則執行 x=IIf(a>5,-1,0)后，x 的值為。

A) 5B) 6 C) 0 D) -1

(12)執行下面的程序段后，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)在窗體上畫一個命令按鈕，然后編寫如下事件過程：

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

程序運行后，單擊命令按鈕，輸出結果是 。

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

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

Prevate Sub Command1_Click()

x=0

Do Until x=-1

a = InputBox(“請輸入A的值”)

a = Val(a)

b = InputBox(“請輸入B的值”)

b = Val(b)

x = InputBox(“請輸入x的值”)

x = Val(x)

a = a+b+x

Loop

Print a

End Sub

程序運行后，單擊命令按鈕，依次在輸入對話框中輸入5、4、3、2、1、-1，則輸出結果為。

A) 2B) 3C) 14D) 15

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

Private Sub Command1_Click()

a=Text1.Text+Text2.Text

Print a

End Sub

Private Sub Formm_Load()

Text1 Text=""

Text2 Text=""

End sub

程序運行后，在第一個文本框（Text1）和第二個文本框（Text2）中分別輸入123和321，然后單擊命令按鈕，則輸出結果為。

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

執行上面的三重循環后，a 的值為。

A) 3B) 9C) 14D) 21

(17)在窗體上畫一個文本框（其中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

上述程序的運行結果是 。

A) 在文本框Text1中輸出55

B) 在文本框Text1中輸出0

C) 出錯

D) 在文本框Text1中輸出不定值

(18)在窗體上畫兩個文本框(其Name 屬性分別為Text1和Text2)和一個命令按鈕(其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

程序運行后，單擊命令按鈕，在兩個文本框中顯示的值分別為

A) 1和0 B) 2和72 C) 3和50 D) 4和168

(19)用下面語句定義的數組的元素個數是。

Dim A (-3 To 5) As Integer

A) 6B) 7C) 8D) 9

(20)以下程序的輸出結果是

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)在窗體上面畫一個命令按鈕，然后編寫如下事件過程：

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

運行上面的程序，單擊命令按鈕，其輸出結果是 。

A) 4321B) 12 C) 34 D) 1234

(22)在窗體上面一個命令按鈕（其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

程序運行后，單擊命令按鈕，其輸出結果為 。

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

在窗體上畫一個命令按鈕，然后編寫如下事件過程：

Private Sub Commandl_Click ( )

Dim a As Single

Dim b As Single

a =5

b =4

S a,b

Print a,b

End Sub

程序運行后，單擊命令按鈕，輸出結果為 。

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

運行上面的程序，單擊命令按鈕，輸出結果為。

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

運行上面的程序，單擊命令按鈕，輸出結果為。

A）2B）5C）10D）出錯

46 12

67 14

88 16

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

A）按Ctrl+E

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

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

D）按Shift + Alt + M

(27)假定有一個菜單項，名為MenuItem，為了在運行時使該菜單項失效（變灰），應使用的語句為。

A) MenuItem. Enabled=False

B) MenuItem. Enabled=True

C) MenuItem. Visible=True

D) Menultem. Visible=False

(28)在程序運行期間，如果拖動滾動條上的滾動塊，則觸發的滾動條事件是 。

A) Move B) Change C) Scroll D) GetFocus

(29)假定窗體上有一個標簽，名為Labell，為了使該標簽透明并且沒有邊框，則正確的屬性設置為。

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)在窗體上畫一個列表框和一個文本框，然后編寫如下兩個事件過程：

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

程序運行后，在文本框中輸入“789”（見圖1），然后雙擊列表框中的"456"，則輸出結果為 。

A) 1245 B) 456789 C) 789456 D) 0

(31)為了暫時關閉計時器，應把該計時器的某個屬性設置為False ，這個屬性是。

A) Visible B) Timer C) Enabled D) Interval

(32)為了把一個記錄型變量的內容寫入文件中指定的位置，所使用的語句的格式為 。

A）Get文件號，記錄號，變量名

B）Get文件號，變量名，記錄號

C）Put文件號，變量名，記錄號

D）Put文件號，記錄號，變量名

(33)對窗體編寫如下事件過程：

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

程序運行后，如果單擊鼠標右鍵，則輸出結果為。

A) AAAAA B) BBBBB C) AAAAA D) BBBBB

BBBBBAAAAA

(34)為了在運行時能顯示窗體左上角的控制框（系統菜單），必須。

A) 把窗體的Contro1Box 屬性設置為Fale,其他屬性任意

B) 把窗體的ControlBox 屬性設置為True,并且把Boder Style屬性設置為1-5

C) 把窗體的ControlBox 屬性設置為False,同時把BoderStyle屬性調協為非0值

D) 把窗體的ControlBox 屬性設置為True,同時把BoderStyle屬性設置為0值

(35)對窗體編寫如下代碼：

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

程序運行后，按回車鍵，輸出結果為

A) 48 B) 237 C) 498 D) 498

4 1 5 4

二、填空題（每空２分，共30分）
請將每空的正確答案寫在答題卡[1]—[15]序號的橫線上，答在試卷上不得分。

（1）設有如下的Visual Basic表達式：

5 * x^2 – 3 * x – 2 * Sin(a)/3

它相當于代數式【1】 。

（2）執行下面的程序段后，s的值為 【2】 。

s = 5

For i = 2.6 To 4.9 Step 0.6

s = s+1

Next i

（3）表達式Fix(-32.68)+Int(-23.02)的值為【3】 。

（4）為了在運行時把圖形文件picfile. jpg裝入圖片框Picture1,所使用的語句為【4】 。

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

Private Sub Command1_Click()

a = InputBox("請輸入一個整數")

b = InputBox("請輸入一個整數")

Print a + b

End Sub

程序運行后，單擊命令按鈕，在輸入對話框中分別輸入321和456，輸出結果為 【5】。

(6) 執行下面的程序段后，b的值為【6】。

a=300

b=20

a=a+b

b=a-b

a=a-b

(7) 以下程序段的輸出結果是【7】 。

num=0

While num<=2

num=num+1

Print num

Wend

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

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

程序運行后，單擊命令按鈕，輸出結果是【8】 。

(9) 下面的程序用“冒泡”法將數組a中的10個整數按升序排列，請在【9】、【10】、【11】處將程序補充完整。

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) 在窗體畫一個命令按鈕，然后編寫如下過程：

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("請輸入一個數")

n=CLng(n)

r=fun(n)

Print r

End Sub

程序運行后，單擊命令按鈕，在輸入對話框中輸入234，輸出結果為【12】 。

(11) 如果要將某個菜單項設計為分隔線，則該菜單項的標題應設置為【13】。

(12) 假定建立了一個工程，該工程包括兩個窗體，其名稱(Name 屬性)分別為Form1和Form2，啟動窗體為Form1。在Form1畫一個命令按鈕Command1，程序運行后，要求當單擊該命令按鈕時，Form1窗體消失，顯示窗體Form2，請在【14】和【15】處將程序補充完整。

Private Sub Command1_Click()

【14】 Form1

Form2. 【15】

End Sub

二級筆試樣卷Visual Basic語言程序設計答案

一、選擇題

(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

轉帖于：計算機等級考試_考試吧