本文格式為Word版，下載可任意編輯——大學(xué)計算機(jī)基礎(chǔ)VB模擬題

本卷共有4道大題:

一、單項選擇題（25道小題，共25分）1、VB中工程軟件的擴(kuò)展名為(C)（1分）A、dsB、frmC、vbpD、bas

2、把字符串\\右邊的空格去掉應(yīng)使用(B)函數(shù)（1分）A、trimB、rtrimC、rightD、mid

3、文本框text1的text屬性的數(shù)據(jù)類型是(B)（1分）A、整數(shù)型B、字符串C、單精度D、雙精度

4、以下(B)屬性決定窗體標(biāo)題欄顯示內(nèi)容（1分）A、NameB、CaptionC、TextD、BackStyle

5、命令按鈕command1不具有以下哪個事件(C)（1分）A、ClickB、KeyPressC、GotFocusD、DblClick

6、為了使文本框同時具有水平和垂直滾動條，應(yīng)先將MultiLine屬性設(shè)置為True,然后再把ScrollBars屬性設(shè)置為()（1分）A、0B、1C、2D、3

7、DimD(3,1To10,1To15)語句中，數(shù)組的元素個數(shù)為()（1分）A、3*10*16B、3*11*16C、4*10*15D、4*11*15

8、假使整型變量c、d、x的值分別為8、6、0，則以下語句ForI=ctod:x=x+i:NextI執(zhí)行終止時，I的值為(A)（1分）A、8B、7C、6D、5

9、假定有以下循環(huán)結(jié)構(gòu)DoUntil條件循環(huán)體Loop則正確的描述是(C)（1分）A、假使\條件\是一個為0的常數(shù)，則一次循環(huán)體也不執(zhí)行B、假使\條件\是一個為0的常數(shù)，則至少執(zhí)行一次循環(huán)體

C、假使\條件\是一個不為0的常數(shù)，則至少執(zhí)行一次循環(huán)體D、不管\條件\是否為\真\，至少要執(zhí)行一次循環(huán)體

10、\是小于100的非負(fù)數(shù)\，用VB表達(dá)式表示正確的是(D)（1分）A、0,其中的表達(dá)式表列不正確的為(D)（1分）A、Case100*aB、Case1000To2000C、CaseIs4:x=x*y:y=y+1:Loop執(zhí)行后x的結(jié)果為(B)（1分）A、1B、4C、8D、20

19、以下聲明和命名標(biāo)識符錯誤的是(B)（1分）

A、必需以字母開頭B、變量名的最終一個字符可以是類型聲明字符C、長度不能超過8個字符D、不能與關(guān)鍵字同名

20、以下說明錯誤的是(C)（1分）

A、ConstMyVar#=123B、Dimmynameasstring

C、dimaasinteger,dimbassingleD、dimMyString=\

21、VB中允許出現(xiàn)的數(shù)據(jù)形式為(D)（1分）A、1.89E1.1B、.368C、D32D、2.5E

22、設(shè)a=2,b=3,c=4,d=5,以下表達(dá)式a>bANDcc的值是(B)（1分）A、TrueB、FalseC、-1D、1

23、語句6*6\\6/6的輸出結(jié)果是(C)（1分）A、6B、12C、36D、216

24、給窗體form1加載背景圖片，應(yīng)使用(D)函數(shù)（1分）A、pictureB、ucaseC、loadpictureD、image

25、字符串\河南農(nóng)業(yè)大學(xué)現(xiàn)教部\的長度是(A)（1分）A、18B、10C、9D、16

二、填空題（12道小題，共35分）

1、設(shè)定系統(tǒng)當(dāng)前日期是2023年5月12日，Month(date)=（5）。2、設(shè)A$=\函數(shù)返回值是（）。

3、在窗體的聲明部分，語句Privatex%語句，是將變量定義為（1）級變量。

4、規(guī)律型數(shù)據(jù)只有（）兩個值。

5、順序文件讀操作用（case）語句。

6、一個工程可以包括多種類型的文件,其中擴(kuò)展名為.frx的文件表示()文件。

7、Command1.Visible=False,是將命令按鈕1設(shè)為(隱蔽)。

8、當(dāng)鼠標(biāo)在控件上暫停時，顯示提醒信息，要用（）屬性。

9、Texte1.SetFocus語句功能是把焦點(diǎn)移到（）上。

10、DimXAsCurrency是將變量X定義為（貨幣）型。

