第一篇：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í)器對(duì)象每隔5秒鐘產(chǎn)生一個(gè)時(shí)鐘事件(Timer事件)，則其Interval屬性值應(yīng)設(shè)置為()(單)A.5

B.300

C.500

D.5000 3.下列的()對(duì)象支持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.用戶在屏幕上畫(huà)出應(yīng)用程序界面，并設(shè)置好對(duì)象的屬性，系統(tǒng)便可以自動(dòng)生成程序代碼，這稱為()(單)A.面向?qū)ο蟮某绦蛟O(shè)計(jì)

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

C.事件驅(qū)動(dòng)的編程機(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集成開(kāi)發(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集成開(kāi)發(fā)環(huán)境中，在()中編寫(xiě)代碼(單)A.狀態(tài)欄

B.屬性列表框

C.代碼框

D.標(biāo)題欄

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

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

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

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

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

B.Timer1.Interval=5

C.Timer1.Interval=50 D.Timer1.Interval=500 15在窗體上畫(huà)一個(gè)名稱為Command1的命令按鈕，然后編寫(xiě)如下事件過(guò)程： 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òng)窗體 D.對(duì)于多重窗體程序中，單獨(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í)行如下兩條語(yǔ)句，窗體上顯示的是()(單)A=9.8596 Print Format(a,“000.00”)A.0,009.86 B.9.86 C.009.86 D.0,009.86

23下列說(shuō)法中正確的是：為了保存一個(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è)置該對(duì)象的()屬性值為T(mén)rue(單)A.Text B.MultiLine C.Style D.Visible 25.若要將窗體從內(nèi)存中卸載，其實(shí)現(xiàn)的方法或語(yǔ)句是()(單)A.Show B.Unload C.Load D.Hide 26.以下選項(xiàng)中，不是VB標(biāo)準(zhǔn)控件的是()(單)A.命令按鈕 B.定時(shí)器 C.通用對(duì)話框 D.單選框

27在窗體上畫(huà)一個(gè)名稱為Command1的命令按鈕，然后編寫(xiě)如下程序： 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在窗體上畫(huà)一個(gè)名稱為T(mén)ext1的文本框，然后畫(huà)一個(gè)名稱為HScroll1的滾動(dòng)條，其Min和Max屬性分別為0和100。程序運(yùn)行后，如果移動(dòng)滾動(dòng)框，則在文本框中顯示滾動(dòng)條的當(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.在窗體上畫(huà)一個(gè)名稱為Command1的命令按鈕，然后編寫(xiě)如下事件過(guò)程： 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)行后，如果在輸入對(duì)話框中輸入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í)行語(yǔ)句Print a ＞b ＞ c后，窗體上顯示的是()(單)A.True B.False C.1 D.出錯(cuò)信息

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

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

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

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

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

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

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

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

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

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

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

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

B)“中國(guó)人民”

C)“中共人民”

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

A)Val(”123asd“)& 2000 B)Val(”123asd“)+ 2000 C)Str(123)& ”2000“ D)Str(123)+”2000“ 54假設(shè)在窗體上建立了一個(gè)通用對(duì)話框，其名稱為CommonDialog1，然后畫(huà)一個(gè)命令按鈕Command1,并編寫(xiě)如下事件過(guò)程： 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è)“打開(kāi)”對(duì)話框，此時(shí)在“文件類型”對(duì)話框中顯示的是（）

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

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

C)、D)：

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

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

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

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.下面說(shuō)法不正確的是()A)滾動(dòng)條的重要事件是Change和Scroll B)框架的主要作用是將控件進(jìn)行分組，以完成各自相對(duì)獨(dú)立的功能 C)組合框是組合了文本框和列表框的特性而形成的一種控件

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

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

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

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

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

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

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

】。

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

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

】屬性設(shè)置。

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

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

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)對(duì)應(yīng)的VB表達(dá)式是【 】。81.與下列數(shù)學(xué)式2a(7＋b)對(duì)應(yīng)地VB表達(dá)式是【 】。82.在VB中，字符串常量要用【 】括起來(lái)。83.下面的事件不屬于鼠標(biāo)器事件的是()(單)A.MouseDown事件 B.MouseUp事件 C.MouseMove事件 D.Move事件 84.下面的事件不屬于鍵盤(pán)事件的是()(單)A.KeyPress事件 B.KeyDown事件 C.KeyUp事件 D.KeyMove事件

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

86.以下程序是求最大公約數(shù)和最小公倍數(shù)的程序，在【】處填寫(xiě)合適的關(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.百元買百雞問(wèn)題： 假定小雞每只5角,公雞每只2元，母雞每只3元?，F(xiàn)在有100元錢(qián)要求買100只雞，以下程序列出了所有可能的購(gòu)雞方案。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 其中【】處書(shū)寫(xiě)正確的是（）(單)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.在窗體上畫(huà)一個(gè)命令按鈕，然后編寫(xiě)如下事件過(guò)程： 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è)輸入對(duì)話框中分別輸入456和111,則輸出結(jié)果是()(單)A.456 B.111 C.567 D.111456 95.傳值：形參得到的是實(shí)參的值，形參值的改變不會(huì)影響實(shí)參的值。在定義形參前加關(guān)鍵字Byval。

