VB模擬題答案

1、套題1第一卷客觀題第一題：是非題(共10分,每項1分)1 . ActiveX部件是可以重復使用的編程代碼和數(shù)據(jù).AA.對B.錯2 .窗體的Enabled屬性設(shè)為False時,窗體題的按鈕、文本框控件就不會對用戶的操作做出反響.AA.對B.錯3 .每一個控件實質(zhì)上都是一個微型程序.AA.對B.錯4 .在程序運行過程中,變量中的值不會改變,而常量中的值會被改變.BA.對B.錯5 .用Dim語句聲明變量時,VB系統(tǒng)不僅為變量分配相應數(shù)據(jù)類型的內(nèi)在空間,而且還為變量賦所需的初值.BA.對B.錯6 .定義菜單項時,可以不設(shè)置分P1線的菜單項控件名稱.BA.對B.錯7 .在事件驅(qū)動的應用程序中,代碼是根據(jù)

2、預定的路徑執(zhí)行的.BA.對B.錯8 .函數(shù)調(diào)用時,實際參數(shù)與形式參數(shù)在數(shù)量必須完全一致.AA.對B.錯9 .每個菜單項都是一個控件,與其他控件一樣也有自己的屬性和事件.AA.對B.錯10 .通用過程可以放在標準模塊中,也可以放在窗體模塊中.AA.對B.錯第二題、單項選擇題(共45分,每項1.5分)11 .要判斷 命令按鈕是否被鼠標單擊,應在命令按鈕的事件中判斷.CA.Chang B.KeyDown C.Click D.KeyPress12 . InputBox函數(shù)的返回值的類型為 B_.A.數(shù)值B.字符串C.邏輯彳1D.日期值13 .要想在過程調(diào)用后返回兩個結(jié)果,下面的過程定義語句合法的是Ao

3、A.Sub Proc1(ByVal n,Byval m) B.Sub Proc1(ByVal n, m)C.Sub Proc1(n,Byval m) D.Sub Proc1(n, m)14 .下面關(guān)于打印對話框?qū)傩缘恼f法錯誤的選項是 C_oA.Copies屬性指定打印的份數(shù).B.HDC屬性指定分配給打印機的句柄,用來識別對象的設(shè)備 環(huán)境.C.FromPage屬性指定要打印文檔的頁范圍.使用該屬性時必 須把Flags屬性設(shè)置為1.D.Max和Min屬性用來顯示 FromPage和ToPage的范圍,其 中Min指定允許的起始頁碼,Max指定允許的最后頁碼.15 .常量2.7856E-6的類型是_

4、B.A.整型B.實型C.字符型 D.雙精度16 . Print #1 , STR1$中的 Print 是 A .A.順序文件的寫語句B.在窗體上顯示的方法C.子程序名D.打印命令17 .使用Public x聲明一個全局的變量時,該語句應放在_D.A.過程中B.窗體模塊的通用聲明段C.標準模塊的通用聲明段D.窗體模塊或標準模塊的通用聲明段18 .文本框沒有_D 屬性.A.Enabled B.VisibleC.BackColor D.Caption19 .記錄長度最大可取的值是A 字節(jié).A.32767B.32768C.65535D.6553620 .下面四項中,_A 是VB中的數(shù)值變量.A.ABC

5、 B.E+2 C.True D.1.35E-221 .將數(shù)據(jù)項“Chin琳加到列表框(List)中成為第一項應使用A 語句.A.List1.AddItem China0 B.List1.AddItem Chinal C.List1.AddItem 0 , China D.List1.AddItem 1 , China22.以下不能翻開菜單編輯器的操作是D.A.按 Ctrl+EB.單擊工具欄中的菜單編輯器按鈕C.執(zhí)行工具菜單中的菜單編輯器命令D.按 Shift + Alt + M23 .文本框(Text1)中有選定的文本,執(zhí)行 Text1.SelText= Hello 的結(jié)果是A oA. Hel

