第一篇：VB程序設計期末模擬試題及答案

《VB》期末復習題及答案

綜合復習題

一、填空題

1．創建一個VB應用程序三個主要的步驟是__創建應用程序界面_、_設置屬性_和_編寫代碼_。2．當程序運行時，要求窗體中的文本框呈現空白，則在設計時，應當在此文本框的 屬性 窗

口中，把此文本框的__text__屬性設置成空白。

3．Label和TextBox控件用來顯示和輸入文本，如果僅需要讓應用程序在窗體中顯示文本信 息，可使用___Label_____控件；若允許用戶輸入文本，則應使用___TextBox___控件。4．窗體的常用方法有_Load方法 Show方法 Hide方法 Unload方法 5．要想在代碼中給名為txtshow的文本框賦予文本：GOOD WORK，應當編寫的語句是 txtshow.text=“GOOD WORK” 6．若命令按鈕的名稱為Cmdopen，程序要求單擊該命令按鈕時，打開一個窗口frm1，請對以

下事件過程填空。

Private Sub Cmdopen_ Click()、frm1.show End Sub 7．Visual Basic 6種類型的表達式是 算術表達式 字符串表達式 關系表達式 布爾表達式 日期表達式 對象表達式，Visual Basic根據表達式的_運算符來確定表達式的類型。8．表達式93 7 Mod 2 ^ 2 的值是___________。

9．已知a=3，b=4，c=5，表達式a>b and Not c>a Or c>b And c

達式c>a And Not b

10．日期表達式 #2/24/02#1 > c2 End Sub 7．#12/31/1999#3 * I Print “ ”;Next j For k = 1 To I Print k;Next k For k = IX Print Tab(Y + 5);“*”;Next Y Print Next X 4．

Private Sub Form_Activate()Print “aa” & “bb”,-5 * 6,Not 2 <= 3 Print “aa” & “bb”;-5 * 6;Not 2 <= 3 Print Print “30+60”, Print 30 + 60 ？

？“30+60”;30 + 60 End Sub 5． X=1 Do While X<=10 If X Mod 7 =0 Then Y = X + 6 Else Z = X End If X = X + 2 Loop Print X,Y,Z

五、編程題

1．設計一個計算程序。該程序用戶界面如圖所示，由四個文本框：文本框1（text1）、文本框2（text2）、文本框3（text3）、文本框4（text4），和三個按鈕：命令按鈕1（command1）、命令按鈕2（command2）、命令按鈕3（command4）組成。程序運行后，用戶單擊清除按鈕，則清除文本框中顯示的內容。單擊計算按鈕，如果成績填寫不完全，則給出提示信息，否則計算三科平均成績。單擊退出按鈕則退出。

2．設計程序。要求：從文本框Text1中接收輸入的數據，當單擊確定按鈕（command1）時，如果該數據滿足條件：除以3余2，除以5余3，除以7余4，則輸出；否則將焦點定位在文本框Text1中，選中其中的文本。

3．設計一個歡迎程序。該程序用戶界面如圖所示。要求程序運行后，用戶選中粗體復選框時，標簽（Label1）中的文字（歡迎您！）的字體變成粗體，用戶選中斜體復選框時，標簽的字體變成斜體。若取消選中，則恢復原字體。單擊結束，則退出。4．任意輸入3個數，求大小排第二的那個數，寫出程序代碼。

第二篇：VB程序設計期末模擬試題及答案

0 《VB》期末復習題及答案

綜合復習題

一、填空題

1．創建一個VB應用程序三個主要的步驟是__________________、________________和_____________________。

2．當程序運行時，要求窗體中的文本框呈現空白，則在設計時，應當在此文本框的__________窗口中，把此文本框的_____________屬性設置成空白。

3．Label和TextBox控件用來顯示和輸入文本，如果僅需要讓應用程序在窗體中顯示文本信息，可使用___________控件；若允許用戶輸入文本，則應使用_____________控件。

4．窗體的常用方法有__________、___________、___________和___________。5．要想在代碼中給名為txtshow的文本框賦予文本：GOOD WORK，應當編寫的語句是____________________________________。

6．若命令按鈕的名稱為Cmdopen，程序要求單擊該命令按鈕時，打開一個窗口frm1，請對以下事件過程填空。

Private Sub Cmdopen_ ___________ _____________________ End Sub 7．Visual Basic 6種類型的表達式是______________、______________、______________、________________、_________________、____________________。Visual Basic根據表達式的___________來確定表達式的類型。8．表達式93 7 Mod 2 ^ 2 的值是___________。

9．已知a=3，b=4，c=5，表達式a>b and Not c>a Or c>b And ca And Not b c2 End Sub 7．#12/31/1999#3 * I Print “ ”;Next j For k = 1 To I Print k;Next k For k = IX Print Tab(Y + 5);“*”;Next Y Print Next X 4．

Private Sub Form_Activate()Print “aa” & “bb”,-5 * 6,Not 2 <= 3 Print “aa” & “bb”;-5 * 6;Not 2 <= 3 Print Print “30+60”, Print 30 + 60 ？

？“30+60”;30 + 60 End Sub 5． X=1 Do While X<=10 If X Mod 7 =0 Then Y = X + 6 Else Z = X End If X = X + 2 Loop Print X,Y,Z

五、編程題

1．設計一個計算程序。該程序用戶界面如圖所示，由四個文本框：文本框1（text1）、文本框2（text2）、文本框3（text3）、文本框4（text4），和三個按鈕：命令按鈕1（command1）、命令按鈕2（command2）、命令按鈕3（command4）組成。程序運行后，用戶單擊清除按鈕，則清除文本框中顯示的內容。單擊計算按鈕，如果成績填寫不完全，則給 4

出提示信息，否則計算三科平均成績。單擊退出按鈕則退出。