96.以下利用SUB關(guān)鍵字定義的子過(guò)程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è)置它的如下屬性值，可以編寫(xiě)程序()(單)(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.窗體的過(guò)程Form_MouseDown(Button As Integer, Shift As Integer, X As Single, YAs Single)，有4個(gè)參數(shù)，關(guān)于這些參數(shù)，正確的描述是()(單)A.通過(guò)Button參數(shù)判定當(dāng)前按下的是鍵盤(pán)上哪一個(gè)鍵 B.Shift參數(shù)只能用來(lái)確定是否按下Shift鍵

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

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

第二篇：算法與程序設(shè)計(jì)VB試題與答案08

VB08

1、打開(kāi)“考生文件夾781”中的文件“test4.vbp”，完善Command1_Click事件代碼并保存。

實(shí)現(xiàn)功能：回文字符串是指一個(gè)字符串從左往右讀與從右往左讀是一樣的，如“ABCBA”，“123321”等等。輸入一個(gè)字符串，若是回文字符串，則輸出“Yes”，否則輸出“No”。使用文本框Text1輸入字符串，使用文本框Text2輸出結(jié)果。

Private Sub Command1_Click()Dim s As String Dim ok As String Dim i As Integer s = Text1.Text ok = “Yes” For i = 1 To ①

If Mid(s, i, 1)<> ② Then ok = “No” Next i ③ End Sub ①len(s)2 ②Mid(s, len(s)+1-i, 1)③text2.text=ok

2、打開(kāi)文件“考生文件夾606工程1.vbp”，完善Command1_Click事件代碼并保存。

實(shí)現(xiàn)功能：當(dāng)單擊“計(jì)算1+2+3+…+100”按鈕后，文本框Text1顯示1+2+3+…+100的值。

Private Sub Command1_Click()Dim s As Integer Dim i As Integer s = ①

For i = 1 To ② s = ③ Next i Text1.Text = Str(④)End Sub ①0 ②100 ③s+i ④s

3、打開(kāi)“考生文件夾779test2.vbp”，完善Command1_Click事件代碼并保存。

實(shí)現(xiàn)功能：輸入一個(gè)正整數(shù)，計(jì)算并輸出它的各位數(shù)字之和。如輸入123，則輸出6。使用文本框Text1輸入正整數(shù)，使用文本框Text2輸出計(jì)算結(jié)果。

Private Sub Command1_Click()Dim x As Integer Dim s As Integer x = Val(Text1.Text)① Do s = s + ② x = x 10 Loop Until x = 0 ③ End Sub ①s=0 ②x mod 10 ③text2.text=str(s)

4、打開(kāi)文件“考生文件夾607工程1.vbp”，完善Command1_Click事件代碼并保存。

實(shí)現(xiàn)功能：當(dāng)單擊“顯示”按鈕后，隨機(jī)產(chǎn)生10個(gè)屬于區(qū)間[0，100)的自然數(shù)，并保存于數(shù)組a中，然后在窗體上顯示這10個(gè)數(shù)及其平均值。(注：學(xué)生運(yùn)算結(jié)果有可能跟樣圖中數(shù)值不一致)

Private Sub Command1_Click()Dim a(9)As Integer Dim s As Single Dim i As Integer Me.Cls s = 0 Randomize For i = 0 To ① a(i)= Int(Rnd * 100)Print a(i)Next i For i = 0 To 9 s = ②

③

Print “這10個(gè)自然數(shù)的平均值=”;s / 10 End Sub ①9

②s+a(i)③next i

5、打開(kāi)文件“考生文件夾609工程1.vbp”，完善Form_Click事件代碼并保存。

實(shí)現(xiàn)功能：?jiǎn)螕舸绑w時(shí)在窗體上打印下面所示的圖案。

**** *** ** *

Private Sub Form_Click()Dim i As Integer Dim j As Integer For i = ① To 1 Step-1 For j = 1 To i ② Next j Print ③ End Sub ①4

②print “*”;③next i

6、打開(kāi)文件“考生文件夾610工程1.vbp”，完善Command1_Click事件代碼并保存。

實(shí)現(xiàn)功能：當(dāng)單擊“顯示”按鈕后，在窗體上顯示下面的圖形：

@ @@ @@@ @@@@ @@@@@ @@@@@@

Private Sub Command1_Click()Dim i As Integer Dim j As Integer For i = 1 To 6 For j = 1 To ① Print ② Next ③ Print Next i End Sub ①i

②”@”;③j

