鄭州大學VB模擬題5

./[HNCE網上考試系統(tǒng)v9.6]本套軟件使用權屬于：大學考試課程:考試時間:90分鐘考場:第一考場考試日期:考號：：剩余時間：89:45保存交卷退出幫助本卷共有3道大題:一、單項選擇題〔50道小題,共50分1、已知x=2,y=9,z=－4,邏輯表達式x>yORz>xANDNOTz>y的值是______。〔1分A、TrueB、-1C、0D、False2、PrintFormat<1234.234,"###.#####">;Format<1234.234,"########.##">的顯示結果是______?！?分B、123.234001234.234C、123.234001234.233、以下關于InputBox函數的敘述中,錯誤的是______?！?分A、InputBox函數的"提示信息參數"不能缺省B、每執(zhí)行一次InputBox函數,只能輸入一個值C、InputBox函數的返回值是數值型的D、要保存InputBox函數的返回值必須賦予一個變量4、以下不合法的常量是______?！?分A、10^2B、100C、100.0D、10E+015、程序如下：k=0:DoUntilk>10:k=k+1:Loop的循環(huán)體執(zhí)行次數是______?！?分A、9B、10C、11D、無數次6、設a=3,b=5,則以下表達式值為假的是______。〔1分A、a>=bAndb>l0B、<a>b>Or<b>2>C、<a<0>or<b>0>D、<5>a>And<b>2>7、abc％,abc!,abc$,abc#分別聲明abc是______。〔1分A、整型、單精度、字符串、雙精度變量B、整型、整型、字符串、雙精度變量C、單精度、整型、字符串、雙精度變量D、整型、雙精度、字符串、雙精度變量8、文本框中的ScrollBars屬性已設置為3-Both,但卻沒有水平和垂直滾動條的效果,原因可能是______?！?分A、文本框中沒有容B、文本框的MultiLine屬性為FalseC、文本框的MaxLength屬性為0D、文本框的Locked屬性是True9、下面四個語句中,正確的賦值語句是______?！?分A、a=a+cB、a+c=aC、c+a=aD、a－c=a10、窗體上有一個文本框和一個命名按鈕,當向文本框中輸入一個字符時,命令按鈕的標題設置為"計算機考試"。下面正確的事件過程為______。〔1分A、PrivateSubCommand1_Click<>:Command1.Caption="計算機考試":EndSubB、PrivateSubCommand1_Click<>:Text1="計算機考試":EndSubC、PrivateSubText1_Change<>:Command1.Caption="計算機考試":EndSubD、PrivateSubText1_Click<>:Text1.Caption="計算機考試":EndSub11、運行程序：x=2:Fori=1To10Step2:x=x+i:Next,x的值是______?！?分A、26B、27C、38D、5712、啟動VisualBasic后,VB為用戶新建立的第一個工程的名字是______。〔1分A、窗體1B、工程C、窗體D、工程113、下列敘述中,正確的是______?！?分A、工程文件〔.vbp應用程序可以在任何計算機上運行B、打開一個工程文件,系統(tǒng)自動裝入與該工程有關的窗體文件C、VB工程文件中可以沒有窗體文件D、退出VB系統(tǒng)前要保存新創(chuàng)建的應用程序,只需保存工程文件〔.vbp即可14、若要選擇Text對象的Text1_KeyPress事件,可以______?！?分A、在屬性窗口中選擇B、在工程資源管理器窗口中選擇C、在代碼設計窗口中利用對象列表框、過程列表框選擇D、在窗體設計窗口中雙擊Text1對象15、Cls方法可以清除窗體或圖片框中的______?！?分A、在設計階段使用Picture設置的背景位圖B、在設計階段放置的控件C、在運行階段產生的圖形和文字D、以上全部容16、比較兩個數中較大的數的程序段,錯誤的是______。〔1分A、IFx>yThenmax=xElsemax=yB、max=IIF<x>y,x,y>C、IFx>yThenmax=x:max=yD、max=x:Ifx<yThenmax=y17、窗體上有一個標簽Label1和一個命名按鈕Command1,當程序運行時每單擊一次命令按鈕,標簽就向右移動一定距離。在Command1_Click<>中能完成這個功能的命令為______?！?分A、Label1.Left=100B、Label1.Left=Label1.Left-100C、Label1.Move100D、Label1.MoveLabel1.Left+10018、能產生[10,32]之間隨機整數的函數表達式為______?！?分A、Int<Rnd*22>+10B、Int<Rnd*23>+10C、Int<Rnd*22>+11D、Int<Rnd*23>+1119、不屬于一個工程文件〔*.vbp里的文件是______?！?分A、*.txt文件B、*.bas文件C、*.cls文件D、*.frm文件20、程序如下：i=0:s=0:Do:i=i+2:s=i+s:LoopUntili>4,執(zhí)行后s的值是______〔1分A、10B、11C、12D、1521、與傳統(tǒng)的程序設計語言相比較,VisualBasic最突出的特點是______?！?分A、結構化的程序設計B、數據處理C、面向對象的可視化編程D、中文支持22、能夠盛放其他控件,而且是最基本的對象是______。〔1分A、窗體B、圖像C、標簽D、文本23、窗體設計器是用于設計______?！?分A、窗體的代碼B、對象的屬性C、應用程序的代碼D、應用程序的界面24、如果VB環(huán)境中缺少某個窗口,一般應從主菜單______的下拉菜單中找到相應的激活命令?！?分A、編輯B、文件C、視圖D、調試25、在下列語句中,正確的是______?！?分A、Text1.Text+Text2.Text=Text3.TextB、Command1.Name="cmdok"C、Label1.Caption=4567D、x=InputBox<pleaseinput>26、執(zhí)行語句age=InputBox<"請輸入數值","年齡輸入框","38">,如果從鍵盤上輸入數值20并按回車鍵,則下列敘述中,不正確的敘述是______。〔1分A、變量Age的值是數值20B、對話框標題欄中顯示的是"年齡輸入框"C、對話框的默認值是38D、對話框的提示文字為"請輸入數值"27、PrintDateDiff<"m",#1/28/2004#,#1/31/2004#>的輸出結果是______?！?分A、OB、1C、-1D、228、在下列符號常量的聲明中,______是不合法的?！?分A、ConstaAsSingle=2.6B、ConstaAsInteger="ab"C、ConstaAsDouble=2*2D、Consta="OK"29、執(zhí)行程序段：Constc$="Henan":c$="Zhengzhou":c$="Daxue":Printc$,輸出的結果是______?！?分A、HenanB、ZhengzhouC、DaxueD、顯示出錯信息30、m、n是整數,且n>m,在以下4個語句中,能將x賦值為一個m～n之間〔含m,n的任意整數,即滿足m≥x≥n的是______?！?分A、x=Int<Rnd*n>+mB、x=Int<Rnd*<n–m+1>>+mC、x=Int<Rnd*m>+nD、x=Int<Rnd*<n-m>>+m31、方法Print"等級";"考試",輸出的結果是______。〔1分A、等級考試B、等級;考試C、"等級考試"D、"等級";"考試"32、下列數據中,______是日期型數據?！?分A、"01/30/2004"B、Date<"01/30/2004">C、#01/30/2004#D、01/30/200433、下列選項中,______不是字符串常量。〔1分A、"你好"B、""C、"True"D、#False#34、執(zhí)行程序段：a=6:b=8:F=Sqr<a*a+b*b>:PrintF,輸出的結果是______?！?分A、6B、8C、10D、1435、InputBox函數返回值的類型為______。〔1分A、數值B、字符串C、變體D、數值或字符串36、設有變量聲明：DimTestDateAsDate,為變量TestDate正確賦值的表達方式是______?！?分A、TestDate=#1/1/2002#B、TestDate=#"1/1/2002"#C、TestDate=Date<"1/1/2002">D、TestDate=Format<"m/d/yy","1/l/2002">37、下面表達式中,______的運算結果與其他3個不同。〔1分A、Log<Exp<-3.5>>B、Int<-3.5>+0.5C、-Abs<-3.5>D、Sin<30*3.14/180>38、語句X=X+1的正確含義是______?！?分A、變量X的值與X+1的值相等B、將變量X的值存到X+1中去C、將變量X的值加1后賦給變量XD、變量X的值為139、執(zhí)行程序段：a$="China":b$=Right$<a$,3>:c$=String$<3,b$>:Printc$,輸出的結果是______。〔1分A、ChiB、aaaC、iiiD、ina40、執(zhí)行程序段：DimaxsAsInteger:axs%=232:axs=232.32:Printaxs%;axs,輸出的結果是______?！?分A、232232032B、232232C、232.32232.32D、顯示出錯信息41、變量未賦值時,數值型變量的值為______?！?分A、OB、空串""C、NullD、沒任何值42、假設變量iVar是一個整型變量,則執(zhí)行賦值語句iVar="2"+"3"之后,變量iVar的值是______?！?分A、2B、3C、5D、2343、語句Print4+5\6*7/8Mod9的值是______?！?分A、4B、5C、6D、744、執(zhí)行語句PrintFormat<32548.5,"###,##0.00">,輸出結果是______?！?分A、32548.5B、32,548.5C、032,548.50D、32,548.5045、下列不合法的常量形式是______?！?分A、"1O0"B、100.0C、1OE+0.5D、ConstG=23+1246、設有變體變量x,執(zhí)行語句：x=InputBox<"輸入數值","0","示例">后,如果從鍵盤上輸入10并按回車鍵,則下列敘述中正確的是______?！?分A、變量x的值是數值10B、在InputBox對話框標題欄中顯示的是"示例"C、0是默認值D、變量x的值是字符串"10"47、下列符號常量的聲明中,______是不合法的?！?分A、ConstaAsSingle=1.1B、ConstaAsInteger="12"C、ConstaAsDouble=Sin<1>D、Consta="OK"48、某中心選拔身高T超過1.7米且體重W小于52.5公斤的學員,能正確表示該條件的布爾表達式是______?！?分A、T>=1.7AndW<=52.5B、T<=1.7OrW>=52.5C、T>1.7AndW<52.5D、T>1.7OrW<62549、以下聲明語句中,錯誤的是______?！?分A、Constvarl=123B、Constvar2="ABC"C、Publicconst="計算機等級考試"D、Staticvar3asInteger50、表達式"Turbo"+"C">"True"+"Basic"的值是______?！?分A、TrueB、FalseC、NullD、出錯信息二、填空題〔7道小題,共30分1、*產生50個60~100的隨機數,統(tǒng)計其中被6整除余2的個數,并將這些數輸出。

