補充練習(xí)1VisualBasic

1、一、單項選擇題（每小題2分，共20分）1、指示一個窗體位置的值是窗體的（）。A、對象B、事件C、方法D、屬性2、下列不合法的標(biāo)識符是（）。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、當(dāng)窗體被裝入內(nèi)存時，系統(tǒng)將自動執(zhí)行（A 、 Load B 、 Activate C5、若有數(shù)組說明語句Dim b（-1 To 2, -2 To 2）A、 12 B 、 15 C6、當(dāng)鼠標(biāo)在窗體上移動時，會發(fā)生（）事件過程。、 Unload D 、 Q

2、ueryUnload，則數(shù)組 b 中元素的個數(shù)是（ ）。、 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 ,上述程序段運行時輸出的結(jié)果是（ ）。A 、 X+Y=11 B 、 11 C 、 X+Y=11，10、關(guān)于變量作用域，正確的描述是（）。A 、在模塊內(nèi)定義的變量，其作用域必定為所在的模塊。B 、同一模塊中不同級的變量不能同名。、 14、 TrueC 、一模塊中所有在過程之外用 Dim 定義的變量為全局變量。D 、不同模塊中定義的變

4、量名字可以相同。二、給出以下表達(dá)式的值（每小題 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三、將下列數(shù)學(xué)表達(dá)式寫成Visual Basic 語句(每小題 2 分，共 6 分)ab

5、 + 2x 2 + ( 2 x ) 32mSIN2 x + COS2 xx x x ( ax + b ) + c + d + e4 分，共 24 分)四、閱讀程序，寫出運行后的結(jié)果（每小題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、設(shè)計一程序，用戶在下拉列表框中選擇某一學(xué)生姓名后，在“學(xué)院”文本框中顯示出對應(yīng)的該學(xué)生學(xué)院，在“班級”文本框中顯示出對應(yīng)的該學(xué)生班級。當(dāng)用戶選擇或取消“學(xué)院”和“班級”復(fù)選框后，將顯示或不顯示“學(xué)院”或“班級”內(nèi)容。程序運行要求如下圖所示。|x| Feel TlOIXIiFarMlLIfnllxlg|Fffrml叵I機械系班級:選擇姓名：學(xué)院：選捽姓名：學(xué)院：選攆姓名；玨二廠班繳：事加11 I. In xX Fwl日厄區(qū)F班級慳選擇姓名；二 廠逑畫r班皴注釋：xm()數(shù)組用來

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

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

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

11、reservex(n-1)EndSubPrivateSubCommand1_click()n=0IfUbound(a)0Thenn=Val(InputBox(“請輸入刪除數(shù)組中第幾個元素(010):“)EndIfIfn=0andn=10Then7EndSubPrivateSubForm_Activate()2Forn=0to10a(n)=Int(Rnd*100)NextnEndSub3、編寫程序?qū)崿F(xiàn)在窗體上輸出下圖所示的圖形。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六、程序設(shè)計題（共16分）1、編寫一個過程。用隨機函數(shù)產(chǎn)生10個10到30之間的隨機整數(shù)，得用緊湊格式打印這組數(shù)，并輸出其中最大的一個數(shù)。（8

13、分）2、請用記錄類型表示學(xué)生的有關(guān)信息。這些信息包括姓名和學(xué)習(xí)成績兩項。并請編寫一個過程，將一個班的學(xué)生的信息輸入并顯示出來。假定這個班的學(xué)生人數(shù)為30人。（8分）一、單項選擇題（每小題2分，共20分）1、D26、C7、A8、A9、D10、D二、給出以下表達(dá)式的值(每小題2分，共10分)1、122、23、114、ComputerHelloWorld5、True三、將下列數(shù)學(xué)表達(dá)式寫成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、程序，寫出運行后的結(jié)果(每小題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六、程序設(shè)計題(共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