2．設計程序。要求：從文本框Text1中接收輸入的數據，當單擊確定按鈕（command1）時，如果該數據滿足條件：除以3余2，除以5余3，除以7余4，則輸出；否則將焦點定位在文本框Text1中，選中其中的文本。

3．設計一個歡迎程序。該程序用戶界面如圖所示。要求程序運行后，用戶選中粗體復選框時，標簽（Label1）中的文字（歡迎您！）的字體變成粗體，用戶選中斜體復選框時，標簽的字體變成斜體。若取消選中，則恢復原字體。單擊結束，則退出。4．任意輸入3個數，求大小排第二的那個數，寫出程序代碼。《VB》期末復習參考答案

一、填空題

1．創建應用程序界面 設置屬性 編寫代碼 2．屬性、text 3．Label TextBox 4．Load方法 Show方法 Hide方法 Unload方法 5．txtshow.text=“GOOD WORK” 6．Click()、frm1.show 7．算術表達式 字符串表達式 關系表達式 布爾表達式 日期表達式 對象表達式 運算符 8．1 9．True False 10．12 11．Sin(x)^ 2 + Sqr(x ^ 2-y ^ 2)/(2 * x)12．Dim A(1 To 5，-2 To 6)As String 13．單擊 雙擊 裝載 多 響應某個事件后所執行的程序代碼 cmd1 Click 14．完成某種特定的功能 對象名.方法名 Form1.Show 15．AutoSize Stretch 16．FileCopy “c:command.com”，“d:command.com”

二、單項選擇題

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

三、指出下列句中的錯誤，修改或者說明原因。1．int.sum 不正確。變量名中不能包括小數點。2．變量名的長度最長可達255個字符。3． 3.6，4 因為a 不是整型變量。

4．不正確。程序不可以改變字符的長度，這是VB規定。

5．不完全正確。Variant是一種特殊的數據類型，除了定長字符串數據及用戶定義類型外，可以包含任何種類型的數據，這是VB規定。6．False。邏輯表達式計算結果。

7．不正確。兩個日期型數據相減，其結果是一個數值型數據。8．不正確。靜態變量為局部變量，只能在過程中聲明。9．正確。10．正確。

11．正確。

12．不正確。該屬性設為Ture時，Image控件不能自動調整自己的尺寸與顯示的圖片匹配，而可以使圖片自動擴展以適應控件的尺寸。

四、讀程序題，寫出程序運行結果。

1．程序運行后，單擊窗體，輸出結果為： 1 1 2 1 1 2 3 2 1 1 2 3 4 3 2 1 1 2 3 4 5 4 3 2 1 1 2 3 4 5 6 5 4 3 2 1 1 2 3 4 5 6 7 6 5 4 3 2 1 1 2 3 4 5 6 7 8 7 6 5 4 3 2 1 1 2 3 4 5 6 7 8 9 8 7 6 5 4 3 2 1 2．程序運行后，單擊按鈕Command1，輸出結果為：120。3.* ** *** **** ***** 4.aabb-30 False aabb-30 False 30+60 90 30+60 90 5.11 13 9

五、編程題 1．

Private Sub Command1_Click()Text1.Text = “" Text2.Text = ”“ Text3.Text = ”“ Text4.Text = ”“ End Sub Private Sub Command2_Click()a = Trim(Text1.Text)b = Trim(Text2.Text)c = Trim(Text3.Text)If a = ”“ Or b = ”“ Or c = ”“ Then MsgBox ”成績填寫不完全！“, vbCritical Else Text4.Text =(Val(a)+ Val(b)+ Val(c))/ 3 6

End If End Sub Private Sub Command3_Click()Unload Me End Sub 2．

Private Sub Command1_Click()x = Val(Text1.Text)If x Mod 3 = 2 And x Mod 5 = 3 And x Mod 7 = 4 Then Print x Else Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text)End If End Sub 3．

Private Sub Check1_Click()If Check1.Value = 1 Then Label1.Font.Bold = True Else Label1.Font.Bold = False End If End Sub Private Sub Check2_Click()If Check2.Value = 1 Then Label1.Font.Italic = True Else Label1.Font.Italic = False End If End Sub Private Sub Command1_Click()Unload Me End Sub 4．

