第一篇：VB程序設(shè)計(jì)期末模擬試題及答案

0 《VB》期末復(fù)習(xí)題及答案

綜合復(fù)習(xí)題

一、填空題

1．創(chuàng)建一個(gè)VB應(yīng)用程序三個(gè)主要的步驟是__________________、________________和_____________________。

2．當(dāng)程序運(yùn)行時(shí)，要求窗體中的文本框呈現(xiàn)空白，則在設(shè)計(jì)時(shí)，應(yīng)當(dāng)在此文本框的__________窗口中，把此文本框的_____________屬性設(shè)置成空白。

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

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

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

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

9．已知a=3，b=4，c=5，表達(dá)式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．設(shè)計(jì)一個(gè)計(jì)算程序。該程序用戶界面如圖所示，由四個(gè)文本框：文本框1（text1）、文本框2（text2）、文本框3（text3）、文本框4（text4），和三個(gè)按鈕：命令按鈕1（command1）、命令按鈕2（command2）、命令按鈕3（command4）組成。程序運(yùn)行后，用戶單擊清除按鈕，則清除文本框中顯示的內(nèi)容。單擊計(jì)算按鈕，如果成績填寫不完全，則給 4

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

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

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

一、填空題

1．創(chuàng)建應(yīng)用程序界面 設(shè)置屬性 編寫代碼 2．屬性、text 3．Label TextBox 4．Load方法 Show方法 Hide方法 Unload方法 5．txtshow.text=“GOOD WORK” 6．Click()、frm1.show 7．算術(shù)表達(dá)式 字符串表達(dá)式 關(guān)系表達(dá)式 布爾表達(dá)式 日期表達(dá)式 對象表達(dá)式 運(yùn)算符 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．單擊 雙擊 裝載 多 響應(yīng)某個(gè)事件后所執(zhí)行的程序代碼 cmd1 Click 14．完成某種特定的功能 對象名.方法名 Form1.Show 15．AutoSize Stretch 16．FileCopy “c:command.com”，“d:command.com”

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

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

三、指出下列句中的錯(cuò)誤，修改或者說明原因。1．int.sum 不正確。變量名中不能包括小數(shù)點(diǎn)。2．變量名的長度最長可達(dá)255個(gè)字符。3． 3.6，4 因?yàn)閍 不是整型變量。

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

5．不完全正確。Variant是一種特殊的數(shù)據(jù)類型，除了定長字符串?dāng)?shù)據(jù)及用戶定義類型外，可以包含任何種類型的數(shù)據(jù)，這是VB規(guī)定。6．False。邏輯表達(dá)式計(jì)算結(jié)果。

7．不正確。兩個(gè)日期型數(shù)據(jù)相減，其結(jié)果是一個(gè)數(shù)值型數(shù)據(jù)。8．不正確。靜態(tài)變量為局部變量，只能在過程中聲明。9．正確。10．正確。

11．正確。

12．不正確。該屬性設(shè)為Ture時(shí)，Image控件不能自動調(diào)整自己的尺寸與顯示的圖片匹配，而可以使圖片自動擴(kuò)展以適應(yīng)控件的尺寸。

四、讀程序題，寫出程序運(yùn)行結(jié)果。