第三篇：算法與程序設(shè)計(jì)VB試題與答案10

VB10

1、打開(kāi)文件“考生文件夾178工程1.vbp”，完善Command1_Click事件及fac函數(shù)并保存。

實(shí)現(xiàn)功能：用遞歸法求3!+5!+7!的值，將結(jié)果輸出到窗體上。

Public Function fac(a As Integer)As Integer If a = 1 Then fac = ① Else fac = a * ②(a1)+ fib(n1)End If End Function

Private Sub Command1_Click()Dim sum As Integer sum = s(③)Print “sum=”;sum End Sub ①1 ②n ③100

6、打開(kāi)“考生文件夾776”中的文件“蝸牛爬竹.vbp”，完善Command1_Click事件代碼并保存。

實(shí)現(xiàn)功能：青竹高17米，蝸牛從青竹底端慢慢爬向頂端，晴天每天爬1.4米，雨天每天爬1.8米，若蝸牛爬到頂端用了11天，計(jì)算晴天、雨天各多少天？（晴天對(duì)應(yīng)文本框text1，雨天對(duì)應(yīng)文本框text2）

Private Sub Command1_Click()Dim x As Single Dim y As Integer y =(171.4)① = 11-y Text1.Text = Str(②)+ “天” Text2.Text = Str(③)+ “天” End Sub ①x ②x ③y

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

VB程序設(shè)計(jì)試題及答案

（一）一、單選題

1.VB6.0是一種面向 B 的編程環(huán)境。

(A)機(jī)器(B)對(duì)象

(C)過(guò)程(D)應(yīng)用

2.要使FormI窗體的標(biāo)題欄顯示“歡迎使用VB”，以下 D 語(yǔ)句是正確的。

(A)Forml.Caption=“歡迎使用VB”

(B)Forml.Caption='歡迎使用VB'

(C)Forml.Caption=歡迎使用VB

(D)Forml.Caption=“歡迎使用VB”

3.若要使命令按鈕不可操作，要對(duì) A 屬性進(jìn)行設(shè)置。

(A)EnabIed(B)Visible

(C)Backcolor(D)Caption

4.如果在窗體上已經(jīng)創(chuàng)建了一個(gè)文本框?qū)ο骉extI，可以通過(guò) C 事件獲得輸入鍵值的ASCII碼。

(A)Change(B)LostFocus

(C)KeyPress(D)GotFocus 5.下面 A 是合法的變量名。

(A)X_yz(B)123ab。(C)integer(D)X-Y 6.以下關(guān)系表達(dá)式 中，其值為False的是 A。

(A)“ABC”>“AbC”(B)“女”>“男”

(C)“BASIC”=UCase(“basic)(D)”123“<”23“

7.為了給x、y、z三個(gè)變量賦初值1，下面正確的賦值語(yǔ)句是 A。

(A)x=1:y=1:z=1(B)x=1,y=1,z=

1(C)x=y=z=1(D)xyz=1

8.VB提供了結(jié)構(gòu)化程序設(shè)計(jì)的三種基本結(jié)構(gòu)，三種基本結(jié)構(gòu)是 D。

(A)遞歸結(jié)構(gòu)、選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)

(B)選擇結(jié)構(gòu)、過(guò)程結(jié)構(gòu)、順序結(jié)構(gòu)

(C)過(guò)程結(jié)構(gòu)、輸入輸出結(jié)構(gòu)、轉(zhuǎn)向結(jié)構(gòu)

(D)選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)、順序結(jié)構(gòu)

9.下面If語(yǔ)句統(tǒng)計(jì)滿足性別為男、職稱為副教授以上、年齡小于40歲條件的人數(shù)，不正確的語(yǔ)句是 D。

(A)If sex=”男“ And age=4O And InStr(duty，”教授“)>O Then n=n+l

(B)If sex=”男“ And age=4O And(duty=”教授“ Or duty=”副教授“)Then n=n+l

(C)If sex=”男“ And age=4O And Right(duty，2)=”教授“ Then n=n+l

(D)If sex=”男“ And age=4O And duty=”教授“ And duty=”副教授“ Then n=n+l

10.下列關(guān)于Do…Loop循環(huán)結(jié)構(gòu)執(zhí)行循環(huán)次數(shù)的描述正確的是 D。(A)Do While…Loop循環(huán)和Do…Loop Until循環(huán)至少都執(zhí)行一次(B)Do While…Loop循環(huán)和Do…Loop Until循環(huán)可能都不執(zhí)行

(C)Do While…Loop循環(huán)至少執(zhí)行一次和Do…Loop Until循環(huán)可能不執(zhí)行

(D)Do While…Loop循環(huán)可能不執(zhí)行和Do…Loop Until循環(huán)至少執(zhí)行一次

11.以下 B 是正確的For…Next結(jié)構(gòu)。

(A)For x=1 To Step 10(B)For x=3 To-3 Step-3