a = Val(InputBox(”輸入第一個數：“))b = Val(InputBox(”輸入第二個數：“))c = Val(InputBox(”輸入第三個數：“))If a < b Then t = a: a = b: b = t If a < c Then t = a: a = c: c = t If b < c Then t = b: b = c: c = t MsgBox(”求大小排第二的數是：" & b)

第三篇：可視化程序設計(VB)模擬試題

可視化程序設計（VB）

一、填空題（32分，共 8 題，每小題 4 分）

1.要使用通用對話框控件，必須首先在“部件”對話框中選擇 ______，將其添加到工具箱中。

2.運行時，要使工具欄Toolbarl中索引值為4的按鈕無效（變成灰色），應使用語句： ______。

3.運行時，要使工具欄控件Toolbarl中的第二個按鈕的按鈕菜單中的第三項無效（變成灰色），應使用語句： ______。

4.在用手工方式設計工具欄時，可以設置工具按鈕的 ______ 屬性為其添加功能提示。

5.用戶自定義類型中的元素類型可以是字符串，但該字符串必須是 ______。

6.設a=sqr（2）*sqr（3），下列語句的輸出結果分別是。print format$（a，“000.00”）

print format$（a，“###.#00”）

print format$（a，“00.00E+00”）

print format$（a，“－#.####”）

7.如果需要將窗體載入內存卻不顯示，需要將該窗體的 ______ 屬性設置為False，再用 ______ 語句裝載。

8.隨機產生一個范圍是(100，300）的整數，表達式為 ______。

二、程序閱讀題（24分，共 3 題，每小題 8 分）

1.寫出下列事件過程的執行結果。

Private Sub Command1_Click()

s3(1)s3(1)

End Sub

Private Sub s3(ByVal a As Integer)

Dim x As Integer Static y As Integer

x=x+a

y=y+a

Print “x=”;x, “y=”;y

End Sub

2.下列標準模塊和窗體模塊的功能是給通信錄文件“d:txrf1.dat”添加新記錄，在橫線上填上適當內容。

標準模塊：

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(“輸入新職工編號：”)

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

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

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

n =(1)(2)

Close #1

End Sub

3.本程序有一個標準模塊和一個窗體模塊。Sub main過程是本程序的啟動過程，其他過程是窗體模塊的事件過程。執行本程序，寫出依次單擊命令按鈕commandl和command2，在窗體上分別輸出的3行結果。

標準模塊：

Public X As Integer Sub main（）

X＝5

Form1.Show

Form1.Print X

End Sub

窗體模塊

Dim y As Integer

Private Sub command1_click（）

y＝X*2

Print y

End Sub

Private Sub command2_click（）

y＝X／2 Print y

End Sub

三、問答題（24分，共 3 題，每小題 8 分）

1.VB坐標系中旋轉什么方向是正向

2.什么是“內外循環交叉”？

3.Now函數和Date函數有何區別？

四、程序設計題（20分，共 1 題，每小題 20 分）

利用隨機函數，模擬投幣結果。設共投幣100次，求“兩個正面”、“兩個反面”、“一正一反”3種情況各出現多少次？

答案：

一、填空題（32分，共 8 題，每小題 4 分）

1.參考答案：

Microsoft Common Dialog Controls 6.0

解題方案：

評分標準：

2.參考答案：

Toolbarl．Buttons（4）．Enabled＝False

解題方案：

評分標準：

3.參考答案：

Toolbarl．Buttons（2）．ButtonMenus（3）．Enabled＝False

解題方案：

評分標準：

4.參考答案：

ToolTipText

解題方案：

評分標準：

5.參考答案：

定長字符串

解題方案：

評分標準：

6.參考答案：

002.45、2.449、24.49E-01、－2.4495

解題方案：

評分標準：

7.參考答案：

Visable；Load

解題方案：

評分標準：

8.參考答案：

+ Rnd * 200

解題方案：

評分標準：

二、程序閱讀題（24分，共 3 題，每小題 8 分）

1.參考答案：

執行結果為： x=1 y=1 x=1 y=2

解題方案：

過程調用

評分標準：

2.參考答案：

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

解題方案：

標準模塊和窗體模塊應用

評分標準：

3.參考答案：

執行結果為： 5 10 2

解題方案：

區別標準模塊與窗體模塊

評分標準：

6三、問答題（24分，共 3 題，每小題 8 分）

1.參考答案：

在VB坐標系中，逆時針方向為正，各繪圖方法都參照此坐標系。計算對象的坐標點時務必注意這一點。

解題方案：

評分標準：

2.參考答案：

循環嵌套時，內外循環交叉。

For i＝1 ito 4

For j= 1 to 5 ?

Next i

Next j

上述循環的交叉，運行時顯示“無效的Next控制變量引用”。外循環必須完全包含內循環，不得交叉。

解題方案：

評分標準：

3.參考答案：

Now函數和Date函數都是求當前機器內日期，不同之處是Now函數除日期外還帶回時間。

解題方案：

時間函數

評分標準：

四、程序設計題（20分，共 1 題，每小題 20 分）

0.參考答案：

Private Sub Form_Click()

Randomize Timer

Dim a(1, 1)

For i=1 To 100

n1=Int(Rnd*2)

n1=Int(Rnd*2)

a(n1, n2)=a(n1, n2)+1

Next i

Print “投幣結果如下：”

Print “ ～～～～～～～～～～～～～”

Print “ 兩個正面的次數為：”;a(0, 0)

Print “兩個反面的次數為:”;a(1, l)

Print “一正一反的次數為:”;a(0, 1)+ a(1, 0)

End Sub

解題方案：

使用循環控制設計算法 評分標準：

循環5分，算法5分

第四篇：《vb程序設計》期末復習題及答案范文

《vb程序設計》期末復習題及答案

一、填空題

1．創建一個VB應用程序三個主要的步驟是_(創建應用程序界面)、_(設置屬性_)和_(_編寫代碼__)__。

2．當程序運行時，要求窗體中的文本框呈現空白，則在設計時，應當在此文本框的__屬性________窗口中，把此文本框的____text_________屬性設置成空白。

3．Label和TextBox控件用來顯示和輸入文本，如果僅需要讓應用程序在窗體中顯示文本信息，可使用___label________控件；若允許用戶輸入文本，則應使用__textbox___________控件。4．窗體的常用方法有_load方法 Show方法 Hide方法_ Unload方法_。

5．要想在代碼中給名為txtshow的文本框賦予文本：GOOD WORK，應當編寫的語句是_（txtshow.text=“GOOD WORK”_）。

6．若命令按鈕的名稱為Cmdopen，程序要求單擊該命令按鈕時，打開一個窗口frm1，請對以下事件過程填空。Private Sub Cmdopen_ _click()__________ _frm1.show_ End Sub 7．Visual Basic 6種類型的表達式是_（算術表達式_）（字符串表達式）（關系表達式）（布爾表達式）（日期表達式）（對象表達式）。Visual Basic根據表達式的_．1 _運算符__來確定表達式的類型。

8．表達式93 7 Mod 2 ^ 2 的值是___________。

9．已知a=3，b=4，c=5，表達式a>b and Not c>a Or c>b And ca And Not b

10．日期表達式 #2/24/02#y ^ 2)/(2 * x)___。

12．設某個程序中要用到一個二維數組，要求數組名為A，類型為字符串類型，第一維下標從1到5，第二維下標從-2到6，則相應的數組聲明語句為_（Dim A(1 To 5，-2 To 6)As String）_。13．事件就是在對象上所發生的事情，Visual Basic中的事件如__單擊_________、_雙擊__________、_裝載_____________等。一個對象響應的事件可以有_多____個，用戶不能建立新的事件。事件過程是指_（響應某個事件后所執行的程序代碼）_。假設某一事件過程如下：

Private Sub cmd1_Click()Form1.Caption=“VB示例” End Sub 則響應該過程的對象名是_cmd1_____________，事件名是_____click________。

14．對象的方法用于(_完成某種特定的功能__)。當方法不需要任何參數并且也沒有返回值時，調用對象的方法的格式為_(對象名.方法名)_，例如，對窗體Form1使用Show方法，應寫成__form1.show_______________。

15．PictureBox控件可通過設置其(autosize)__屬性為True使之可自動調整大小；而Image控件可通過設置其_(stretch_)__屬性為True，使其加載的圖片能自動調整大小以適應Image。

16．在Visual Basic程序中實現復制文件“c:command.com”到d:盤根目錄下的語句為FileCopy “c:command.com”，“d:command.com”_。

二、單項選擇題

1．下列控件中沒有Caption屬性的是（B）

A、標簽 B、文本框 C、框架 D、命令按紐 2．除框架外，能對單選按紐分組的控件是（C）。A、窗體 B、標簽 C、圖片框 D、圖像 3．下列符號不能作為VB中變量名的是（C）。

A、ABCDEFG B、P00000 C、89YWDDF D、xyz 4． 下列不屬于Visual Basic數據文件的是（D）。A、順序文件 B、隨機文件 C、二進制文件 D、數據庫文件

5．若要求從文本框中輸入密碼時在文本框中只顯示*號，則應用在此文本框的屬性窗口中設置（D）。

A、Text屬性值為* B、Caption屬性值為* C、Password屬性值為空 D、PasswordChar屬性值為* 6．表達式2*3^2+2*8/4+3^2的值為（B）。A、64 B、31 C、49 D、42 7．表達式mid(“abcdefg”,3,2)的值是（B）A、abc B、cd C、bcd D、abcde 8．數學表達式Sin25°寫成VB表達式是（D）。A、Sin25 B、Sin（25）C、Sin（25°）D、Sin（25*3.14/180）

9．Sub過程與 Function過程最根本的區別是（D）。A、Sub過程可以使用Call語句或直接使用過程名調用，而Function過程不可以。

B、Function過程可以有參數，Sub過程不可以。C、兩種過程參數的傳遞方式不同。

D、Sub過程的過程名不能返回值，而Function過程能夠通過過程名返回值。

10．選拔身高T超過1.7米且體重W小于62.5公斤的人，表示該條件的布爾表達式為（C）

A、T>=1.7 And W<=62.5 B、T<=1.7 Or W>=62.5 C、T>1.7 And W<62.5 D、T>=1.7 Or W<62.5 11.下列對象不能響應 Click事件的是（D）A、列表框 B、圖片框 C、窗體 D、計時器

12．在Visual Basic中，按文件的訪問方式不同，可以將文件分為（A）

A、順序文件、隨機文件和二進制文件 B、文本文件和數據文件

C、數據文件和可執行文件 D、ASCⅡ文件和二進制文件

13．將通用對話框CommonDialog的類型設置成“顏色”對話框，可調用該對話框的（C）方法。

A、ShowOpen B、ShowSave C、ShowColor D、ShowFont

三、指出下列句中的錯誤，修改或者說明原因。1．sum和int.sum都可以作為VB的變量名。(X)2．變量名的長度最長可達1024個字符。(255)3．下列程序運行結果：3，3 Option Explicit Private Sub Command1_Click()Dim a，b As Integer Dim a as integer ,b as integer a = 3.6 b = 3.6 Text1.Text = a Text2.Text = b End Sub 4．程序可以改變定長字符串的內容和長度。

5．Variant是一種特殊的數據類型，可以包含任何種類型的數據。．不完全正確。Variant是一種特殊的數據類型，除了定長字符串數據及用戶定義類型外，可以包含任何種類型的數據，這是VB規定。

6．下列程序運行結果為True Private Sub Command1_Click()a = 1 b = 2 c = 3 Text1.Text = c > a + b Or b1 And c + a > a Xor b < c#12/20/1999#的運算結果是#12/11/1999# 8．可以在窗體的通用部分聲明靜態變量。

不正確。靜態變量為局部變量，只能在過程中聲明。

9．使用聲明語句建立一個變量后，Visual Basic會自動對數值類型的變量賦初值0，變長的字符串被初始化為一個零長度的字符串“"，定長字符串用空格填充，Variant變量被初始化為 Empty，布爾型的變量被初始化為False。

10．事件過程通常由事件驅動執行，而Sub過程通過過程調用執行。

11．將焦點主動設置到指定的控件或窗體上應采用SetFocus方法。12．當圖像控件（Image）的Stretch屬性為True時，Image控件能自動調整自己的尺寸與顯示的圖片匹配。

不正確。該屬性設為Ture時，Image控件不能自動調整自己的尺寸與顯示的圖片匹配，而可以使圖片自動擴展以適應控件的尺寸。

四、讀程序題，寫出程序運行結果。1．Private Sub Form_Click()For I = 1 To 9 For j = 1 To 301 To 1 Step-1 Print k;Next k Print Next I End Sub 2．

Option Explicit Private Sub Command1_Click()Static S As Integer Dim i As Integer S = 1 For i = 1 To 5 S = S * i Next i Print S End Sub 3．

For X = 5 To 1 Step-1 For Y = 1 To 6y ^ 2)/(2 * x)12．Dim A(1 To 5，-2 To 6)As String 13．單擊 雙擊 裝載 多 響應某個事件后所執行的程序代碼 cmd1 Click 14．完成某種特定的功能 對象名.方法名 Form1.Show 15．AutoSize Stretch 16．FileCopy ”c:command.com“，”d:command.com“

二、單項選擇題

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

三、指出下列句中的錯誤，修改或者說明原因。1．int.sum 不正確。變量名中不能包括小數點。2．變量名的長度最長可達255個字符。3． 3.6，4 因為a 不是整型變量。

4．不正確。程序不可以改變字符的長度，這是VB規定。5．不完全正確。Variant是一種特殊的數據類型，除了定長字符串數據及用戶定義類型外，可以包含任何種類型的數據，這是VB規定。

6．False。邏輯表達式計算結果。

7．不正確。兩個日期型數據相減，其結果是一個數值型數據。8．不正確。靜態變量為局部變量，只能在過程中聲明。9．正確。10．正確。11．正確。

12．不正確。該屬性設為Ture時，Image控件不能自動調整自己的尺寸與顯示的圖片匹配，而可以使圖片自動擴展以適應控件的尺寸。

四、讀程序題，寫出程序運行結果。1．程序運行后，單擊窗體，輸出結果為： 1 1 2 1 1 2 3 2 1 1 2 3 4 3 2 1 1 2 3 4 5 4 3 2 1 1 2 3 4 5 6 5 4 3 2 1 1 2 3 4 5 6 7 6 5 4 3 2 1 1 2 3 4 5 6 7 8 7 6 5 4 3 2 1 1 2 3 4 5 6 7 8 9 8 7 6 5 4 3 2 1

2．程序運行后，單擊按鈕Command1，輸出結果為： 3.* ** *** **** ***** 4.aabb-30 False aabb-30 False

30+60 90 30+60 90 5.11 13 9

五、編程題 1．

。120 Private Sub Command1_Click()Text1.Text = ”“ Text2.Text = ”“ Text3.Text = ”“ Text4.Text = ”“ End Sub

Private Sub Command2_Click()a = Trim(Text1.Text)b = Trim(Text2.Text)c = Trim(Text3.Text)If a = ”“ Or b = ”“ Or c = ”“ Then MsgBox ”成績填寫不完全！“, vbCritical Else Text4.Text =(Val(a)+ Val(b)+ Val(c))/ 3 End If End Sub

Private Sub Command3_Click()Unload Me End Sub 2．

Private Sub Command1_Click()x = Val(Text1.Text)If x Mod 3 = 2 And x Mod 5 = 3 And x Mod 7 = 4 Then Print x Else Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text)End If End Sub 3．

