補充練習1VisualBasic

1、一、單項選擇題（每小題2分，共20分）1、指示一個窗體位置的值是窗體的（）。A、對象B、事件C、方法D、屬性2、下列不合法的標識符是（）。A、Go_ToB、TabC、姓名D、Int13、下列選項中，（）不能交換變量a和b的值。A、t=b:b=a:a=tB、a=a+b:b=a-b:a=a-bC 、 t=a: a=b: b=tD、 a=b: b=a4、當窗體被裝入內存時，系統將自動執(zhí)行（A 、 Load B 、 Activate C5、若有數組說明語句Dim b（-1 To 2, -2 To 2）A、 12 B 、 15 C6、當鼠標在窗體上移動時，會發(fā)生（）事件過程。、 Unload D 、 Q

2、ueryUnload，則數組 b 中元素的個數是（ ）。、 16 D 、 20）事件。A 、 MouseDown B 、 MouseUp C 、 MouseMove D 、 DragDown 7、若以讀的方式打開順序文件” d: file1.dat ” ，則正確的語句是（ ）。A、Open” d:file1.dat” For Output As #1B、Open” d:file1.dat” For Input As #1C、Open” d:file1.dat” For Binary As #1D、Open” d:file1.dat” For Random As #1有程序段Dim I As I

3、ntegerFOR I=7 TO 90 STEP 5PRINT I;NEXT I上述程序共執(zhí)行（ ）次循環(huán)。A、 17 B 、 16 C 、 15有程序段Dim X As Integer, Y As IntegerX = 5Y = 6PRINT X + Y = 11 ,上述程序段運行時輸出的結果是（ ）。A 、 X+Y=11 B 、 11 C 、 X+Y=11，10、關于變量作用域，正確的描述是（）。A 、在模塊內定義的變量，其作用域必定為所在的模塊。B 、同一模塊中不同級的變量不能同名。、 14、 TrueC 、一模塊中所有在過程之外用 Dim 定義的變量為全局變量。D 、不同模塊中定義的變

4、量名字可以相同。二、給出以下表達式的值（每小題 2 分，共 10 分）ABS （INT （ -13.2） + ROUND（ 0.32 * 5253 MOD 3.2 * INT( 2.5 )I nstr(5, “ Microsoft Visual Basic ” ,Mid(S,7,8) & Left (S,5) & Right(S,5)x = 2 Or Not y 0 And (x-y) / i 0)visual ” ,1)其中 S = “ Hello Computer World其中 x=2,y=2,i=1三、將下列數學表達式寫成Visual Basic 語句(每小題 2 分，共 6 分)ab

5、 + 2x 2 + ( 2 x ) 32mSIN2 x + COS2 xx x x ( ax + b ) + c + d + e4 分，共 24 分)四、閱讀程序，寫出運行后的結果（每小題PrivateSubCommand1_Click()ForK=1To3IfK=1ThenA=2*KIfK=2ThenA=2*K+1IfK10y=x*x+1EndSelectPrintx=;x,y=;yEndSubPrivateSubCommand1_Click()DimiAsInteger:DimjAsIntegerFori=1to4PrintSpace(20-i);Forj=1Toi*2-1Print“*”

6、;NextjPrintNextiEndSubPrivateSubCommand1_Click()DimxAsInteger：DimyAsIntegerx=3:y=4f_fy,xPrintx,yEndSubPrivateSubf_f(xAsInteger,yAsInteger)x=x+yy=x*yEndSub6、PrivateSubCommand1_Click()DimxAsInteger:DimyAsInteger:DimjAsIntegerx=1:y=2Forj=1To3f_fy,xNextPrintx,yEndSubPrivateSubf_f(xAsInteger,yAsInteger)S

7、taticmAsIntegery=y+xm=m+1x=x*mEndSub五、填空題(完善程序)(每空2分，共24分)1、設計一程序，用戶在下拉列表框中選擇某一學生姓名后，在“學院”文本框中顯示出對應的該學生學院，在“班級”文本框中顯示出對應的該學生班級。當用戶選擇或取消“學院”和“班級”復選框后，將顯示或不顯示“學院”或“班級”內容。程序運行要求如下圖所示。|x| Feel TlOIXIiFarMlLIfnllxlg|Fffrml叵I機械系班級:選擇姓名：學院：選捽姓名：學院：選攆姓名；玨二廠班繳：事加11 I. In xX Fwl日厄區(qū)F班級慳選擇姓名；二 廠逑畫r班皴注釋：xm()數組用來