…

…

Next x Next x(C)For x=1 To 10(D)For x=3 to 10 step re: … …

Next x Next y

If i=10 Then GoTO re

12.如下數(shù)組聲明語(yǔ)句，B 是正確的。

(A)Dim a[3,4] As Integer

(B)Dim a(3,4)As Integer

(C)Dim a(n,n)As Integer

(D)Dim a(3 4)As Integer

13.下列語(yǔ)句中（假定變量n有值），能正確聲明可變長(zhǎng)數(shù)組的是 A。

(A)Dim a()As Integer(B)Dim a()As Integer

ReDim a(n)ReDim a(n)As String

(C)Dim a()As Integer(D)Dim a(10)As Integer ReDim a(3, 4)ReDim a(n+10)

ReDim Preserve a(4, 4)

14.要想從子過(guò)程調(diào)用后返回兩個(gè)結(jié)果，下面子過(guò)程語(yǔ)句說(shuō)明合法的是

C。

(A)Sub f2(ByVal n%, ByVal m%)(B)Sub f1(n%, ByVal m%)

(C)Sub f1(n%, m%)(D)Sub f1(ByVal n%, m%)

15.設(shè)有如下程序段：

Public Sub F1(n%)

…

n=3*n+…

End Sub

Private Sub Command1_Click()

Dim n%, m%

n=3

m=4

…

‘調(diào)用F1語(yǔ)句

…

End Sub

則在Command1_Click事件中有效的調(diào)用語(yǔ)句是 B。(A)Call F1(n+m)(B)Call F1(m)(C)Call F1(5)(D)Call F1(m+5)

16.用來(lái)設(shè)置粗體字的屬性是 C。

(A)FontItalic(B)FontName(C)FontBold(D)FontSize

17.假定定時(shí)器的Interval屬性為1000，Enabled屬性為T(mén)rue，調(diào)用下面的事件過(guò)程，程序運(yùn)行結(jié)束后變量x的值為 D。

Dim x As Integer

Sub Timer1_Timer()

For i=1 to 10

x=x+Next i

End Sub

(A)1000(B)10000(C)10(D)以上都不對(duì)

18.在下列關(guān)于通用對(duì)話框的敘述中，錯(cuò)誤的是 B。

(A)CommonDialog1.ShowFont顯示“字體”對(duì)話框

(B)在“打開(kāi)”或“另存為”對(duì)話框中，用戶選擇的文件名可以經(jīng)FileTitle屬性返回

(C)在“打開(kāi)”或“另存為”對(duì)話框中，用戶選擇的文件名機(jī)器路徑可以經(jīng)FileName屬性返回

(D)

19.當(dāng)用戶按下并且釋放一個(gè)鍵后會(huì)觸發(fā)KeyPress、KeyUp和KeyDown事件，這三個(gè)事件發(fā)生的順序是 C。

(A)KeyPress、KeyDown、KeyUp(B)KeyDown、KeyUp、KeyPress(C)KeyDown、KeyPress、KeyUp

(D)沒(méi)有規(guī)律

20.在下面關(guān)于順序文件的描述中，正確的是 C。(A)順序文件中每行的長(zhǎng)度都是相同的。(B)可以通過(guò)編程對(duì)文件中的某行方便地進(jìn)行修改

(C)數(shù)據(jù)以ASCII碼的形式存放在文件中，所以可通過(guò)記事本打開(kāi)(D)文件的組織結(jié)構(gòu)復(fù)雜 21.隨機(jī)文件是因?yàn)?C。

(A)文件中的內(nèi)容是通過(guò)隨機(jī)數(shù)產(chǎn)生的(B)文件中的記錄號(hào)通過(guò)隨機(jī)數(shù)產(chǎn)生的(C)可對(duì)文件中的記錄根據(jù)記錄號(hào)隨機(jī)地讀/寫(xiě)(D)文件的每條記錄的長(zhǎng)度是隨機(jī)的

22.從磁盤(pán)上讀入一個(gè)文件名為“c:t1.txt”順序文件，如下 A 正確。

(A)F=“c:t1.txt”

Open F For Input As #1(B)F=“c:t1.txt”

Open “F” For Input As #2(C)Open “c:t1.txt” For Input As #1

(D)Open c:t1.txt For Input As #2

23.坐標(biāo)度量單位可由通過(guò)來(lái) D 改變。

(A)Drawstyle屬性(B)DrawWidth屬性

(C)Scale方法(D)ScaleMode屬性

24.指令“Circle(1000, 1000), 500, 8,-6,-3”將繪制 A。(A)畫(huà)圓(B)橢圓(C)圓弧(D)扇形 25.用ADO數(shù)據(jù)控件建立與數(shù)據(jù)源的鏈接，設(shè)置操作過(guò)程按 A 順序進(jìn)行。