Private Sub Check1_Click()If Check1.Value = 1 Then Label1.Font.Bold = True Else Label1.Font.Bold = False End If End Sub

Private Sub Check2_Click()If Check2.Value = 1 Then Label1.Font.Italic = True Else Label1.Font.Italic = False End If End Sub

Private Sub Command1_Click()Unload Me End Sub 4．

a = Val(InputBox(”輸入第一個數：“))b = Val(InputBox(”輸入第二個數：“))c = Val(InputBox(”輸入第三個數：“))If a < b Then t = a: a = b: b = t If a < c Then t = a: a = c: c = t If b < c Then t = b: b = c: c = t MsgBox(”求大小排第二的數是：" & b)

原文網址: http://hi.baidu.com/%CC%EC%D0%AB%C4%A7%BE%FD/blog/item/d446b034a6b3373f5bb5f5fd.html

由弘一網童保存，尚未注冊。注冊

第五篇：VB程序設計試題與答案

1.要使一個標簽能夠顯示所需要的文本，應設置該標簽的()屬性的值(單)A.Caption B.Name

C.Text D.AutoSize 2.為使計時器對象每隔5秒鐘產生一個時鐘事件(Timer事件)，則其Interval屬性值應設置為()(單)A.5

B.300

C.500

D.5000 3.下列的()對象支持KeyPress事件(單)A.文本框

B.命令按鈕

C.標簽框

D.圖像框 4.確定一個控件在窗體上的位置的屬性是()(單)A.Width或Height

B.Top和Height

C.Top或Width

D.Top和Left 5.確定一個窗體或控件的大小的屬性是()(單)A.Width或Height

B.Top和Width

C.Top或Left

D.Top和Left

6.用戶在屏幕上畫出應用程序界面，并設置好對象的屬性，系統便可以自動生成程序代碼，這稱為()(單)A.面向對象的程序設計

B.結構化程序設計

C.事件驅動的編程機制

D.程序設計 7.在VB中，工程文件的擴展名是()(單)A..frm

B..vbp

C..bas

D..frx 8.在VB中，窗體文件的擴展名是()(單)A..frm B..vbp

C..bas

D..frx 9.VB集成開發環境可以(單)A.編輯、調試、運行程序，但不能生成可執行程序 B.編輯、生成可執行程序、運行程序，但不能調試程序 C.編輯、調試、生成可執行程序，但不能運行程序 D.編輯、調試、運行程序，也能生成可執行程序 10.英文“VISUAL”的含義是()(單)A.可視化

B.集成C.結構化

D.調試

11.標準模塊文件的擴展名是()(單)A.frm B.vbp C.bas

D.vbg 12.VB集成開發環境中，在()中編寫代碼(單)A.狀態欄

B.屬性列表框

C.代碼框

D.標題欄

13.在面向對象的程序設計過程中，英文縮寫“OOP”的含義是()(單)A.事件驅動的編程機制

B.結構化程序設計語言

C.面向對象的程序設計

D.可視化程序設計

14.在窗體上畫一個名稱為Timer1的計時器控件，要求每隔0.5秒發生一次計時器事件，則以下正確的屬性設置語句是()(單)A.Timer1.Interval=0.5

B.Timer1.Interval=5

C.Timer1.Interval=50 D.Timer1.Interval=500 15在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程： Private Sub Command1_Click()a$=“VisualBasic” Print String(3,a$)End Sub 程序運行后，單擊命令按鈕，在窗體上顯示的內容是()(單)A.VVV

B.Vis

C.sic

D.11

16.以下關于多重窗體程序的敘述中，錯誤的是()(單)A.用Hide方法不但可以隱藏窗體,且能清除內存中的窗體 B.在多重窗體程序中，各窗體的菜單是彼此獨立的 C.在多重窗體程序中，可以根據需要指定啟動窗體 D.對于多重窗體程序中，單獨保存每個窗體 17以下合法的Visual Basic變量的名稱是()(單)A.a3

B.Const

C.9abc

D.a#x!

18.當一個復選框被選中時，它的Value屬性的值是()(單)A.3

B.2

C.1

D.0

19.表達式 5 Mod 3+53的值是()(單)A.0

B.3

C.4

D.6

20設x=4,y=8,z=7, 表達式：(x＜y)Or z＜x 的值是()(單)A.1

B.-1 C.TRUE D.FALSE 21設有如下程序段： x=2 For c=1 To 4 Step 2 x=x+c Next c 運行以上程序后，x的值是()(單)A.6 B.7 C.8 D.9

22執行如下兩條語句，窗體上顯示的是()(單)A=9.8596 Print Format(a,“000.00”)A.0,009.86 B.9.86 C.009.86 D.0,009.86

23下列說法中正確的是：為了保存一個Visual Basic應用程序，應當()(單)A.只保存窗體模塊文件(.frm)B.只保存工程文件(.vbp)C.分別保存工程文件和標準模塊文件(.bas)D.分別保存工程文件、窗體文件和標準模塊文件

24.要使一個文本框對象能夠顯示多行文字，應設置該對象的()屬性值為True(單)A.Text B.MultiLine C.Style D.Visible 25.若要將窗體從內存中卸載，其實現的方法或語句是()(單)A.Show B.Unload C.Load D.Hide 26.以下選項中，不是VB標準控件的是()(單)A.命令按鈕 B.定時器 C.通用對話框 D.單選框

27在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下程序： Dim a As Variant a = Array(1, 2, 3, 4, 5)Sum = 0 For i = 1 To 5 Sum = Sum + a(i1)“, a(i1)> x Then Print a(iNum2 Case 3 Op = ”ד Result = Num1 * Num2 Case 4 Op = ”÷“ Result = Num1 / Num2 End Select Label1= Num1 & Op & Num2 & ”=“ & Result End Sub 窗體運行后，輸入1，則label1的標題顯示結果為()(單)A.3+2=5 B.3-2=1 C.3×2=6 D.3÷2=1.5

42在窗體上畫一個名稱為Text1的文本框，然后畫一個名稱為HScroll1的滾動條，其Min和Max屬性分別為0和100。程序運行后，如果移動滾動框，則在文本框中顯示滾動條的當前值，以下能實現上述操作的程序段是()(單)A.Private Sub HScroll_Change()Text1.Text=HScroll1.Value End Sub

B.Private Sub HScroll_Click()Text1.Text=HScroll1.Value End Sub C.Private Sub HScroll_Change()Text1.Text=HScroll.Caption End Sub D.Private Sub HScroll_Click()Text1.Text=HScroll.Caption End Sub

43.在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程： Private Sub Command1_Click()x=InputBox(”Input“)Select Case x Case 1,3 Print ”分支 1“ Case Is＞4 Print ”分支 2“ Case Else Print ”Else 分支 “ End Select End Sub 程序運行后，如果在輸入對話框中輸入2，則窗體上顯示的是（）A.分支1 B.分支2 C.Else分支 D.程序出錯

44.隨機產生10個100～200之間的數，求它們的最大值程序如下： Private Sub Command1_Click()Max = 100 For i = 1 To 10 x = int【 】 Print x;If x ＞ Max Then Max=x Next i Print Print ”最大值=“;Max End Sub 45設a=10，b=5，c=1，執行語句Print a ＞b ＞ c后，窗體上顯示的是()(單)A.True B.False C.1 D.出錯信息

(46)在窗體上建立通用對話框需要添加的控件是

A)Data控件 B)From控件 C)CommonDialog控件 D)VBComboBox控件

