VB必练习题.pdf

《VB必练习题.pdf》由会员分享，可在线阅读，更多相关《VB必练习题.pdf（88页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、第一章 Visual Basic基础一、选择题1.与传统的程序设计语言相比，Visual Basic最突出的特点是A）结构化程序设计 B）程序开发环境C）事件驱动编程机制D）程序调试技术2.在正确安装VB后，可以通过多种方式启动VB。在以下方式中，不能启动V B的是：A）通 过“开始”菜单中的“程序”命令B）通 过“我的电脑”找到V B6.exe,双击该文件名C）通 过“开始”菜单中的“运行”命令D）进入DOS方式，执行VB6.exe。3.为了用键盘打开菜单和执行菜单命令，第一步应按的键是A）功能键F10或Alt B）Shift+功能键F4C）Ctrl 或功能键 F8 D）Ctrl+Alt4.

2、VB6.0集成环境的主窗口中不包括A）标 题 栏B）菜单栏 C）状态栏 D）工具栏5.用标准工具栏中的工具按钮不能执行的操作是A）添加工程 B）打印源程序C）运行程序 D）打开工程6.VB窗体设计器的主要功能是A）建立用户界面 B）编写源程序代码C）画图 D）显示文字7.以下叙述中正确的是A）用属性窗口只能设置窗体的属性B）用属性窗口只能设置控件的属性C）用属性窗口可以设置窗体和控件的属性D）用属性窗口只能设置对象的属性二、填空题1.VB6.0分 为 3 个版本，这 3 种 版 本 是、和_ O2.可以通过_ _ _ _ _ _菜单中的 命令退出VB。3.退出VB的快捷键是 o4.快 捷 键

3、Ctrl+O的功能相当于执行 菜单中的命令，或者相当于单击工具栏上的 按钮。5.如果打开了不需要的菜单或对话框，可以用 键关闭。6.工 程 文 件 的 扩 展 名 是,窗体文件的扩展名是 o7.V B中的菜单栏有2 种形式，分别为 形式和 形式。8.属性窗口分为4 个部分，分别是，第二章可视化编程的概念与步骤一、选择题1.下列可以激活属性窗口的操作是A）用鼠标双击窗体的任何部位 B）执 行“工程”菜单中的“属性窗口”命令C）按 Ctrl+F4 键 D）按 F4 键2.下列不能打开工具箱窗口的操作是A）执 行“视图”菜单中的“工具箱”命令B）按 Alt+F8 键C）单击工具栏上的“工具箱”按钮D

4、）按A lt+V,然后按X键3.下列叙述中正确的是A）只有窗体才是V B中的对象B）只有控件才是V B中的对象C）控件和窗体都是V B中的对象D）控件和窗体都不是V B中的对象4.为了把窗体上的某个控件变为活动的，应执行的操作是A）单击窗体的边框 B）单击该控件的内部C）双击该控件 D）双击窗体5.确定一个控件在窗体上的位置的属性是A）Width 或 Height B）Width 和 HeightC）Top 或 Left D）Top 和 Left6.确定一个窗体或控件的大小的属性是A)Width 或 Height B)Width 和 HeightC)Top 或 Left D)Top 和 Lef

5、t7.为了同时改变一个活动控件的高度和宽度，正确的操作是A)拖拉控件4个角上的某个小方块B)只能拖拉位于控件右下角的小方块C)只能拖拉位于控件左下角的小方块D)不能同时改变控件的高度和宽度8.若窗体的名称(Name属性)为F o rm l,则把窗体的标题设为“VBTest”的语句为A)Forml=VB Test”B)Caption=,VB Test”C)Forml.Text=VB Test”D)Forml.Name=VB Test”9.下列不能打开代码窗口的操作是A)双击窗体上的某个控件 B)双击窗体C)按F7键 D)单击窗体或控件10.为了保存一个VB应用程序，应当A)只保存窗体文件(.fr

6、m)B)只保存工程文件(.vbp)C)分别保存工程文件和标准模块文件(.bas)D)分别保存工程文件、窗体文件和标准模块文件11.为了装入一个VB应用程序，应当A)只装入窗体文件(fm)B)只装入工程文件(.vbp)C)分别装入工程文件和标准模块文件(.bas)D)分别装入工程文件、窗体文件和标准模块文件12.为了使窗体的大小可以改变，必须把他的BorderStyle属性设置为A)1 B)2 C)3 D)413.决定窗体标题条显示内容的属性是A)Text B)Name C)Caption D)BackStyle14.当窗体最小化时缩小为一个图标，设置这个图标的属性是A)Mouseicon B)

