VB模擬題答案

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

2、預(yù)定的路徑執(zhí)行的.BA.對(duì)B.錯(cuò)8 .函數(shù)調(diào)用時(shí),實(shí)際參數(shù)與形式參數(shù)在數(shù)量必須完全一致.AA.對(duì)B.錯(cuò)9 .每個(gè)菜單項(xiàng)都是一個(gè)控件,與其他控件一樣也有自己的屬性和事件.AA.對(duì)B.錯(cuò)10 .通用過程可以放在標(biāo)準(zhǔn)模塊中,也可以放在窗體模塊中.AA.對(duì)B.錯(cuò)第二題、單項(xiàng)選擇題(共45分,每項(xiàng)1.5分)11 .要判斷 命令按鈕是否被鼠標(biāo)單擊,應(yīng)在命令按鈕的事件中判斷.CA.Chang B.KeyDown C.Click D.KeyPress12 . InputBox函數(shù)的返回值的類型為 B_.A.數(shù)值B.字符串C.邏輯彳1D.日期值13 .要想在過程調(diào)用后返回兩個(gè)結(jié)果,下面的過程定義語(yǔ)句合法的是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)于打印對(duì)話框?qū)傩缘恼f法錯(cuò)誤的選項(xiàng)是 C_oA.Copies屬性指定打印的份數(shù).B.HDC屬性指定分配給打印機(jī)的句柄,用來識(shí)別對(duì)象的設(shè)備 環(huán)境.C.FromPage屬性指定要打印文檔的頁(yè)范圍.使用該屬性時(shí)必 須把Flags屬性設(shè)置為1.D.Max和Min屬性用來顯示 FromPage和ToPage的范圍,其 中Min指定允許的起始頁(yè)碼,Max指定允許的最后頁(yè)碼.15 .常量2.7856E-6的類型是_

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

5、 B.E+2 C.True D.1.35E-221 .將數(shù)據(jù)項(xiàng)“Chin琳加到列表框(List)中成為第一項(xiàng)應(yīng)使用A 語(yǔ)句.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 .語(yǔ)句 Print Format(HELLO, yz的正確VB邏輯表達(dá)式是 _D.A.xy And yz C.xy And z D.xy And yzB.*$*$*$D. 、 $30 .如果要使一個(gè)窗體從屏幕上和內(nèi)存中完全消失,所要使用的語(yǔ)句是D.A.Hide B.Show C.Load D.Unload31 .在以下說法中,正確的選項(xiàng)是 D_.A.通過適當(dāng)?shù)脑O(shè)置,可以在程序運(yùn)行期間,讓時(shí)鐘控件 顯示在窗體上B.在列表框中不能進(jìn)行多項(xiàng)選擇C.在列表框中

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

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

9、_B oA.對(duì)象名=屬性.新值 B.對(duì)象名.屬性=新值C.對(duì)象名.新值=屬性.新值 D.對(duì)象名.屬性=屬性. 新值40 .在下面選項(xiàng)中,不能完成對(duì)順序文件的讀操作的是D_oA.LineInput# 語(yǔ)句 B.Input# 語(yǔ)句C.Input ()函數(shù)D.Get# 語(yǔ)句第三題、簡(jiǎn)單程序(共15分,每項(xiàng)1.5分)41 .以下程序段的運(yùn)行結(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 .運(yùn)行下面程序后,在窗體中顯示的是_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 .寫出如下程序運(yùn)行結(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 .以下程序運(yùn)行后,其結(jié)果為 APrivate Sub Form_Click ( )Filename= a c:testfile.txtOpen filename For Output As #1Print #1,“ABC讖是一個(gè)學(xué)生Close #1Open filename Fo

14、r Input As #1MsgBox Input(8,1)Close #1End SubA.在通用對(duì)話*I中顯示“ ABC讖是一個(gè)B.在通用對(duì)話卞I中顯示“ ABC讖是C.在窗體中顯示“ ABC醵是一個(gè)D.在窗體中顯示“ ABC醵是 第二卷 主觀題填空題(共30分,每項(xiàng)2分.注意：填兩個(gè)空的題的時(shí)候,要根據(jù)從上至下,從左至右的順序添入做題卡！)1 .以下程序運(yùn)行后,能求出 20個(gè)數(shù)中的最大值.請(qǐng)?zhí)钌线m當(dāng) 的內(nèi)容,將程序補(bǔ)充完整.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盤根目錄下建立一個(gè)名為Student.dat的順序文件.要求用InputBox函數(shù)輸入10名學(xué)生的學(xué)號(hào)(StuNo)、姓名 (StuName)和性另U ( StuSex).Private Sub Form_Load ()Open C:Student.dat For Output As #1For I=1 to 10StuNo=InputBox(“請(qǐng)輸入學(xué)號(hào))StuName=

