第一篇：2011年12月考試可視化程序設(shè)計(jì)(VB)第三次作業(yè).doc

2011年12月考試可視化程序設(shè)計(jì)（VB）第三次作業(yè)

一、填空題（本大題共60分，共 15 小題，每小題 4 分）

1.要使用狀態(tài)欄控件設(shè)計(jì)狀態(tài)欄，應(yīng)首先在“部件”對(duì)話(huà)框中選擇 ______，然后從工具箱中選擇 ______ 控件。

2.對(duì)象的邊框類(lèi)型由 ______ _屬性設(shè)置。

3.VB的每個(gè)菜單項(xiàng)都有一個(gè)下拉菜單，含有若干個(gè) ______ 命令。用鼠標(biāo)單擊某個(gè)菜單項(xiàng)就執(zhí)行相應(yīng)的菜單命令。

4.菜單的熱鍵指使用 ______ 鍵和菜單項(xiàng)標(biāo)題中的一個(gè)字符來(lái)打開(kāi)菜單。建立熱鍵的方法是在菜單標(biāo)題的某個(gè)字符前加上一個(gè) ______ 符號(hào)，在菜單中這一字符會(huì)自動(dòng)加上 ______，表示該字符是一個(gè)熱鍵字符。

5.運(yùn)行時(shí)，要使工具欄控件Toolbarl中的第二個(gè)按鈕的按鈕菜單中的第三項(xiàng)無(wú)效（變成灰色），應(yīng)使用語(yǔ)句： ______。

6.根據(jù)文件內(nèi)容區(qū)分，文件分為 ______ 和 ______。

7.當(dāng)使用Format函數(shù)與Print方法一起輸出時(shí)，格式字符串中的”#”號(hào)表示一個(gè)數(shù)字位，它的個(gè)數(shù)決定 ______ 的長(zhǎng)度，若要顯示的數(shù)據(jù)位數(shù)大于這個(gè)長(zhǎng)度，則顯示時(shí)數(shù)據(jù)按 ______ 顯示。

8.菜單在運(yùn)行時(shí)的動(dòng)態(tài)增減主要通過(guò)控件數(shù)組實(shí)現(xiàn)，首先將菜單項(xiàng)的 ______ 屬性設(shè)為False，然后在程序中用 ______ 語(yǔ)句加載。

9.如果將工程的啟動(dòng)對(duì)象設(shè)置成 ______ 子程序，則程序啟動(dòng)時(shí)可以不加載任何窗體。

10.要從字符串“Visual Basic 6.0”中截取子字符串“Basic”可使用的函數(shù)是 ______。

11.要在運(yùn)行時(shí)給狀態(tài)欄 StatusBar1的第二個(gè)窗格添加一幅圖片，該圖片由文件 “c：＼windows＼winupd．ico”指定，應(yīng)使用語(yǔ)句： ______。

12.若case子句中的表達(dá)式表列具有形式：表達(dá)式1 To 表達(dá)式2，則它的含義是：當(dāng)測(cè)試表達(dá)式的值等于 ______ 時(shí)，執(zhí)行該case子句相應(yīng)的程序塊。

13.表示x是5的倍數(shù)或是9的倍數(shù)的邏輯表達(dá)式是 ______。

14.程序運(yùn)行過(guò)程中，在立即窗口顯示變量f的語(yǔ)句是 ______。

15.設(shè)

Form1.Scaleleft=-250，F(xiàn)orm1.Scalertop=300，F(xiàn)orm1.Scalewidth=350，F(xiàn)orm1.Scaleheight=500，則Form1的右下角坐標(biāo)為 ______。

二、程序閱讀題（本大題共40分，共 10 小題，每小題 4 分）

1.若窗體Form1上添加了通用對(duì)話(huà)框CommonDialog1，下面程序的功能是什么？

Dim filename As String

Dim str As String

CommonDialog1.Filter = “文本文件(*.TXT)|*.txt”

CommonDialog1.Action = 1

filename = CommonDialog1.filename

CommonDialog1.ShowColor

Form1.ForeColor = CommonDialog1.Color

Open filename

For Input As #1

Do While Not EOF(1)