1．程序運(yùn)行后，單擊窗體，輸出結(jié)果為： 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．程序運(yùn)行后，單擊按鈕Command1，輸出結(jié)果為：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(”輸入第一個(gè)數(shù)：“))b = Val(InputBox(”輸入第二個(gè)數(shù)：“))c = Val(InputBox(”輸入第三個(gè)數(shù)：“))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(”求大小排第二的數(shù)是：" & b)

第二篇：VB程序設(shè)計(jì)期末模擬試題及答案

《VB》期末復(fù)習(xí)題及答案

綜合復(fù)習(xí)題

一、填空題

1．創(chuàng)建一個(gè)VB應(yīng)用程序三個(gè)主要的步驟是__創(chuàng)建應(yīng)用程序界面_、_設(shè)置屬性_和_編寫代碼_。2．當(dāng)程序運(yùn)行時(shí)，要求窗體中的文本框呈現(xiàn)空白，則在設(shè)計(jì)時(shí)，應(yīng)當(dāng)在此文本框的 屬性 窗

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

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

下事件過程填空。

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

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

達(dá)式c>a And Not b

10．日期表達(dá)式 #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．設(shè)計(jì)一個(gè)計(jì)算程序。該程序用戶界面如圖所示，由四個(gè)文本框：文本框1（text1）、文本框2（text2）、文本框3（text3）、文本框4（text4），和三個(gè)按鈕：命令按鈕1（command1）、命令按鈕2（command2）、命令按鈕3（command4）組成。程序運(yùn)行后，用戶單擊清除按鈕，則清除文本框中顯示的內(nèi)容。單擊計(jì)算按鈕，如果成績填寫不完全，則給出提示信息，否則計(jì)算三科平均成績。單擊退出按鈕則退出。

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

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

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

可視化程序設(shè)計(jì)（VB）

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

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

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

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

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

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

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

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

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

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

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

8.隨機(jī)產(chǎn)生一個(gè)范圍是(100，300）的整數(shù)，表達(dá)式為 ______。

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

1.寫出下列事件過程的執(zhí)行結(jié)果。

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

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

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

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

n =(1)(2)

Close #1

End Sub

3.本程序有一個(gè)標(biāo)準(zhǔn)模塊和一個(gè)窗體模塊。Sub main過程是本程序的啟動過程，其他過程是窗體模塊的事件過程。執(zhí)行本程序，寫出依次單擊命令按鈕commandl和command2，在窗體上分別輸出的3行結(jié)果。

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

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坐標(biāo)系中旋轉(zhuǎn)什么方向是正向

2.什么是“內(nèi)外循環(huán)交叉”？

3.Now函數(shù)和Date函數(shù)有何區(qū)別？

四、程序設(shè)計(jì)題（20分，共 1 題，每小題 20 分）

利用隨機(jī)函數(shù)，模擬投幣結(jié)果。設(shè)共投幣100次，求“兩個(gè)正面”、“兩個(gè)反面”、“一正一反”3種情況各出現(xiàn)多少次？

答案：

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

1.參考答案：

Microsoft Common Dialog Controls 6.0

解題方案：

評分標(biāo)準(zhǔn)：

2.參考答案：

Toolbarl．Buttons（4）．Enabled＝False

解題方案：

評分標(biāo)準(zhǔn)：

3.參考答案：

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

解題方案：

評分標(biāo)準(zhǔn)：

4.參考答案：

ToolTipText

解題方案：

評分標(biāo)準(zhǔn)：

5.參考答案：

定長字符串

解題方案：

評分標(biāo)準(zhǔn)：

6.參考答案：

002.45、2.449、24.49E-01、－2.4495

解題方案：

評分標(biāo)準(zhǔn)：

7.參考答案：

Visable；Load

解題方案：

評分標(biāo)準(zhǔn)：

8.參考答案：

+ Rnd * 200

解題方案：

評分標(biāo)準(zhǔn)：

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

1.參考答案：

執(zhí)行結(jié)果為： x=1 y=1 x=1 y=2

解題方案：

過程調(diào)用

評分標(biāo)準(zhǔn)：

2.參考答案：

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

解題方案：

標(biāo)準(zhǔn)模塊和窗體模塊應(yīng)用

評分標(biāo)準(zhǔn)：

3.參考答案：

執(zhí)行結(jié)果為： 5 10 2

解題方案：

區(qū)別標(biāo)準(zhǔn)模塊與窗體模塊

評分標(biāo)準(zhǔn)：

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

1.參考答案：

在VB坐標(biāo)系中，逆時(shí)針方向?yàn)檎骼L圖方法都參照此坐標(biāo)系。計(jì)算對象的坐標(biāo)點(diǎn)時(shí)務(wù)必注意這一點(diǎn)。

解題方案：

評分標(biāo)準(zhǔn)：

2.參考答案：

循環(huán)嵌套時(shí)，內(nèi)外循環(huán)交叉。

For i＝1 ito 4

For j= 1 to 5 ?

Next i

Next j

上述循環(huán)的交叉，運(yùn)行時(shí)顯示“無效的Next控制變量引用”。外循環(huán)必須完全包含內(nèi)循環(huán)，不得交叉。

解題方案：

評分標(biāo)準(zhǔn)：

3.參考答案：

Now函數(shù)和Date函數(shù)都是求當(dāng)前機(jī)器內(nèi)日期，不同之處是Now函數(shù)除日期外還帶回時(shí)間。

解題方案：

時(shí)間函數(shù)

評分標(biāo)準(zhǔn)：

四、程序設(shè)計(jì)題（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 “投幣結(jié)果如下：”

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

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

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

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

End Sub

解題方案：

使用循環(huán)控制設(shè)計(jì)算法 評分標(biāo)準(zhǔn)：

循環(huán)5分，算法5分

第四篇：《vb程序設(shè)計(jì)》期末復(fù)習(xí)題及答案范文

《vb程序設(shè)計(jì)》期末復(fù)習(xí)題及答案

一、填空題

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

2．當(dāng)程序運(yùn)行時(shí)，要求窗體中的文本框呈現(xiàn)空白，則在設(shè)計(jì)時(shí)，應(yīng)當(dāng)在此文本框的__屬性________窗口中，把此文本框的____text_________屬性設(shè)置成空白。

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

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

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

8．表達(dá)式93 7 Mod 2 ^ 2 的值是___________。

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

10．選拔身高T超過1.7米且體重W小于62.5公斤的人，表示該條件的布爾表達(dá)式為（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.下列對象不能響應(yīng) Click事件的是（D）A、列表框 B、圖片框 C、窗體 D、計(jì)時(shí)器

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

A、順序文件、隨機(jī)文件和二進(jìn)制文件 B、文本文件和數(shù)據(jù)文件

C、數(shù)據(jù)文件和可執(zhí)行文件 D、ASCⅡ文件和二進(jìn)制文件

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

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

三、指出下列句中的錯(cuò)誤，修改或者說明原因。1．sum和int.sum都可以作為VB的變量名。(X)2．變量名的長度最長可達(dá)1024個(gè)字符。(255)3．下列程序運(yùn)行結(jié)果：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．程序可以改變定長字符串的內(nèi)容和長度。

5．Variant是一種特殊的數(shù)據(jù)類型，可以包含任何種類型的數(shù)據(jù)。．不完全正確。Variant是一種特殊的數(shù)據(jù)類型，除了定長字符串?dāng)?shù)據(jù)及用戶定義類型外，可以包含任何種類型的數(shù)據(jù)，這是VB規(guī)定。