(47)在Visual Basic中，要將一個窗體加載到內存進行預處理但不顯示，應使用的語句是 A)Load B)Show C)Hide D)Unload

48)Sub過程與Function過程最根本的區別是

A)Sub過程可以用Call語句直接使用過程名調用，而Function過程不可以

B)Function過程可以有形參，Sub過程不可以

C)Sub過程不能返回值，而Function過程能返回值 D)兩種過程參數的傳遞方式不同

49保存一個工程至少應保存兩個文件，這兩個文件分別是）A)文本文件和工程文件 B)窗體文件和工程文件 C)窗體文件和標準模塊文件 D)類模塊文件和工程文件

50.當對命令按鈕的Picture屬性裝入.bmp圖形文件后，命令按鈕上并沒有顯示所需的圖形，原因是沒有對某個屬性設置為1，該屬性是

A)MousePicture B)Style C)DownPicture D)DisabledPicture

51假設變量bool_x是一個布爾型(邏輯型)的變量，則下面正確的賦值語句是）A)bool_x=”False“ B)bool_x=.False.C)bool_x=#False# D)bool_x=False

52.設S=“中華人民共和國”，表達式Left（S,1）+Right（S,1）+Mid（S,3,2）的值為（）A)“中華民國”

B)“中國人民”

C)“中共人民”