str = str + Input(1, #1)

Loop

Form1.Print str

Close ＃1

2.Private Sub Form_Click()

num = 0

Do

num = num + 3

Print num

Loop Until num

Mod 4 = 0

End Sub

程序運(yùn)行后，單擊窗體，輸出結(jié)果是_____________

3.寫(xiě)出下面事件過(guò)程的執(zhí)行結(jié)果。

Private Sub Command1_Click()

Dim f(10)As Integer

f(0)=1

f(1)=1

For i=2 To 10

f(i)=f(i1)

Next i

For i=0 To 9

If i Mod 4=0 Then

Print

Print f(i)

Next i

End Sub

4.下列標(biāo)準(zhǔn)模塊和窗體模塊的功能是給通信錄文件“d:txrf1.dat”添加新記錄，在橫線上填上適當(dāng)內(nèi)容。

標(biāo)準(zhǔn)模塊：

Type txr num As Integer

name As String * 10

tel As String * 8

addr As String * 20

End Type

窗體模塊：

Private Sub Command1_Click()

Dim n%, zgr As txr

Open “d:txrf1.dat” For Random As #1

Len = Len(zgr)

zgr.num = InputBox(“輸入新職工編號(hào)：”)

zgr.name = InputBox(“輸入新職工姓名：”)

zgr.tel = InputBox(“輸入新職工電話(huà)號(hào)碼：”)

zgr.addr = InputBox(“輸入新職工住址：”)

n =(1)

(2)

Close #1

End Sub

5.寫(xiě)出下面的程序運(yùn)行后，連續(xù)單擊4次窗體，在Form1上的執(zhí)行結(jié)果。Private Sub Form_Click（）

Static a As Integer

Dim b As Integer

b=a+b+1

a=a+b

Form1.Print “a=”;a, “b=”;b

End Sub

6.有如下事件過(guò)程，寫(xiě)出程序的功能（數(shù)學(xué)表達(dá)式）。

Private Sub Command1_Click()

T=0

M=1

Sum =0

Do

T=T+M

Sum =Sum+T

M=M+2

Loop While M<=39

Print“Sum =”；Sum

End Sub

7.編寫(xiě)如下代碼：

dim flag as Boolean

private sub form_mousedown（button as integer，shift as integer，x as single，y as single）

flag=true

end sub

private sub form_mousemove（button as integer，shift as integer，x as single，y as single）

flag=false

end sub

private sub form_mouseup（button as integer，shift as integer，x as single，y as single）

if flag=false then

print “DDDD”

end if

end sub

程序運(yùn)行后，如果在窗體上輸出“DDDD”，則應(yīng)執(zhí)行的操作為_(kāi)_________。

8.下面事件過(guò)程的功能是從鍵盤(pán)上輸入若干個(gè)數(shù)據(jù)存放到一維數(shù)組a中，并求出這組數(shù)據(jù)的平均值，在橫線上填上適當(dāng)內(nèi)容。

Private Sub Command1_Click()

Dim n%, i%

（１）

n=InputBox(“請(qǐng)輸入數(shù)據(jù)個(gè)數(shù)：”)

（２）

For i=1 To n

a(i)=InputBox(“請(qǐng)輸入第” & Str(i)& “個(gè)數(shù)據(jù)：”)

Next i

For i=1 To n

Sum=Sum+a(i)

Next i

Print “平均值：”;Sum / n

End Sub

9.下面程序的作用是什么？

Private Sub Command1_Click()

Dim a()

a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9)

For n = 0 To 8

Print a(n);

Next

Print

Call s1(a)

For n = 0 To 8

Print a(n);

Next

End Sub

Private Sub s1(ByRef x())

s = UBound(x)

For n = 0 To s / 2

temp = x(n)

x(n)= x(sn)= temp

Next

End Sub

10.使用情況語(yǔ)句改寫(xiě)下列事件過(guò)程。

Private Sub Command1_Click()

Dim score!, grade$

score=InputBox(“請(qǐng)輸入一個(gè)學(xué)生的分?jǐn)?shù)：”)

If score>=90 Then

Grade=”A”

ElseIf score>=80 Then

Grade=”B”

ElseIf score>=70 Then

Grade=”C”

ElseIf score>=60 Then

Grade=”D”

Else

Grade=”E”

End If

Print “該學(xué)生的分?jǐn)?shù)等級(jí)為：”;grade;

End Sub

答案：

一、填空題（60分，共 15 題，每小題 4 分）

1.參考答案：Microsoft Windows Common Controls 6.0、StatusBar

2.參考答案：BorderStyle

3.參考答案：菜單

4.參考答案：Alt、&、下劃線

5.參考答案：Toolbarl．Buttons（2）．ButtonMenus（3）．Enabled＝False

6.參考答案：程序文件、數(shù)據(jù)文件

7.參考答案：顯示數(shù)據(jù)、原樣

8.參考答案：Visible，Load

9.參考答案：Main

10.參考答案：Mid(“Visual Basic 6.0”,8,5)

11.參考答案：StatusBar1．Panels（2）．Picture＝LoadPicture（”C：＼Windows＼Winupd．ico”）

12.參考答案：這個(gè)范圍內(nèi)的值

13.參考答案：x mod 5=0 OR x mod 9=0

14.參考答案：Debug.Print f

15.參考答案：100,800

二、程序閱讀題（40分，共 10 題，每小題 4 分）

1.參考答案：

以選擇的顏色作為窗體前景色，將一個(gè)文本文件顯示在Form1窗體上

2.參考答案：3 6 9 12

3.參考答案：1 1 2 3 5 8 13 21 34 55

4.參考答案：(1)LOF(1)/ Len(zgr)+ 1(2)Put #1, n, zgr

5.參考答案：執(zhí)行結(jié)果為： a=1 b=1 a=3 b=2 a=7 b=4 a=15 b=8