6．下列程序運(yùn)行結(jié)果為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#的運(yùn)算結(jié)果是#12/11/1999# 8．可以在窗體的通用部分聲明靜態(tài)變量。

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

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

10．事件過程通常由事件驅(qū)動執(zhí)行，而Sub過程通過過程調(diào)用執(zhí)行。

11．將焦點(diǎn)主動設(shè)置到指定的控件或窗體上應(yīng)采用SetFocus方法。12．當(dāng)圖像控件（Image）的Stretch屬性為True時(shí)，Image控件能自動調(diào)整自己的尺寸與顯示的圖片匹配。

不正確。該屬性設(shè)為Ture時(shí)，Image控件不能自動調(diào)整自己的尺寸與顯示的圖片匹配，而可以使圖片自動擴(kuò)展以適應(yīng)控件的尺寸。

四、讀程序題，寫出程序運(yùn)行結(jié)果。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．單擊 雙擊 裝載 多 響應(yīng)某個(gè)事件后所執(zhí)行的程序代碼 cmd1 Click 14．完成某種特定的功能 對象名.方法名 Form1.Show 15．AutoSize Stretch 16．FileCopy ”c:command.com“，”d:command.com“

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

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

三、指出下列句中的錯(cuò)誤，修改或者說明原因。1．int.sum 不正確。變量名中不能包括小數(shù)點(diǎn)。2．變量名的長度最長可達(dá)255個(gè)字符。3． 3.6，4 因?yàn)閍 不是整型變量。

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

6．False。邏輯表達(dá)式計(jì)算結(jié)果。