16、 InputBox (“請(qǐng)輸入姓名)StuSex= InputBox (請(qǐng)輸入性別) _write#1,StuNo,Stuname,StuSexNext IClose #1End Sub3 .編寫一個(gè)求最大公約數(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,請(qǐng)用正確的內(nèi)容填空.下面程序的作用是利用隨機(jī)函數(shù)產(chǎn)生 10個(gè)(1200) 之間的隨機(jī)整數(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,下面程序運(yùn)行時(shí),內(nèi)層循環(huán)的循環(huán)總次數(shù)是6 oFor m = 1 To 3For n = 0

18、 To m - 1Next nNext m6.在窗體中添加兩個(gè)命令按鈕,其名稱分別為Command1和Command 2窗體加載時(shí)要求Command1不可用,Command2可用；單擊Command后,Command1可用.請(qǐng)將以下程序補(bǔ)充完整.Private Sub Command2_Click() _command1,enabled=trueEnd SubPrivate Sub Form_Load()command1.enabled=false_command2.enabled=trueEnd Sub7,函數(shù)odd用于判斷一個(gè)數(shù)是否是奇數(shù).當(dāng)單擊命令按鈕時(shí), 產(chǎn)生1,9之間的隨機(jī)數(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鍵將一個(gè)組合框(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(組合框中已有該項(xiàng) 目！)End IfEnd IfEnd Sub9,請(qǐng)用正確的內(nèi)容填空.下面程序的功能是通過InputBox對(duì)話框接受一個(gè) 二進(jìn)制數(shù),并把它轉(zhuǎn)換成一個(gè)十進(jìn)制數(shù),結(jié)果顯示在窗體中.Private Sub Form_Click() b=InputBox( 請(qǐng)輸入一個(gè)二進(jìn)制數(shù)) m=Len(b)For j= _1 to mdec=dec

21、*2+val(Mid(b,j,1)Next jPrint b;轉(zhuǎn)換后的十進(jìn)制數(shù)為：;decEnd Sub10.以下程序的功能是：把當(dāng)前目錄下的順序文件 smtext1.txt 的內(nèi)容讀入內(nèi)存,并在文本框 Text1中顯示出來. 請(qǐng)?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分,每項(xiàng)1分1 .函數(shù)過程和子過程的區(qū)別是子過程結(jié)束將返回值過程值,函數(shù)過程結(jié)束不必返回函數(shù)值.A.對(duì) BJ直2 .當(dāng)窗體上有多個(gè)控件時(shí),一般只有一個(gè)控件是當(dāng)前控件,對(duì) 控件的所有操作都是針對(duì)當(dāng)前控件進(jìn)行的.A.對(duì) B.錯(cuò)3 .窗體上的控件同樣可以借助于剪貼板進(jìn)行剪切、復(fù)制和粘貼.A.對(duì) B.錯(cuò)4 .用Dim語(yǔ)句聲明變量時(shí),VB系統(tǒng)不僅為變量分配相應(yīng)數(shù)據(jù) 類型的內(nèi)在空間,而且還為變量賦所需的初值.A.對(duì) BJf.5 .在VB系統(tǒng)中,沒有用 Dim語(yǔ)句聲明的變量不能使用,由于 它沒有數(shù)據(jù)類型.A.對(duì) BH6 .每個(gè)菜單項(xiàng)都是一個(gè)控件,與其他控件

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

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

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

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

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

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)生一個(gè)計(jì)時(shí)器事件,那么 Interval屬性值應(yīng) 設(shè)為C.A.5B.50C.500D.0.528 .表達(dá)式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)用后返回兩個(gè)結(jié)果,下面的過程定義語(yǔ)句合法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 .為了預(yù)防用戶隨意將光標(biāo)置于控件之上,應(yīng)該進(jìn)行 設(shè)置.DA.將控件的TabIndex屬性設(shè)置為 0B.將控件的TabStop屬性設(shè)置為 TrueC.將控件的TabStop屬性設(shè)置為 FalseD.將控件的 Ena

30、bled屬性設(shè)置為 False32 .使用驅(qū)動(dòng)器列表框的 屬性可以返回或設(shè)置磁盤驅(qū)動(dòng)器的名稱.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 .文件號(hào)最大可取的值為 o BA.255B.511C.512D.25645 .在Visual Basic中,語(yǔ)句 Print 39的輸出結(jié)果為 . DA.0B.1C.-1 D.Fa

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

32、A.移去第一項(xiàng)B.移去最后一項(xiàng)n = n - mC.移去最后參加列表的一項(xiàng)D.以上都不對(duì)Loop38 .通過代碼在運(yùn)行時(shí)設(shè)置屬性的語(yǔ)法格式為 . BLoopA.對(duì)象名=屬性.新值B.對(duì)象名.屬性=新值f = mC.對(duì)象名.新值=屬性.新值D.對(duì)象名屬性=屬性.新值End Function39 .改變驅(qū)動(dòng)器列表框的 Drive屬性值將激活 事件.AA.Change B.Scoll C.KeyDown D.KeyUp40 .已編譯的控件部件的擴(kuò)展名是. AA. .OCX B. .VBP C. .EXE D. .CTL第三題、簡(jiǎn)單程序(共15分,每項(xiàng)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 .運(yùn)行下面程序后,在彈出的消息窗口中顯示的是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 .下面程序運(yùn)行后,輸出的結(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分,每項(xiàng)2分.注意：填兩個(gè)空的題的時(shí)候,要 根據(jù)從上至下,從左至右的順序添入做題卡！)1 .在C盤根目錄下建立一個(gè)名為Student.dat的順序文件.要求用InputBox函數(shù)輸入10名學(xué)生的學(xué)號(hào)(StuNo)、姓名(StuName)和性別(StuSex).Private Sub Form_Load ()Open C:Student.dat Fo

37、r Output As #1For I=1 to 10StuNo=InputBox(請(qǐng)輸入學(xué)號(hào))StuName= InputBox (請(qǐng)輸入姓名)StuSex= InputBox (請(qǐng)輸入性別)_ Write -1,StuNo,Stuname,StuSexEnd Sub2 .編寫一個(gè)求最大公約數(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 .請(qǐng)用正確的內(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用于判斷一個(gè)數(shù)是否是奇數(shù).當(dāng)單擊命令按鈕時(shí),產(chǎn)生1,9之間的隨機(jī)數(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鍵將一個(gè)組合框(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 .請(qǐng)用正確的內(nèi)容填空.下面程序用選擇法將數(shù)組a中的10個(gè)整數(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個(gè)200到300之間的隨機(jī)整數(shù), 輸出數(shù)的位置能被5整除的數(shù)并求出它們的和.請(qǐng)?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è)干個(gè)學(xué)生的測(cè)試分?jǐn)?shù), 統(tǒng)計(jì)并輸出最高分?jǐn)?shù)和最低分?jǐn)?shù),

43、當(dāng)輸入負(fù)數(shù)時(shí)結(jié)束輸入, 輸出結(jié)果,請(qǐng)將程序補(bǔ)充完整.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á)式是 _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、確的選項(xiàng)是_C.A.每條記錄的長(zhǎng)度必須相同B.可通過編程對(duì)文件中的某條記錄方便地修改C.數(shù)據(jù)以ASCII碼形式存放在文件中,所有可通過文本 編輯軟件顯示D.文件的組織結(jié)構(gòu)復(fù)雜31 .文件列表框中用于設(shè)置或返回所選文件的文件名的屬性 是D.A.FilePathB.FileC.Path D.FileNamea$=Good32 .為了建立一個(gè)隨機(jī)文件,其中每一條記錄有多個(gè)不同數(shù)據(jù)類型的數(shù)據(jù)項(xiàng)組成,應(yīng)使用AA.自定義類型B.數(shù)組 C.字符串類型D.變體類型33 .在Visual Basic 中,語(yǔ)句 Print 39 的輸出結(jié)果為_D.A.0B.1C.-1D.False34 .當(dāng)一個(gè)工程含有多個(gè)窗體時(shí)

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

46、體上輸出被選定的工程的索引值D.在窗體上輸出True38 .通過代碼在運(yùn)行時(shí)設(shè)置屬性的語(yǔ)法格式為BoA.對(duì)象名=屬性.新值 B.對(duì)象名.屬性=新值C.對(duì)象名.新值=屬性.新值 D.對(duì)象名.屬性=屬性. 新值39 .要使用FSO對(duì)象模型,必須通過【工程】菜單中的_D 命令將FSO對(duì)象模型引入到當(dāng)前工程中.A.部件 B.工程屬性C.添加屬性D.引用40 .全局變量必須在A 中定義A.標(biāo)準(zhǔn)模塊B.任意模塊 C.窗體模塊 D.類模塊第三題、簡(jiǎn)單程序(共15分,每項(xiàng)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 .運(yùn)行下面程序后,在彈出的消息窗口中顯示的是_D oPrivate Sub Form_Click()score=Int(Rnd)+5S