①選擇數(shù)據(jù)源連接方式；②選擇數(shù)據(jù)庫(kù)類型；③指定數(shù)據(jù)庫(kù)文件名；④指定記錄源

(A)① ② ③ ④(B)② ③ ④ ①

(C)③ ① ② ④(D)① ③ ② ④

二、填空題

1．VB是建立在BASIC語(yǔ)言基礎(chǔ)上的可見(jiàn) 化編程語(yǔ)言或編程環(huán)境。

2．在窗體上已建立多個(gè)控件如Text1、Label1、Command1，若要程序一運(yùn)行時(shí)焦點(diǎn)就定位在Command1控件上，應(yīng)對(duì)Command1控件設(shè)置 TabIndex 屬性的值為 0。

3．在VB中，1234、123456&、1.2346E+5、1.2346D+5這4個(gè)常數(shù)分別表示 整形、長(zhǎng)整形、單精度、雙精度 類型。4．表示x是5的倍數(shù)或是9的倍數(shù)的邏輯表達(dá)式為 x mod 5 = 0 or x mod 9=0。

5．?dāng)?shù)組聲明時(shí)下標(biāo)下界默認(rèn)為0，利用 Opation Base 1 語(yǔ)句可以使下標(biāo)為1。

6．傳地址方式是當(dāng)過(guò)程被調(diào)用時(shí)，形參和實(shí)參共享 存儲(chǔ)單元。7．窗體中的模塊級(jí)變量應(yīng)在 窗口模塊 段聲明，它作用于該窗體的全局范圍。

8．當(dāng)用戶單擊滾動(dòng)條的空白處時(shí)，滑塊移動(dòng)的增量值由 LargeChange 屬性決定。

9．如果菜單標(biāo)題的某個(gè)字母前輸入一個(gè)“&”符號(hào)，那么該字母就成了熱鍵字母；如果建立菜單時(shí)在標(biāo)題文本框中輸入一個(gè)“1)

x(0)= 1

x(1)= 1

For i = 2 To n1)+ x(i1

Print x(i)，If(i + 1)Mod 5 = 0 Then Print

Next End Sub

輸出結(jié)果： 1 2 3 8 13 21 34(2)Public Function f(m%, n%)

Do While m< >n

Do While m> n: m=m-n: Loop

Do While m< n: n=n-m: Loop

Loop

f=m

End Function

Print f(24, 18)

End Sub 輸出結(jié)果：6(3)

Public x as Integer

Private Sub Fomr_Click()

Dim x as Integer

x=10

print ＂x=＂;x

End Sub 輸出結(jié)果: x=10 2.補(bǔ)充程序

(1)以下是冒泡法排序的程序，要求將數(shù)組里的數(shù)按升序排列，將其補(bǔ)充完整。

Private Sub Command1_Click()

Dim a(), iMin%, n%, i%, j%, t%

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

n = ubound(a)' 獲得數(shù)組的下標(biāo)上界

For i = 0 To n-1

For j = 0 To n-i-1

If a(j)>a(i)Then

t = a(j): a(j)= a(j + 1): a(j + 1)= t

End If

Next j

Next i

For i = 0 To n Print a(i);Next i End Sub

(2)用遞歸的方法求n!Private Sub Command1_Click()Print ”fac(4)=“;fac(4)End Sub

Public Function fac As Integer If n = 1 Then

fac = 1 Else

Fac=fac*n End If End Function

VB程序設(shè)計(jì)試題及答案

（三）一、單選題 1.Visual Basic是一種面向?qū)ο蟮目梢暬绦蛟O(shè)計(jì)語(yǔ)言，采取了 A 的編程機(jī)制。

(A)事件驅(qū)動(dòng)(B)按過(guò)程順序執(zhí)行(C)從主程序開(kāi)始執(zhí)行(D)按模塊順序執(zhí)行

2.若要使標(biāo)簽控件顯示時(shí)不覆蓋其背景內(nèi)容，要對(duì) D 屬性進(jìn)行設(shè)置。

n=n*j n=n*j

Next j Next j

Print n Print n Next I Next i(C)n=1(D)n=1(A)Backcolor(B)BorderStyle(C)Forecolor(D)Backstyle 3.在Visual Basic中最基本的對(duì)象是 C，它是應(yīng)用程序的基石，是其他控件的容器。

(A)文本框(B)命令按鈕(C)窗體

(D)標(biāo)簽

4.要判斷在文本框是否按下Enter鍵，應(yīng)在文本框的 D 事件中判斷。(A)Change(B)KeyDown(C)Click(D)KeyPress 5.數(shù)學(xué)表達(dá)式3≤x

(A)3<=x<10(B)3<=x AND x>10(C)x>=3 Or x<10(D)x>=3 AND x<10 6.Rnd函數(shù)不可能為下列 B 值。

(A)0(B)1(C)0.1234(D)0.0005 7.賦值語(yǔ)句:a=123+Mid(”123456“，3，2)執(zhí)行后，a變量中的值是 D。

