补充练习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、当窗体被装入内存时，系统将自动执行（A 、 Load B 、 Activate C5、若有数组说明语句Dim b（-1 To 2, -2 To 2）A、 12 B 、 15 C6、当鼠标在窗体上移动时，会发生（）事件过程。、 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上述程序共执行（ ）次循环。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日厄区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