6.參考答案：

程序的功能：程序用于計(jì)算數(shù)學(xué)表達(dá)等式為：1＋22＋32＋42＋?＋202==2870

7.參考答案：移動(dòng)鼠標(biāo)并松開(kāi)鼠標(biāo)左鍵。

8.參考答案：（1）Dim a()As Integer（2）ReDim a(n)

9.參考答案：將數(shù)組a倒置

10.參考答案：

Private Sub Command1_Click()

Dim score!, grade$

score=InputBox(“請(qǐng)輸入一個(gè)學(xué)生的分?jǐn)?shù)：”)

Select Case score

Case Is>=90

grade=“A”

Case Is>=80

grade=“B”

Case Is>=70

grade=“C”

Case Is>=60

grade=“D”

Case Else

grade=“E”

End Select

Print “該學(xué)生的分?jǐn)?shù)等級(jí)為：”;grade;End Sub

第二篇：2011年12月考試可視化程序設(shè)計(jì)(VB)第三次作業(yè)及答案

2011年12月考試可視化程序設(shè)計(jì)（VB）第三次作業(yè)

一、填空題（本大題共60分，共 15 小題，每小題 4 分）

1.要使用狀態(tài)欄控件設(shè)計(jì)狀態(tài)欄，應(yīng)首先在“部件”對(duì)話(huà)框中選擇 Microsoft Windows Common Controls 6.0，然后從工具箱中選擇 StatusBar 控件。

2.對(duì)象的邊框類(lèi)型由 BorderStyle 屬性設(shè)置。

3.VB的每個(gè)菜單項(xiàng)都有一個(gè)下拉菜單，含有若干個(gè) 菜單 命令。用鼠標(biāo)單擊某個(gè)菜單項(xiàng)就執(zhí)行相應(yīng)的菜單命令。

4.菜單的熱鍵指使用 Alt 鍵和菜單項(xiàng)標(biāo)題中的一個(gè)字符來(lái)打開(kāi)菜單。建立熱鍵的方法是在菜單標(biāo)題的某個(gè)字符前加上一個(gè) & 符號(hào)，在菜單中這一字符會(huì)自動(dòng)加上 下劃線，表示該字符是一個(gè)熱鍵字符。

5.運(yùn)行時(shí)，要使工具欄控件Toolbarl中的第二個(gè)按鈕的按鈕菜單中的第三項(xiàng)無(wú)效（變成灰色），應(yīng)使用語(yǔ)句：Toolbarl.Buttons(2).ButtonMenus(3).Enabled＝False。

6.根據(jù)文件內(nèi)容區(qū)分，文件分為 程序文件 和 數(shù)據(jù)文件。

7.當(dāng)使用Format函數(shù)與Print方法一起輸出時(shí)，格式字符串中的”#”號(hào)表示一個(gè)數(shù)字位，它的個(gè)數(shù)決定 顯示數(shù)據(jù) 的長(zhǎng)度，若要顯示的數(shù)據(jù)位數(shù)大于這個(gè)長(zhǎng)度，則顯示時(shí)數(shù)據(jù)按 原樣 顯示。

8.菜單在運(yùn)行時(shí)的動(dòng)態(tài)增減主要通過(guò)控件數(shù)組實(shí)現(xiàn)，首先將菜單項(xiàng)的 Visible 屬性設(shè)為False，然后在程序中用Load 語(yǔ)句加載。

9.如果將工程的啟動(dòng)對(duì)象設(shè)置成 Main 子程序，則程序啟動(dòng)時(shí)可以不加載任何窗體。

10.要從字符串“Visual Basic 6.0”中截取子字符串“Basic”可使用的函數(shù)是 Mid(“Visual Basic 6.0”,8,5)。

11.要在運(yùn)行時(shí)給狀態(tài)欄 StatusBar1的第二個(gè)窗格添加一幅圖片，該圖片由文件 “c：＼windows＼winupd．ico”指定，應(yīng)使用語(yǔ)句：StatusBar1.Panels(2).Picture＝LoadPicture（“C：＼Windows＼Winupd．ico”）。

12.若case子句中的表達(dá)式表列具有形式：表達(dá)式1 To 表達(dá)式2，則它的含義是：當(dāng)測(cè)試表達(dá)式的值等于 這個(gè)范圍內(nèi)的值 時(shí)，執(zhí)行該case子句相應(yīng)的程序塊。

13.表示x是5的倍數(shù)或是9的倍數(shù)的邏輯表達(dá)式是 x mod 5=0 OR x mod 9=0。

14.程序運(yùn)行過(guò)程中，在立即窗口顯示變量f的語(yǔ)句是 Debug.Print f。

15.設(shè)

Form1.Scaleleft=-250，F(xiàn)orm1.Scalertop=300，F(xiàn)orm1.Scalewidth=350，F(xiàn)orm1.Scaleheight=500，則Form1的右下角坐標(biāo)為 100,800。

二、程序閱讀題（本大題共40分，共 10 小題，每小題 4 分）