(A)”12334“(B)123(C)12334(D)157 8.對(duì)于語(yǔ)句If x=l Then y=l，下列說(shuō)法正確的是 C。

(A)x=l和y=l均為賦值語(yǔ)句

(B)x=l和y=l均為關(guān)系表達(dá)式

(C)x=l為關(guān)系表達(dá)式，y=l為賦值語(yǔ)句

(D)x=l為賦值語(yǔ)句，y=l為關(guān)系表達(dá)式

9.下面程序段表示求兩個(gè)數(shù)中的大數(shù)，D 不正確。

(A)Max=IIf(x>y，x，y)(B)If x>y Then Max=x Else Max=y(C)Max=x(D)Ify>=x Then Max=y If y>=x Then Max=y Max=x 10.當(dāng)在文本框中輸入“ABCD”4個(gè)字符時(shí)，窗體上顯示的是 C。

Private Sub Text1_Change()Print Text1;End Sub(A)ABCD(B)A(C)AABABCABCD(D)A

B AB

C ABC

D ABCD 11.下列哪個(gè)程序段不能分別正確顯示1！、2！、3！、4！的值 B。(A)For i=1 to 4(B)For i=1 to 4

n=1 For j=1 to i

For j=1 to I n=1

For j=1 to4 j=1

n=n*j Do While j<=4

Print n n=n*j Next j Print n j=j+1

Loop

12.如下數(shù)組聲明語(yǔ)句，則數(shù)組a包含元素的個(gè)數(shù)有 A。

Dim a(3,-2 to 2, 5)

(A)120(B)75(C)60(D)13 13.以下程序的輸出結(jié)果是 D。

Dim a

a=Array(1, 2, 3, 4, 5, 6, 7)For i=Lbound(a)to Ubound(a)

a(i)=a(i)*a(i)Next i Print a(i)

(A)49(B)0(C)不確定(D)程序出錯(cuò)

14.在過(guò)程中定義的變量，若希望離開(kāi)該過(guò)程后，還能保存過(guò)程中局部變量的值，則應(yīng)使用關(guān)鍵字 D 在過(guò)程中定義局部變量。

(A)Dim(B)Private(C)Public(D)Static 15.如下程序，運(yùn)行的結(jié)果是 B。

Dim a%, b%, c%

Public Sub p1(x%, y%)

Dim c%

x=2*x: y=y+2: c=x+y End Sub

Public Sub p2(x%, ByVal y%)

Dim c%

x=2*x: y=y+2: c=x+y End Sub

Private Sub Command1_Click()

a=2: b=4: c=6

Call p1(a, b)

Print “a=”;a;“b=”;b;“c=”;c

Call p2(a, b)

Print “a=”;a;“b=”;b;“c=”;c

End Sub

(A)a=2 b=4 c=6(B)a=4 b=6 c=10 a=4 b=6 c=10 a=8 b=8 c=16(C)a=4 b=6 c=6(D)a=4 b=6 c=14 a=8 b=6 c=6 a=8 b=8 c=6 16.復(fù)選框的Value屬性為1時(shí)，表示 B。

(A)復(fù)選框未被選中(B)復(fù)選框被選中

(C)復(fù)選框內(nèi)有灰色的勾(D)復(fù)選框操作有誤

17.下面關(guān)于菜單的說(shuō)法中，錯(cuò)誤的是 B。

(A)每個(gè)菜單項(xiàng)都是一個(gè)控件與其他控件一樣也有自己的屬性和事件

(B)除了Click事件之外，菜單項(xiàng)還能響應(yīng)其他的，如DbClick事件

(C)菜單項(xiàng)的快捷鍵不能任意設(shè)置

(D)在程序執(zhí)行時(shí)，如果菜單項(xiàng)的Enabled屬性為False，則該菜單項(xiàng)變成灰色，不能被用戶選擇

18.下面關(guān)于多重窗體的敘述中，正確的是 B。(A)作為啟動(dòng)對(duì)象的Main子過(guò)程中能放在窗體模塊中(B)如果啟動(dòng)對(duì)象是Main子過(guò)程，則程序啟動(dòng)時(shí)不加載任何窗體，以后由該過(guò)程根據(jù)不同情況決定是否加載或加載哪一個(gè)窗體

(C)沒(méi)有啟動(dòng)窗體，程序不能執(zhí)行(D)以上都不對(duì)

19.當(dāng)用戶將焦點(diǎn)移到另一個(gè)應(yīng)用程序時(shí)，當(dāng)前應(yīng)用程序的活動(dòng)窗體將 D。(A)發(fā)生DeActivate事件(B)發(fā)生LostFocus事件

(C)發(fā)生DeActivate和LostFocus事件(D)DeActivate和LostFocus事件都不發(fā)生 20.順序文件是因?yàn)?D。

