07759#VisualBasic程序設計試題第7頁共7頁浙江省2012年1月高等教育自學考試VisualBasic程序設計試題課程代碼：07759一、判斷題（本大題共10小題，每小題1分，共10分）判斷下列各題，正確的在題后括號內打“√”，錯的打“×”。1.一個VB的工程可以有多個窗體。()2.VB用2個字節存放Integer類型數據，因此其最大值為2的16次方，即65536。()3.在一個容器（窗體、圖片框或框架）內，只能有一個單選按鈕的Value屬性為True。()4.用來顯示文本框內容的屬性是Caption屬性。()5.過程中的靜態變量是局部變量，當再次執行過程時其值是上一次過程調用后的值。()6.單擊滾動條內的空白區域時，其Value值增或減的變化為SmallChange。()7.通用對話框的FileName屬性返回的是一個輸入或選取的文件全名。()8.若某一菜單項的Visible屬性為False，則它的各級子菜單也不可見。()9.執行語句“Callshell("e:＼aaa.exe")”，可以執行e盤根目錄下的文件aaa.exe。()10.若要新建一個磁盤上的順序文件，也可用APPEND方式打開文件。()二、單項選擇題(本大題共10小題，每小題1分，共10分)在每小題列出的四個備選項中只有一個是符合題目要求的，請將其代碼填寫在題后的括號內。錯選、多選或未選均無分。1.使窗體最大化的窗體屬性名是()A.WindowState B.MaxC.Min D.Style2.文本框中選定的內容，由______屬性來反映。()A.SelText B.SelLength C.Text D.Caption3.若i的初值為8，則下列循環語句的循環次數為()DoWhilei<=17i=i+2LoopA.3 B.4C.5 D.64.如果下一行語句是該行的繼行，該行的最后兩個可顯示字符應該是()A.下劃線、空格 B.空格、下劃線C.空格 D.下劃線5.按Tab鍵時，焦點在各個控件之間移動的順序是由各控件的______屬性來決定的。()A.Index B.TabIndex C.TabStop D.SetFocus6.若要使"XXX"成為List1清單中的第三項，則可執行語句()A.List1.AddItem"XXX",3 B.List1.AddItem"XXX",2C.List1.AddItem3,"XXX" D.List1.AddItem2,"XXX"7.下列數值作為窗體的ScaleMode屬性值，使每一坐標單位長度最小的是()A.6 B.4C.2 D.18.______屬性可以用來設置所繪線條寬度。()A.DrawStyle B.BorderStyleC.DrawWidth D.Fillcolor9.描述以（100，100）為圓心、以40為半徑畫1/4圓弧的語句，以下正確的是()A.Circle(100,100),40,0,3.1415926/2 B.Circle(100,100),,400,0,3.1415926/2C.Circle(100,100),40,,0,3.1415926/2 D.Circle(100,100),40,,0,9010.一個菜單項的界面顯示是不是一個分割條，是由其______屬性決定的。()A.Name（名稱） B.CaptionC.Enabled D.Visible三、填空題(本大題共8小題，每小題2分，共16分)請在每小題的空格中填上正確答案。錯填、不填均無分。1.將十進制數整數29寫作VB的十六進制常量為__________。2.將數學式(x＋1)·e2x寫作VB算術表達式為__________。3.判斷X是否滿足條件“1≤X≤2”的VB邏輯表達式為__________。4.取字符串s中從第3個字符開始的連續5個字符，寫作__________。5.若Form1中的變量x在Form2中可以被引用，聲明處必須前置__________。6.定時器控件的InterVal屬性值為__________時，定時器的Timer事件每秒鐘執行1次。7.圖片框控件的__________屬性決定在其中所繪圖形缺省的填充色。8.數據控件的__________屬性返回或設置控件的記錄源。四、程序填空題(本大題共3小題，共22分)閱讀下列各程序，根據程序說明在每小題提供的若干可選答案中挑選一個正確答案，用字母A、B、C或D填寫在程序中劃線處。1.【程序說明】單擊窗體后輸入m，求最大的、滿足條件n!<m的n。如輸入726，顯示6。【程序】PrivateSubForm_Click()DimnAsInteger,mAsInteger,yAsIntegerm=InputBox("m=")(1)Don=n+1:y=y*nLoop(2)Print(3)EndSub【供選擇的答案】(1)A.y=1∶n=2 B.y=1∶n=1C.y=2 D.y=2∶n=0(2)A.Untily<m B.Untily>=mC.Whiley>=m D.Whiley>m(3)A.n B.n+1C.n-1 D.m2.【程序說明】自定義Sub過程s2的功能是將n個元素的一維數組按相反順序重新排放。【程序】PrivateSub(1)DimtAsSingle,iAsIntegerFori=1To(2)t=(3)a(i)=a(n+1–i)(4)=tNextiEndSub【供選擇的答案】(1)A.s2(a()asSingle,nAsInteger) B.s2(a(n)asSingle)AsSingleC.s2(aasSingle,nAsInteger) D.s2(a()AsSingle)nAsInteger(2)A.n B.n＼2C.n-1 D.n+1(3)A.a(i) B.a(n-i)C.a(1) D.a(n)(4)A.a(i) B.a(n+1-i)C.a(n–i) D.a(1)3.【程序說明】下列程序在退出VB時，將列表框控件List1中各表項逐行、順序寫入到文件e:＼student.txt中。【程序】PrivateSubForm_Unload(CancelAsInteger)Open"e:＼student.txt"For(1)As#1fori=(2)To(3)Print#1,(4)NextiClose#1EndSub【供選擇的答案】(1)A.Input B.OutputC.Write D.LineOutput(2)A.0 B.1C.-1 D.NotEof(1)(3)A.Count-1 B.List1.ListCountC.ListCount-1 D.List1.ListCount-1(4)A.List1.List(i) B.List1(i)C.List(i) D.List.List1(i)五、程序閱讀題(本大題共3小題，共22分)閱讀下列各程序并回答問題，在提供的若干可選答案中挑選一個正確答案，用字母A、B、C或D填寫在題后的括號內。1.【程序】PrivateFunctionsum(nAsInteger)AsIntegerDoWhilen>0sum=sum+n:n=n-1LoopEndFunctionPrivateSubCommand1_Click()DimxAsIntegerx=InputBox("x=")Label1.Caption=sum(x)&","&xEndSub(1)單擊Command1后輸入3，標簽控件Label1的界面顯示為()A.6,3 B.6&0C.6,0 D.6&3(2)單擊Command1后輸入5，標簽控件Label1的界面顯示為()A.15,5 B.15&0C.15,0 D.15&5(3)若將首句中“nAsInteger”改為“ByValnAsInteger”，單擊Command1后輸入3，標簽控件Label1的界面顯示為()A.6,3 B.6&0C.6,0 D.6&3(4)若將首句中“nAsInteger”改為“ByValnAsInteger”，單擊Command1后輸入5，標簽控件Label1的界面顯示為()A.15,5 B.15&0C.15,0 D.15&52.【程序】PrivateSubCommand1_Click()DimnAsInteger,aaAsStringaa=Text1.Text:n=Len(aa)Fori=1Ton/2aa=Right(aa,1)+Mid(aa,1,n-1)NextiPrintaaEndSub(1)Text1中的文本為"AB"時，單擊Command1后窗體顯示()A.AB B.BAC.ab D.ba(2)Text1中的文本為"abc"時，單擊Command1后窗體顯示()A.bac B.abcC.cab D.cba(3)Text1中的文本為"1234"時，單擊Command1后窗體顯示()A.3412 B.4321C.1234 D.2143(4)Text1中的文本為"abcd"時，單擊Command1后窗體顯示()A.cabd B.cdabC.acbd D.abcd3.【程序】Dimx1AsSingle,y1AsSinglePrivateSubP1_MouseDown(ButtonAsInteger,_ShiftAsInteger,XAsSingle,YAsSingle)x1=X:y1=YEndSubPrivateSubP1_MouseUp(ButtonAsInteger,ShiftAsInteger,_XAsSingle,YAsSingle)P1.Line(x1,y1)-(X,Y),VbBlue,BEndSub(1)要在圖片框控件P1上畫一個矩形，鼠標在該控件上的動作是()A.單擊兩次 B.左鍵按下、拖動后抬起C.右鍵單擊兩次 D.右鍵單擊一次(2)若在P1上繪制了矩形，其輪廓線的顏色是()A.綠色 B.黃色C.藍色 D.紅色(3)若要繪制紅色填充的實心矩形，事件過程P1_MouseUp中相應語