第一篇：可視化程序設計(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.Visual Basic程序中分隔各語句的字符是(:)

2.工程文件的擴展名是（vbp）

3.下列運算符中，運算級別最高的是（*）

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

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

x=5

For i = 1 To 20 Step 2

x=x+i5

Next i

Print x, i

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

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

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

x=5

For i = 1 To 20 Step 2

x=x+i5

Next i

9.向一個順序文件中寫數據時，（Append）是從文件末尾添加的方式打開順序文件。

10.Seek方法用于在（表）類型的記錄集中查找滿足條件的記錄。

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

12.如果要退出Do?Loop循環，可使用語句（Exit Do）。

13.在VB中，稱對象的數據為（屬性）。

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

15.使用Public Const語句聲明一個全局的符號常量時，該語句應放在（標準模塊的通用聲明段）。

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

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

18.把數值型轉換為字符（串）型需要使用下列哪一個函數？（Str）

19.以下敘述錯誤的是（KeyPress事件中可以識別鍵盤上某個鍵的按下與釋放）

20.用于設置或返回文件類型的屬性是（Pattern）。

21.要刪除列表框中的某一個項目，需要使用（ReMoveItem）方法。

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

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

24.編寫如下事件過程：

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

程序運行后，為了在窗體上輸出“BBBB”，應執行的操作為（同時按下ctrl、alt鍵和鼠標右鍵）

25.如果X是一個正實數，對X的第三位小數四舍五入的表達式是（0.01 * Int(100 *(X +0.005))）

第三篇：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)

第五篇：2014年4月份考試可視化程序設計(VB)第二次作業

2014年4月份考試可視化程序設計（VB）第二次作業

一、單項選擇題（本大題共100分，共 25 小題，每小題 4 分）

1.下列過程不能包含在標準模塊中定義的是（）。

A.事件過程

B.子過程

C.函數過程

D.公共過程

2.下列關于數據庫說法錯誤的是（）

A.一個表可以構成一個數據庫

B.多個表可以構成數據庫

C.一個表的每一條記錄中的各數據項具有相同的類型

D.同一個字段的數據具有相同的類型

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

A.List

B.value

C.Path

D.Pattern

4.下列關于菜單訪問鍵和快捷鍵的說法正確的是（）

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

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

C.可以為任意的菜單項都添加快捷鍵或訪問鍵

D.通過訪問鍵打開某個子菜單時，必須先使焦點位于其上一級菜單

5.要設置列表框的選擇方式，應使用（）屬性。

A.Columns

B.MultiSelect

C.Style

D.List

6.下面關于隨機文件的描述，不正確的是：（）

A.每條記錄的長度必須相同

B.一個文件中記錄號不必惟一

C.可通過編程對文件中的某條記錄方便地修改

D.文件的組織結構比順序文件復雜

7.下列說法正確的是（）

A.如果框架的Enable設為False，則框架內的所有控件都不可用。

B.時鐘控件的Visable屬性設為True時，該控件在程序運行時可見，設為False時，則不可見。

C.在列表框中能夠將項目按字母順序從大到小排列。

D.移動框架時，框架內的控件不隨之移動。

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

A.List Box

B.DriveListBox

C.DirListBox

D.FileListBox

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

A.全局變量

B.全局常量

C.全局數組

D.全局用戶自定義類型

10.通過設置Line控件的（）屬性可以繪制虛線、點劃線等多種樣式的直線。

A.Shape

B.Style

C.Fillstyle

D.Borderstyle

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

A.開頭

B.尾部

C.最后一個字節

D.最后一個記錄

12.下面的哪一項不能用來在模塊之間傳遞數據（）。

A.全局變量

B.對象屬性

C.全局數組

D.模塊級變量

13.數據控件用于設置指定數據控件所訪問的記錄來源的屬性是（）

A.RecordSource

B.DataSource

C.DatabaseName

D.RecordSetType

14.將通用對話框CommonDialog1的類型設置為“另存為”對話框，該調用該控件的（）方法。

A.ShowOpen

B.ShowColor

C.ShowSave

D.ShowFont

15.在下列關于對話框的敘述中，錯誤的是（）：

A.作為對話框窗體的Borderstyle、ControlBox、MaxButton和MinButton應分別設置為l、True、False和 False。

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

C.可以將對話框分成兩種類型：模式的和無模式。

D.語句frmAbout．Show將frmAbout作為無模式對話框顯示。

16.AVI動畫類似電影，由若干幀組成，Animation控件可以顯示（）的音頻視頻動畫（AVI文件）。

A.無聲

B.有聲

C.無聲和有聲都可以

D.單聲道

17.在用菜單編輯器設計菜單時，必須輸入的項有（）。

A.快捷鍵

B.標題

C.索引

D.名稱

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

A.Change

B.GotFocus

C.LostFocus

D.KeyPress

19.以下說法正確的是（）。

A.使用Data控件可以直接顯示數據庫中的數據

B.使用數據綁定控件可以直接訪問數據庫中的數據

C.使用Data控件可以對數據庫中的數據進行操作，卻不能顯示數據庫中的數據

D.Data 控件只有通過數據綁定控件才可以訪問數據庫中的數據

20.以下關于索引的說法，錯誤的是（）。

A.一個表可以建立一個到多個索引

B.每個表至少要建立一個索引

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

21.以下敘述錯誤的是（）

A.在KeyUp和KeyDown事件過程中，從鍵盤上輸入A和a是相同的B.在KeyUp和KeyDown事件過程中，從鍵盤上1和小鍵盤上的1看作不同數字

C.KeyPress事件中不能識別鍵盤上某個鍵的按下與釋放

D.KeyPress事件中可以識別鍵盤上某個鍵的按下與釋放

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

A.作為啟動對象的 main于過程只能放在窗體模塊內

B.如果啟動對象是 main子過程，則程序啟動時可不加載任何窗體，以后由該過程根據不同情況決定是否加載或加載哪一個窗體

C.沒有啟動窗體，程序不能執行

D.以上都不對

23.改變驅動器列表框的Drive屬性將引發（）事件。

A.Load

B.Click

C.Pattern change

D.Change

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

A.DrawStyle屬性

B.DrawWidth屬性

C.Scale方法

D.ScaleMode屬性

25.下面關于過程作用域，錯誤的描述是（）。

A.全局級過程的作用域為整個工程

B.在某一窗體模塊中定義的全局級過程，若被該模塊外的模塊所調用，必須在該過程名前加上窗體名稱

C.在不同模塊中定義的模塊級過程可以同名

D.在不同模塊中定義的工程級過程不能同名

答案：

一、單項選擇題（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