7、Icon C)Picture D)MousePoint15.为了取消窗体的最大化功能，需要把它的一个属性设置为F alse,这个属性是A)ControlBox B)MinButton C)Enabled D)MaxButton16.决定窗体有无控制菜单的属性是A)ControlBox B)MinButton C)Enabled D)MaxButton17.为了使一个窗体从屏幕上消失但仍在内存中，所使用的方法或语句为A)Show B)Hide C)Load D)Unload18.下列操作中不能向工程中添加窗体的是A）执 行“工程”菜单中的“添加窗体”命令B）单击工具栏上的“添加窗体”按钮C）右击

8、窗体，在弹出的菜单中选择“添加窗体”命令D）右击工程资源管理器，在弹出的菜单中选择“添加”命令,然后在下一级菜单中选择“添加窗体”命令19.当一个工程含有多个窗体时，其中的启动窗体是A）启动Visual Basic时建立的窗体 B）第b添加的窗体C）最后一个添加的窗体 D）在“工程属性”对话框中指定的窗体20.关于多重窗体应用程序，以下描述中不正确的是A）对于多重窗体应用程序，可以有多个当前窗体B）多重窗体应用程序的启动窗体可以在设计时设定C）多重窗体应用程序中每个窗体作为一个磁盘文件保存，所有窗体、标准模块等作为一个工程文件被保存D）多重窗体应用程序可以编译生成一个exe文件二、填空题1.V

9、 B中的控件分为3类，他们是、2.一个控件在窗体上的位置由和属性决定，其大小由 和 属性决定。3.可以通过多种方式激活属性窗口，这些方式是、4.为了选择多个控件，可以按住_ _ _ _ _ _ _ 键，然后单击每个控件。5.在窗体上画两个文本框和一个命令按钮，并在命令按钮的代码窗口中编写如下事件过程Private Sub Command 1 _Click()Textl.Text=VB ProgrammingText2.Text=Textl.TextTextl.Text=ABCDEnd Sub程序运行后，单击命令按钮，两个文本框中显示的内容分别为 和 O6.用VB开发应用程序时，一般需要、和3步

10、。7.控件和窗体的Name属性只能通过 设置,不能在_ _ _ _ _期间设置。8.代码窗口分为左右两栏，左 边 一 栏 称 为,右边一栏称为 O9.为了在输入程序时能自动进行语法检查，必须执行菜单 中 的 一 命 令，打开对话框，然后选择“编辑器”选项卡中的 选项10.在保存VB应用程序时，窗体文件和工程文件的扩展名分别为 和。11.为了把一个VB应用程序装入内存，只要装入文件即可。12.若要加载一个新窗体，使用 语句实现；若要卸载一个窗体，使用 语句实现。13.若要显示一个窗体，使用方法；若要隐藏一个窗体，使用方法；清除窗体上的内容，使用 方法。第3章Visual Basic基本控件一、选

11、择题1.为了在按下回车键时执行某个命令按钮的事件过程，需要把该按钮的哪个属性设为TrueA）Value B）Default C）Cancel D）Enabled2.为了在按下ESC键时执行某个命令按钮的事件过程，需要把该按钮的哪个属性设为TrueA）Value B）Default C）Cancel D）Enabled3.用菜单编辑器创建菜单时，如果要在菜单中添加一条分隔线,正确的操作是A）在标题输入框中输入“一（减号）B）在名称输入框中输入“一”（减号）C）在 标 题 输 入 框 中 输 入（下划线）D）在 名 称 输 入 框 中 输 入（下划线）4.,在显示菜单时，菜单的哪个属性为T ure

12、时将用灰色显示该菜单项标题A)Caption B)Checked C)Enabled D)Visible5.设有菜单结构如下表所示标题 名称 层次显示 Appear 1大图标 Bigicon 2小图标 Smallicon 2要求在运行时，当鼠标单击菜单项“大图标”时，在这个菜单项前面就添加一个“J”，下面正确的过程是A)Private Sub Bigicon_Click()B)PrivateSubBigicon_Click()Bigicon.Checked=FalseMe.Appear.Bigicon.Checked=TrueEnd SubC)Private Sub Bigicon_Click

