最全VB復(fù)習(xí)題含答案

1、 9 ”y，Al ： C A9 .F eAMAO-ri、* Cr-p Or1 fetwaM)w*AiuAlMv， M 6aM ，“6 E ton” CM， “t tKMetMS K“” Q4 CSVCM 山 KI 1 ，“|. .MMf ，”* *，0m LX公KAMI tFUM CWW9 , _L公。 c n* aM *，6*. *A At B”e ， “a ”Kut- A3 Pl C-UA “ UatS)*d *.A H UaUt U UU U4MM t CBMlUatUaKM* . g ”，xrftR-aR crtx mmv* mi anta araR Ml ，、3 mysr* sr u

2、 lfc1011 n i 41Ki.3C E5 腦 fl 0M ,1 “jrnK“、， fdc， MnoACaiub trm ft0 、r ，sx.0m ”，* j a1vMb?Prw LtH lunu * C 0 i 5DS一. “ VS ”. ，Mve，K B i finn l am* a ，一 aftQ_A_ 49 的輸出結(jié)果為 _D。 A.0 A.-11 B.1 C.-1 D.False C.-13 D.-12.5 26. 表達(dá)式Int(23.4+Round(-35.5的計(jì)算結(jié)果為C。 B.-12.1 27.為減少語(yǔ)句的使 用，將一個(gè)窗體加載到內(nèi)存中并顯示出來(lái)，所使用的語(yǔ)句或方法是_C

3、。A.Load B.Unload C.Show D.Hide 28.下面關(guān)于順序文件的描述，正確的是C。 A.每條記錄的長(zhǎng)度必須相同B.可通過(guò)編程對(duì)文件中的某條記錄方便地 修改C.數(shù)據(jù)以ASCII碼形式存放在文件中，所有可通過(guò)文本編輯軟 件顯示D.文件的組織結(jié)構(gòu)復(fù)雜29.下列關(guān)于通用對(duì)話的描述錯(cuò)誤的是_C oA.CommandDialogl.ShowFont顯示字體對(duì)話框。B.在打開或另存為對(duì)話框中，用戶選擇的文件名和路徑可以經(jīng)FileName屬性返回。C.在打開或另存為對(duì)話框中，用戶選擇的文件名和路徑可以經(jīng)26 34. MsgBox函數(shù)的返回值的類型為A 。B.字符串B.對(duì)象35. VB工程

4、中的每一個(gè)窗體都是獨(dú)立的_B。 C.數(shù)據(jù)庫(kù)D.方 法36.下面關(guān)于隨機(jī)文件的描述，不正確的是 _B。 A.每條記錄的長(zhǎng)度必須相 同B.一個(gè)文件中記錄號(hào)不必惟一 C.文件的組織結(jié)構(gòu)比順序文件復(fù)雜D.可通過(guò)編程對(duì)文件中的某條記錄方便地修改37.為了防止用戶隨意將光標(biāo)置于控件之上，應(yīng)該進(jìn)行 D_設(shè)置。A.將控件的Tabindex屬性設(shè)置為0 B.將控件的TabStop屬性設(shè)置為True C.將控件的TabStop屬性設(shè)置為False D.將控件的Enabled屬性設(shè)置為 False 38. VB中的工具欄可以從C 菜單上的 工具欄”命令中移進(jìn)或移出。A.工具B編輯C.視圖D.調(diào)試C.FontBold

5、 D.FontSize 39.用來(lái)設(shè)置粗體字的屬性是。CA.Fontlltalic B.FontName 40.在VB的集成環(huán)境中創(chuàng)建 VB應(yīng)用程序時(shí)，除了工具箱窗口、窗體設(shè)計(jì)窗口、屬性窗口外，必不可少的窗口是 C_o A.窗體布局 窗口 B.立即窗口 C.代碼窗口 D.監(jiān)視窗口第三題、簡(jiǎn)單程序(共15分，每項(xiàng)1.5 分)41.執(zhí)行下面程序段后，變量 a的值為C。 For I=1 To 3 For j=1 To I For k=j To 3 a=a+1 Next k Next j Next I A.3 B.9 C.14 D.21 42.下列程序段的運(yùn)行結(jié)果。 D Private Sub For

6、m_Load( ListCityName.AddItem 北京 ” ListCityName.AddItem 上海切 ListCityName.AddItem 廣州” End Sub At文本框中增加 北京“、上?！焙?廣州”三個(gè)初始條目B.在組合框中增加 北京“、上海“和廣州”三個(gè)初始條目C.在列表 框中把北京“、上?！焙蛷V州”三個(gè)初始條目清除D.在列表框中增加 北京”、 上?！焙?廣州”三個(gè)初始條目43.從鍵盤輸入一個(gè)實(shí)數(shù) mm,利用字符串函數(shù)對(duì)輸 入的數(shù)進(jìn)行 處理，如果輸出的內(nèi)容不是字符則輸出“END；程序的輸出結(jié) 果是C。 Private Sub Command1_Click( mm=

7、Val(InputBox(請(qǐng)輸入一個(gè)實(shí)數(shù) n$=Str$(mm p=InStr(n, . If p0 Then Print Mid(n,p Else Print END End If End Sub A.用字符方式輸出數(shù)據(jù)mm C.輸出數(shù)據(jù)的小數(shù)部分D.只去掉數(shù)據(jù)部分的小數(shù)點(diǎn)， 保留所有數(shù)碼輸出44.執(zhí)行下面程序段后，變量x的值為 A 。x=5 For I=1 To 20 step 2 x=x+I5 Next I A.21 B.22 C.23 D.24 45.當(dāng)輸入 4 時(shí)，以下程序的輸出結(jié)果 是 B_。 Private Sub Command1_Click( x=InputBox(x If

8、xA215 Then y=xA2+1 27 B.輸出數(shù)據(jù)的整數(shù)部分 Print y End Sub A.4 B.17 C.18 D.0.25 46.單擊命令按鈕之后，下列程序代碼的執(zhí)行結(jié)果為。B Private Function p(nAs Integer For I = 1 To n Sum = Sum + I Next I p = Sum End Function Private Sub Command1_Click( s = p(1 + p(2 + p(3 + p(4 Print s; End Sub A.10 B.20 C.24 D.28 47. 下面的程序運(yùn)行后，將產(chǎn)生 C 的結(jié)果。

9、Private Sub Form_load( Dim Str AsString, Anum As Integer Open D:Myfile.dat For Output As #1 str1 = ABCDEFG str2 = 12345 Print #1, Str, Anum Write #1, Str, Anum Close #1 End Sub A建立一個(gè) D:Myfile.dat”的文本文件B.建立一個(gè)D:Myfile.dat”的文本文件，并寫入一行數(shù) 據(jù)，還在窗體上顯示一行數(shù)據(jù) C.建立一個(gè)D:My巾le.dat”的文本文件，并寫入兩行 數(shù)據(jù)D.打開一個(gè)D:My巾le.dat”的文本

10、文件，并讀出兩行數(shù)據(jù) 48.以下程序的輸出 結(jié)果是 D_o Private Sub Command1_Click( Dim sum As Integer sum%=19sum=2.32 Print sum%,sum End Sub A.19 2.32 Option Base 1 Private Sub Command1_Click( Dim a(10,p(3 As Integer k=5 For I=1 To 10 a(I=I Next I B.19 19 C.2.32 2.32 D.2 2 49.以下程序的輸出結(jié)果是A 。For I=1 To 3 p(I=a(I*I Next I For I

11、=1 To 3 k=k+p(I*2 Next I Print k End Sub A.33 B.28 C.35 D.37 50.運(yùn)行下面程序后，在窗體中顯示的是 D。 Private Sub Form_Click( a$=*: b$=$ For k=1 To 3 x$=String$(Len(a$+k,b$ Print x$; Next k Print End Sub A.、* * * C.1*$2*$3*$ 第二卷 主觀題 B.*$*$*$ D.、 $ Do While b0 re=a mod b a=b b=re Loop gcd=a End Function Sub Command1_C

12、lick( Dim x As Integer,y As Integer, z As integer X=96 Y=64 _z=gcd(x,y Print結(jié)果= ；z End Sub 4s體 中有一公共對(duì) 話框Comdialogl和一個(gè)命令按鈕Commandl,當(dāng)單擊按鈕時(shí)打開顏色對(duì)話框。請(qǐng)將 程序補(bǔ)充完整。 Private Sub Command1_Click( ComDialogl._showcolor EndSub 5.請(qǐng)用正確的內(nèi)容填空。以下程序找出50以內(nèi)所有能構(gòu)成直角 三角形的整數(shù)組。Private Sub Form_Click( For x=1 To 50 For y=x To 5

13、0 z=Sqr(x*x+y*y If _x+zy Then Next y Next x Print End Sub 6.假定建立了一個(gè)工程，該工程包括兩個(gè)窗體，其名稱(Name屬性分別為Forml和Form2 ,啟動(dòng)窗體為 FormK 在Forml畫一個(gè)命令按鈕Commandl,程序運(yùn)行后，要求當(dāng)單擊該命令按鈕時(shí)，F(xiàn)orml窗體消失， 顯示窗體Form2,請(qǐng)?jiān)趯⒊绦蜓a(bǔ)充完整。 Private Sub Command1_Click( unload Forml Form2. _show End Sub 7 以下程序的功能是：把當(dāng)前目錄下的順序文件 smtext1.txt的內(nèi)容讀入內(nèi)存，并在文本框

14、Textl 中顯示出來(lái)。請(qǐng)?zhí)羁?。Private Sub Command1_Click( Dim inData As StringTextl.Text = 28 Print x; y; z填空題(共30分,每項(xiàng)2分。注意：填兩個(gè)空的題 的時(shí)候，要 按照從上至下，從左至右的順序添入答題卡！)1.在窗體frmforml中添加一個(gè)通用對(duì)話框控件CommonDialog1,運(yùn)行時(shí)，首先使用 CommonDialog1打開一個(gè)標(biāo)準(zhǔn)的顏色對(duì)話 框，用于設(shè)置對(duì)象顏色，其次使用 CommonDialog1打開一標(biāo)準(zhǔn)的字體對(duì)話框，用于設(shè)置對(duì)象的字體、字形和字號(hào)效果。Private Sub Form_Load( C

15、ommonDialogl.Action = 3 Textl.BackColor = CommonDialogl.Color CommonDialogl. _flags=3 CommonDialog1=4Textl.FontName = CommonDialog1.FontName Text1.Font.Size = CommonDialog1.FontSize End Sub 2.下面程序運(yùn)行時(shí)，內(nèi)層循環(huán)的循環(huán)總次數(shù)是_6。 For m = 1 To 3 For n = 0 To m - 1 Next n Next m 3.編寫一個(gè)求最大公約 數(shù)的函數(shù)，并調(diào)用該函數(shù)，程序如下： Functio

16、n gcd(ByVal a As Integer,ByVal b As Integer As Integer Dim re as integerOpen .smtext1.txt _for inputAs #1 Do While _not eof(1 Input #1,inData Text1.Text = Text1.Text & inData Loop End Sub 9.以下程序的功能是：用Array函數(shù)建立一個(gè)含有8個(gè)元素的數(shù)組，然后查找并輸出該數(shù)組中元素的最大 值。請(qǐng)?zhí)羁铡?Option Base 1 Private Sub Command1_Click( Dim arr1, Max as Integer arr1 = Array(12, 435, 76, 24, 78, 54, 866, 43 _Max= arr1(1 For I = 1 To 8 If arr1(I Max Then _Max=arr(I Next I Print 最大值是:;Max End Sub 10.請(qǐng)用正確的內(nèi)容填