vb計(jì)算機(jī)上機(jī)試題

1、一、單項(xiàng)選擇題（25 道小題，共 25 分）1、VB 中工程軟件的擴(kuò)展名為（）（1 分）B、frmD、bas國(guó) AtrimCright3、文本框 textl 的 text 屬性的數(shù)據(jù)類型是（）（1分）4、下列（）屬性決定窗體標(biāo)題欄顯示內(nèi)容（1 分）5、命令按鈕 command 體具有下列哪個(gè)事件（）（1 分）2、把字符串a(chǎn)bcdef右邊的空格去掉應(yīng)使用（）函數(shù)（1 分）.B、字符串C 單精度D、雙精度AClickB、KeyPressGGotFocusD、DblClick6、為了使文本框同時(shí)具有水平和垂直滾動(dòng)條，應(yīng)先將MultiLine屬性設(shè)置為 True,然后再把 ScrollBars屬性設(shè)置

2、為()(1分）B、17、DimD、3D（3,1To10,1To15）語句中，數(shù)組的元素個(gè)數(shù)為()(1 分)3*10*164*10*158、如果整型變量c、d、x 的值分別為 8、6、0,則下列語句 ForI 的值為（）（1 分）B、3*11*16D、4*11*15I=ctodx=x+iNextI執(zhí)行結(jié)束時(shí),CvbpB、rtrimD、midANameB、CaptionGTextD、BackStyle循環(huán)體9、假定有以下循環(huán)結(jié)構(gòu)DoUntil 條件循環(huán)體Loop則正確的描述是（）（1 分）執(zhí)行A 如果條件是一個(gè)為 0 的常數(shù)，則一次循環(huán)體也不環(huán)體B、如果條件是一個(gè)為 0 的常數(shù)，則至少執(zhí)行一次循C

3、 如果條件是一個(gè)不為 0 的常數(shù)，則至少執(zhí)行一次D、不論條件是否為真;至少要執(zhí)行一次循環(huán)體10、x 是小于 100的非負(fù)數(shù),用 VB 表達(dá)式表示正確的是（1分）11、12、A0=x0rAnd下列語句錯(cuò)誤的是（AexitCendInputboxA 整型forsubx100 x100） （1 分）函數(shù)返回的數(shù)據(jù)類型為（）（1 分）C 單精度13、假定有以下程序段:Print14、15、B、D、B、D、B、D、0=x1000=xexitexit邏輯型字符串dox100selectForI=1To3:Forj=1To5Step-1:PrintI*j:Nextj:NextI 貝1J 語句I*j 的執(zhí)行次

4、數(shù)是（）（1 分）A15B、18C10D、0如果要清除在窗體中打印輸出的文字，可以利用（）語句（1 分）AInputB、LoadCClsD、Paintcase表達(dá)式表列，其中的表達(dá)式表列不正確的為（）（1 分）OACase100*a，CCaseIs300016、下列說法錯(cuò)誤的是（）（1 分）ClAVB 聲明數(shù)組時(shí)既可指定上界也可指定下界國(guó) C 數(shù)組元素的下標(biāo)可以是數(shù)值，也可以是結(jié)果在上下界之間的數(shù)值表達(dá)式17、下面的四個(gè)數(shù)組說明語句語法正確的是（）（1分）dB、Case1000To2000D、Case2000Is4:x=x*y:y=y+1:Loop 執(zhí)行后 x 的結(jié)*B、4D、20口 B、變量

5、名的最后一個(gè)字符可以是類型聲明字符D、不能與關(guān)鍵字同名JB、Dimmynameasstringr-D、dimMyString=Hello,+Myfriend!cB、.368JD、2.5EOR2*ac 的值是（）（1 分）B、FalseCDIMX（20）18、以下程序段：x=1:y=4:DoUntil 果為（）（1 分）因 A1C819、以下聲明和命名標(biāo)識(shí)符錯(cuò)誤的是（）（1 分）口 A 必須以字母開頭叵 C 長(zhǎng)度不能超過 8 個(gè)字符20、下列說明錯(cuò)誤的是（）（1 分）E3AConstMyVar#=123Cdimaasinteger,dimbassingle21、VB 中允許出現(xiàn)的數(shù)據(jù)形式為（）（

6、1 分）成A1.89E1.1。CD3222、設(shè) a=2,b=3,c=4,d=5,下列表達(dá)式 abANDc=d忖ATATrue。C-1BD、123、語句 6*66/6 的輸出結(jié)果是（）（1 分）國(guó) A6CB、12卜；1C36 二 ID、21624、給窗體 form1 加載背景圖片，應(yīng)使用（）函數(shù)（1 分）LApicture,B、ucase因 GloadpictureD_LD、image25、字符串河南農(nóng)業(yè)大學(xué)現(xiàn)教部的長(zhǎng)度是（）（1 分）dA18CB、10卜;IC90D、16、填空題（12 道小題，共 35 分）51、 設(shè)定系統(tǒng)當(dāng)前日期是 2004 年 5 月 12 日， Month （date）

7、=。122、設(shè) A$=VisualBasic,len（a$）函數(shù)返回值是。I 窗體3、在窗體的聲明部分，語句 Privatex%語句，是將變量定?為?變量。（2 分）truefalse兩個(gè)值。5、順序文件讀操作用語句6、一個(gè)工程可以包括多種類型的文件，其中擴(kuò)展名為.frx 的文件表示文件不可見的7、Command1.Visible=False,是將命令按鈕 1 設(shè)為I_口貨幣八、10、DimXAsCurrency 是將變量 X 定?為型。（2 分）11、某次大獎(jiǎng)賽，有 6 個(gè)評(píng)委打分，如下代碼對(duì)一名參賽者，輸入 6 個(gè)評(píng)委的打分分?jǐn)?shù)，去掉一個(gè)最高分和一個(gè)最低分后，求出平均分，即為該參賽者的得分