13、()End SubD)PrivateSubBigicon_Click()Bigicon.CheckedTrueAppe ar.B igicon.Checked=TrueEnd SubEnd Sub6.设在菜单编辑器中定义了一个菜单项，名 为m enulo为了在运行时隐藏该菜单项，应在程序中使用的语句是A)menu 1.Enabled=TrueB)menu 1.Enabled=FalseC)menu 1.Visible=True D)menu 1.Visible=False7.为了使文本框同时具有水平和垂直滚动条，应该把Multiline属性设为T u re,然后再把Scroll Bars属性设

14、置为A)0 B)1 C)2 D)38.使文本框获得焦点的方法是A)Change B)GotFocus C)SetFocus D)LostFocus9.为了使标签覆盖背景，应把BackStyle属性设置为A)0 B)1 C)Ture D)False10.为了使标签中的内容居中显示，应把Alignment属性设置为A)0 B)1 C)2 D)311.决定标签内显示内容的属性是A)Text B)Name C)Alignment D)Caption1 2.在窗体(Nam e属性为Forml)上画两个文本框(Name属性分别为T extl和T ext2)利一个命令按钮(Name属性为C om m and

15、l),然后编写如下两个事件过程：Private Sub Command l_Click()a=Text 1.Text+Text 2.TextPrint aEnd SubPrivate Sub Form_Load()Textl.Text=Text2.Text=End Sub程序运行后，在第一个文本框(T ex tl)和第二个文本框(Text2)中分别输入123和3 2 1,然后单击命令按钮，则输出结果为A)444 B)321123 C)123321 D)1322311 3.当拖动滚动条中的滚动块时，将触发滚动条的事件是A)Move B)Change C)Scroll D)SetFocus二、填空

16、题1.在V B中可以建立 菜单和 菜单。2.菜单编辑器可以分为3个部分，即、和。3.如果要将某个菜单项设计为分隔线，则该菜单项的标题应设置为o4.在菜单编辑器中，菜单项后面4个小点的含义是 o5.建立弹出式菜单所使用的方法是_ _ _ _o6.为了使标签能自动调整大小以显示全部文本内容，应把标签的 属性设为True o7.要在文本框中显示垂直滚动条，必须把 属性设为2,同时还应把_ _ _ _属性设为 o8.有一个名称为T ex tl的文本框，为使其有焦点，应执行的语句 是 一。9.为了使一个标签透明且没有边框，必须把它的BorderStyle属性 设 为，并把BackStyle属 性 设 为

17、。9.假定一个文本框的Nam e属性为Text 1,为了在该文本框中显 示“Hello，所使用的语句为 o第4章代码基础选择题1.在Visual Basic中,下列优先级最高的运算符是A.*B.C.D.Not2.以下关系表达式中，其值为False的是A.XYZ XYz B.Visual B asic=visualbasicC.the there D.Integer Int3.设有如下声明：Dim x As Integer如果Sgn(x)的值为-1,则表示x的值是A.整数 B.大于0的整数 C.等于0的整数D.小于0的整数4.下列表达式中值为-6的是A.Fix(-5.678)B.Int(-5.6

18、78)C.Fix(-5.678+0.5)D.Int(-5.678+0.5)5.以下语句的输出结果是 Print 3+4 5*6/7 Mod 8A.3 B.4 C.5 D.66.下列可作为Visual B asic的变量名的是A.3*Delta B.PrintChar C.AbsD.ABTI7.下列可作为Visual B asic的变量名的是A.Filename B.A(A+B)C.A%DD.Print8.下列可作为Visual B asic中所允许的形式的数是A.25.74B.3.457E-100 C.368D.1.87E+509.下列可作为Visual Basic中所允许的形式的数是A.10

19、A(1.256)B.D32 C.2.5ED.12E310.下面的数写成普通的十进制数是2.65358979335278D-006A.0.0000265358979335278B.0.00000265358979335278C.0.000265358979335278D.0.0000002653589793352781 1.下 面 的 数 写 成 普 通 的 十 进 制 数 是1.21576654590569D+019A.12157665459056900B.121576654590569000C.1215766545905690000D.1215766545905690000012.下面的数写

20、成普通的十进制数是8.6787E8A.86787000 B.867870000 C.8678700D.867870000013.下面的数写成普通的十进制数是2.567E-12A.0.000000000002567 B.0.0000000002567C.0.000000002567D.0.0000000000256714.设 a=2,b=3,c=4,d=5,下列表达式的值是ab ANDccA.True B.False C.-1 D.115.设 a=2,b=3,c=4,d=5,下列表达式的值是32*b ORa=c AND b o c OR cdA.1 B.True C.FalseD.-116.设

