補(bǔ)充練習(xí)1VisualBasic

1、一、單項(xiàng)選擇題（每小題2分，共20分）1、指示一個(gè)窗體位置的值是窗體的（）。A、對(duì)象B、事件C、方法D、屬性2、下列不合法的標(biāo)識(shí)符是（）。A、Go_ToB、TabC、姓名D、Int13、下列選項(xiàng)中，（）不能交換變量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)存時(shí)，系統(tǒng)將自動(dòng)執(zhí)行（A 、 Load B 、 Activate C5、若有數(shù)組說(shuō)明語(yǔ)句Dim b（-1 To 2, -2 To 2）A、 12 B 、 15 C6、當(dāng)鼠標(biāo)在窗體上移動(dòng)時(shí)，會(huì)發(fā)生（）事件過(guò)程。、 Unload D 、 Q

2、ueryUnload，則數(shù)組 b 中元素的個(gè)數(shù)是（ ）。、 16 D 、 20）事件。A 、 MouseDown B 、 MouseUp C 、 MouseMove D 、 DragDown 7、若以讀的方式打開(kāi)順序文件” d: file1.dat ” ，則正確的語(yǔ)句是（ ）。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 ,上述程序段運(yùn)行時(shí)輸出的結(jié)果是（ ）。A 、 X+Y=11 B 、 11 C 、 X+Y=11，10、關(guān)于變量作用域，正確的描述是（）。A 、在模塊內(nèi)定義的變量，其作用域必定為所在的模塊。B 、同一模塊中不同級(jí)的變量不能同名。、 14、 TrueC 、一模塊中所有在過(guò)程之外用 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á)式寫(xiě)成Visual Basic 語(yǔ)句(每小題 2 分，共 6 分)ab

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

8、保存姓名 注釋?zhuān)簒y()數(shù)組用來(lái)保存學(xué)院 注釋?zhuān)篵j()數(shù)組用來(lái)保存班級(jí)選擇姓名：學(xué)院：ST工向送腌r班籟在這里，我們?cè)O(shè)置對(duì)象label1(0)的Caption屬性值為“學(xué)院，對(duì)象label1(1)的Caption屬性值為班級(jí)”，對(duì)象Check1(0)的Caption屬性值為“學(xué)院，對(duì)象Check1(1)的Caption屬性值為“班級(jí)”，設(shè)置Text1(0)用來(lái)顯示所選學(xué)生所在的學(xué)院，設(shè)置Text1(1)用來(lái)顯示所選學(xué)生所在的班級(jí)。設(shè)置Combo1用來(lái)由用戶(hù)選擇學(xué)生姓名。編寫(xiě)的源程序如下：OptionExplicitDimxm(10)AsStringDimxy(10)AsStringDimbj

9、(10)AsStringPrivateSubCheck1_Click(IndexAsInteger)12注釋?zhuān)涸谟脩?hù)選擇了學(xué)生姓名后，根據(jù)復(fù)選框的內(nèi)容決定是否顯示“學(xué)院”和“班級(jí)”。EndSubPrivateSubCombo1_click()Text1(0).Text=xy(Combo1.ListIndex)Text1.Text=bj(Combo1.ListIndex)EndSubPrivateSubForm_Activate()DimiAsIntegerFori=0To6注釋?zhuān)簩W(xué)生姓名加到下拉列表框中。Next注釋?zhuān)撼跏蓟吕斜砜蝻@示的內(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)=機(jī)械系”bj(2)=1班xm(3)=趙六:xy(3)=機(jī)械系”bj(3)=2班xm(4)=錢(qián)七”: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(“請(qǐng)輸入刪除數(shù)組中第幾個(gè)元素(010):“)EndIfIfn=0andn=10Then7EndSubPrivateSubForm_Activate()2Forn=0to10a(n)=Int(Rnd*100)NextnEndSub3、編寫(xiě)程序?qū)崿F(xiàn)在窗體上輸出下圖所示的圖形。Irx0 G G 6 0 Q e Q e G 0 Q G 日 口日 0 S 0 9 & 編寫(xiě)的源程序如下：OptionExplicitPrivateSubCommand1

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

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