8、。代碼中 aver 變量存放平均分，max1 變量存放最高分，min1 變量存放最低分。請(qǐng)?jiān)诳站€處補(bǔ)充使之完整。PrivateSubCommand7_Click（）Dimmark!,aver!,i%,max1!,min1!aver=0Fori=1To6mark=InputBox（輸入第&i&位評(píng)委的打分）Ifi=1Thenmax1=mark:min1=markElseIfmarkmax1Thenmax1=markEndIfEndIfaver=aver+markNext（aver-min1-max1）/4aver=PrintaverEndSub（9 分）12、這是一個(gè)用戶名校驗(yàn)程

9、序。用戶名為“user”，密碼為“1234”，單擊按鈕：（1）如果用戶名和密碼均正確，即輸出歡迎 user 來到歡樂世界！字樣（2）若用戶名錯(cuò)誤，則要求重新輸入用戶名（3）如果用戶名正確，密碼錯(cuò)誤，則彈出“密碼錯(cuò)誤！”警告窗口，并直接退出程序。8、當(dāng)鼠標(biāo)在控件上暫停時(shí)，顯示提示信息，要用tooltiptext屬性。9、Textel.SetFocus語句功能是把焦點(diǎn)移到textl上。（2 分）OptionExplicitDimUserNameAsString,userpasswordasstringDiminputNameAsString,inputpasswordasstringPrivate

10、Subform_load（）UserName=user:userpassword=1234endsubprivatesubcommand1_click（）gt:inputName=InputBox（請(qǐng)輸入用戶：,用戶名確認(rèn)，）T-username=user仆msgbox用戶名錯(cuò)誤，請(qǐng)重新輸入”gotogtelseinputpassword=InputBox（請(qǐng)輸入密碼：,密碼驗(yàn)證，）ifinputpassworduserpasswordthenendmsgbox”密碼錯(cuò)誤！:elseMsgBox歡迎&UserName&來到歡樂世界！EndIfendifEndSub（6 分）正確

11、 d 錯(cuò)誤7、在 for 循環(huán)結(jié)構(gòu)對(duì)循環(huán)變量的賦值中，終值可以大于初值，也可以小于初值。（1 分）正確 n 錯(cuò)誤8、將文本框 Textl 中的內(nèi)容清除，可使用語句 Textl.cls。（1 分）正確.錯(cuò)誤9、文件名的命名規(guī)則同變量的命名規(guī)則一樣。（1 分）正確 d 錯(cuò)誤10、InputBox 函數(shù)返回值的類型是字符串類型。（1 分）錯(cuò)誤四、編程題（4 道小題，共 60 分）1、編寫程序，計(jì)算并輸出下面?數(shù)前 n 項(xiàng)（n=10）的部分和。（要求用循環(huán)做，非循環(huán)不給分。）1!+2!+3!+4!+n!（15 分）必須將本題程序最后的運(yùn)行結(jié)果填入下面的框中。否則，該題以零分計(jì)！4037913請(qǐng)將你解答

12、本題所寫的源程序粘貼到下面或者上載源程序DimaAsLong,bAsLong,cAsIntegern=InputBox（請(qǐng)輸入一個(gè)正整數(shù),階乘和,10）a=1b=oForc=1Tona=a*cb=b+aNextPrintbrlIj請(qǐng)將你解答本題所寫的源程序粘貼到下面或者上載源程序PrivateSubCommand2_Click()DimiAsInteger,jAsIntegerFori=1To4PrintTab(30-3*i);Forj=1To2*i-1Print2*i-1;NextNextEndSub3、編寫程序，輸出 1001000 之間的所有質(zhì)數(shù)，并給出 1001000 之間質(zhì)數(shù)的個(gè)數(shù)及

13、其和。(15 分)必須將本題程序最后的運(yùn)行結(jié)果填入下面的框中。否則，該題以零分計(jì)！4、編寫程序，用牛頓切線法求方程 f(x)=3xA3-4xA2-5x+13=0(其中人表示募運(yùn)算)在區(qū)間1,2上的近似實(shí)根 r,迭代初值自選，精確到 0.0001o提示：計(jì)算公式為 x=x-f(x)/f(x)(15 分)必須將本題程序最后的運(yùn)行結(jié)果填入下面的框中。否則，該題以零分計(jì)！請(qǐng)將你解答本題所寫的源程序粘貼到下面或者上載源程序考號(hào)：601110016 姓名：李洋洋剩余時(shí)間：58:51 保存交卷退出幫助強(qiáng)烈建議您使用 IE5.0 以上，屏幕分辨率 800X600 以上，真彩，小字體瀏覽三、判斷題（10 道小題，共 10 分）1、VB 中請(qǐng)求對(duì)象執(zhí)行某一操作的要求稱為方法。（1 分）“正確錯(cuò)誤2、False 為字符型常量。（1 分）正確錯(cuò)誤3、語句 Print25*40 執(zhí)行時(shí)輸出的結(jié)