21、a=2,b =3,c=4,d=5,下列表达式的值是NOT a=cOR 4*c=bA2 AND boa+cA.-1 B.1 C.True D.False1 7.实现字符的Unicode编码方式ANSI编码方式相互转换的函数是A.Str B.StrConv C.TrimD.Mid二、填空题1.设有如下程序段：a$=Visual Basic Programingb$=.NETc$=Left(a$,12)&b$&Right(a$,11)执行该程序段后，变量C$的值为 o2.假定有如下的变量定义：Dim a,b As Integer则变量a被定义为 类型，b被定义为 类型。3.设有如下的程序段：a$=B

22、eijingShanghai:b$=Mid(a$,InStr(a$,g)+1)执行上面的程序段后，变量b$的值为。4.下列Visual Basic表达式有错误，其正确的形式是CONTT.DE+COS(28)5.下列Visual Basic表达式有错误，其正确的形式是-3/8+81NT24.86.下列Visual Basic表达式有错误，其正确的形式是,(8+6)人(4+-2)+SIN(2*n)7.下列Visual Basic表达式有错误，其正确的形式是(x+y)+z X 80-5(C+D)8.与下列数学式子对应的Visual Basic表达式是cos2(c+d)(C+D)为弧度)9.与下列数学

23、式子对应的Visual B asic表达式是5+(a+b)210.与下列数学式子对应的Visual B asic表达式是cos(x)(sin(x)+l)(x 为弧度)11.与下列数学式子对应的Visual Basic表达式是e2+212.与下列数学式子对应的Visual B asic表达式是2a(7+b)13.与下列数学式子对应的Visual B asic表 达 式 是。8e31n214.以 下 语 句 的 输 出 结 果 是。Print chr$(65)(vCR为回车，下同)15.以下语句的输出结果是 oPrint sgn(2)16.执行以下语句后，输出结果是、oa$=Good b$=Mor

24、ning Print a$+b$Print a$&b$17.执行以下语句后，输出结果是、。s$=ABCDEFGHIJK Print Left$(s$,4)Print Right$(s$,4)18.执行以下语句后，输 出 结 果 是、os$=ABCDEFGHIJK Print Mid$(s$,3,4)Print Len(s$)19.执行以下语句后，输 出 结 果 是、。s$=ABCDEFGHIJK Print InStr(s$,efg)Print LCase(s$)20.假定当前日期为2003年10月5日，星期五，则执行以下语句后，输出结果是Print Day(Now)Print Month(N

25、ow)Print Year(Now)Print Weekday(Now)21.在Visual Basic中，字符串常量要用 括起来，日期/时间型常量要用_ _ _ _ _ _ _ _括起来。22.5.0/6。版的Visual Basic中，字符采用 编码方式。在这种编码方案中，一个中文字符或一个西文字符均视 为 一一 个 字符，每个字符用 个字节编码。23.下列语句的输出结果是。Print Int(12345.6789*100+0.5)/100顺序结构1.选择题1.假 定Picture 1和T extl分别为图片框和文本框的名称，下列不正确的语句是A)Print 25 B)Picturel.P

26、rint 25 C)Textl.Print 25 D)Debug.Print 252.以下语句的输出结果是(在立即窗口中)a=27 (vCR为回车，下同)b=65Print a;bA)27 A 65 B)A 27A 65 C)A27AA 65 D)A27AA 65A(表示空格，下同)3.以下语句的输出结果是(在立即窗口中)a=Beijingb=ShangHai Print a;b A)Beijing A Shanghai B)A Beijing A ShangHaiC)BeijingShangHai D)ABeijing A ShangHai A4.语句Print 5*55/5的输出结果是A)