1.若窗體Form1上添加了通用對(duì)話(huà)框CommonDialog1，下面程序的功能是什么？

Dim filename As String

Dim str As String

CommonDialog1.Filter = “文本文件(*.TXT)|*.txt”

CommonDialog1.Action = 1

filename = CommonDialog1.filename

CommonDialog1.ShowColor

Form1.ForeColor = CommonDialog1.Color

Open filename

For Input As #1

Do While Not EOF(1)

str = str + Input(1, #1)

Loop

Form1.Print str

Close ＃1

以選擇的顏色作為窗體前景色，將一個(gè)文本文件顯示在Form1窗體上

2.Private Sub Form_Click()

num = 0

Do

num = num + 3

Print num

第1頁(yè)，共4頁(yè)

Mod 4 = 0

End Sub

程序運(yùn)行后，單擊窗體，輸出結(jié)果是：3 6 9 12

3.寫(xiě)出下面事件過(guò)程的執(zhí)行結(jié)果。

Private Sub Command1_Click()

Dim f(10)As Integer

f(0)=1

f(1)=1

For i=2 To 10

f(i)=f(i1)

Next i

For i=0 To 9

If i Mod 4=0 Then

Print

Print f(i)

Next i

End Sub

執(zhí)行結(jié)果是：1 1 2 3 5 8 13 21 34 55

4.下列標(biāo)準(zhǔn)模塊和窗體模塊的功能是給通信錄文件“d:txrf1.dat”添加新記錄，在橫線上填上適當(dāng)內(nèi)容。

標(biāo)準(zhǔn)模塊：

Type txr num As Integer

name As String * 10

tel As String * 8

addr As String * 20

End Type

窗體模塊：

Private Sub Command1_Click()

Dim n%, zgr As txr

Open “d:txrf1.dat” For Random As #1

Len = Len(zgr)

zgr.num = InputBox(“輸入新職工編號(hào)：”)

zgr.name = InputBox(“輸入新職工姓名：”)

zgr.tel = InputBox(“輸入新職工電話(huà)號(hào)碼：”)

zgr.addr = InputBox(“輸入新職工住址：”)

n = LOF(1)/ Len(zgr)+ 1(2)Put #1, n, zgr

Close #1

End Sub

5.寫(xiě)出下面的程序運(yùn)行后，連續(xù)單擊4次窗體，在Form1上的執(zhí)行結(jié)果。

Private Sub Form_Click（）

Static a As Integer

Dim b As Integer

b=a+b+1

a=a+b

Form1.Print “a=”;a, “b=”;b

End Sub

執(zhí)行結(jié)果為： a=1 b=1 a=3 b=2 a=7 b=4 a=15 b=8

6.有如下事件過(guò)程，寫(xiě)出程序的功能（數(shù)學(xué)表達(dá)式）。

Private Sub Command1_Click()

T=0

M=1

Sum =0

Do

T=T+M

Sum =Sum+T

M=M+2

Print“Sum =”；Sum

End Sub

計(jì)算數(shù)學(xué)表達(dá)式：1＋22＋32＋42＋…＋202==2870

7.編寫(xiě)如下代碼：

dim flag as Boolean

private sub form_mousedown（button as integer，shift as integer，x as single，y as single）

flag=true

end sub

private sub form_mousemove（button as integer，shift as integer，x as single，y as single）

flag=false

end sub

private sub form_mouseup（button as integer，shift as integer，x as single，y as single）

if flag=false then

print “DDDD”

end if

end sub

程序運(yùn)行后，如果在窗體上輸出“DDDD”，則應(yīng)執(zhí)行的操作為 移動(dòng)鼠標(biāo)并松開(kāi)鼠標(biāo)左鍵。

8.下面事件過(guò)程的功能是從鍵盤(pán)上輸入若干個(gè)數(shù)據(jù)存放到一維數(shù)組a中，并求出這組數(shù)據(jù)的平均值，在橫線上填上適當(dāng)內(nèi)容。

Private Sub Command1_Click()

Dim n%, i%Dim a()As Integer

n=InputBox(“請(qǐng)輸入數(shù)據(jù)個(gè)數(shù)：”)ReDim a(n)

For i=1 To n

a(i)=InputBox(“請(qǐng)輸入第” & Str(i)& “個(gè)數(shù)據(jù)：”)

Next i

For i=1 To n

Sum=Sum+a(i)

Next i

Print “平均值：”;Sum / n

End Sub

9.下面程序的作用是什么？

Private Sub Command1_Click()

Dim a()

a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9)

For n = 0 To 8

Print a(n);

Next

Print

Call s1(a)

For n = 0 To 8

Print a(n);

Next

End Sub

Private Sub s1(ByRef x())

s = UBound(x)

For n = 0 To s / 2

temp = x(n)

x(n)= x(sn)= temp

Next

End Sub

將數(shù)組a倒置

10.使用情況語(yǔ)句改寫(xiě)下列事件過(guò)程。

Private Sub Command1_Click()

Dim score!, grade$

