大一下-筆試題庫VisualBasic程序設(shè)計(jì)課程試卷2共

蘇州大學(xué)VisualBasic程序設(shè)計(jì)程試卷（2）頁考試形式閉 2002年5院 專學(xué) 成績一、選擇題（請(qǐng)將答案填寫在答題紙的相應(yīng)題號(hào)內(nèi) A.事件、方 B.方法、事 C.屬性、方 D.過程、事Form1ClickLabel1.Caption="Visual若本語句執(zhí)行前控件的Caption屬性取缺省值則該控件的名稱屬性和Caption屬 A. B. C. D.，同上題，該語句執(zhí)行后控件的名稱屬性和Caption屬性取值分別 ，Label，Visual B.Label1，VisualC.Label1，Caption D.Label，Label1 A.只能使用CallSubB.SubC.FunctionDFunctionCall在使用VisualBasic進(jìn)行圖形操作時(shí)，有關(guān)坐標(biāo)系的說明中錯(cuò)誤的 VisualBasicPrintVisualBasic坐標(biāo)系的Y軸，上端為0，越往下越大 Myv1&=5*x%\3+x%ModMyv2%=5*x%\3+x%ModMyv3&="5*X%\3+X%ModMyv4$=5*x%\3+x%Mod設(shè)Mys1,Mys2均為字符串型變量，Mys1="VisualBasic"、Mys2="b"，則下面關(guān)系表達(dá)式中結(jié)果為True的是 Mid(Mys1,8,1)>Len(Mys1)<>2*Instr(Mys1,Chr(66)&Right(Mys1,4)=Instr(Left(Mys1,6),"a")+60>Asc(Ucase(Mys2)) PrintFormat(1732.46,A. B. C.+ Open"Text.Dat"ForOutputAs的功能說明中錯(cuò)誤的 以順序輸出模式打開文件 ReDimDim當(dāng)你啟動(dòng)VisualBasic時(shí)在工具箱中所得到的全部工具都 B.C.添 D.固A方 B屬C事 D工 A BC D控件 確定了當(dāng)一個(gè)事件發(fā)生時(shí)執(zhí)行代碼A函 D通用過控件 A拖曳 B標(biāo)題C工具 D工程資源管理 鈕的Click事件。A BC DCommand1.Caption=屬性在執(zhí)行本語句前的取值分別 A BC D同上題，該語句執(zhí)行后，控件的名稱屬性和Caption屬性取值分別 ACommand，Visual BC D A屬性,對(duì)象,方法,事 B屬性,對(duì)象,事件,方C對(duì)象,屬性,方法,事件 D對(duì)象,屬性,事件,方法運(yùn)行下面的程序，單擊窗體后在窗體上顯示的內(nèi)容是（1） 與B語句的位置互換，再次執(zhí)行程序，單擊窗體后在窗體上顯示的內(nèi)容是（2） PrivateSubForm_Click()Dimx,yAsIntegerx=1:y=0DoWhilex<y=y 'Ax=x 'BPrintx,yEnd PrivateSubDimMystr,Mystr1,Mystr2AsStringMystr1="B"Fori=1ToMystr2=LCase(Mystr1)Mystr1=Mystr1&Mystr2Mystr=Mystr&Mystr1PrintMystrMystr1=Chr(Asc(Mystr1)+i)NextiEnd運(yùn)行下面的程序，當(dāng)單擊窗體時(shí)，窗體上顯示的內(nèi)容的第一行是（5）；第二行是（6）。PrivateSubTest(xAsInteger)x=x*2+1Ifx<6CallEndx=x*2+1Form1.PrintEndPrivateSubForm_Click()Test2EndSubMain()是本程序的起始過程，其他為窗體模塊中的事件過程。當(dāng)說明語句被注釋，說明語句B有效時(shí)，執(zhí)行本程序，分別單擊命令按鈕Command1和Command2，在窗體上顯示的輸出內(nèi)容是（7）；若將說明語句BA有效（刪去語句前的注釋號(hào)，執(zhí)行本程序，分別單擊命令按鈕Command1和Command2，在窗體上顯示的輸出內(nèi)容是（8）。PublicxAsIntegerSubMain()x=5Form1.Printx;End'DimyAsInteger PrivateSubCommand1_Click()DimyAsInteger y=x*2PrintEndPrivateSubCommand2_Click()y=x/2Printy;EndSub當(dāng)Sub過程Value形參表中存在ByVal關(guān)鍵字時(shí)，執(zhí)行本程序，單擊窗體在窗體上顯示的第一行內(nèi)容是（9），第二行內(nèi)容是（10）；若將形參表中的ByVal關(guān)鍵字刪除，（11） PrivateSubvalue(ByValmAsInteger,ByValnAsInteger)m=m*n=n-Print"m=";m,"n=";nEndSubPrivateSubDimxAsInteger,yAsIntegerx=10:y=15Callvalue(x,Print"x=";x,"y=";yEndSub圖6-1、6-2是應(yīng)用程序的部分界面。運(yùn)行程序首先出現(xiàn)圖6-1的框，要求用戶輸入6-3 PrivateSubDimpasswordAsStringIfpassword="Myname"d=MsgBox(" EndIfEndSubPrivateSubEnd6-1（16）PasswordChar屬性取值是（17）：Command1Default屬性取值是（18）。NN個(gè)連續(xù)的奇數(shù)之和。其中最大的奇數(shù)P=N（N+1）-143=19+17+15+13197-1是本程序的運(yùn)行界面。DimnAsIntegerPrivateSubDimnumAsLong,pAsInteger,xAsn= num=n*n*nText2.Text= p=n*(n+1)-1x=x&Str(p)&

Fori=1Ton-x=x&Str(p)&Nextp=p-x MsgBox數(shù)據(jù)錯(cuò)誤！48,"VB試題EndIfEndSubPrivateSubIfText1.Text<>""ThenText1.Text=""IfText2.Text<>""ThenText2.Text=""IfText3.Text<>""ThenText3.Text=EndPrivateSubCmd3_Click()End7-1的窗體中，命令按鈕“驗(yàn)證“和”清除“的名稱屬性分別是（23）和（24）。8-1OptionExplicitDimxAsIntegerPrivateFunctioncovert(xAsInteger)AsString DimrAsInteger,i,nAsInteger,cov,cAsStringr=xModDo cov=cov&r=xMod2Fori=（27） To1Step-1c=c&Mid(cov,i,1)Nexticovert=cEndPrivateSubCommand4_Click()EndPrivateSubIfText2.Text<>""ThenText2.Text=""x= EndSubPrivateSubIfText2.Text<>""ThenText2.Text=""x=Val(Text1.Text)EndSubPrivateSubIfText2.Text