D)“人民共和” 53下列表達式的值為2123的是（）

A)Val(”123asd“)& 2000 B)Val(”123asd“)+ 2000 C)Str(123)& ”2000“ D)Str(123)+”2000“ 54假設在窗體上建立了一個通用對話框，其名稱為CommonDialog1，然后畫一個命令按鈕Command1,并編寫如下事件過程： Private Sub Command1_Click()CommonDialog1.Flags=4 CommonDialog1.Filter=”all files(*.*)|*.*|text Files(*.Txt)|*.txt|Batch Filse(*.bat)|*.bat“ CommonDialog1.FilterIndex=1 CommonDialog1.ShowOpen MsgBox CommonDialog1.FileName End Sub 程序運行后，單擊命令按鈕，將顯示一個“打開”對話框，此時在“文件類型”對話框中顯示的是（）

A)All Files(*.*)B)Text Files(*.Txt)C)Batch Files(.bat)D)不確定

55當運行程序時，系統自動執行啟動窗體的某個事件過程。這個事件過程是（）A)Load B)Click C)Unload D)GotFocus 56.無論何控件，都具有一個共同屬性。這個屬性是（）A)Text B)Font C)Name D)Caption 57.在一行內寫多條語句時，語句之間要用某個符號分隔。這個符號是（）A)，B)；