score=InputBox(“請(qǐng)輸入一個(gè)學(xué)生的分?jǐn)?shù)：”)If score>=90 Then

Grade=”A”

ElseIf score>=80 Then

Grade=”B”

ElseIf score>=70 Then

Grade=”C”

ElseIf score>=60 Then

Grade=”D”

Else

Grade=”E”

End If

Print “該學(xué)生的分?jǐn)?shù)等級(jí)為：”;grade;End Sub

Private Sub Command1_Click()

Dim score!, grade$

score=InputBox(“請(qǐng)輸入一個(gè)學(xué)生的分?jǐn)?shù)：”)Select Case score

Case Is>=90

grade=“A”

Case Is>=80

grade=“B”

Case Is>=70

grade=“C”

Case Is>=60

grade=“D”

Case Else

grade=“E”

End Select

Print “該學(xué)生的分?jǐn)?shù)等級(jí)為：”;grade;End Sub

第三篇：可視化程序設(shè)計(jì)(VB)第一次作業(yè)

可視化程序設(shè)計(jì)（VB）第一次作業(yè)

一、單項(xiàng)選擇題

1.Visual Basic程序中分隔各語(yǔ)句的字符是(:)

2.工程文件的擴(kuò)展名是（vbp）

3.下列運(yùn)算符中，運(yùn)算級(jí)別最高的是（*）

4.下列可作為Visual Basic的變量名的是(Filename)

5.下面的程序的輸出結(jié)果是(21 21)

x=5

For i = 1 To 20 Step 2

x=x+i5

Next i

Print x, i

6.下列賦值語(yǔ)句合法的是（A=A+B）

7.下列屬性中，目錄列表框和文件列表框都有的屬性為（Path）。

8.執(zhí)行下面的程序段后，x的值為(21)

x=5

For i = 1 To 20 Step 2

x=x+i5

Next i

9.向一個(gè)順序文件中寫(xiě)數(shù)據(jù)時(shí)，（Append）是從文件末尾添加的方式打開(kāi)順序文件。

10.Seek方法用于在（表）類(lèi)型的記錄集中查找滿(mǎn)足條件的記錄。

11.當(dāng)函數(shù)EOF()的返回值為真時(shí)，表示文件的指針指向（尾部）

12.如果要退出Do?Loop循環(huán)，可使用語(yǔ)句（Exit Do）。

13.在VB中，稱(chēng)對(duì)象的數(shù)據(jù)為（屬性）。

14.不論何對(duì)象，都具有（Name）屬性。

15.使用Public Const語(yǔ)句聲明一個(gè)全局的符號(hào)常量時(shí)，該語(yǔ)句應(yīng)放在（標(biāo)準(zhǔn)模塊的通用聲明段）。

16.下面關(guān)于變量的作用域，正確的描述是（同一模塊中不同級(jí)的變量不能同名）。

17.設(shè)a=2，b=3，c=4，d=5，下列表達(dá)式的值是（False）a＞b AND c＜=d OR 2*a＞c

18.把數(shù)值型轉(zhuǎn)換為字符（串）型需要使用下列哪一個(gè)函數(shù)？（Str）

19.以下敘述錯(cuò)誤的是（KeyPress事件中可以識(shí)別鍵盤(pán)上某個(gè)鍵的按下與釋放）

20.用于設(shè)置或返回文件類(lèi)型的屬性是（Pattern）。

21.要?jiǎng)h除列表框中的某一個(gè)項(xiàng)目，需要使用（ReMoveItem）方法。

22.以下語(yǔ)句的輸出結(jié)果是(在立即窗口中)(Δ27ΔΔ65Δ)a=27 ＜CR＞(＜CR＞為回車(chē))b=65 ＜CR＞ Print a;b ＜CR＞

23.語(yǔ)句Print 5*55/5的輸出結(jié)果是(25)

24.編寫(xiě)如下事件過(guò)程：

private sub form_mousedown（button as integer，shift as integer，x as single，y as single）

if shift=6 and button=2 then

print “BBBB”

end if

end sub

程序運(yùn)行后，為了在窗體上輸出“BBBB”，應(yīng)執(zhí)行的操作為（同時(shí)按下ctrl、alt鍵和鼠標(biāo)右鍵）

25.如果X是一個(gè)正實(shí)數(shù)，對(duì)X的第三位小數(shù)四舍五入的表達(dá)式是（0.01 * Int(100 *(X +0.005))）

第四篇：2014年4月份考試可視化程序設(shè)計(jì)(VB)第二次作業(yè)

2014年4月份考試可視化程序設(shè)計(jì)（VB）第二次作業(yè)

一、單項(xiàng)選擇題（本大題共100分，共 25 小題，每小題 4 分）

1.下列過(guò)程不能包含在標(biāo)準(zhǔn)模塊中定義的是（）。

A.事件過(guò)程

B.子過(guò)程

C.函數(shù)過(guò)程

D.公共過(guò)程

2.下列關(guān)于數(shù)據(jù)庫(kù)說(shuō)法錯(cuò)誤的是（）