7．不正確。兩個(gè)日期型數(shù)據(jù)相減，其結(jié)果是一個(gè)數(shù)值型數(shù)據(jù)。8．不正確。靜態(tài)變量為局部變量，只能在過程中聲明。9．正確。10．正確。11．正確。

12．不正確。該屬性設(shè)為Ture時(shí)，Image控件不能自動調(diào)整自己的尺寸與顯示的圖片匹配，而可以使圖片自動擴(kuò)展以適應(yīng)控件的尺寸。

四、讀程序題，寫出程序運(yùn)行結(jié)果。1．程序運(yùn)行后，單擊窗體，輸出結(jié)果為： 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．程序運(yùn)行后，單擊按鈕Command1，輸出結(jié)果為： 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(”輸入第一個(gè)數(shù)：“))b = Val(InputBox(”輸入第二個(gè)數(shù)：“))c = Val(InputBox(”輸入第三個(gè)數(shù)：“))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(”求大小排第二的數(shù)是：" & b)

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

由弘一網(wǎng)童保存，尚未注冊。注冊

第五篇：VB程序設(shè)計(jì)試題與答案

1.要使一個(gè)標(biāo)簽?zāi)軌蝻@示所需要的文本，應(yīng)設(shè)置該標(biāo)簽的()屬性的值(單)A.Caption B.Name

C.Text D.AutoSize 2.為使計(jì)時(shí)器對象每隔5秒鐘產(chǎn)生一個(gè)時(shí)鐘事件(Timer事件)，則其Interval屬性值應(yīng)設(shè)置為()(單)A.5

B.300

C.500

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

B.命令按鈕

C.標(biāo)簽框

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

B.Top和Height

C.Top或Width

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

B.Top和Width

C.Top或Left

D.Top和Left

6.用戶在屏幕上畫出應(yīng)用程序界面，并設(shè)置好對象的屬性，系統(tǒng)便可以自動生成程序代碼，這稱為()(單)A.面向?qū)ο蟮某绦蛟O(shè)計(jì)

B.結(jié)構(gòu)化程序設(shè)計(jì)

C.事件驅(qū)動的編程機(jī)制

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

B..vbp

C..bas

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

C..bas

D..frx 9.VB集成開發(fā)環(huán)境可以(單)A.編輯、調(diào)試、運(yùn)行程序，但不能生成可執(zhí)行程序 B.編輯、生成可執(zhí)行程序、運(yùn)行程序，但不能調(diào)試程序 C.編輯、調(diào)試、生成可執(zhí)行程序，但不能運(yùn)行程序 D.編輯、調(diào)試、運(yùn)行程序，也能生成可執(zhí)行程序 10.英文“VISUAL”的含義是()(單)A.可視化

B.集成C.結(jié)構(gòu)化

D.調(diào)試

11.標(biāo)準(zhǔn)模塊文件的擴(kuò)展名是()(單)A.frm B.vbp C.bas

D.vbg 12.VB集成開發(fā)環(huán)境中，在()中編寫代碼(單)A.狀態(tài)欄

B.屬性列表框

C.代碼框

D.標(biāo)題欄

13.在面向?qū)ο蟮某绦蛟O(shè)計(jì)過程中，英文縮寫“OOP”的含義是()(單)A.事件驅(qū)動的編程機(jī)制

B.結(jié)構(gòu)化程序設(shè)計(jì)語言

C.面向?qū)ο蟮某绦蛟O(shè)計(jì)

D.可視化程序設(shè)計(jì)

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

B.Timer1.Interval=5

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

B.Vis

C.sic

D.11

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

B.Const

C.9abc

D.a#x!

18.當(dāng)一個(gè)復(fù)選框被選中時(shí)，它的Value屬性的值是()(單)A.3

B.2

C.1

D.0

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

B.3

C.4

D.6

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

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

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

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

24.要使一個(gè)文本框?qū)ο竽軌蝻@示多行文字，應(yīng)設(shè)置該對象的()屬性值為True(單)A.Text B.MultiLine C.Style D.Visible 25.若要將窗體從內(nèi)存中卸載，其實(shí)現(xiàn)的方法或語句是()(單)A.Show B.Unload C.Load D.Hide 26.以下選項(xiàng)中，不是VB標(biāo)準(zhǔn)控件的是()(單)A.命令按鈕 B.定時(shí)器 C.通用對話框 D.單選框