6、lo將替換掉原來選定的文本B. “Hel等插入到原來選定的文本之前C.Text1.SelLength 為 5D.文本框中只有 “Hello24 .語句 Print Format(HELLO, yz的正確VB邏輯表達式是 _D.A.xy And yz C.xy And z D.xy And yzB.*$*$*$D. 、 $30 .如果要使一個窗體從屏幕上和內(nèi)存中完全消失,所要使用的語句是D.A.Hide B.Show C.Load D.Unload31 .在以下說法中,正確的選項是 D_.A.通過適當?shù)脑O(shè)置,可以在程序運行期間,讓時鐘控件 顯示在窗體上B.在列表框中不能進行多項選擇C.在列表框中

7、能夠?qū)⒐こ贪醋帜疙樞驈拇蟮叫∨帕蠨.框架也有Click 和DblClick 事件32 .為了把一個記錄型變量的內(nèi)容寫入文件中指定的位置,所使用的語句的格式為_D oA.Get文件號,記錄號,變量名B.Get文件號,變量名,記錄號C.Put文件號,變量名,記錄號D.Put文件號,記錄號,變量名33 .按文件的組織方式分為 A_oA.順序文件和隨機文件B.文本文件和二進制文件C.程序文件和數(shù)據(jù)文件D.只讀文件和讀寫文件34 .以下_C不能彳為VB中的變量名.A.Abx45 B.P1234 C.89TasFF D.xy35 .已編譯的控件部件的擴展名是A.A. .OCX B. .VBPC. .EXE

8、D. .CTL36 .為了建立一個隨機文件,其中每一條記錄有多個不同數(shù)據(jù)類型的數(shù)據(jù)項組成,應使用 AA.自定義類型B.數(shù)組 C.字符串類型 D.變體類型37 .表達式 Int(23.4)+Round(-35.5)的計算結(jié)果為C.A.-11B.-12.1C.-13D.-12.538 .引用列表框(List1 )最后一個數(shù)據(jù)項應使用一B oA. List1.List(List1.ListCount)B.List1.List(List1.ListCount-1)C.List1.List(ListCount)D.List1.List(ListCount-l)39 .通過代碼在運行時設(shè)置屬性的語法格式為

9、_B oA.對象名=屬性.新值 B.對象名.屬性=新值C.對象名.新值=屬性.新值 D.對象名.屬性=屬性. 新值40 .在下面選項中,不能完成對順序文件的讀操作的是D_oA.LineInput# 語句 B.Input# 語句C.Input ()函數(shù)D.Get# 語句第三題、簡單程序(共15分,每項1.5分)41 .以下程序段的運行結(jié)果.APrivate Sub Form_Click()Dim MsgHideMsg=選擇確定按鈕MsgBox Msg ShowEnd SubA.隱藏窗體,按確定按鈕使窗體重現(xiàn)B.隱藏窗體C.顯示窗體,按確定按鈕使窗體隱藏D.顯示窗體42.執(zhí)行下面程序段后,變量 c