A.一個(gè)表可以構(gòu)成一個(gè)數(shù)據(jù)庫(kù)

B.多個(gè)表可以構(gòu)成數(shù)據(jù)庫(kù)

C.一個(gè)表的每一條記錄中的各數(shù)據(jù)項(xiàng)具有相同的類(lèi)型

D.同一個(gè)字段的數(shù)據(jù)具有相同的類(lèi)型

3.下列屬性中，目錄列表框和文件列表框都有的屬性為（）。

A.List

B.value

C.Path

D.Pattern

4.下列關(guān)于菜單訪問(wèn)鍵和快捷鍵的說(shuō)法正確的是（）

A.若一菜單項(xiàng)的Caption屬性為“打開(kāi)(&O)”，則其快捷鍵是Ctrl+O

B.快捷鍵指用于執(zhí)行一個(gè)命令的功能鍵或組合鍵，可以在菜單編輯器中將快捷鍵設(shè)為Alt+F

C.可以為任意的菜單項(xiàng)都添加快捷鍵或訪問(wèn)鍵

D.通過(guò)訪問(wèn)鍵打開(kāi)某個(gè)子菜單時(shí)，必須先使焦點(diǎn)位于其上一級(jí)菜單

5.要設(shè)置列表框的選擇方式，應(yīng)使用（）屬性。

A.Columns

B.MultiSelect

C.Style

D.List

6.下面關(guān)于隨機(jī)文件的描述，不正確的是：（）

A.每條記錄的長(zhǎng)度必須相同

B.一個(gè)文件中記錄號(hào)不必惟一

C.可通過(guò)編程對(duì)文件中的某條記錄方便地修改

D.文件的組織結(jié)構(gòu)比順序文件復(fù)雜

7.下列說(shuō)法正確的是（）

A.如果框架的Enable設(shè)為False，則框架內(nèi)的所有控件都不可用。

B.時(shí)鐘控件的Visable屬性設(shè)為T(mén)rue時(shí)，該控件在程序運(yùn)行時(shí)可見(jiàn)，設(shè)為False時(shí)，則不可見(jiàn)。

C.在列表框中能夠?qū)㈨?xiàng)目按字母順序從大到小排列。

D.移動(dòng)框架時(shí)，框架內(nèi)的控件不隨之移動(dòng)。

8.下列控件中，（）不是用于文件操作的控件。

A.List Box

B.DriveListBox

C.DirListBox

D.FileListBox

9.可以在窗體模塊的通用聲明段中聲明（）。

A.全局變量

B.全局常量

C.全局?jǐn)?shù)組

D.全局用戶(hù)自定義類(lèi)型

10.通過(guò)設(shè)置Line控件的（）屬性可以繪制虛線、點(diǎn)劃線等多種樣式的直線。

A.Shape

B.Style

C.Fillstyle

D.Borderstyle

11.當(dāng)函數(shù)EOF()的返回值為真時(shí)，表示文件的指針指向（）

A.開(kāi)頭

B.尾部

C.最后一個(gè)字節(jié)

D.最后一個(gè)記錄

12.下面的哪一項(xiàng)不能用來(lái)在模塊之間傳遞數(shù)據(jù)（）。

A.全局變量

B.對(duì)象屬性

C.全局?jǐn)?shù)組

D.模塊級(jí)變量

13.數(shù)據(jù)控件用于設(shè)置指定數(shù)據(jù)控件所訪問(wèn)的記錄來(lái)源的屬性是（）

A.RecordSource

B.DataSource

C.DatabaseName

D.RecordSetType

14.將通用對(duì)話(huà)框CommonDialog1的類(lèi)型設(shè)置為“另存為”對(duì)話(huà)框，該調(diào)用該控件的（）方法。

A.ShowOpen

B.ShowColor

C.ShowSave

D.ShowFont

15.在下列關(guān)于對(duì)話(huà)框的敘述中，錯(cuò)誤的是（）：

A.作為對(duì)話(huà)框窗體的Borderstyle、ControlBox、MaxButton和MinButton應(yīng)分別設(shè)置為l、True、False和 False。

B.語(yǔ)句frmAbout．Show vbModeless，frmMain將 fmAbout窗體顯示為 fmMain的無(wú)模式子窗體。

C.可以將對(duì)話(huà)框分成兩種類(lèi)型：模式的和無(wú)模式。

D.語(yǔ)句frmAbout．Show將frmAbout作為無(wú)模式對(duì)話(huà)框顯示。

16.AVI動(dòng)畫(huà)類(lèi)似電影，由若干幀組成，Animation控件可以顯示（）的音頻視頻動(dòng)畫(huà)（AVI文件）。

A.無(wú)聲

B.有聲

C.無(wú)聲和有聲都可以

D.單聲道

17.在用菜單編輯器設(shè)計(jì)菜單時(shí)，必須輸入的項(xiàng)有（）。

A.快捷鍵

B.標(biāo)題

C.索引

D.名稱(chēng)