PrivateSubcommand1_click<>

Dimx,nAsInteger

DimcounterAsInteger

For=1To50

x=Int<Rnd*41+60>

IfMod6=2Then

counter=counter+1

EndIf

Nextn

Printcounter

EndSub

〔4分2、*對10個100以的整數用冒泡法按遞減順序排序。

PrivateSubCommand1_Click<>

Dima<10>AsInteger,tAsInteger

DimiAsInteger,jAsInteger

Fori=1To10

a<i>=Int<Rnd*101>

Printa<i>;

Nexti:Print

Fori=1To9

Forj=1To10-i

Ifa<j><a<j+1>Then=a<j>:a<j>=a<j+1>:a<j+1>=t

Nextj

Nexti

Fori=1To10

Printa<>;

Nexti:Print

EndSub

〔4分3、*隨機產生n個兩位整數,求出其中的最大值和最小值。

PrivateSubCommand1_Click<>

Dima<100>AsInteger,nAsInteger,iAsInteger

DimminAsInteger,maxAsInteger

=InputBox<vbCrLf+vbCrLf+"n=">

Print"產生的隨機數為"

Randomize

Fori=1Ton

a<i>=Int<Rnd*90>+10

Printa<i>;

Nexti:Print

min=a<1>:max=min

Fori=2To