10、$的值為 D a$= Visual Basic Programmingb$= Quickc$=b$ & Ucase(Mid$(a$,7,6) & Right$(a$,12)A.Visual BASIC ProgrammingB.Quick Basic ProgrammingC.QUICK Basic ProgrammingD.Quick BASIC Programming43 .運行下面程序后,在窗體中顯示的是_DPrivate Sub Form_Click()a$=*: b$=$For k=1 To 3x$=String$(Len(a$)+k,b$)Print x$;Next kPrintE

11、nd SubA. 、* * *C.1*$2*$3*$44 .執(zhí)行下面程序段后,變量 a的值為CFor I=1 To 3For j=1 To IFor k=j To 3a=a+1Next kNext jNext IA.3B.9C.14D.2145 .寫出如下程序運行結(jié)果.DFunction f(m As Integer) As Integer b = 1Static c As Integer b = b + 1 c = c + 1 f = m * b * c End FunctionPrivate Sub Command1_Click() Dim a As Integer a = 2sum=0s

12、um=sum+ f(a)Next Iprint sumEnd SubA.12B.16C.20D.2446 .以下程序的輸出結(jié)果是 B_oPrivate Sub Command1_Click()a=1234b$=Str$(a)c=Len(Trim(b)print c;LenB(b)End SubA.3 8B.4 10C.5 10D.4 847 .執(zhí)行下面程序段后,變量x的值為 A_ox=5For I=1 To 20 step 2x=x+I5Next IA.21B.22C.23D.2448 .以下程序的輸出結(jié)果是 _D oPrivate Sub Command1_Click()a=100Dos=s

13、+aa=a+1Loop Until a100print aEnd SubA.100B.120C.201D.10149 .以下程序的循環(huán)次數(shù)是A oPrivate Sub Command1_Click()For j=8 To 35 Step 3Print j;Next jEnd SubA.10B.9C.27D.2850 .以下程序運行后,其結(jié)果為 APrivate Sub Form_Click ( )Filename= a c:testfile.txtOpen filename For Output As #1Print #1,“ABC讖是一個學生Close #1Open filename Fo

14、r Input As #1MsgBox Input(8,1)Close #1End SubA.在通用對話*I中顯示“ ABC讖是一個B.在通用對話卞I中顯示“ ABC讖是C.在窗體中顯示“ ABC醵是一個D.在窗體中顯示“ ABC醵是 第二卷 主觀題填空題(共30分,每項2分.注意：填兩個空的題的時候,要根據(jù)從上至下,從左至右的順序添入做題卡！)1 .以下程序運行后,能求出 20個數(shù)中的最大值.請?zhí)钌线m當 的內(nèi)容,將程序補充完整.Private Sub Form_Activate()RandomizeDim I As Integer,ssl As Integer,Dim tt As Integ

15、er ssl = Int(Rnd * 51 + 50)For I = 1 To 19tt = Rnd * 51 + 50IF ssltt then ssl=ttNext IPrintPrint sslEnd Sub2 .在C盤根目錄下建立一個名為Student.dat的順序文件.要求用InputBox函數(shù)輸入10名學生的學號(StuNo)、姓名 (StuName)和性另U ( StuSex).Private Sub Form_Load ()Open C:Student.dat For Output As #1For I=1 to 10StuNo=InputBox(“請輸入學號)StuName=

16、 InputBox (“請輸入姓名)StuSex= InputBox (請輸入性別) _write#1,StuNo,Stuname,StuSexNext IClose #1End Sub3 .編寫一個求最大公約數(shù)的函數(shù),并調(diào)用該函數(shù),程序如下： Function gcd(ByVal a As Integer,ByVal b As Integer) As IntegerDim re as integerDo While b0re=a mod ba=b b=re Loop gcd=a End Function Sub Command1_Click() Dim x As Integer,y As I

17、nteger, z As integer X=96Y=64_z=gcd(x,y)Print“結(jié)果= ；zEnd Sub4,請用正確的內(nèi)容填空.下面程序的作用是利用隨機函數(shù)產(chǎn)生 10個(1200) 之間的隨機整數(shù),打印其中 7的整數(shù)倍的數(shù)并求其和. Private Sub Form_Click()For I=1 To 10x=Int(Rnd*200+1) If _(x mod 7)=0 Thenk1=k1+x Print xEnd If Next I Print Print k1=;k1 End Sub5,下面程序運行時,內(nèi)層循環(huán)的循環(huán)總次數(shù)是6 oFor m = 1 To 3For n = 0

18、 To m - 1Next nNext m6.在窗體中添加兩個命令按鈕,其名稱分別為Command1和Command 2窗體加載時要求Command1不可用,Command2可用；單擊Command后,Command1可用.請將以下程序補充完整.Private Sub Command2_Click() _command1,enabled=trueEnd SubPrivate Sub Form_Load()command1.enabled=false_command2.enabled=trueEnd Sub7,函數(shù)odd用于判斷一個數(shù)是否是奇數(shù).當單擊命令按鈕時, 產(chǎn)生1,9之間的隨機數(shù),調(diào)用

19、odd過程,判斷該數(shù)是否為奇數(shù). 如果是那么顯示“奇數(shù),否那么顯示“偶數(shù).Private Sub odd(n As Integer)Print n;If n/2n2 ThenPrint 奇數(shù)ElsePrint “偶數(shù)End IfEnd SubPrivate Sub Command1_Click()Randomizex =_int(rnd*9+1)odd xEnd Sub8,以下程序允許用戶按Enter鍵將一個組合框(cboComputer) 中沒有的工程添加到組合框中.Sub cboComputer_KeyPress(KeyAscii As Integer)Dim flag As Boolea

20、nIf KeyAscii=13 Thenflag=FalseFor I=0 To cboComputer.ListCount-1If ThenFlag=TrueExit ForEnd IfNext iIf Not flag ThenElseMsgBox(組合框中已有該項 目！)End IfEnd IfEnd Sub9,請用正確的內(nèi)容填空.下面程序的功能是通過InputBox對話框接受一個 二進制數(shù),并把它轉(zhuǎn)換成一個十進制數(shù),結(jié)果顯示在窗體中.Private Sub Form_Click() b=InputBox( 請輸入一個二進制數(shù)) m=Len(b)For j= _1 to mdec=dec

21、*2+val(Mid(b,j,1)Next jPrint b;轉(zhuǎn)換后的十進制數(shù)為：;decEnd Sub10.以下程序的功能是：把當前目錄下的順序文件 smtext1.txt 的內(nèi)容讀入內(nèi)存,并在文本框 Text1中顯示出來. 請?zhí)羁?Private Sub Command1_Click() Dim inData As String Text1.Text =Open ,smtext1.txt_for Input As #1Do While not eof(1)Input #1, inDataText1,Text = Text1,Text & inDataLoopDim x As Integer

22、End Sub套題2第一卷客觀題第一題：是非題共10分,每項1分1 .函數(shù)過程和子過程的區(qū)別是子過程結(jié)束將返回值過程值,函數(shù)過程結(jié)束不必返回函數(shù)值.A.對 BJ直2 .當窗體上有多個控件時,一般只有一個控件是當前控件,對 控件的所有操作都是針對當前控件進行的.A.對 B.錯3 .窗體上的控件同樣可以借助于剪貼板進行剪切、復制和粘貼.A.對 B.錯4 .用Dim語句聲明變量時,VB系統(tǒng)不僅為變量分配相應數(shù)據(jù) 類型的內(nèi)在空間,而且還為變量賦所需的初值.A.對 BJf.5 .在VB系統(tǒng)中,沒有用 Dim語句聲明的變量不能使用,由于 它沒有數(shù)據(jù)類型.A.對 BH6 .每個菜單項都是一個控件,與其他控件

23、一樣也有自己的屬性 和事件.A.對 B.錯7 . VB中的 消息是指由一個應用程序傳遞到另一個應用程序的 信息包.A.對 B.錯8 .普通窗體與子窗體建立的方法是相同的,不同之處是子窗體 的MDIChild屬性設(shè)置為False,而普通窗體的 MDIChild屬性設(shè) 置為True.A.對 BJ19 .除了 Click事件之外,菜單項還能響應其他的事件.A.對 B.錯10 .數(shù)組作為過程參數(shù)時,使用的是地址傳送方式.A.對 B.錯第二題、單項選擇題共45分,每項1.5分11 .文本框沒有_D 屬性.A.Enabled B.Visible C.BackColor D.Caption12 .語句Dim

24、 a3,-3 to 0,3 to 6聲明的數(shù)組a有 C_元素.A.12B.27C.64D.8013 .下面關(guān)于隨機文件的描述,不正確的選項是_B oA.每條記錄的長度必須相同B. 一個文件中記錄號不必惟一C.文件的組織結(jié)構(gòu)比順序文件復雜D.可通過編程對文件中的某條記錄方便地修改14 .如果要使一個窗體從屏幕上和內(nèi)存中完全消失,所要使用的語句是D.A.HideB.Show C.LoadD.Unload15 .在VB中,常量987654,987654#的數(shù)據(jù)類型是 D.A.整型B.實型C.長整型 D.雙精度16 .在下面選項中,不能完成對順序文件的讀操作的是 Do A.LineInput# 語句

25、B.Input#語句 C.Input 函數(shù) D.Get#語句17 .按文件的組織方式分為 A.A.順序文件和隨機文件B.文本文件和二進制文件C.程序文件和數(shù)據(jù)文件D.只讀文件和讀寫文件18 .不管何種控件,共同具有的是 _B 屬性.A.Text B.Name C.BackColor D.Caption19 .為了把一個記錄型變量的內(nèi)容寫入文件中指定的位置,所使用的語句的格式為 _D oA.Get文件號,記錄號,變量名B.Get文件號,變量名,記錄號C.Put文件號,變量名,記錄號D.Put文件號,記錄號,變量名20 .常量2.7856E-6的類型是 B.A.整型 B.實型 C.字符型 D.雙精

26、度21 .假設(shè)列表框List1 有4個數(shù)據(jù)項,那么把數(shù)據(jù)項“China添加到列表框的最后,應使用一D 語句.A. List1.AddItem3, ChinaB.List1.AddItemChinaList1.ListCount-1C.List1.AddItemChina3D.List1.AddItemChinaList1.ListCount22 .下面關(guān)于打印對話框?qū)傩缘恼f法錯誤的選項是CoA.Copies屬性指定打印的份數(shù).B.HDC屬性指定分配給打印機的句柄,用來識別對象的設(shè)備 環(huán)境.C.FromPage屬性指定要打印文檔的頁范圍.使用該屬性時必須把Flags屬性設(shè)置為 1.D.Max和M

27、in屬性用來顯示 FromPage和ToPage的范圍,其 中Min指定允許的起始頁碼,Max指定允許的最后頁碼.23 .如果文本框的 Enabled屬性設(shè)為 False,那么_ A.A.文本框的文本將變成灰色,并且此時用戶不能將光標置于文 本框上B.文本框的文本將變成灰色,用戶仍然能將光標置于文本框上,但是不能改變文本框中的內(nèi)容C.文本框的文本將變成灰色,用戶仍然能改變文本框中的內(nèi)容D.文本框的文本正常顯示,用戶能將光標置于文本框上,但是 不能改變文本框中的內(nèi)容24 .以下控件中,沒有 Caption屬性的是_B.A.框架 B.列表框C.復選框D.單項選擇按鈕25 .以下邏輯表達式中,其值為

28、真的是A oA.bABC B.THATTHEC.9HD.Aa26 .窗體從加載到顯示,依次引發(fā)的事件有. DA.Load、Initialize、ActivateB.Initialize、Activate loadC.Load、Activate InitializeD.Initialize、Load、Activate27 .如果每0.5秒產(chǎn)生一個計時器事件,那么 Interval屬性值應 設(shè)為C.A.5B.50C.500D.0.528 .表達式34 And 7=5的返回值為 D .A.0 B.True C.-1 D.FalseCase 429 .函數(shù)Int(Rnd*11)+10產(chǎn)生的數(shù)值的范圍是

29、 _C.a$=OkA. (0,10)B.10,10 C.10,20D.(0,20)Case 330 .要想在過程調(diào)用后返回兩個結(jié)果,下面的過程定義語句合法a$=Pass的是 _A.Case ElseA.Sub Proc1(ByVal n,Byval m) B.Sub Proc1(ByVal n, m)C.Sub Proc1(n,Byval m) D.Sub Proc1(n, m)31 .為了預防用戶隨意將光標置于控件之上,應該進行 設(shè)置.DA.將控件的TabIndex屬性設(shè)置為 0B.將控件的TabStop屬性設(shè)置為 TrueC.將控件的TabStop屬性設(shè)置為 FalseD.將控件的 Ena

30、bled屬性設(shè)置為 False32 .使用驅(qū)動器列表框的 屬性可以返回或設(shè)置磁盤驅(qū)動器的名稱.BA.ChDrive B.Drive C.List D.ListIndexa$=BadEnd SelectMsgBox a$End SubA.Bad B.Pass C.Ok D.Good43 .執(zhí)行下面程序段后,變量 a的值為For I=1 To 3For j=1 To IFor k=j To 3a=a+1Next k44 .文件號最大可取的值為 o BA.255B.511C.512D.25645 .在Visual Basic中,語句 Print 39的輸出結(jié)果為 . DA.0B.1C.-1 D.Fa

31、lse46 .全局變量必須在 中定義AA.標準模塊B.任意模塊C.窗體模塊 D.類模塊47 .表達式 Int(23.4)+Round(-35.5)的計算結(jié)果為 .CA.-11B.-12.1C.-13D.-12.5Next jNext IA.3B.9C.14D.2144.寫出以下程序的運行結(jié)果,并說明函數(shù)的功能.APublic Function f(m%, n%)Do While m nDo While m n m = m n37 .如果列表框(List1)中沒有被選定的工程,那么執(zhí)行LoopList1.RemoveItem List1.ListIndex 語句的結(jié)果是.Do While n m

32、A.移去第一項B.移去最后一項n = n - mC.移去最后參加列表的一項D.以上都不對Loop38 .通過代碼在運行時設(shè)置屬性的語法格式為 . BLoopA.對象名=屬性.新值B.對象名.屬性=新值f = mC.對象名.新值=屬性.新值D.對象名屬性=屬性.新值End Function39 .改變驅(qū)動器列表框的 Drive屬性值將激活 事件.AA.Change B.Scoll C.KeyDown D.KeyUp40 .已編譯的控件部件的擴展名是. AA. .OCX B. .VBP C. .EXE D. .CTL第三題、簡單程序(共15分,每項1.5分)41 .執(zhí)行下面程序段后,變量c$的值為

33、 o Da$= Visual Basic Programmingb$= Quickc$=b$ & Ucase(Mid$(a$,7,6) & Right$(a$,12)A.Visual BASIC Programming B.Quick Basic ProgrammingC.QUICK Basic Programming _D.Quick BASIC Programming42 .運行下面程序后,在彈出的消息窗口中顯示的是Private Sub Form_Click() score=Int(Rnd)+5Select Case scoreCase 5Private Sub Command1_Cli

34、ck() print f(24, 18)End SubA.6B.8C.10D.1245.以下程序的輸出結(jié)果是.BPrivate Sub Command1_Click()a=1234b$=Str$(a)c=Len(Trim(b)print c;LenB(b)End SubA.3 8 _B.4 10C.5 10D.4 846 .執(zhí)行下面程序段后,變量 x的值為.公x=5For I=1 To 20 step 2x=x+I5如果是那么顯示 奇數(shù),否那么顯示 相數(shù)Private Sub odd(n As Integer)A.21B.22C.23D.2447 .以下程序的循環(huán)次數(shù)是 oPrivate Su

35、b Command1_Click()For j=8 To 35 Step 3Print j;Next jEnd SubA.10B.9C.27D.2848 .以下程序的輸出結(jié)果是. DPrivate Sub Command1_Click()a=100Dos=s+aa=a+1Loop Until a100print aEnd SubA.100B.120C.201D.10149 .執(zhí)行下面的程序段后,變量 S的值為 o CS= 5For I =2.6 To 4.9 Step 0.6S=S+1Next IA.7B.8C.9D.1050 .下面程序運行后,輸出的結(jié)果為 .Private Sub Comm

36、and1_Click()A$= Beijing B$= dalian C$= shanghai C$=Instr(Left(A$,2)+Right$(B$,2),C$)Print C$End SubA.10B.0C.8D.6第二卷主觀題填空題(共30分,每項2分.注意：填兩個空的題的時候,要 根據(jù)從上至下,從左至右的順序添入做題卡！)1 .在C盤根目錄下建立一個名為Student.dat的順序文件.要求用InputBox函數(shù)輸入10名學生的學號(StuNo)、姓名(StuName)和性別(StuSex).Private Sub Form_Load ()Open C:Student.dat Fo

37、r Output As #1For I=1 to 10StuNo=InputBox(請輸入學號)StuName= InputBox (請輸入姓名)StuSex= InputBox (請輸入性別)_ Write -1,StuNo,Stuname,StuSexEnd Sub2 .編寫一個求最大公約數(shù)的函數(shù),并調(diào)用該函數(shù),程序如下： Function gcd(ByVal a As Integer,ByVal b As Integer) As IntegerDim re as integerDo While b0re=a mod ba=bb=reLoopgcd=aEnd FunctionSub Com

38、mand1_Click()Dim x As Integer,y As Integer, z As integerX=96Y=64z=gcd(x,y) Print 結(jié)果= ；zEnd Sub3 .請用正確的內(nèi)容填空.以下程序找出50以內(nèi)所有能構(gòu)成直角 三角形的整數(shù)組.Private Sub Form_Click()For x=1 To 50For y=x To 50z=Sqr(x*x+y*y)If z=5 And z=Int(z) Then Print x; y; zNext yNext xPrintEnd Sub4 .執(zhí)行下面的程序段后,s的值為_ZPrivate Sub Form_Click

39、()Static s As Integer5 = 5For I = 1.4 To 2.1 Step 0.66 = s + 1Next IPrint sEnd Sub5 .執(zhí)行下面的程序段后,X的值為 8 oX=5For I=1 to 10 Step 2X=X+I5Next I6 .函數(shù)odd用于判斷一個數(shù)是否是奇數(shù).當單擊命令按鈕時,產(chǎn)生1,9之間的隨機數(shù),調(diào)用 odd過程,判斷該數(shù)是否為奇數(shù).Next I它沒有數(shù)據(jù)類型.BPrint n;If n/2n2 ThenPrint 奇數(shù)ElsePrint 偶數(shù)End IfEnd SubPrivate Sub Command1_Click() Dim

40、 x As Integer Randomize x =_ int(9*rnd+1) odd x End Sub7 .以下程序允許用戶按 Enter鍵將一個組合框(cboComputer) 中沒有的工程添加到組合框中.Sub cboComputer_KeyPress(KeyAscii As Integer) Dim flag As Boolean If KeyAscii=13 Then flag=FalseFor I=0 To cboComputer.ListCount-1If_cboComputer.Text=cboComputer.List(i)ThenFlag=True Exit ForE

41、nd IfNextIf Not flag ThencboComputer.AddItem cboComputer.Text ElseMsgBox(組合框中已有該工程！)End IfEnd IfEnd Sub8 .請用正確的內(nèi)容填空.下面程序用選擇法將數(shù)組a中的10個整數(shù)按升序排列.Option Base 1Private Sub Form_Click() Dim aa = Array(678, 45, 324, 528, 439, 387, 87, 875, 273, 823)For I=1 To 9For j= _ i+1= To 10 If a(i)a(j) Then t=a(I): a(

42、I)=a(j): a(j)=t End IfNext jNext IFor I=1 To 10Print a(I);End Sub9 .以下程序的功能是：生成 20個200到300之間的隨機整數(shù), 輸出數(shù)的位置能被5整除的數(shù)并求出它們的和.請?zhí)羁?Private Sub Commandl_C1ick()For I = 1 To 20x= Int( Rnd *200+100)If I Mod 5 =0 Then Print xS= S+x End IfNext IPrint Sum =;S End Sub10.以下程序的功能是：從鍵盤上輸入假設(shè)干個學生的測試分數(shù), 統(tǒng)計并輸出最高分數(shù)和最低分數(shù),

43、當輸入負數(shù)時結(jié)束輸入, 輸出結(jié)果,請將程序補充完整.Private Sub Form_Click()Dim x, amax, amin A Single x = InputBox(Enter a score) amax = x amin = xDo While _ x0 If x amax Then amax = xEnd IfIf xyz的正確VB邏輯表達式是 _D.A.xy And yz C.xyAnd z D.xy And yz29 .函數(shù)Int(Rnd*11)+10 產(chǎn)生的數(shù)值的范圍是_C.A. (0,10)B.10,10C.10,20D.(0,20)30 .下面關(guān)于順序文件的描述,正

44、確的選項是_C.A.每條記錄的長度必須相同B.可通過編程對文件中的某條記錄方便地修改C.數(shù)據(jù)以ASCII碼形式存放在文件中,所有可通過文本 編輯軟件顯示D.文件的組織結(jié)構(gòu)復雜31 .文件列表框中用于設(shè)置或返回所選文件的文件名的屬性 是D.A.FilePathB.FileC.Path D.FileNamea$=Good32 .為了建立一個隨機文件,其中每一條記錄有多個不同數(shù)據(jù)類型的數(shù)據(jù)項組成,應使用AA.自定義類型B.數(shù)組 C.字符串類型D.變體類型33 .在Visual Basic 中,語句 Print 39 的輸出結(jié)果為_D.A.0B.1C.-1D.False34 .當一個工程含有多個窗體時

45、,其中的啟動窗體是_D oA.啟動VB時建立的窗體B.第一個添加的窗體C.最后一個添加的窗體D.在“工程屬性對話框中指定的窗體.35 .使用目錄列表框的C屬性可以返回或設(shè)置當前工作 目錄的完整路徑.A.DriveB.ListIndexC.PathD.D ir36 . Integer 類型的數(shù)據(jù)由_B字節(jié)組成.A.1B.2C.3D.437 .如果列表框(List1 )中只有一個工程被用戶選定,那么執(zhí)行 Debug. Print List1Selected (List1.ListIndex )語句的 結(jié)果是 A_oA.在Debug窗口輸出被選定的工程的索引值B.在Debug窗口輸出TrueC.在窗

46、體上輸出被選定的工程的索引值D.在窗體上輸出True38 .通過代碼在運行時設(shè)置屬性的語法格式為BoA.對象名=屬性.新值 B.對象名.屬性=新值C.對象名.新值=屬性.新值 D.對象名.屬性=屬性. 新值39 .要使用FSO對象模型,必須通過【工程】菜單中的_D 命令將FSO對象模型引入到當前工程中.A.部件 B.工程屬性C.添加屬性D.引用40 .全局變量必須在A 中定義A.標準模塊B.任意模塊 C.窗體模塊 D.類模塊第三題、簡單程序(共15分,每項1.5分)41 .執(zhí)行下面程序段后,變量 c$的值為_D oa$= Visual Basic Programmingb$= Quickc$=b$ & Ucase(Mid$(a$,7,6) & Right$(a$,12)A.Visual BASIC Programming B.Quick Basic ProgrammingC.QUICK Basic Programming D.Quick BASIC Programming42 .運行下面程序后,在彈出的消息窗口中顯示的是_D oPrivate Sub Form_Click()score=Int(Rnd)+5S