8、保存姓名 注釋：xy()數組用來保存學院 注釋：bj()數組用來保存班級選擇姓名：學院：ST工向送腌r班籟在這里，我們設置對象label1(0)的Caption屬性值為“學院，對象label1(1)的Caption屬性值為班級”，對象Check1(0)的Caption屬性值為“學院，對象Check1(1)的Caption屬性值為“班級”，設置Text1(0)用來顯示所選學生所在的學院，設置Text1(1)用來顯示所選學生所在的班級。設置Combo1用來由用戶選擇學生姓名。編寫的源程序如下：OptionExplicitDimxm(10)AsStringDimxy(10)AsStringDimbj

9、(10)AsStringPrivateSubCheck1_Click(IndexAsInteger)12注釋：在用戶選擇了學生姓名后，根據復選框的內容決定是否顯示“學院”和“班級”。EndSubPrivateSubCombo1_click()Text1(0).Text=xy(Combo1.ListIndex)Text1.Text=bj(Combo1.ListIndex)EndSubPrivateSubForm_Activate()DimiAsIntegerFori=0To6注釋：將學生姓名加到下拉列表框中。Next注釋：初始化下拉列表框顯示的內容。EndSubPrivateSubForm_Lo

10、ad()xm(0)=張三:xy(0)=物理系bj(0)=1班xm(1)=李四:xy(1)=數學系bj(1)=2班xm(2)=王五”:xy(2)=機械系”bj(2)=1班xm(3)=趙六:xy(3)=機械系”bj(3)=2班xm(4)=錢七”:xy(4)=經管系”bj(4)=1班xm(5)=弓1：xy(5)=經管系”bj(5)=1班xm(6)=張二：xy(6)=化工系bj(6)=1班EndSub2、刪除數組中指定位置的元素。OptionExplicitDima()DimnasIntegerPrivateSubDeleteArray(x(),ByValk)Forn=kto_56NextReDimP

11、reservex(n-1)EndSubPrivateSubCommand1_click()n=0IfUbound(a)0Thenn=Val(InputBox(“請輸入刪除數組中第幾個元素(010):“)EndIfIfn=0andn=10Then7EndSubPrivateSubForm_Activate()2Forn=0to10a(n)=Int(Rnd*100)NextnEndSub3、編寫程序實現在窗體上輸出下圖所示的圖形。Irx0 G G 6 0 Q e Q e G 0 Q G 日 口日 0 S 0 9 & 編寫的源程序如下：OptionExplicitPrivateSubCommand1

12、_Click()DimfAsString*1DimnAsIntegerf=InputBox(顯示字符：,請輸入，*)IfTrim(f)=Thenf=*clsPrintForn=1To59PrintSpace(4);PrintNextEndSubPrivateFunctionstri(ByValnAsInteger,ByValmAsString)DimiAsIntegerDimpAsStringp=Fori=1Tonp=p&mNextEndFunction六、程序設計題（共16分）1、編寫一個過程。用隨機函數產生10個10到30之間的隨機整數，得用緊湊格式打印這組數，并輸出其中最大的一個數。（8

13、分）2、請用記錄類型表示學生的有關信息。這些信息包括姓名和學習成績兩項。并請編寫一個過程，將一個班的學生的信息輸入并顯示出來。假定這個班的學生人數為30人。（8分）一、單項選擇題（每小題2分，共20分）1、D26、C7、A8、A9、D10、D二、給出以下表達式的值(每小題2分，共10分)1、122、23、114、ComputerHelloWorld5、True三、將下列數學表達式寫成VisualBasic語句(每小題2分，共6分)1、a*b+2*xA2+(2Ax)A32、(2Am)*sin(x)*sin(x)+cos(x)*cos(x)3、x*(x*(x*(a*x+b)+c)+d)+e四、閱讀

14、程序，寫出運行后的結果(每小題4分，共24分)1、11 2 2 3 33、x :=2y ;:4x=8y ;=9x=15y=2265、2174、五、填空題(完善程序)(每空2分，共24分)31*9121、Text1(Index).Visible=Check1(Index).Value2、Label1(Index).Visible=Check1(Index).Value3、Combo1.AddItemxm(i)4、Combo1.ListIndex=05、Ubound(x)-16、x(n)=x(n+1)7、DeleteArraya(),n回、ReDima(10)9、?Space(2*n+2);10、?stri(11-2*n,f);11、?stri(2*n-1,f);12、stri=p六、程序設計題(共16分)第1小題、PrivateSubCommand1_Click()DimA(10)AsIntegerDimiAsIntegerDimmAsIntegerm=-1Fori=1To10A(i)=INT(30-10+1)*RND+10)PrintA(i);IfmA(i)thenm=A(i)NextiPrintPrint“TheLarstOneis:EndS