C)、D)：

58.表達式12000 + ”129“ & 200的值是

A)12329 B)”12129200“ C)”12000129200“ D)”12329“ 59.Visual Basic是一種面向對象的程序設計語言，構成對象的三要素是（）

A)屬性、控件和方法 B)屬性、事件和方法 C)窗體、控件和過程 D)控件、過程和模塊

60表達式String(1,”I am student“)+ Replace(”am harass“,”rass“,”ppy“)& ”!“的值是（）A)”I am happy!“ B)”I am student I am s am harass studentam happy!“ C)”I am student am harass!“ D)”I am student am happy!“ 61.引用列表框（List1）最后一個數據項應使用的表達式是（）A)List1.List(List1.ListCount)B)List1.List(List1.ListCount-1)C)List1.List(ListCount)D)List1.List(ListCount-1)62.以下屬性和方法中，可重定義坐標系的是）

A)DrawStyle屬性 B)DrawWidth屬性 C)Scale方法 D)ScaleMode屬性 63.下面說法不正確的是()A)滾動條的重要事件是Change和Scroll B)框架的主要作用是將控件進行分組，以完成各自相對獨立的功能 C)組合框是組合了文本框和列表框的特性而形成的一種控件

D)計時器控件可以通過對Visible屬性的設置，在程序運行期間顯示在窗體上

64.在窗體上畫一個名稱為Check1復選框，在程序運行的過程中，若選中復選框，則Check1.value的值是（）A)True B)2 C)0 D)1 65.下列關于過程敘述不正確的是（）

A)過程的傳值調用是將實參的具體值傳值遞給形參 B)過程的傳址調用是將實參在內存的地址傳遞給形參

C)過程的傳值調用參數是單向傳遞的，過程的傳址調用參數是雙向傳遞的 D)無論過程傳值調用還是過程傳址調用，參數傳遞都是雙向的

66.為了使標簽能自動調整大小以顯示全部文本內容，應把標簽的【 】屬性設置為true。67.要想在文本框中顯示垂直滾動條，必須把scrollbars屬性設置為2，同時還應把【 】屬性設置為true。

68.假定有一個文本框，其名稱為text1，為了使該文本框具有焦點，應執行的語句是【 】.setfocus。

69.假定有一個名為pic2.bmp的圖形文件，要在運行期間把該文件裝入一個圖片框，應執行的語句為 圖片控件名.picture=【

】。

70.為了能自動放大或縮小圖像框中的圖形以與圖像框的大小相適應，必須把該圖像框的【 】屬性設置為true。

71.窗體、圖片框或圖像框中圖形通過對象的【 】屬性設置。72.計時器事件之間的間隔通過【

】屬性設置。