(A)文件中的數(shù)據(jù)按每行的長(zhǎng)度從小到大排序好的(B)文件中的數(shù)據(jù)按某個(gè)關(guān)鍵數(shù)據(jù)項(xiàng)從大到小進(jìn)行排序(C)文件中的數(shù)據(jù)按某個(gè)關(guān)鍵數(shù)據(jù)項(xiàng)從小到大進(jìn)行排序(D)數(shù)據(jù)按進(jìn)入的先后順序存放的，讀出也是按原寫(xiě)入的先后順序讀出

21.文件號(hào)最大可取值為 B。

(A)255(B)511(C)512(D)256 22.Print #1, STR$1中的Print是 A。

(A)文件的寫(xiě)語(yǔ)句(B)在窗體上顯示的方法

(C)子程序名(D)以上均不是

23.以下的屬性和方法中 C 可重定義坐標(biāo)系。(A)Drawstyle屬性(B)DrawWidth屬性

(C)Scale方法(D)ScaleMode屬性 24.封閉圖形的填充方式由下列 C 屬性決定。(A)DrawStyle, DrawMode(B)AutoRedraw, ClipControls

(C)FillStyle, FillColor(D)ForeColor, BorderColor 25.下列字符串中，D 不包含在ADO數(shù)據(jù)控件的ConnectionString屬性中。(A)Microsoft Jet 4.0 OLE DB Provider(B)Data Source=C:Mydb.mdb(C)Persist Security Info=False(D)2-adCmdTable

二、填空題

1．在代碼窗口對(duì)窗體的BorderStyle、MaxButton屬性進(jìn)行了設(shè)置，但運(yùn)行后沒(méi)有效果，原因是這些屬性 在運(yùn)行時(shí)設(shè)計(jì)是無(wú)效的。

2．在文本框中，通過(guò) SelStart 屬性能活得當(dāng)前插入點(diǎn)所在的位置。

3．表達(dá)式Ucase(Mid(“abcdefgh”, 3, 4))的值是 CDEF。4．已知a=3.5，b=5.0，c=2.5，d=True，則表達(dá)式：a>=0 And a+c>b+3 Or Not d的值是 False。

5．要獲得動(dòng)態(tài)數(shù)組的上界通過(guò) UBound 函數(shù)，下界通過(guò) LBound 函數(shù)。

6．由Array函數(shù)建立的數(shù)組，其變量類型必須是 variant 類型。

7．VB中的變量按其作用域分為全局變量、模塊變量和 局部變量 變量。

8．復(fù)選框的 Value 屬性設(shè)置為2——Grayed時(shí)，變成灰色，禁止用戶選擇。

9．滾動(dòng)條響應(yīng)的重要事件有 Scroll 和Change。10．假定有一個(gè)通用對(duì)話框控件CommonDialog1，除了用COmmonDialog1.Action=3顯示顏色對(duì)話框之外，還可以用 showcolor 方法顯示。

11．窗體Form1的左上角坐標(biāo)為(-200, 250)，窗體Form1的右下角的坐標(biāo)為(300,-150)，則X軸的正向向 右，Y軸的正向向 上。

12．使用Circle方法畫(huà)扇形，起始角、終止角取值范圍為 0~2π。

13．在運(yùn)行狀態(tài)改變ADO數(shù)據(jù)控件的數(shù)據(jù)源連接屬性后，必須使用 Refresh 方法激活這些變化。14．VB中工程文件的擴(kuò)展名為 vbg。

15．如果在窗體上已經(jīng)創(chuàng)建了一個(gè)文本框?qū)ο骉ext1，可以通過(guò) Keypress 事件獲得輸入鍵值的ASCII碼。16．VB中對(duì)象的三要素是 屬性、事件 和 方法。

三、編程應(yīng)用題 1.程序閱讀

(1)Private Sub Command1_Click()

Dim s as String, i%

s=＂abcd＂

For i=Len(s)to 1 step-1 Print Mid(s, i, 1)Next i End Sub 輸出結(jié)果：

d c b a(2)Sub Swap1(ByVal x%, ByVal y%)Dim t% t = x: x = y: y = t End Sub Sub Swap2(ByRef x%, ByRef y%)Dim t% t = x: x = y: y = t End Sub Sub Command1_Click()

Dim a%, b% a = 10: b = 20 Print ”調(diào)用Swap1前 a和b的值為：“;a;b Call Swap1(a, b)Print ”調(diào)用Swap1后按傳值方式 a和b的值為：“;a;b a = 10: b = 20 Call Swap2(a, b)Print ”調(diào)用Swap2后按傳地址方式 a和b的值為：“;a;b End Sub 輸出結(jié)果

調(diào)用Swap1前 a和b的值為：10 20 調(diào)用Swap1后按傳值方式 a和b的值為：10 20 調(diào)用Swap2后按傳地址方式 a和b的值為： 20 10(3)Private Sub Command1_Click()