18.通過(guò)文本框的（）事件過(guò)程可以獲取文本框中鍵入字符的ASCII碼值。

A.Change

B.GotFocus

C.LostFocus

D.KeyPress

19.以下說(shuō)法正確的是（）。

A.使用Data控件可以直接顯示數(shù)據(jù)庫(kù)中的數(shù)據(jù)

B.使用數(shù)據(jù)綁定控件可以直接訪問(wèn)數(shù)據(jù)庫(kù)中的數(shù)據(jù)

C.使用Data控件可以對(duì)數(shù)據(jù)庫(kù)中的數(shù)據(jù)進(jìn)行操作，卻不能顯示數(shù)據(jù)庫(kù)中的數(shù)據(jù)

D.Data 控件只有通過(guò)數(shù)據(jù)綁定控件才可以訪問(wèn)數(shù)據(jù)庫(kù)中的數(shù)據(jù)

20.以下關(guān)于索引的說(shuō)法，錯(cuò)誤的是（）。

A.一個(gè)表可以建立一個(gè)到多個(gè)索引

B.每個(gè)表至少要建立一個(gè)索引

C.索引字段可以是多個(gè)字段的組合D.利用索引可以加快查找速度

21.以下敘述錯(cuò)誤的是（）

A.在KeyUp和KeyDown事件過(guò)程中，從鍵盤(pán)上輸入A和a是相同的B.在KeyUp和KeyDown事件過(guò)程中，從鍵盤(pán)上1和小鍵盤(pán)上的1看作不同數(shù)字

C.KeyPress事件中不能識(shí)別鍵盤(pán)上某個(gè)鍵的按下與釋放

D.KeyPress事件中可以識(shí)別鍵盤(pán)上某個(gè)鍵的按下與釋放

22.下面關(guān)于多重窗體的敘述中，正確的是（）。

A.作為啟動(dòng)對(duì)象的 main于過(guò)程只能放在窗體模塊內(nèi)

B.如果啟動(dòng)對(duì)象是 main子過(guò)程，則程序啟動(dòng)時(shí)可不加載任何窗體，以后由該過(guò)程根據(jù)不同情況決定是否加載或加載哪一個(gè)窗體

C.沒(méi)有啟動(dòng)窗體，程序不能執(zhí)行

D.以上都不對(duì)

23.改變驅(qū)動(dòng)器列表框的Drive屬性將引發(fā)（）事件。

A.Load

B.Click

C.Pattern change

D.Change

24.以下的屬性和方法中（）可重定義坐標(biāo)系。

A.DrawStyle屬性

B.DrawWidth屬性

C.Scale方法

D.ScaleMode屬性

25.下面關(guān)于過(guò)程作用域，錯(cuò)誤的描述是（）。

A.全局級(jí)過(guò)程的作用域?yàn)檎麄€(gè)工程

B.在某一窗體模塊中定義的全局級(jí)過(guò)程，若被該模塊外的模塊所調(diào)用，必須在該過(guò)程名前加上窗體名稱(chēng)

C.在不同模塊中定義的模塊級(jí)過(guò)程可以同名

D.在不同模塊中定義的工程級(jí)過(guò)程不能同名

答案：

一、單項(xiàng)選擇題（100分，共 25 題，每小題 4 分）

1.A 2.C 3.C 4.D 5.B 6.B 7.A 8.A 9.A 10.D

11.B 12.D 13.A 14.C 15.A 16.A 17.D 18.D 19.D 20.B

21.D 22.B 23.D 24.C 25.D

第五篇：2012年9月份考試可視化程序設(shè)計(jì)(VB)第一次作業(yè).doc

2012年9月份考試可視化程序設(shè)計(jì)（VB）第一次作業(yè)

一、單項(xiàng)選擇題（本大題共100分，共 25 小題，每小題 4 分）

1.下面的數(shù)寫(xiě)成普通的形式是1.2***69E+019()

A.12***6900

B.12***69000

C.12***690000

D.12***6900000

2.下列賦值語(yǔ)句合法的是（）

A.A=A+B

B.A+B=A

C.–A=A

D.A=2B

3.下列選擇項(xiàng)中（）不能獲得焦點(diǎn)。

A.使用Tab鍵

B.用鼠標(biāo)選擇對(duì)象

C.設(shè)置GetFocus的值為T(mén)rue

D.使用SetFocus方法

4.設(shè)a=2，b=3，c=4，d=5，下列表達(dá)式的值是（）。not a<=c or 4*c=b^2 and b<>a+c

A.－1

B.1

C.true

D.false

5.若將命令按鈕設(shè)置為默認(rèn)命令按鈕，可以通過(guò)（）屬性來(lái)實(shí)現(xiàn)。

A.Value

B.Cancel

C.Default

D.Enabled

6.通用過(guò)程可以通過(guò)執(zhí)行“工具”菜單中的（）命令來(lái)建立。

A.添加過(guò)程

B.通用過(guò)程

C.添加窗體

D.添加模塊