73.有時候要暫關閉計時器，這可以通過【 】屬性設置為false來實現。74.設a=sqr(2),則語句Print format$(a,”000.0“)的輸出結果是【 】。75.設a=sqr(3),則語句Print format$(a,”###.0“)的輸出結果是【 】。76.VB應用程序通常由3類模塊組成，即窗體模塊、【 】模塊和類模塊。

77在窗體上畫兩個文本框和一個命令按鈕，然后在命令按鈕的代碼窗口中編寫如下事件過程：

Private sub command1_click()text1.text=”vb“ text2.text=text1.text

text1.text=”abcd“ End Sub 程序運行后，單擊命令按鈕，文本框text2中顯示的內容為 ________。

78.在保存VB應用程序時，窗體文件和工程文件的擴展名分別為【.】和.vbp。79.下列可作為VB的變量名的是()(單)A.Filename B.A3B C.254D D.Print 80.與下列數學式cos2(c+d)對應的VB表達式是【 】。81.與下列數學式2a(7＋b)對應地VB表達式是【 】。82.在VB中，字符串常量要用【 】括起來。83.下面的事件不屬于鼠標器事件的是()(單)A.MouseDown事件 B.MouseUp事件 C.MouseMove事件 D.Move事件 84.下面的事件不屬于鍵盤事件的是()(單)A.KeyPress事件 B.KeyDown事件 C.KeyUp事件 D.KeyMove事件

85.對以下程序說法不正確的是()(單)Private Sub FileOpen_Click()CommonDialog1.InitDir = ”C:“ CommonDialog1.Filter = ”文本文件 | *.Txt“ CommonDialog1.ShowOpen End Sub A.顯示”文件“打開對話框 B.打開的對話框的初始目錄為C盤根目錄 C.打開的對話框的文件類型為文本文件 D.以上說法都不正確

86.以下程序是求最大公約數和最小公倍數的程序，在【】處填寫合適的關系運算符。Private Sub Form_Click()Dim m1, n1, m, n, r As Integer n1 = InputBox(”輸入自然數n“, ”輸入數“)m1 = InputBox(”輸入自然數m“, ”輸入數“)n = n1 m = m1 If m ＜n Then t = m: m = n: n = t End If r = m Mod n Do While r 【 】 0 m = n n = r r = m Mod n Loop Print ”最大公約數=“, n Print ”最小公倍數= “, m1 * n1 / n End Sub 87.下面是求100以內素數的程序。Private Sub Command1_Click()Dim i As Integer, m As Integer, tag As Boolean

For m = 2 To 100 tag = True For i = 2 To m-1 If m Mod 【 】 = 0 Then tag = False Next i If tag Then Print m Next m End Sub 88.百元買百雞問題： 假定小雞每只5角,公雞每只2元，母雞每只3元。現在有100元錢要求買100只雞，以下程序列出了所有可能的購雞方案。Private Sub Command1_Click()Dim x%, y%, z% For x = 0 To 33 For y = 0 To 50 For z = 0 To 100 If 3 * x + 2 * y + 0.5 * z = 100 And 【 】 Then Picture1.Print x, y, z End If Next z Next y Next x End Sub 89.隨機產生10個100～200之間的數，求它們的最大值程序如下： Private Sub Command1_Click()Max = 100 For i = 1 To 10 x = int【 】 Print x;If x ＞ Max Then Max=x Next i Print Print ”最大值=“;Max End Sub 90.以下是求1～100之間5或7的倍數的和，如下程序段： Sum = 0 For i = 1 To 100 If i Mod 5 = 0 Or i Mod 7 = 0 Then 【】 End If Next i Print Sum 其中【】處書寫正確的是（）(單)A.Sum = i B.Sum = Sum +i C.Sum = Sum + 5+7 D.以上都不正確 91.要使得在按下鼠標左鍵時，激發mousedown事件，可以設置此事件中的button參數為()(單)

A.0 B.1 C.2 D.4 92.要使得在按下鼠標右鍵時，激發mousedown事件，可以設置此事件中的button參數為()(單)A.0 B.1 C.2 D.4 93.刪除列表框中所有的項目所使用的方法為()(單)A.move B.remove C.clear D.removeitem 94.在窗體上畫一個命令按鈕，然后編寫如下事件過程： Private Sub command1_click()Dim a As String, b As String a = InputBox(”Enter the First integer“)b = InputBox(”Enter the Second integer“)Print b + a End Sub程序運行后，單擊命令按鈕，先后在兩個輸入對話框中分別輸入456和111,則輸出結果是()(單)A.456 B.111 C.567 D.111456 95.傳值：形參得到的是實參的值，形參值的改變不會影響實參的值。在定義形參前加關鍵字Byval。

96.以下利用SUB關鍵字定義的子過程Rate，其調用格式不正確的是()(單)A.call Rate(12,56)B.Rate(12,56)C.Rate 12,56 D.以上A和C正確

97.以下程序的作用是單擊Check1檢查框將使得Text1文本框的字體在”加粗“和”常規“之間進行切換。

Private Sub Check1_Click()Text1.FontItalic = Not Text1.FontItalic End Sub 98.窗體中有一個名稱為Slider1的可選擇性刻度滑塊控件，要設置它的如下屬性值，可以編寫程序()(單)(1)Slider控件的滑塊處于最小位置時值為8(2)Slider控件的滑塊處于最大位置時值為72(3)單擊Slider控件兩端箭頭時，滑塊的增量值為2(4)單擊Slider控件的空白處時，滑塊的增量值為8 A.Slider1.Min = 8： Slider1.Max = 72：

Slider1.SmallChange =2： Slider1.LargeChange = 8 B.Slider1.Min = 2： Slider1.Max = 8：

Slider1.SmallChange = 72： Slider1.LargeChange = 8 C.Slider1.Min = 8： Slider1.Max = 72：

Slider1.SmallChange = 8： Slider1.LargeChange = 2 D.Slider1.Min = 72： Slider1.Max = 8：

Slider1.SmallChange = 2：

Slider1.LargeChange = 8 99.以下能判斷指針是否指向文件尾的函數是()(單)A.BOF B.LOC C.LOF D.EOF 00.窗體的過程Form_MouseDown(Button As Integer, Shift As Integer, X As Single, YAs Single)，有4個參數，關于這些參數，正確的描述是()(單)A.通過Button參數判定當前按下的是鍵盤上哪一個鍵 B.Shift參數只能用來確定是否按下Shift鍵

C.Shift參數只能用來確定是否按下Alt和Ctrl鍵 D.參數x,y用來設置鼠標當前位置的坐標

01.設組合框Combo1中有3個項目，則以下能刪除最后一項的語句是()(單)A.Combo1.RemoveItem Text B.Combo1.RemoveItem 2 C.Combo1.RemoveItem 3 D.Combo1.RemoveItem Combo1.Listcount

1-10ADADA ABADA 11-20CCCDA AACBC 21-30ACDBB CDCCC 31-40ABDAB fontname BAAC 41-45AAC RND*101+100或100+RND*101或RND()*101+100或100+RND()*101 B 46-50CACBB 51-55DBBAA 56-60CDBBA 61-65BCDDD 66Autosize 67Multiline 68Text1 669loadpicture(”pic2.bmp")70Stretch 71Picture 72Interval 73Enabled 74 001.4 75 1.7 76【標準】77VB 78frm 79B 80cos(2*(c+d))81 2*a*(7+b)82【雙引號】83D 84D 85D 86<> 87【i】88x+y+z=100 89RND*101+100或100+RND*101或RND()*101+100或100+RND()*101 90B 91-95BBCDV 96-00BVADD 01B 13