27在窗體上畫一個(gè)名稱為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 窗體運(yùn)行后，輸入1，則label1的標(biāo)題顯示結(jié)果為()(單)A.3+2=5 B.3-2=1 C.3×2=6 D.3÷2=1.5

42在窗體上畫一個(gè)名稱為Text1的文本框，然后畫一個(gè)名稱為HScroll1的滾動條，其Min和Max屬性分別為0和100。程序運(yùn)行后，如果移動滾動框，則在文本框中顯示滾動條的當(dāng)前值，以下能實(shí)現(xiàn)上述操作的程序段是()(單)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.在窗體上畫一個(gè)名稱為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 程序運(yùn)行后，如果在輸入對話框中輸入2，則窗體上顯示的是（）A.分支1 B.分支2 C.Else分支 D.程序出錯(cuò)

44.隨機(jī)產(chǎn)生10個(gè)100～200之間的數(shù)，求它們的最大值程序如下： 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設(shè)a=10，b=5，c=1，執(zhí)行語句Print a ＞b ＞ c后，窗體上顯示的是()(單)A.True B.False C.1 D.出錯(cuò)信息

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

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

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

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

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

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

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

49保存一個(gè)工程至少應(yīng)保存兩個(gè)文件，這兩個(gè)文件分別是）A)文本文件和工程文件 B)窗體文件和工程文件 C)窗體文件和標(biāo)準(zhǔn)模塊文件 D)類模塊文件和工程文件

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

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

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

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

B)“中國人民”

C)“中共人民”

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

A)Val(”123asd“)& 2000 B)Val(”123asd“)+ 2000 C)Str(123)& ”2000“ D)Str(123)+”2000“ 54假設(shè)在窗體上建立了一個(gè)通用對話框，其名稱為CommonDialog1，然后畫一個(gè)命令按鈕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 程序運(yùn)行后，單擊命令按鈕，將顯示一個(gè)“打開”對話框，此時(shí)在“文件類型”對話框中顯示的是（）

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

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

C)、D)：

58.表達(dá)式12000 + ”129“ & 200的值是

A)12329 B)”12129200“ C)”12000129200“ D)”12329“ 59.Visual Basic是一種面向?qū)ο蟮某绦蛟O(shè)計(jì)語言，構(gòu)成對象的三要素是（）

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

60表達(dá)式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）最后一個(gè)數(shù)據(jù)項(xiàng)應(yīng)使用的表達(dá)式是（）A)List1.List(List1.ListCount)B)List1.List(List1.ListCount-1)C)List1.List(ListCount)D)List1.List(ListCount-1)62.以下屬性和方法中，可重定義坐標(biāo)系的是）

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

D)計(jì)時(shí)器控件可以通過對Visible屬性的設(shè)置，在程序運(yùn)行期間顯示在窗體上

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

A)過程的傳值調(diào)用是將實(shí)參的具體值傳值遞給形參 B)過程的傳址調(diào)用是將實(shí)參在內(nèi)存的地址傳遞給形參

C)過程的傳值調(diào)用參數(shù)是單向傳遞的，過程的傳址調(diào)用參數(shù)是雙向傳遞的 D)無論過程傳值調(diào)用還是過程傳址調(diào)用，參數(shù)傳遞都是雙向的