7.假設(shè)A=3，B=7，C=2，則表達(dá)式 NOT(B>A)的值是()

A.True

B.False

C.表達(dá)式錯(cuò)誤

D.不確定

8.以下說(shuō)法正確的是（）

A.通用過(guò)程可以出現(xiàn)在窗體模塊和標(biāo)準(zhǔn)模塊中

B.不同模塊中的通用過(guò)程可以重名

C.同一標(biāo)準(zhǔn)模塊中的通過(guò)過(guò)程可以同名

D.不同標(biāo)準(zhǔn)模塊中的通用過(guò)程不能同名

9.在表達(dá)式 y = InputBox(a, b, c)中，b 為輸入函數(shù)對(duì)話(huà)框的（）。

A.標(biāo)題

B.提示

C.預(yù)設(shè)值

D.幫助文件名

10.如果要退出Do?Loop循環(huán)，可使用語(yǔ)句（）。

A.Exit

B.Exit Do

C.Exit For

D.Exit For

11.為了使窗體的大小可以改變，必須把它的BorderStyle屬性設(shè)置為()

A.1

B.2

C.3

D.4

12.若有數(shù)組說(shuō)明語(yǔ)句：Dim t(1 To 10)As Variant，則t被定義為（）。

A.數(shù)值數(shù)組

B.可調(diào)數(shù)組

C.字符串?dāng)?shù)組

D.可變類(lèi)型數(shù)組

13.Function過(guò)程要由函數(shù)名返回一個(gè)值。如果不使用As數(shù)據(jù)類(lèi)型選項(xiàng)來(lái)指定函數(shù)的類(lèi)型，函數(shù)類(lèi)型默認(rèn)為（）類(lèi)型。

A.Integer

B.Variant

C.Long

D.Siring

14.不論何對(duì)象，都具有（）屬性。

A.Text

B.Name

C.ForeColor

D.Caption

15.下列語(yǔ)句正確的是（）。

A.For i=1 To m

For j=1 To n

Next i

Next j

B.For i=1 To m

For j=1 To n

Next i,j

C.For i=1 To m

For j=1 To n

Next j,i

D.For i=1 To m

While x>0

Next i

end

16.下列過(guò)程調(diào)用合法的是（）

A.Call Prog a,b

B.Prog(a,b)

C.Call Prog(a,b)

D.以上都不對(duì)

17.以下語(yǔ)句的輸出結(jié)果是（）。print format$（32548.5，“000，000.00”）

A.2548.5

B.32，548.5

C.032，548.50

D.32548.50

18.數(shù)學(xué)式子Sin25°寫(xiě)成VB表達(dá)式是（）。

A.Sin25

B.Sin（25°）

C.Sin（25）

D.Sin（25*3.14/180）

19.以下程序段中循環(huán)語(yǔ)句（）。

x%=0

While Not x

x=x+1

Print x

Wend

A.有語(yǔ)法錯(cuò)誤

B.溢出

C.循環(huán)體執(zhí)行一次

D.循環(huán)體一次也不執(zhí)行

20.下列過(guò)程說(shuō)明合法的是（）

A.Sub S1(ByVal n!())

B.Sub S1(n!)as Integer

C.Function S1%(S1%)

D.Function S1(ByVal n!)

21.用下面的語(yǔ)句所定義的數(shù)組的元素個(gè)數(shù)是()Dim arr(3 To 6,-2 To 2)

A.12

B.16

C.18

D.20

22.下面語(yǔ)句書(shū)寫(xiě)正確的是（）。

A.If a>max Then

max=a

Else

max=b

End If

B.If a>max Then

max=a

Else

max=b

End If

C.If a>max Then

max=a

Else

max=6

D.If a>max Then

max=a

Else

max=b

End If

23.下列一維數(shù)組說(shuō)明語(yǔ)句錯(cuò)誤的是（）。

A.Dim b(100)AS Double

B.Dim b(-5 To 0)AS Byte

C.Dim b(-10To –20)AS Integer

D.Dim b(5 To 5)AS String

24.設(shè)已定義函數(shù)過(guò)程f，它有三個(gè)整型數(shù)值參數(shù)，再設(shè)a,b和c為實(shí)型變量，則調(diào)用該函數(shù)過(guò)程使用的語(yǔ)句為（）。

A.f

B.f(a+b, b+c)

C.f(a+b, b+c ,c+a)

D.f a+b, b+c, c+a

25.執(zhí)行下面程序段時(shí)，內(nèi)循環(huán)的循環(huán)次數(shù)是（）。

For m=1 To 3

n=0

While n<=m-1

Print m,n

n=n+1

Wend

Next m

A.3

B.4

C.5

D.6

答案：

一、單項(xiàng)選擇題（100分，共 25 題，每小題 4 分）

1.D 2.A 3.C 4.D 5.C 6.A 7.B 8.D 9.A 10.B 11.B 12.D 13.B

14.B 15.C 16.C 17.C 18.D 19.B 20.D 21.D 22.D 23.C 24.D 25.D