一、填空題每題1分,共10分1.把數學式子：寫成VB的數值表達式為Sqr1+3.14159/2Sin253.14159/180;2．設A=5,B=6,C=7,D=8,表達式3>2BORA=CANDB<>CORC>D的值是True;3．若Case子句中的表達式表列具有形式：<表達式1>To<表達式2>,則它的含義是：當測試表達式的值等于指定范圍內的值時,執行該Case子句相應的語句塊;4．執行下面的程序段后,x的值為12;x=0Fori=1To8Step3x=x+iNexti5．在圖片框上放置的控件稱為圖片框的子對象,而窗體是圖片框的父對象;6．將命令按鈕Command1的Caption屬性值賦給文本框Text1的Text屬性使用的語句為Text1.Text=Command1.Caption7．復選框的Value屬性為1時,表示復選框被選中;8.使用滾動條可以獲取某一范圍內的數值輸入;為使垂直滾動條的Value屬性值從下往上遞增變化,應設置滾動條Min屬性值大于Max屬性值;9．語句：DimA-3to4asInteger定義的一維數組A的元素個數是8;10．給定如下子過程：FunctionfunByValnumAsLongAsLongDimkAsLong,iAsIntegerk=1Fori=1Tonum k=kiNextiEndFunction執行語句Printfun5后在窗體上顯示的結果為0;二、單項選擇題每題1.5分,共30分1.裝載窗體是窗體的C;A對象B屬性C事件D方法2.設a="VisualBasic",下面使b的值為"Basic"的賦值語句正確的是B;Ab=Lefta,8,12Bb=Mida,8,5Cb=Righta,5,5Db=Lefta,8,53．設X為整型變量,不能正確表達1<X<5的邏輯表達式是A;A1<X<5BX=2orX=3orX=4C1<XAndX<5DNotX<=1AndNotX>=54．InputBox函數返回值的類型為B;A數值型B字符串型C邏輯型D貨幣型5．執行語句：Print4+5\68/8Mod9輸出的值是A;A4B5C6D76.下列循環語句能正常結束循環的是C;Ai=5Bi=1DoDoi=i+1i=i+2LoopUntili<0LoopUntili=10Ci=10Di=6DoDoi=i+1i=i-2LoopUntili>0LoopUntili=17．以下敘述中正確的是A;A窗體的Name屬性指定窗體的名稱,用來標識一個窗體B窗體的Name屬性的值是顯示在窗體標題欄中的文本C可以在運行期間改變窗體的Name屬性的值D窗體的Name屬性值可以為空8．VB為命令按鈕提供的Cancel屬性A;A用來指定命令按鈕是否為窗體的“取消”按鈕B用來指定命令按鈕的功能是停止一個程序的運行C用來指定命令按鈕的功能是關閉一個運行程序D用來指定命令按鈕的功能是中斷一個程序的運行9．若使命令按鈕失效,要對A屬性設置為False;AEnabled BVisible CBackColor DCaption10．在窗體中添加兩個文本框其Name屬性分別為Text1和Text2和一個命令按鈕Name屬性為Command1,然后編寫如下兩個事件過程：PrivateSubCommand1_Clicka=UCaseText1.Text+LeftText2.Text,3PrintaEndSubPrivateSubForm_LoadText1.Text="abcDEF"Text2.Text="123456"EndSub程序啟動后,單擊命令按鈕,輸出結果為CAabcDEF123456BabcDEF123CABCDEF123Dab12345611．在運行程序時,要使文本框獲得焦點,則需使用B方法;AChange BSetFocus CGotFocus DMove12．下列語句中不能把圖片框Picture1中的圖形清除的是A;APicture1.DelBPicture1.Picture=LoadPicture""CPicture1.Picture=LoadPictureDPicture1.Picture=Nothing13．要刪除列表框中的某一個項目,需要使用D方法;AClear BReMove CMove DReMoveItem14．在組合框中選擇某一項目內容,在程序中可以通過D屬性獲得;AList BListIndex CListCount DText15．若有數組說明語句：DimaASInteger,則a被定義為B;A定長數組B可調數組C靜態數組D可變類型數組16．有如下語句：TypeStudentNameAsStringAgeAsIntegerSexAsStringEndTypeDimStuAsStudentWithStu.Name="李強".Age=21.Sex="男"EndWith執行語句PrintStu.Age后在窗體上顯示的結果是B;A李強B21C“男17.要使子過程f1調用后能用形式參數返回兩個結果,下面子過程定義正確的是C;ASubf1ByValn%,ByValm%BSubf1n%,ByValm%<子過程體><子過程體>EndSubEndSubCSubf1n%,m%DSubf1ByValn%,m%<子過程體><子過程體>EndSubEndSub18.以下敘述中錯誤的是D;A一個工程中可以包含多個窗體文件B在一個窗體文件中用Private定義的子過程或函數過程不能被其他窗體文件調用C在設計VB程序時,窗體模塊和標準模塊需要分別保存為不同類型的文件D全局變量必須在標準模塊中定義19．從磁盤上打開順序文件"c:\t1.txt"為讀入數據做好準備,如下語句A是正確的;AF="c:\t1.txt"BF="c:\t1.txt"OpenFForInputAs1Open"F"ForInputAs2COpen"c:\t1.txt"ForOutputAs1DOpenc:\t1.txtForInputAs220.以下敘述中正確的是B;A一個記錄中所包含的各個元素的數據類型必須相同B隨機文件中每個記錄的長度是固定的COpen命令的作用是打開一個已經存在的文件D使用Input語句可以從隨機文件中讀取數據三、程序閱讀題第1題3分,第2題5分,其余題各4分,共24分1．當x的輸入值分別為4、8和12時,寫出執行下列事件過程的輸出結果;PrivateSubCommand1_ClickDimx%,y%x=InputBox"請輸入x的值："SelectCasexCase1,3,5,7y=x+10Case8To10y=x+2Case2,4,6y=5xCaseIs>10y=xx+1EndSelectPrint"x=";x,"y=";yEndSubx=4y=20x=8y=10x=12y=1452.寫出執行下列事件過程的輸出結果;PrivateSubCommand1_ClickConstn=3DimiAsInteger,kAsIntegerFori=1TonPrintTabn-i2+1;Fork=1ToiPrintStrk;NextkFork=i-1To1Step-1PrintStrk;NextkPrintNextiEndSub1121123213.設在一個窗體如圖所示中已設置了一個組合框Combo1和文本框Text1,且有下列程序,試寫出事件過程Combo1_Click的功能;DimstrAsStringPrivateSubForm_Loadstr=""Combo1.AddItem"北京"Combo1.AddItem"天津"Combo1.AddItem"西安"Combo1.AddItem"上海"Combo1.AddItem"武漢"Combo1.AddItem"廣州"Combo1.AddItem"海口"Combo1.Text="北京"EndSubPrivateSubCombo1_Clickstr=str&Combo1.Text&","Text1.Text=strEndSub在文本框中顯示單擊組合框列表項目時該項目的內容,而且以后來添加的方式在文本框中顯示所有選擇項目的內容;4.寫出執行下列事件過程的輸出結果;PrivateSubForm_ClickDima1To2,1To2AsIntegerDimiAsInteger,jAsIntegerFori=1To2Forj=1To2ai,j=2i-14+jNextjNextiFori=1To2Printai,3-i,a3-i,iNextiEndSub6131365．寫出執行下列事件過程的輸出結果;PrivateSubCommand1_ClickDimaAsInteger,bAsIntegera=3:b=2Callf8,aPrint"a=";a,"b=";bCallfa,bPrint"a=";a,"b=";bEndSubPrivateSubfByValxAsInteger,yAsIntegerx=x+1y=y-1EndSuba=2b=2a=2b=16．若有如下窗體模塊：DimaAsIntegerPrivateSubtestDimbAsIntegera=a+1:b=b+1Print"Sub:";a,bEndSubPrivateSubCommand1_Clicka=2:b=3CalltestCalltestEndSub寫出當程序啟動并單擊命令按鈕后,在窗體中顯示的結果;Sub：31 Sub：41四、程序填空題每空2分,共22分1.下面事件過程的功能是：輸入某個學生某門課程的百分制成績,并根據成績輸出評語,若0≤成績＜60時,評語為“差”；若60≤成績＜70時,評語為“通過”；若70≤成績＜80時,評語為“中等”；若80≤成績＜90時,評語為“良好”；若90≤成績≤100時,評語為“優秀”,在橫線上填上適當內容;PrivateSubCommand1_ClickDimss=InputBox"請輸入學生的成績："If0<=sAnds<=100ThenSelectCase1sCaseIs>=90Print"優秀"CaseIs>=80Print"良好"CaseIs>=70Print"中等"CaseIs>=60Print"通過"2CaseElse或Is>=0Print"差"EndSelectEndIfEndSub2.下面程序的功能是：計算f=1-1/2×3+1/3×4-1/4×5+…+1/19×20的值,在橫線上填上適當內容;PrivateSubForm_ClickDimfAsSingle,iAsInteger,signAsInteger3sign=-1f=14fori=2to19f=f+sign/ii+15sign=sign-1NextiPrint"f=";fEndSub3.下面窗體模塊的功能是：從鍵盤上輸入x,y和z的值,按如下公式求fx,y,z的值的程序,在橫線上填上適當內容;fx,y,z=sinx/sinx-ysinx-z+siny/siny-zsiny-x+sinz/sinz-xsinz-y其中x、y和z互不相等;FunctionfByValaAsSingle,ByValbAsSingle,ByValcAsSingle6AsSingle7f=Sina/SinbSincEndFunctionPrivateSubCommand1_ClickDimx,y,z,sx=InputBox"x="y=InputBox"y="z=InputBox"z="Ifx<>yAndy<>zAndz<>xThens=fx,x-y,x-z+fy,y-z,y-x+8fz,z-x,z-yPrint"s=";sElsePrint"數據輸入錯誤"EndIfEndSub4.下面事件過程的功能是從學生分數順序文件D:\file1.dat中讀取各個學生的分數,并求該班的平均成績,在橫線上填上適當內容;PrivateSubcommand1_ClickDimn%,score,sOpen"D:\file1.dat"9As3ForInputn=0:s=0While10