27、5 B)25 C)0 D)15.设a、b、c为整型变量，其值分别为1、2、3,以下程序段的输出结果是a=b:b=c:c=aPrint a;b;cA)1 2 3 B)2 3 1 C)3 2 1 D)23 26.语句 Print Sgn(-6A2)+Int(-6人2)+Int(6人2)的输出结果是A)-36 B)1 C)-l D)-727.以下语句的输出结果是a=Sqr(3)Print Format(a,$#.#)A)$1.732 B)$1.732 C)$1732 D)$0001.7328.以下程序段的输出结果是a=Sqr(3)b=Sqr(2)c=abPrint cA)-1 B)0 C)False

28、 D)True9.以下语句的输出结果是Print Format(32548.5,000,000.00)A)32548.5 B)32,548.5 C)032,548.50 D)32,548.5010.执行以下程序段后，变量c$的值为a$=Visual Basic Programing b$=Quickc$=b$&UCase(Mid$(a$,7,6)&Rjght$(a$,11)A)Visual Basic Programing B)Quick BasicProgramingC)QUICK Basic Programing D)Quick BASICPrograming11.表达式4+56*7/8

29、Mod 9 的值是A)4 B)5 C)6 D)712.InputBox函数返回值的类型为A）数 值 B）字符串 C）变体 D）数值或字符串（视输入的数据而定）13.在窗体上画一个命令按钮，然后编写如下事件过程:Private Sub Command l_Click()a=InputBox(Enter the First integer)b=InputBox(Enter the Second integer)Print b+aEnd Sub程序运行后，单击命令按钮，先后在输入对话框中分别输入456和 1 2 3,则输出结果是A）579 B）123 C）456 D）12345614.在窗体上画一个

30、命令按钮，然后编写如下事件过程:Private Sub Command l_Click()Dim a As Integer,b As Integera=InputBox(Enter the First integer)b=InputBox(Enter the Second integer)Print b+aEnd Sub程序运行后，单击命令按钮，先后在输入对话框中分别输入456和1 2 3,则输出结果是A)579 B)123 C)456 D)1234561 5.执行下面的语句后，所产生的信息框的标题是a=MsgBox(AAAA,BBBB,5)A)BBBB B)空 C)AAAA D)出错，不能产