11、某次大獎賽，有6個評委打分，如下代碼對一名參賽者，輸入6個評委的打分分?jǐn)?shù)，去掉一個

最高分和一個最低分后，求出平均分，即為該參賽者的得分。代碼中aver變量存放平均分，max1變量存放最高分，min1變量存放最低分。請在空線處補(bǔ)充使之完整。PrivateSubCommand7_Click()Dimmark!,aver!,i%,max1!,min1!aver=0

Fori=1To6

mark=InputBox(\輸入第\位評委的打分\Ifi=1Then

max1=mark:min1=markElse

Ifmarkmax1Then（）EndIfEndIf

aver=aver+markNext

aver=（）PrintaverEndSub

（9分）

12、這是一個用戶名校驗程序。用戶名為“user〞，密碼為“1234〞,單擊按鈕：（1）假使用戶名和密碼

均正確，即輸出\歡迎user來到開心世界！\字樣（2）若用戶名錯誤，則要求重新輸入用戶名（3）如

果用戶名正確，密碼錯誤，則彈出“密碼錯誤！〞警告窗口，并直接退出程序。OptionExplicit

DimUserNameAsString,userpasswordasstringDiminputNameAsString,inputpasswordasstringPrivateSubform_load()

UserName=\endsub

privatesubcommand1_click()

gt:inputName=InputBox(\請輸入用戶：\用戶名確認(rèn)\if（）Then

msgbox\用戶名錯誤，請重新輸入??\

gotogtelse

inputpassword=InputBox(\請輸入密碼：\密碼驗證\ifinputpassworduserpasswordthen

msgbox\密碼錯誤！\（）

elseMsgBox\歡迎\來到歡樂世界！\EndIfendifEndSub

三、判斷題（10道小題，共10分）1、False為字符型常量。（1分）正確錯誤

2、VB中請求對象執(zhí)行某一操作的要求稱為\方法\。（1分）正確錯誤

3、語句Print25*40執(zhí)行時輸出的結(jié)果是1000。（1分）正確錯誤

4、窗體的卸載使用Load語句。（1分）正確錯誤

5、表達(dá)式268=\的結(jié)果為True。（1分）正確錯誤

6、語句if0thenprint\是錯誤的。（1分）正確錯誤

7、在for循環(huán)結(jié)構(gòu)對循環(huán)變量的賦值中，終值可以大于初值，也可以小于初值。（1分）正確錯誤

8、將文本框Text1中的內(nèi)容清除，可使用語句Text1.cls。（1分）正確錯誤

9、文件名的命名規(guī)則同變量的命名規(guī)則一樣。（1分）正確錯誤

10、InputBox函數(shù)返回值的類型是字符串類型。（1分）正確錯誤

四、編程題（4道小題，共60分）

1、編寫程序，計算并輸出下面級數(shù)前n項(n=10)的部分和。(要求用循環(huán)做，非循環(huán)不給分。)

1!+2!+3!+4!+……+n!

（15分）

必須將本題程序最后的運(yùn)行結(jié)果填入下面的框中。否則，該題以零分計!請將你解答本題所寫的源程序粘貼到下面或者上載源程序答案：

PrivateSubForm_Click()Dimn!,sum!n=1sum=0

Fori=1To10n=n*i

sum=sum+nNextPrintsumEndSub

2、編寫程序，輸出以下三角形：總行數(shù)在窗體單擊事件通過鍵盤輸入。(要求用循環(huán)做，非循環(huán)不給分。)1333555557777777

（15分）

PrivateSubForm_Click()

n=Val(InputBox(\輸入行數(shù)\Fori=1Ton

PrintTab(20-3*i);Forx=1To2*i-1Print2*i-1;NextPrintNextEndSub

3、編寫程序，輸出100～1000之間的所有質(zhì)數(shù)，并給出100～1000之間質(zhì)數(shù)的個數(shù)及其和。

PrivateSubForm_Click()

DimfAsBoolean,sum!,count%,i%Fori=100To1000f=True

Forj=2ToSqr(i)IfiModj=0Thenf=FalseExitForEndIfNextjIff=TrueThenPrinti;

count=count+1sum=sum+i

IfcountMod10=0ThenPrintEndIfNextiPrint

Printcount,sumEndSub

4、編寫程序，用牛頓切線法求方程f(x)=3x^3-4x^2-5x+13=0（其中^表示冪運(yùn)算）在區(qū)間[1，2]上

的近似實根r，迭代初值自選，確切到0.0001?！蔡嵝?計算公式為x=x