./[HNCE網(wǎng)上考試系統(tǒng)v9.6]本套軟件使用權(quán)屬于：大學(xué)考試課程:考試時間: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,"########.##">的顯示結(jié)果是______。〔1分B、123.234001234.234C、123.234001234.233、以下關(guān)于InputBox函數(shù)的敘述中,錯誤的是______。〔1分A、InputBox函數(shù)的"提示信息參數(shù)"不能缺省B、每執(zhí)行一次InputBox函數(shù),只能輸入一個值C、InputBox函數(shù)的返回值是數(shù)值型的D、要保存InputBox函數(shù)的返回值必須賦予一個變量4、以下不合法的常量是______。〔1分A、10^2B、100C、100.0D、10E+015、程序如下：k=0:DoUntilk>10:k=k+1:Loop的循環(huán)體執(zhí)行次數(shù)是______。〔1分A、9B、10C、11D、無數(shù)次6、設(shè)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屬性已設(shè)置為3-Both,但卻沒有水平和垂直滾動條的效果,原因可能是______。〔1分A、文本框中沒有容B、文本框的MultiLine屬性為FalseC、文本框的MaxLength屬性為0D、文本框的Locked屬性是True9、下面四個語句中,正確的賦值語句是______。〔1分A、a=a+cB、a+c=aC、c+a=aD、a－c=a10、窗體上有一個文本框和一個命名按鈕,當向文本框中輸入一個字符時,命令按鈕的標題設(shè)置為"計算機考試"。下面正確的事件過程為______。〔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的值是______。〔1分A、26B、27C、38D、5712、啟動VisualBasic后,VB為用戶新建立的第一個工程的名字是______。〔1分A、窗體1B、工程C、窗體D、工程113、下列敘述中,正確的是______。〔1分A、工程文件〔.vbp應(yīng)用程序可以在任何計算機上運行B、打開一個工程文件,系統(tǒng)自動裝入與該工程有關(guān)的窗體文件C、VB工程文件中可以沒有窗體文件D、退出VB系統(tǒng)前要保存新創(chuàng)建的應(yīng)用程序,只需保存工程文件〔.vbp即可14、若要選擇Text對象的Text1_KeyPress事件,可以______。〔1分A、在屬性窗口中選擇B、在工程資源管理器窗口中選擇C、在代碼設(shè)計窗口中利用對象列表框、過程列表框選擇D、在窗體設(shè)計窗口中雙擊Text1對象15、Cls方法可以清除窗體或圖片框中的______。〔1分A、在設(shè)計階段使用Picture設(shè)置的背景位圖B、在設(shè)計階段放置的控件C、在運行階段產(chǎn)生的圖形和文字D、以上全部容16、比較兩個數(shù)中較大的數(shù)的程序段,錯誤的是______。〔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<>中能完成這個功能的命令為______。〔1分A、Label1.Left=100B、Label1.Left=Label1.Left-100C、Label1.Move100D、Label1.MoveLabel1.Left+10018、能產(chǎn)生[10,32]之間隨機整數(shù)的函數(shù)表達式為______。〔1分A、Int<Rnd*22>+10B、Int<Rnd*23>+10C、Int<Rnd*22>+11D、Int<Rnd*23>+1119、不屬于一個工程文件〔*.vbp里的文件是______。〔1分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)的程序設(shè)計語言相比較,VisualBasic最突出的特點是______。〔1分A、結(jié)構(gòu)化的程序設(shè)計B、數(shù)據(jù)處理C、面向?qū)ο蟮目梢暬幊藾、中文支持22、能夠盛放其他控件,而且是最基本的對象是______。〔1分A、窗體B、圖像C、標簽D、文本23、窗體設(shè)計器是用于設(shè)計______。〔1分A、窗體的代碼B、對象的屬性C、應(yīng)用程序的代碼D、應(yīng)用程序的界面24、如果VB環(huán)境中缺少某個窗口,一般應(yīng)從主菜單______的下拉菜單中找到相應(yīng)的激活命令。〔1分A、編輯B、文件C、視圖D、調(diào)試25、在下列語句中,正確的是______。〔1分A、Text1.Text+Text2.Text=Text3.TextB、Command1.Name="cmdok"C、Label1.Caption=4567D、x=InputBox<pleaseinput>26、執(zhí)行語句age=InputBox<"請輸入數(shù)值","年齡輸入框","38">,如果從鍵盤上輸入數(shù)值20并按回車鍵,則下列敘述中,不正確的敘述是______。〔1分A、變量Age的值是數(shù)值20B、對話框標題欄中顯示的是"年齡輸入框"C、對話框的默認值是38D、對話框的提示文字為"請輸入數(shù)值"27、PrintDateDiff<"m",#1/28/2004#,#1/31/2004#>的輸出結(jié)果是______。〔1分A、OB、1C、-1D、228、在下列符號常量的聲明中,______是不合法的。〔1分A、ConstaAsSingle=2.6B、ConstaAsInteger="ab"C、ConstaAsDouble=2*2D、Consta="OK"29、執(zhí)行程序段：Constc$="Henan":c$="Zhengzhou":c$="Daxue":Printc$,輸出的結(jié)果是______。〔1分A、HenanB、ZhengzhouC、DaxueD、顯示出錯信息30、m、n是整數(shù),且n>m,在以下4個語句中,能將x賦值為一個m～n之間〔含m,n的任意整數(shù),即滿足m≥x≥n的是______。〔1分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"等級";"考試",輸出的結(jié)果是______。〔1分A、等級考試B、等級;考試C、"等級考試"D、"等級";"考試"32、下列數(shù)據(jù)中,______是日期型數(shù)據(jù)。〔1分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,輸出的結(jié)果是______。〔1分A、6B、8C、10D、1435、InputBox函數(shù)返回值的類型為______。〔1分A、數(shù)值B、字符串C、變體D、數(shù)值或字符串36、設(shè)有變量聲明：DimTestDateAsDate,為變量TestDate正確賦值的表達方式是______。〔1分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、下面表達式中,______的運算結(jié)果與其他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的正確含義是______。〔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$,輸出的結(jié)果是______。〔1分A、ChiB、aaaC、iiiD、ina40、執(zhí)行程序段：DimaxsAsInteger:axs%=232:axs=232.32:Printaxs%;axs,輸出的結(jié)果是______。〔1分A、232232032B、232232C、232.32232.32D、顯示出錯信息41、變量未賦值時,數(shù)值型變量的值為______。〔1分A、OB、空串""C、NullD、沒任何值42、假設(shè)變量iVar是一個整型變量,則執(zhí)行賦值語句iVar="2"+"3"之后,變量iVar的值是______。〔1分A、2B、3C、5D、2343、語句Print4+5\6*7/8Mod9的值是______。〔1分A、4B、5C、6D、744、執(zhí)行語句PrintFormat<32548.5,"###,##0.00">,輸出結(jié)果是______。〔1分A、32548.5B、32,548.5C、032,548.50D、32,548.5045、下列不合法的常量形式是______。〔1分A、"1O0"B、100.0C、1OE+0.5D、ConstG=23+1246、設(shè)有變體變量x,執(zhí)行語句：x=InputBox<"輸入數(shù)值","0","示例">后,如果從鍵盤上輸入10并按回車鍵,則下列敘述中正確的是______。〔1分A、變量x的值是數(shù)值10B、在InputBox對話框標題欄中顯示的是"示例"C、0是默認值D、變量x的值是字符串"10"47、下列符號常量的聲明中,______是不合法的。〔1分A、ConstaAsSingle=1.1B、ConstaAsInteger="12"C、ConstaAsDouble=Sin<1>D、Consta="OK"48、某中心選拔身高T超過1.7米且體重W小于52.5公斤的學(xué)員,能正確表示該條件的布爾表達式是______。〔1分A、T>=1.7AndW<=52.5B、T<=1.7OrW>=52.5C、T>1.7AndW<52.5D、T>1.7OrW<62549、以下聲明語句中,錯誤的是______。〔1分A、Constvarl=123B、Constvar2="ABC"C、Publicconst="計算機等級考試"D、Staticvar3asInteger50、表達式"Turbo"+"C">"True"+"Basic"的值是______。〔1分A、TrueB、FalseC、NullD、出錯信息二、填空題〔7道小題,共30分1、*產(chǎn)生50個60~100的隨機數(shù),統(tǒng)計其中被6整除余2的個數(shù),并將這些數(shù)輸出。

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以的整數(shù)用冒泡法按遞減順序排序。

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、*隨機產(chǎn)生n個兩位整數(shù),求出其中的最大值和最小值。

PrivateSubCommand1_Click<>

Dima<100>AsInteger,nAsInteger,iAsInteger

DimminAsInteger,maxAsInteger

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

Print"產(chǎn)生的隨機數(shù)為"

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、*利用判斷一個三位數(shù)是否為對稱數(shù)〔如：343的函數(shù)過程,求出所有三位對稱數(shù)之和。

*程序代碼如下：

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〔斐波那契數(shù)列〔0、1、1、2、3、5、8...的前20項及前20項的和。

*程序代碼如下：

PrivateSubCommand1_Click<>

Dims&,a%,b%,c%

a=0:b=1

=a+b