Dim x%, y%, z%

x=242: y=44

z=x*y

Do Until x=y

If x>y Then x=x-y Else y=y-x

Loop

Print x, z/x End Sub

輸出結(jié)果: 22 484 2.補(bǔ)充程序

(1)以下是求1～18之間某個(gè)數(shù)的階乘的程序，具體的數(shù)值n由滾動(dòng)條HScroll1獲得，結(jié)果顯示在窗體下部的兩個(gè)Label標(biāo)簽里。補(bǔ)充完整如下程序。

Private Sub HScroll1_Change()Dim i As Integer, s As Double s = 1

n = Hscroll1.Value If n <> 0 Then For i = 1 To n s = s*i Next i End If

Label2.Caption = n & ”!= " Label3.Caption = s End Sub

(2)以下程序的功能是：已知數(shù)組a，刪除數(shù)組中某個(gè)元素。

Private Sub Command1_Click()

Dim a(), key%, i%, j%

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

key=9

For i=0 to UBound(a)If a(i)=9 Then

For j=i+1 to UBound(a)a(j)=a(j+1)

Next j

ReDim a(j)=a(i)

MsgBox(＂刪除完成＂)

Exit Sub End If

Next i

MsgBox(＂找不到要?jiǎng)h除的元素＂)End Sub

讀程序并填空 1．給定程序的功能是輸出一組數(shù)的最大值和最小值，在畫(huà)線處填入適當(dāng)內(nèi)容，將程序補(bǔ)充完整。

Private Sub

End Function

4．給定程序的功能是建立并輸出除主、副對(duì)角線上的元素為5外，其余元素都為1的方陣，在畫(huà)線處填入適當(dāng)內(nèi)容，將程序補(bǔ)充完整。Command1_Click()

X=Array(-112, 18, 20,-5,-100, 82, 91, 56, 78, 99, Private Sub Command1_Click()100)

Max=x(0)

Min=x(0)

For I=1 To 10

If x(I)>Max Then

_____________

End if

If x(I)>Min Then

_____________

End if

Next I

Print “MAX=”;Max , “MIN=”;Min

End Sub 2．若A2+B2+C2 , 則A，B，C稱為一組勾股數(shù)，如下程序是找出100以內(nèi)的所有勾股數(shù)，并按A，B，C順序輸出。請(qǐng)?jiān)诋?huà)線處填入適當(dāng)內(nèi)容。

Private Sub Command1_Click()

For A=2 To 99

For B=A+1 To 100

C=_____________

If ____________ And C<=100 Then

Print A, B, C

End If

Next B Next A End Sub 3．本程序的功能是計(jì)算輸入數(shù)的階乘，請(qǐng)?jiān)诋?huà)線處填上適當(dāng)?shù)膬?nèi)容使程序完整。

Private Sub form_Click()

Do

N=Val(InputBox(“請(qǐng)輸入一個(gè)大于0的整數(shù)：”))

Loop Until N>0

Print Fact(N)

End Sub

Private Function Fact(M)

Fact= _______________（1分）

For I=2 To ____________（2分）

Fact = ______________（2分）

Next I

Dim A(10,10)

For I=1 To 10

For J=_______________（2分）

If __ _____________ Then A(I, J)=5 Else A(I, J)=1（1分）Next J Next I For I=1 To 10

For J=1 To 10

Print A(I, J);Next J

__ __________

（2分）Next I

End Sub

編寫(xiě)一個(gè)程序，在程序運(yùn)行時(shí)輸入一個(gè)0—99999之間的整數(shù)，判斷輸入的是幾位數(shù)，并在窗體輸出結(jié)果。

編寫(xiě)一個(gè)程序，在窗體上添加兩個(gè)命令按鈕，運(yùn)行程序時(shí)，單擊[開(kāi)始]按鈕，在窗體輸出1~100之間所有能被3整除的數(shù)。單擊[結(jié)束]按鈕，結(jié)束程序。

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

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

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

一、填空題

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

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

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

下事件過(guò)程填空。

Private Sub Cmdopen_ Click()、frm1.show End Sub 7．Visual Basic 6種類型的表達(dá)式是 算術(shù)表達(dá)式 字符串表達(dá)式 關(guān)系表達(dá)式 布爾表達(dá)式 日期表達(dá)式 對(duì)象表達(dá)式，Visual Basic根據(jù)表達(dá)式的_運(yùn)算符來(lái)確定表達(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ī)填寫(xiě)不完全，則給出提示信息，否則計(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）中的文字（歡迎您?。┑淖煮w變成粗體，用戶選中斜體復(fù)選框時(shí)，標(biāo)簽的字體變成斜體。若取消選中，則恢復(fù)原字體。單擊結(jié)束，則退出。4．任意輸入3個(gè)數(shù)，求大小排第二的那個(gè)數(shù)，寫(xiě)出程序代碼。