66.為了使標(biāo)簽?zāi)茏詣诱{(diào)整大小以顯示全部文本內(nèi)容，應(yīng)把標(biāo)簽的【 】屬性設(shè)置為true。67.要想在文本框中顯示垂直滾動條，必須把scrollbars屬性設(shè)置為2，同時(shí)還應(yīng)把【 】屬性設(shè)置為true。

68.假定有一個(gè)文本框，其名稱為text1，為了使該文本框具有焦點(diǎn)，應(yīng)執(zhí)行的語句是【 】.setfocus。

69.假定有一個(gè)名為pic2.bmp的圖形文件，要在運(yùn)行期間把該文件裝入一個(gè)圖片框，應(yīng)執(zhí)行的語句為 圖片控件名.picture=【

】。

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

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

】屬性設(shè)置。

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

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

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

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

78.在保存VB應(yīng)用程序時(shí)，窗體文件和工程文件的擴(kuò)展名分別為【.】和.vbp。79.下列可作為VB的變量名的是()(單)A.Filename B.A3B C.254D D.Print 80.與下列數(shù)學(xué)式cos2(c+d)對應(yīng)的VB表達(dá)式是【 】。81.與下列數(shù)學(xué)式2a(7＋b)對應(yīng)地VB表達(dá)式是【 】。82.在VB中，字符串常量要用【 】括起來。83.下面的事件不屬于鼠標(biāo)器事件的是()(單)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.以下程序是求最大公約數(shù)和最小公倍數(shù)的程序，在【】處填寫合適的關(guān)系運(yùn)算符。Private Sub Form_Click()Dim m1, n1, m, n, r As Integer n1 = InputBox(”輸入自然數(shù)n“, ”輸入數(shù)“)m1 = InputBox(”輸入自然數(shù)m“, ”輸入數(shù)“)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 ”最大公約數(shù)=“, n Print ”最小公倍數(shù)= “, m1 * n1 / n End Sub 87.下面是求100以內(nèi)素?cái)?shù)的程序。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元。現(xiàn)在有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.隨機(jī)產(chǎn)生10個(gè)100～200之間的數(shù)，求它們的最大值程序如下： 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的倍數(shù)的和，如下程序段： 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.要使得在按下鼠標(biāo)左鍵時(shí)，激發(fā)mousedown事件，可以設(shè)置此事件中的button參數(shù)為()(單)

A.0 B.1 C.2 D.4 92.要使得在按下鼠標(biāo)右鍵時(shí)，激發(fā)mousedown事件，可以設(shè)置此事件中的button參數(shù)為()(單)A.0 B.1 C.2 D.4 93.刪除列表框中所有的項(xiàng)目所使用的方法為()(單)A.move B.remove C.clear D.removeitem 94.在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過程： 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程序運(yùn)行后，單擊命令按鈕，先后在兩個(gè)輸入對話框中分別輸入456和111,則輸出結(jié)果是()(單)A.456 B.111 C.567 D.111456 95.傳值：形參得到的是實(shí)參的值，形參值的改變不會影響實(shí)參的值。在定義形參前加關(guān)鍵字Byval。

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

97.以下程序的作用是單擊Check1檢查框?qū)⑹沟肨ext1文本框的字體在”加粗“和”常規(guī)“之間進(jìn)行切換。

Private Sub Check1_Click()Text1.FontItalic = Not Text1.FontItalic End Sub 98.窗體中有一個(gè)名稱為Slider1的可選擇性刻度滑塊控件，要設(shè)置它的如下屬性值，可以編寫程序()(單)(1)Slider控件的滑塊處于最小位置時(shí)值為8(2)Slider控件的滑塊處于最大位置時(shí)值為72(3)單擊Slider控件兩端箭頭時(shí)，滑塊的增量值為2(4)單擊Slider控件的空白處時(shí)，滑塊的增量值為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.以下能判斷指針是否指向文件尾的函數(shù)是()(單)A.BOF B.LOC C.LOF D.EOF 00.窗體的過程Form_MouseDown(Button As Integer, Shift As Integer, X As Single, YAs Single)，有4個(gè)參數(shù)，關(guān)于這些參數(shù)，正確的描述是()(單)A.通過Button參數(shù)判定當(dāng)前按下的是鍵盤上哪一個(gè)鍵 B.Shift參數(shù)只能用來確定是否按下Shift鍵

C.Shift參數(shù)只能用來確定是否按下Alt和Ctrl鍵 D.參數(shù)x,y用來設(shè)置鼠標(biāo)當(dāng)前位置的坐標(biāo)

01.設(shè)組合框Combo1中有3個(gè)項(xiàng)目，則以下能刪除最后一項(xiàng)的語句是()(單)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【標(biāo)準(zhǔn)】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