Ifa<i>>maxThenmax=a<i>

Ifa<i><minThenmin=a<i>

Nexti

Print"最大值為";max

Print"最小值為";min

EndSub

〔4分4、*輝三角形如圖所示{<x_5.jpg>}：

*完成下面程序。

PrivateSubForm_Click<>

Dima<1To10,1To10>AsInteger,i%,j%

Fori=1To10

a<i,1>=1

a<i,>=1

Nexti

Fori=3To10

Forj=2Toi-1

a<i,j>=a<i-1,j-1>+a<i-1,j>

Nextj

Nexti

Fori=1To10

Forj=1To

PrintTab<5*<j-1>+1>;a<i,j>;

Nextj

Print

Nexti

EndSub

[附圖3]〔4分5、*利用判斷一個三位數是否為對稱數〔如：343的函數過程,求出所有三位對稱數之和。

*程序代碼如下：

PrivateSubCommand1_Click<>

DimsumAsLong,nAsInteger

sum=0

Forn=100To999

Ifduicheng<n>thensum=sum+

Nextn

EndSub

PublicFunctionduicheng<ByVali%>AsBoolean

a=iMod10

c=i\100

Ifa=cThen

duicheng=true

Else

duicheng=False

EndIf

End

〔4分6、*用子過程輸出Fibonacci〔斐波那契數列〔0、1、1、2、3、5、8...的前20項及前20項的和。

*程序代碼如下：

PrivateSubCommand1_Click<>

Dims&,a%,b%,c%

a=0:b=1

=a+b