31、生信息框答案：2.填空题1.语句Print 25+32=;25+32的输出结果是_ _ _。2.以下语句的输出结果是 os$=Chinas$=BeijingPrint s$3.以下语句的输出结果是_ _ _ _oa%=3.14156Print a%4.设a=Sqr(2)*Sqr(3),下列语句的输出结果分别是-Print Fomat$(a,000.00)Print Fomat$(a,#.#0)Print Fomat$(a,00.00E+00)Print Fomat$(a,-#.#)5.阅读程序：Sub Form_Click()a=10:b=15:c=20:d=25Print a;Spc(5);

32、b;Spc(7);cPrint a;Space$(8);b;Space$(5);cPrint c;S p c(3);S p c(3);d;Print Spc(3);Spc(3);c+dEnd Sub6.以下程序段的输出结果是x=8Print x+l;x +2;x+36.以下程序段的功能是x=8.6y=Int(x+0.5)Print y第6章选择结构一、选择题1 8.已知一个人出生的年、月、日分别存放在变量yO、mO、d O中，当前日期的年、月、日分别存放在变量y l、m l、dl中，这个人的实足年龄存放在变量age中。则以下可以正确计算实足年龄的程序段式A.age=yl-yOIf ml mO

33、Thendl dO Thenage=age-1Elselfdl dOThenage=age-1End IfC.age=yl-yOIf ml mO ThenThenage=age-1End IfIf ml=mO And dl dO Thenage=age-1B.age=yl-yOIf ml mO Orage=age-1End IfD.age=yl-yOIf ml mOage=age-1End IfIfdl 3,长城，心)_&IIf(av8,故宫&IIf(a 7,颐和园Text 1.Text=tEnd Sub程序运行后，单击命令按钮，则在文本框中显示的内容是A.旅游景点：长城故宫 B.旅游景点：长

34、城颐和园C.旅游景点：颐和园 D.旅游景点：故宫2 0.假 定x的值为5,则在执行以下语句时，其输出结果为“Result”的 Select Case 语句是A.Select Case x B.Select Case xCase 10 To 1 Case Is 5,Is5,1,3 To 10Print ResultEnd Select21.设 a=6,则执行x=Iif(a5,-l,0)A.5 B.6 C.22.设有函数r 1 x=0则下列能正确计算该函数值的语句是A.If x=0 Thenr=2End IfB.If x=0)Then r=2 else r=lEnd IfC.Print(IIf(x

35、 0,1,2)D.r=IIf(x5Print ResultEnd Select后，x的值为0 D.-1和Label2的标签，然后编写如下事件过程Private Sub Form_Click()Select Case sCase Is 0y=x+1Case Is=0y=x+2Case Elsey=x+3End SelectLabel 1 .Caption=xLabel2.Caption=yEnd Sub程序运行后，单击窗体，标签Label 1和Label2中显示的内容分别是A.-5 和-2 B.-5 和-4C.-5 和-3 D.-5 和-52 4.设置复选框或单选按钮标题对齐方式的属性是A.Al

36、ign B.Alignment C.SortedD.Value二、填空题1.以下程序段所对应的函数表达式是 Ox=InputBox(Enter an Integer)x=Clnt(x)Select Case xCase Is=0y=0Case Is=10y=5+2*xCase Is 15y=0End Select三、编程题1.编写一个“选择旅游地区”程序，旅客可以在窗体上选择自己想要去旅游的地区。假定共有三个地区，包括新加坡、马来西亚和泰国，每个旅客可以选择其中的一个、两个和三个地区，然后在文本框中显示所选择的旅游地区。2.给定三角形的三条边长，计算三角形的面积。编写程序，首先判断给出的三条边

37、能否构成三角形，如可以构成，则计算并输出该三角形的面积，否则要求重新输入。当输入-1 时结束程序。所输入的值不能构成三角形，请重新输入匚 二 魏 定 二 二I3.从键盘上输入一个学生的学号和考试成绩，然后输出该学生的学号、成绩，并根据成绩按下面的规定输出对该学生的评语：成绩 90100 7089 6069 059评语 优秀 良好 及格 不及格工程1学号20。15,分数为94,优秀二 二 二 魏 定:二 二|第7章循环结构一、选择题1.假定有下面的程序段：For i=1 To 3Forj=IToiFor k=j To 3Print i=;i;k=;kNext kNext jNext i这是一个三

38、重循环程序，在这个程序中，外层、中层和内层循环的循环次数是A.3、6 和 14 B.3、8 和 16 C.3、4 和 12D.3、9 和 182.假定有以下当循环：While Not 条件循环体Wend则执行循环体的“条件”是A.True B.1 C.False D.-13.阅读下面的程序:Private Sub Form_Click()Dim m,n As Integerm=InputBox(请输入 M 的值)m=Val(m)ml=mn=InputBox。请输入N的值)n=Val(n)nl=nDo While n 0remin=m Mod nm=nn=reminLoopPrint ml,nl

39、,mEnd Sub程序运行后，单击窗体，在输入对话框中分别输入16利24,在程序在窗体上的输出结果为A.1624 4 B.1624 8C.2416 6 D.2416 84.阅读下面的程序：Private Sub Form_Click()Dim Check,CounterCheck=TrueCounter=0DoDo While Counter 4x=x*yy=y+iLoopPrint xA.1B.4C.8D.208.执行下面的程序段后，x的值为x=5For i=1 To 20 Step 2x=x+i 5Next iA.21 B.22 C.23 D.249.在窗体上画一个命令按钮，然后编写如下事

40、件过程：Private Sub Command l_Click()For i=1 To 4x=4For j=1 To 3x=3For k=1 To 2x=x+6Next kNext jNext iPrint xEnd Sub程序运行后，单击命令按钮，输出结果是A.7 B.15 C.157D.53810.在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command l_Click()x=0Do Until x=-1a=InputBox(请输入A的值)a=Val(a)b=InputBox(请输入B的值”)b=Val(b)x=InputBox(请输入C的值”)x=Val(x)

41、a=a+b+xLoopPrint aEnd Sub程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1,则输出结果为A.2 B.3 C.14 D.1511.阅读下面的程序段：For i=1 To 3For j=1 To iFor k=j To 3a=a+1Next kNext jNext i执行上面的三重循环后，a的值为A.3 B.9 C.14 D.2112.在窗体上画一个文本框（其Nam e属性为Textl）,然后编写如下事件过程：Private Sub Form_Load（）Textl.Text=Textl.SetFocusFor i=1 To 10Sum=Sum+iN

42、ext iText 1.Text=SumEnd Sub上述程序的运行结果是A.在文本框Text 1中输出55 B.在文本框T extl中输出0C.出错 D.在文本框T extl中输出不定值13.在窗体上画两个文本框（其Name属性分别为Textl和Text2）和一个命令按钮（其Name属性为Commandl）,然后编写如下事件过程：Private Sub Command l_Click()x=0Do While x 50 x=(x+2)*(x+3)n=n+1LoopText 1.Text=Str(n)Text2.Text=Str(x)End Sub程序运行后，单击命令按钮，在两个文本框中显示的

43、值分别为A.1 和0 B.2 和 72 C.3 和 50 D.4和16814.在窗体上画一个命令按钮，名称为Commandlo然后编写如下程序：Private Sub Command l_Click()For i=1 To 4For j=0 To iPrint Chr$(65+i);Next jPrintNext iEnd Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是A.BBB.AC.BD.AACCCBBCCBBBDDDDCCCDDDCCCEEEEEDDDDEEEEDDDDD15.在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：Private Sub Comma

44、nd l_Click()Dim i As Integer,j As IntegerDim a(10,10)As IntegerFor i=1 To 3Forj=1TO3a(i,j)=(i-l)*3+jPrint a(i,j);Next jPrintNext iEnd Sub程序运行后，单击命令按钮,窗体上显示的是A.1 23B.2 3 4C.1 47D.1 232 4 63 452 5 84 5 63 6 94 5 63 6 97 89二、填空题1.在上一题的二重循环中，如果把外层循环中的Until关键字改为 W hile,要求输出结果相同，请填空。DoDo While Counter 20C

45、ounter=Counter+1If Counter=10 ThenCheck=FalseExit DoEnd IfLoopLoop While2.阅读程序:Private Sub Form_Click()Dim i As Integer,sum As IntegerFor i=2 To 10IfiM od2oO T henPrint iElsesum=sum+iEnd IfNext iPrint sumEnd Sub程序运行后，单击窗体，在窗体上的输出结果是3.阅读程序：Private Sub Form_Click()Dim num As Integer,digit As Integernu

46、m=InputBox()While num 0digit=num Mod 10num=num 10Print digitWendEnd Sub程序运行后，如果从键盘上输入9876,则输出结果为4.以下程序的功能是，从键盘上输入若干学生的成绩，统计并输出最高分数和最低分数，当输入负数时结束输入，请填空。Private Sub Command l_Click（）Dim x As SingleDim amax As Single,amin As Singlex=InputBox（请输入分数）amax=xamin=xDo WhileIf x amax Thenamax=xEnd IfIf Thenam

47、in=xEnd Ifx=InputBox（请输入分数）LoopPrint amax,aminEnd Sub5.执行下面的程序段后，s 的值为 os=5For i=2.6 To 4.9 Step 0.6s=s+1Next i6.以 下 程 序 段 的 输 出 结 果 是。num=0While num=2num=num+1Print numWend7.设有以下的循环：x=1Dox=x+2Print xLoop Until程序运行后，要求执行3次循环体，请填空。8.阅读以下程序：Private Sub Form_Click()Dim k,n,m As Integern=10m=1k=1Do Whil

48、e k=nm=m*2k=k+1LoopPrint mEnd Sub程序运行后，单击窗体，输出结果为一9.以 下 循 环 的 执 行 次 数 是。k=0Do While k 2End Sub程序运行后，单击窗体，输出结果是11.在窗体上画一个命令按钮，然后编写如下事件过程:Private Sub Command l_Click()a=0For i=1 To 2For j=1 To 4Ifj Mod 20 Thena=a+1End Ifa=a+1Next jNext iPrint aEnd Sub程序运行后，单击命令按钮，输出结果是。12.在窗体上画一个名称为Command1.标题为“计算”的命令

49、按钮；画两个文本框，名称分别为Textl和T ext2,然后画4个标签，名称分别为 Labell、Label2、Label3 和 Label4,Caption属性分别为“操作数1”、“操激 2”、“运算结果”和空白；再建立一个含有4个单选钮的控件数组，名称为Optionl,Caption属性分别为和“/。程序运行后，在Textl、Text2中输入两个数值，选中一个单选钮后单击命令按钮，相应的计算结果显示在Label4中，程序运行情况如图所k Forml-IE x|操作数1 操作数2 运算结果Is-f-F-r +(?-r *r /|讦苴示，请将程序补充完整。-Private Sub Comman

50、dl_Click()For i=0 To 3If=True Thenopt=Option 1 (i).CaptionEnd IfNext iSelect CaseCase+result=Val(Textl.Text)+Val(Text2.Text)Caseresult=Val(Textl.Text)-Vai(Text2.Text)Caseresult=Val(Textl.Text)*Vai(Text2.Text)Caseresult=Val(Text 1 .Text)/Val(Text2.Text)End Select=resultEnd Sub三、编程题1.一个两位的正整数，如果将它的个位数