1、第一周 1.3 同步练习题一 选择题1. 以下不能在“工程资源管理器”窗口中列出的文件类型是 Docx2. 以下叙述中错误的是 C.程序运行后，在内存中只能驻留一个窗体3. Visual Basic 6.0 包括三种版本，其中不包括 C.学习版4. Visual Basic 程序设计语言属于 C.面向对象的语言5. 假定一个 Visual Basic 应用程序由一个窗体模块和一个标准模块构成。为了保存该应用程序，以下操作正确的是 B.分别保存窗体模块、标准模块和工程文件6. 通过下面 B.窗体布局窗口可以在设计时直观地调整窗体在屏幕上的位置。7. 以下叙述中错误的是 C. Visual Bas
2、ic 应用程序中可以有多个活动窗体8. 对象所能做的动作称为对象的 A.方法9. 下列关于事件的叙述中不正确的是 D. Visual Basic 中所有对象的默认事件都是 Click10. 一只漂亮的酒杯被摔碎了，则漂亮、酒杯、摔、碎了是 D.属性、对象、事件、方法11. 用一个程序段对某一对象被单击（或双击）做出响应，从而实现指定的操作，称为 B.事件驱动编程机制12. 以解释方式执行程序的过程是边逐条解释边执行，不生成 A.目标程序13. 以下有关对象属性的说法中正确的是 D.对象的某些属性既可在属性窗口中设置，也可通过程序代码设置或改变14. 下列叙述正确的是 C.不同的对象能识别不同的
3、事件15. 在 Visual Basic 中最基本的对象是 B.窗体，它是应用程序的基石，是其他控件的容器。16. 以下叙述中错误的是 D.对象事件的名称可以由编程者指定。17. 下列叙述正确的是 D.事件是对象能够识别的动作。18. 在 Visual Basic 工程中，可以作为“启动对象”的程序是 D. Sub Main 过程或任何窗体。19. 在设计阶段，当双击窗体上的某个控件时，所打开的窗口是 C.代码窗口。20. 在 Visual Basic 应用程序中，在程序中流动的不是一般的数据而是 A.事件。21. Visual Basic 一共有设计、运行和中断 3 种模式，要使用调试工具应
4、该 C.进入中断模式。22. 在代码编辑器中，如果一条语句过长，不能在一行内写下，则需要折行书写，用户可以通过在行末使用续汗符来实现的，该续行符表示为 B.一个空格加一个下划字符(_).23. Visual Basic 是一种面向对象的程序设计语言，对象的三要素包括 B.属性，事件，方法。24. 以下叙述中，错误的是 C.标准模块文件可以属于某个指定的窗体文件。25. 新建一个标准 EXE 工程后，不在工具箱中出现的控件是 C.通用对话框。26. 在设计阶段，双击窗体 Form1 的空白处，打开代码窗口，显示 C. Form_Load 事件过程。27. 当需要上下文帮助时，选择要帮助的“难题”
5、 ，然后按 C.F1 键，就可出现 MSDN 窗口及显示所需 “难题”的帮助信息。28. Visual Basic 有多种类型的窗口，若要在设计时看见窗体窗口，以下操作不正确的是 B.双击 Visual Basic 窗口工作区的空白处。29. 下面关于属性与方法的描述中，不正确的是 B.属性和方法都有值。30. 不能在窗体上选择多个控件的方法 B.有单击每个控件。二 填空题1.为了把一个 Visual Basic 应用程序装入内存，只要装入 工程文件即可。2.面向对象的程序设计方法是把程序和数据封装起来作为一个对象，并对每一个对象设置所需的属性。3.Visual Basic 是一种面向对象的可
6、视化程序设计语言，采用事件驱动的编程机制。4.对象的属性是指描述对象的某些特征，方法是指为了处理事件触发后的一系列操作。 5.对象是代码和数据的集合，例如，Visual Basic 中的窗体、控件、菜单等都是对象。6.开发一个应用程序必须完成以下两项工作：一是设计对象属性；二是编写事件过程代码。7.在属性窗口中，属性的显示方式分为“按字母顺序”和“按分类顺序” 。8.Visual Basic 应用程序通常由 3 类模块组成，即窗体模块、标准模块和类模块。9.当进入 Visual Basic 集成环境，发现没有显示 “工具箱”时，应选择视图的工具箱选项，是工具箱显示在窗口。10.工程资源管理器窗
7、口上有 3 个按钮，它们分别是代码按钮、对象查看按钮和切换文件夹按钮。11.窗体布局窗口用于指定在程序运行时窗体在屏幕上的初始位置，用户通过鼠标拖动就可以改变窗体位置，并能直接观察到效果。12.Visual Basic6.0 的退出方式也有多种，可以使用快捷键 Alt +Q。2.3 同步练习题一、选择题1.在以下有关对象属性的叙述中错误的是（D。Enabled 属性值 False 的控件对象在窗体上将不可见） 。2.以下关于 Name 的说法，错误的是（ B.Name 属性可以在属性窗口修改，也可以在代码中修改） 。3.在 Visual Basic 中，所有的窗体和控件一定具有的一个属性是（A
8、.Name） 。4.用于设置删除线的属性是（A.FontStrikethru ） 。5.运行时，要给窗体 Form1 加载 “C:WINDOWSClouds.bmp”图像文件，应使用语句（D.Form.picture=LoadPicture(“CWINDOWSClouds.bmp”） 。6.运行时，不能清除窗体 Form1 中的图像文件的语句是（ A.Form1.Picture=”） 。7.窗体 Form1 的 Name 属性是 Frm1，它的单击事件过程名是（B.Form_Click） 。8.运行时，要在窗体 Form1 中打印字符串 “How Are You”,应使用语句（C.Form1.
9、Print”How Are You”） 。9.用于设置粗体字的属性是（C.FontBold） 。10.将窗体的（A.Enabled）属性设置为 False 后，运行时窗体上的按钮、文本框等控件就不会对用户的操作做出响应。11.在设计阶段，双击窗体 Form1 的空白处，打开代码窗口，显示（B.Form_Load）事件过程模板。12.Visual Basic 中最基本的对象是（B.窗体） ，它是应用程序的基石。13.执行多窗体应用程序后（B.允许同时打开多个窗体） 。14.关于多窗体应用程序的叙述正确的是（B.连续向工程中添加多个窗体，会生成多个窗体模块） 。15.将一个窗体设置为 MDI 子窗
10、体的方法是（B.将窗体的 MDIChild 属性设置为 True） 。16.以下叙述中错误的是（C.窗体的 Hide 方法和 Unload 方法的作用完全相同） 。17.工程中有 2 个窗体，名称分别为 Form1、Form2，Form1 为启动窗体。要求程序运行后单击 Form1 时显示 Form2，则 Form1 的单击事件应该是（ A.Private Sub Form_Click()Form2.Show）18.某人创建了一个工程，其中的窗体命名为 Form1，之后又添加一个名为 Form2 的窗体，并希望执行程序时先显示 Form2 窗体，那么，他需要做的工作是（A.在工程属性对话框把“
11、启动对象”设置为 Form2） 。19.以下叙述中正确的是（A.窗体的 Name 属性指定窗体的名称，用来标识一个窗体） 。20.如果要在应用程序中添加另一个窗体，正确的操作方法是（B.在“工程”的下拉菜单中选择“添加窗体”命令） 。21.在当前工程中添加一个新的窗体，错误的操作是（C.在代码窗口或属性窗口中输入一个新的窗口名称，即自动建立一个新的窗体） 。22.要设置工程中某一个窗体为启动窗体，必须的操作步骤是（C.打开“工程属性”对话框，选择作为启动窗体的窗体名称） 。23.下列语句中，在运行时能使 Form1 窗体上的输出文本刷新显示的语句是（A.Form1.Refresh） 。24.在
12、多窗体设计时， “工程资源管理器”窗口是非常有用的窗口。关于“工程资源管理器”窗口功能的说明，错误的是（C.在“工程资源管理器”窗口中某一图标左边方框内有“-”号表示已经被移走。25.要将名为 MyForm 的窗体显示出来，正确的方法是（ A.MyForm.Show） 。26.下列叙述错误的是（C.一个窗体一定对应一个窗体文件，所以一个应用程序只能包含一个窗体） 。27.关于启动窗体的说法错误的是（B.系统默认将最后一个被编辑的窗体作为启动窗体） 。28.在 Visual Basic 工程中可以作为“启动对象”的程序有（ C.任意窗体或 Sub Main 过程） 。29.Visual Basi
13、c 中的 MDI 窗体指的是（ D.多文档界面）窗体。30.关闭 MDI 窗体，会触发的事件是（D.QueryUnload） 。二、填空题1.绘图属性的 CurrentX 属性和 CurrentY 属性在设计时不可用，只能在代码中设置，并且经常和（Print）方法结合使用。在默认坐标系中，首次使用 Print 方法，CurrentX 属性和CurrentY 属性的默认值都是（0 ，0） 。2.在对象的 MouseDown 和 MouseUp 事件过程中，当参数 Button 的值为 1、2 时，分别表示按下鼠标的（左键）和（右键）按钮。3.若要使窗体上的所有控件具有相同的字体格式，应设置（窗体
14、）和（Font ）的属性。4.一个应用程序最多可以有（1）个 MDI 父窗体。在运行时，MDI 父窗体中的子窗体最小化时，其图标将显示在（MDI 父窗体）中。5.要使窗体不能移动，应设置的属性是（Moveable） 。6.在 VisualBasic 中，设置大部分属性的方法有两种：一是(在属性窗口中设置) ；二是（在程序代码中设置） 。7.设置窗体背景颜色的属性名称是（BackColor） 。8.窗体有两个属性的默认值是相同的：分别是（Name）和（Caption） 。9.在窗体上输出文本的方法是（Print） ，清除窗体上输出文本的方法是（Cls） 。10.建立工程并存盘后，除了生成窗体文件
15、外还会生成（工程）文件。11.程序运行时要使某一个窗体暂时隐藏，但不从内存中清除，应使用（Hide） 。12.要卸载窗体，需要使用语句（Unload ） 。13.在 “工程资源管理器”窗口中要打开一个窗体，应双击扩展名为（.frm ）的文件。14.在当前工程中添加一个新的窗体，应选择菜单栏（工程）下拉菜单下的选项。15.要使窗体上没有最大化按钮，应将窗体对象的（MaxButton）属性设置为 False。3.3 同步练习题一、选择题1.通过文本框的（D.KeyPress）事件过程可以获取文本框中键入字符的 ASCII 码值。3.放置控件到窗体中的最快的方法是（A.双击工具箱中的控件）5. 要清
16、除组合框 Combo1 中的所有内容，可以使用(B.Combo2.Clear)语句。7. 要想在一个文本框中显示多行内容，应在界面设计时对下列哪一个属性进行设置（C.Multiline ）9.在程序中可以通过复选框和单选按钮的（B.Value）属性值来判断它们的当前状态。11.要使控件与框架捆绑在一起，以下操作正确的是（C.在窗体上画好框架，再在框架中画控件）13.决定控件上文字的字体、字形、大小、效果的属性是（D.Font）15.要使单击滚动条滑块与两端箭头之间的空白区域时变化值为 20，应设置其（DSmallChange 和 LargeChange）属性。17.时钟控件每次经历一个固定的时
17、间间隔就会（B触发事件）19.下面（B.CheckBox）控件不支持 DblClick 事件。21.能够改变复选框中背景颜色的属性是（Backcolor）23.选项按钮用于一组互斥的选项中。若一个应用程序包含多组互斥条件，可在不同的（D.框架控件或图片框）中安排适当的单选按钮，即可实现。25.当组合框的 style 属性设置为 0 时，其表现形式为（B.下拉组合框）27.要使列表框中的每一个文本项的边上都有一个复选框需设置属性。 （D.Style）29.若在窗体上有一个名称为 Combo1 的组合框，含有 5 个项目，要删除最后一项，正确的语句是（B.Combo1.RemoveItem4）31
18、.如图 3-2 所示，在窗体上先后画 2 个图片框，名称分别为 P1 和 P2，P2 中加载了图片，且将 P2.DragMode 属性设为 1。要求程序运行时，可以用鼠标 P2 拖动到 P1 中，能实现此功能的事件过程是（B、Private Sub P1_DragDrop(Source As Control,X As Single,Y As Single)Source.Move P1.Left+X,P1.Top+YEnd Sub）33.在窗体上画 1 个文本框和 1 个时钟控件，名称分别为 Text1 和 Timer1,在属性窗口中把时钟控件的 Interval 属性设为 1000，Eable
19、 属性设为 False。程序运行后，如果单击命令按钮，则每隔 1s 钟在文本框中显示一次当前的时间。以下是实现上述程序的程序:Private Sub Commond1_Click（）Timer1._=TureEnd SubPrivate Sub Timer1_Timer（）Text1.Text=TimeEnd Sub在（）处填入的内容是（A.Enable=True）35.在窗体上画 1 个文本框 Text1 和 1 个标签 Label1，程序运行后，如果在文本框中输入指定的信息，则立即在标签中显示相同的内容，以下可以实现上述操作的时间过程是（B. Private Sub Text1_Chang
20、e()Label1.Caption=Text1.TextEnd Sub ）37.在窗体上画一个名称为 TA 的文本框，然后编写如下的事件过程：Private Sub Ta_KeyPress(KeyAscii As Integer).End Sub .假定焦点已经定位于文本框中，能够触发 KeyPress 事件的操作是（D.按下键盘上的某个键）39.如果窗体上有 1 个命令按钮（确定） ，在代码编辑窗口有与之相对应的 OK_Click（）事件过程，则命令按钮的名称属性和 Caption 属性分别是（A “OK”和“确定” ）41.窗体的 MouseDown 的事件过程有 4 个参数，关于这些参数
21、，这些参数，正确的描述是（A.通过 Button 参数判定当前按下的哪一个鼠标键） Form_MouseDown(Button As Integer, Shift As Integer,X As Single,Y As Single)。43.窗体上有 1 个文本框 Text1,然后编写如下事件过程，程序运行后在文本框中输入 a，在窗体上显示(C.aC)。Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)Print Chr(KeyCode+2);End SubPrivate Sub Text1_KeyPress(KeyAsc
22、ii As Integer)Print Chr(KeyAscii);End Sub45.若窗体上图片框中有一个命令按钮，则此按钮的 Left 属是指（B.按钮左端到图片框左端的距离）47.下列(B.Private Sub Command3_Click()程序段能删除列表框 List1 中的所有相。For I=0 To List1.ListCount-1List1.RemoveItem 0Next IEnd Sub49.窗体上有一个名称为 Frame1 的框架，若要把框架上显示的“Frame1”改为汉字“框架” ，下面正确的语句是（B.Frame1.Caption= “框架” ） 。51.在程序
23、运行的时，下面的叙述中正确的是（C.只装入而不显示窗体，也会执行窗体的Form_Load 事件过程） 。53.运行状态，在文本框 Txtinput 中输入“ABC ”时，窗体上显示（C.A ）.ABABCPrivate Sub Txtinput_Change()Print txtinput.TextEnd Sub55.设有如图 3-3 所示窗体和以下程序Private Sub Command1_Click()Text1.Text=”Visual Basic”End SubPrivate Sub Text1_LostFocus()If Text1.Text60 Then Score=1If a7
24、0 Then Score=2If a80 Then Score=3If a90 Then Score=4Print “Score=“;Score29.执行以下语句后，显示结果为-C-1Dim xIf x Then Print x Else Print x-131.下列( C x=val(text1.text)End if Print if)程序段能实现以下分段函数33.下列(a) 程序段的执行结果为（ AA.-9）A=”1”B=”2”A=val(a)+val(b)B=val”12”B.9 C.12-12 D.0If a 063. 在窗体上画一个名称为 command1 的命令按钮，然后编写如下
25、事件过程，程序运行后，单击命令按钮则窗体上显示的内容是(c.97) 死循环 65.下列程序段的执行结果为-。 D.i=7 x=17i=1x=5Doi=i+1x=x+2Loop Untili=7Print “i=“;iPrint “x=“;x 67.假设有以下程序段For i=1 To 3For j=5 To 1 Step -1Print i*jNext jNext i则语句 Print i*j 的执行次数是 -。A1569、下列哪个程序段不能正确显示 1！，2 ！，3！，4！的值 BB、For i=1 To 4 For j =1 Toin=n*jNext jPrint nNext i二、填空题
26、1，执行下面的程序，单机窗体，则窗体上的显示结果为_-1_。Option ExplicitPrivate Sub Form Click()Dim a As Integer,b As Integer,c As Integerb=6:c=6.5a=b=cPrint aEnd Sub3.运行下列程序，窗体上显示的结果是(6 123 1280)Private SubForm_Click()AS = “12“: BS = “34“c= val(AS) + val(BS) :D = val(AS + BS)Print c Mod 10; D 10:Print C + DEnd Sub5.在窗体上单击某按钮
27、 Command1 时输出如图所示的图形。程序代码如下:Private sub command1_click()Print tab(6 );”;tab(14 );”Print tab(7 );” ;tab( 13);”Print tab( 8);” ;spc(3 );”Print tab(9 );” ;spc( 1);”Print tab( 10);”End sub7.下列程序段的执行结果是X=5Y=-6IF NOT X0 THEN X=Y-3 ELSE y=x+3Print x-y;y-x9.下列程序段的执行结果为 * *0* * 。Private Sub Command1_Click()a
28、 = 1b = 0Select Case aCase 1Select Case bCase 0Print “* *0* *”Case 1Print “* *1* *”End SelectCase 2Print “* *2* *”End SelectEnd Sub11.下列程序用于求 3 个数中的最大数，试讲程序段填写完整。Private Sub Command1_Click()a = Val(InputBox(“请输入第一个数”)b = Val(InputBox(“请输入第二个数”)c = Val(InputBox(“请输入第三个数”)Max = aMin = aIf ba Then Max
29、= bIf b Max Then Max = cIf c = Shape1.Top + Shape1.Hight Then d = -dEnd IfElseIf Option2 ThenShape2.Left = Shape2.Left + d * 50If Shape2.Left = Shape1.Left + Shape1.Width Thend = -dEnd IfEnd IfEnd Sub17.运行下面的程序，单击窗体后第一行显示的内容为（1） ，第二行为（2）Private Sub Form_ClickDim m As Integer,n As Integer,k As Intege
30、rn=-3For m=6 To 1 Step nm=m+1:n=n-m:k=k+1Next mPrint kPrint nEnd Sub19 运行下面的程序，单击窗体后在窗体上显示的第一行结果是-Aa ，第三行是-AaBbCc。Private Sub Form-Click()Dim mst As String, mst1 As Integermst1=”CcBbAa”For i=Len(mst1) To 1 Step -2Mst2= Mid(mst1, i -1,2)Mst = mst& mst2Print mstNext iEnd Sub21.运行下列程序段，第一行输出结果是（） ，第二行输
31、出结果是（）Private sub form-click()A$ = “happy”:b$= “new”:c$=”year”:d$=c$+b$+a$Print xEnd sub23.设 n 是一个四位数，它的 9 倍恰好是其反序数，求 n。Private Sub command1_Click()Dim d1 As Integer, d2 As Integer , d3 As Integer, d4 As IntegerDim d As Long, i As LongFor i = 1000 To 9999d1 = i Mod 10d2 = (i 10) Mod 10d3 = (i 100) M
32、od 10d4 = i 1000_d = d1 * 1000 + d2 * 100 + d3 * 10 + d4_If _d = i * 9_ Then Print iNext iEnd Sub25.在 【1,10000】范围内求出个位数字是 1 的素数个数。Private Sub Comand1_ClickFor i = 2 To 10000j = 2: k = Int(i /2) + 1Do While j k Thenm = _(2)_If m = “1“ Then s = s + 1End IfNext iPrint sEnd Sub27.求整数 123456 的质因子个数。如 70=
33、2*2*2*3*3，则因子个数为 5。Private sub Form_Click()Dim n As LongDim m As Longn=123456m=2While (mbc 后，窗体上显示的是（B.False)19.以下程序段在立即窗口中输出（B.our)21.在窗体上画一个文本框，其名称为 Text1，然后编写如下事件过程：程序运行后，如果在键盘上输入字母“b” ，则在文本框 Text1 中显示的内容是（B.BBB)23.下列事件过程，运行后输出的结果是（D.2 2）25.在窗体上画两个滚动条，名称分别为 Hscroll1、Hscroll2 ：六个标签，名称分别为Label1、Lab
34、el2、 Latel3、Label4 、Label5、Label6，其中标签 Label4Label6 分别显示“A ”、“B”、 “A*B”等文字信息，标签 Label1、Label2 分别显示其右侧的滚动条的数值， Label3显示 A*B 的计算结果。当移动滚动框时，在相应的标签中显示滚动条的值。当单击命令按钮“计算”时，对标签 Label1、Label2 中显示的两个值求积，并将结果显示在 Label3 中。以下不能实现上述功能的事件过程是（DPrivate Sub Command1_Click() Label3.Caption=HScroll1.Text*HScroll2.Text
35、End Sub） 。27.下列程序段的执行结果为（B.Score=2)29.执行以下语句后，显示的结果为（C.-1)31.下列（C.x=Val (Text1.TextIf x Y,X,Y)B）IF XY THEN MAX=X ELSE MAX=YC） MAX=X IF Y=X THEN MAX=Y D）IF Y=X THEN MAX=YMAX=X37.在窗体上画一个命令按钮和一个文本框，名称分别为 Command1 和 Text1,然后编写如下程序：程序运行后，如果从键盘上输入 16，则在文本框显示的内容是（ D） 。A.旅游景点：长城故宫 B.旅游景点：长城颐和园C.旅游景点：颐和园 D.旅
36、游景点：故宫39.在窗体上画一个名称为 Text 的文本框，要求文本框只能接收大写字母的输入。以下能实现该操作的事件过程是（A） 。41.计算分段函数：下面程序段中正确的是（C） 。43.在窗体上画一个名称为 Command1 的命令按钮和两个名称分别为 Text1,Text2 的文本框，然后编写如下事件过程：Private Sub Command1_Click() n=Text1.Text Select Case n Case 1 To 20 x=10 Case 2, 4, 6 x=20 Case Is10 x=30 Case 10 x=40 End Select TextText=x En
37、d Sub 程序运行后，如果在文本框 Text1 中输入 10，然后单击命令按钮，则在 Text2 中显示的内容是(A)。A10B20C 30D4045.设工程中有 2 个窗体：Form1 、Form2、Form1 为启动窗体。Form2 中有菜单，其结构如表。要求在程序运行时，在 Form1 的文本框 Text1 中输人口令并按回车键 (回车键的 ASCII码为 13)后，隐藏 Form1，显示 Form2。若口令为“Teacher” ，所有菜单项都可见；否则看不到“成绩录入”菜单项。为此某人在 Form1 窗体文件中编写如下程序： Private Sub Text 1 KeyPress(K
38、eyAscii As Integer) If KeyAscii=13 Then If Text1Text=“Teacher“Then Form2 inputVisible=True Else Form2inputVisible False End If End If FormlHide Form2 Show End Sub 程序运行时发现刚输入口令时就隐藏了 Form1，显示了 Form2，程序需要修改。下面修改方案中正确的是（B） 。A.把 Form1 中 Text1 文本框及相关程序放到 Form2 窗体中B.把 Form1Hide、Form2 Show 两行移动 2 个 End If 之
39、间C.把 If KeyAscii=13 Then 改为 If KeyAseii=“Teacher“ThenD.把 2 个 Form2 inputVisible 中的“Form2 ”删去47.下列关于 DOLoop 语句的叙述不正确的是( B)。ADoloop 语句采用逻辑表达式来控制循环体执行的次数B当 Do whileLoop 或 Do untilLoop 语句中 while 或 until 后的表达式的值为 true 或非零时，循环继续C DoLoop while 语句与 DoLoop until 语句都至少执行一次循环体DDo whileLoop 语句与 Do untilLoop 语句可
40、能不执行循环体49.While-Wend 循环对循环体的执行过程是 B.先测试 是否成立，若条件成立，才能执行循环体。51.关于下面 ForNext 循环描绘正确的是 B.循环是一个无限循环53.判断下面循环的执行次数 C.3.55.若有以下程序段，程序运行结果为 B.0.57.计算的近似值的一个公式是 4=1-(1 3)+(1 5)-(17)+(-1)n-1(12n -1)。某人编写下面的程序用此计算的近似值的一个公式是 4=1-(13)+(15)-(17)+ +(-1)n-1(12n -1)。某人编写下面的程序用此公式计算并输出的近似值：运行后发现结果勾 322751，显然，程序需要修改。
41、下面修改方案中正确的是 C.把 For k=3 To n 改为 For k=3 To n Step 2 。59. 窗体上有 List1 、 List2 两个列表框 ， List1 中有若干列表项 （ 见图 ） ， 并有下面的程序：程序运行时，按照图示在 List1 中选中 2 个列表项，然后单击 Commandl 命令按钮，则产生的结果是 C. 同时产生 A 和 B 的结果61.下列循环能正常结束循环的是 C.i=10 Do i=i+1 Loop Until i063.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：程序运行后，单击命令按钮，则窗体上显示的内容是 C。
42、9 765.下列程序段的执行结果是 D.i=7 x=1767.假定有以下程序段：则语句 print i*j 的执行次数是 A.1569.下列哪个程序段不能正确表示 1！2！3 ！4！的值是 B.for i=1to 4 for j=1toi n=1 n=n*j nextj二、填空题1.执行下面的程序，单击窗体，则窗体上的执行结果为-13.运行下列程序，窗体上显示的结果是 6 123 1280.5.在窗体上单击 commend1 按钮输出以下图形（1）6 （2）14（3）7 （4）13 （5 ）8（6）3（ 7）9（8）17.下列程序段的执行结果是 3-39.下列程序段的执行结果是*0*11.下面
43、程序段要求出三个数中的最大数13.工程中有 Form1、Form2 两个窗体。Form1 窗体如图所示。程序运行时在 Form1 中名称为 text1 的文本框中输入一个数值，然后单击命令按钮，则显示 form2 窗体，且根据输入圆的半径计算圆的面积。 （1） Text1 （2 ）Text1 （3 ）Form215.窗体中有一个矩形和一个圆，程序运行时，单击“开始”按钮，圆可以纵向或横向运动（通过选择按钮来决定） ，碰到矩形的边时，则向相反方向运动，单击“停止”按钮，则停止运动，如图 5-8 所示。可以选择单选按钮随时改变运动方向。（1 ） Timer1.Enabled (2)Shape2.Top (3)Top (4)Shape2.Left17.运行下面的程序，单击窗体后第一行显示的内容为（3） ，第二行为（-18） 。
