VB期末考试复习题

第1单元　Visual Basic程序设计概述 1、以下＿＿＿＿为标准模块程序文件的扩展名。 A、.bas B、.cls C、.frm D、.res 2、以下说法正确的是＿＿＿＿。 A．窗体文件的扩展名为.frm B．一个窗体可对应多个窗体文件 C．Visual Basic中的一个工程只包含一个窗体 D．Visual Basic中的一个工程最多可以包含256个窗体文件 3、Visual Basic菜单中的“新建工程”命令是＿＿＿＿。 A．可以直接执行的命令 B．通过对话框执行的命令 C．位于“编辑”菜单下 D．快捷键为Ctrl+D 4、运行程序的快捷键为＿＿＿＿。 A．F10 B．F4 C．F5 D．Ctrl 5、以下说法不正确的是＿＿＿＿。 A．标准模块附属于窗体 B．标准模块由程序代码组成 C．标准模块也称程序模块文件，扩展名为.bas D．标准模块用来声明全局变量和定义一些通用的过程 6、以下可用于启动Visual Basic的方法是＿＿。 A．打开“我的电脑”找到存放Visual Basic 系统文件的硬盘及文件夹双击VB6.0EXE图标 B．执行“开始”菜单中的“运行”命令，输入 Visual Basic可执行文件的路径及文件名 C．利用“开始”菜单中的“程序”命令方式 D．以上选项均正确 7、以下为纯代码文件的是＿＿＿＿。 A、工程文件 B、窗体文件 C、标准模块文件 D、资源文件 8、以下说法不正确的是＿＿＿＿。 A．Visual Basic是面向过程的编程语言 B．Visual Basic是一种可视化编程工具 C．Visual Basic是结构化程序设计语言 D．Visual Basic采用事件驱动编程机制 9、Visual Basic的窗体设计器主要是用来＿。 A．建立用户界面 B．设计窗体的布局 C．编写程序源代码 D．添加图形、图像、数据等控件 12、以下为窗体文件扩展名的是：_______。 A．.bas B．.cls C．.frm D．.res 13、工程组文件扩展名为：_______。 A．.vbp B．.vbg C．.cls D．.bas 14、标准工具栏上，添加模块按钮对应__________图标。 A． B． C． D． 15、Visual Basic集成的主窗口中包括：​__________。 A．标题栏 B．工具栏 C．菜单栏 D．以上3者全有 16、以下说法正确的是__________。 A．属性是对象的一部分 B．方法是对象的一部分 C．事件是对象的一部分 D．A、B都正确 17、Visual Basic开发环境的标题栏上显示： Visual Basic[****]，其中****位置表示______。 A．应用程序的大小 B．应用程序的位置 C．应用程序的名称 D．应用程序的状态 二、填空题 1、工具栏中的 按钮的作用是：_打开菜单编辑器。 2、Visual Basic分 学习版、专业版、企业版3种版本。 3种版本中，企业版 版包括另外两个版本的全部功能。 3、应用程序最终面向用户的窗口是窗体设计器窗口， 它对应于应用程序的运行结果。 4、属性窗口是针对窗体和控件而设置的。 5、启动Visual Basic后，在窗体的左侧有一个用于应用程序界面设计的窗口，称作工具箱。 第2单元　窗体及控件操作 一、选择题 17、通过形状控件的＿＿＿属性可以形成圆、椭圆 和圆角矩形。A．FillStyle B．Line C．Shape D．Picture 18、BorderColor属性用来设置＿＿＿。 A直线或形状背景颜色 B形状的内部颜色 C直线或形状边界线的线形 D直线颜色和形状边界颜色 21、在Visual Basic中，组合框是＿＿＿和＿＿＿的组合。（　　　） A．复选框、文本框 B．列表框、文本框 C．复选框、列表框 D．列表框、标签 22、＿＿属性用来设置列表框的一次可以选择的表项数。 A．Columns B．List C．ListCount D．MultiSelect 24、在修改列表框内容时，RemoveItem方法的作用是＿。 A．清除列表框中的全部内容 B删除列表框中指定的项目 C．在列表框中插入多行文本 D在列表框中插入一行文本 25、当组合框的Style属性设置为＿时组合框称不下拉式 A．0 B．1 C．2 D．3列表框。 26、通常情况下，水平滚动条的值＿＿＿递增。 A．由上往下 B．由下往上 C．由左往右 D．由右往左 27、当滚动条中的滚动框仅次于最右端或最下端时，Value属性被设置为 A．Max B．Min C．LargeChange D．SmallChang 28、当在滚动条内拖动滚动块时，触发＿＿＿事件。 A．Change B．Scroll C．MouseUp D．MluseDown 29、在计时器控件中，Interval属性的作用是＿＿＿。 A．设置计时器事件之间的间隔 C．存储程序所需的附加数据 B．决定是否响应用户生成事件 D设置计时器顶端与其容器之间的距离 30、下面控件中，用于将屏幕上的对象分组的是＿＿＿。 A．组合框 B．复选框 C．框架 D．形状 31、要使标签的背景样式为透明，则应设置的属性是＿＿＿。 A．AutoSize B．BackStyle C．BorderStyle D．Caption 32、下列控件中，不能获得焦点的是＿＿＿。 A．文本框 B．标签 C．组合框 D．列表框 44、以下说法正确的是：__________。 A．非活动控件在窗体上是隐藏的 B．窗体上可以有多个控件为活动控件 C．若一个控件上有8个黑色的小方块，表明该控件是活动的 D．在活动控件中只能通过拖拉右上角和右下角的小方块来同时在高度 和宽度上缩放控件 45、确定一个窗体或控件大小的属性是；＿＿＿＿。 A．Width和Height B．Width或Height C．Top和left D．Size 46、针对以下代码，说法正确的是：＿＿＿＿。 Form1.Top = 2000 Form1.Left = 800 A．窗体Form1左边界距屏幕的左边界800点， 上边界距屏幕的上边界2000点 B．窗体Form1左边界距屏幕的左边界800twip， 上边界距屏幕的上边界2000twip C．窗体Form1的高度为800 twip，宽度为2000twip D．窗体Form1的高度为800 点，宽度为2000点 47、如果设置窗体的ControlBox属性值为False，则＿。 A．ControlBox仍起作用 B．窗口边框上的最大化和最小化按钮失效 C．窗口边框上的最大化和最小化按钮消失 D．运行时还可以看到窗口左上角显示的控制框，可以单击该控制框 进行窗体的移动、关闭等操作 49、以下赋值语句错误的是：＿。 A．Check1=FalseB．Dir1=C:\foot\ C．Text1=”我的文档” D．Option=True 对象 默认属性 对象 默认属性 图片框（PictureBox） Picture 组合框（ComboBox） Text 标签（Label） Caption 列表框（ListBox） Text 框架（Frame） Caption 水平滚动条（HscrollBar）垂直滚动条（VscrollBar） Value 命令按（CommandButton） Value 数据（Data） Caption 复选框（CheckBox） Value 图像框（Image） Picture 单选按（OptionButton） Value 计时器（Timer） Enabled 50、一个新建的窗体，运行后发现屏幕上没有显示，任务栏上也没有最小化图标，可能的大原因是：＿＿＿＿＿。 A．该窗体为多窗体的一个 B．该窗体的Visible属性为False C．该窗体的Enable属性设为False D．该窗体的WindowState属性设为Minimized 51、通过＿＿＿属性可以改变窗体的标题。 A．Caption B．Icon C．Text D．BorderStyle 52、将窗体的__属性设置为False后，运行时窗体上的 按钮、文本框等控件就不会对用户的操作做出响应。 A．Visible B．Enabled C．ControlBox D．BorderStyle 53、通常窗体的左上角有一人控制框，当单击此处时， 会显示恢复、移动、放大等选项，在Visual Basic中 可通过设置窗体＿属性控制些功能。A．BorderStyle B．WindowState C．Paint D．ControlBox 54、关于对象方法的格式，正确的是：＿＿＿＿＿。 A．方法名称　对象名称 B．对象名称＿方法名称 C．对象名称．方法名称　D．对象名称（方法名称） 55、任何控件都有＿＿＿＿＿属性。 A．Caption B．Text C．Name D．Visible 56、用于显示当前目录中文件的列表的控件是：＿＿ A．目录列表框 B．驱动器列表框 C．文件列表框 D．组合框 57、文本框控件用于表示内容的属性是：＿＿＿＿。 A．Text B．Caption C．AutoRedaw D．Visible 58、能够被对象识别的动作称为＿＿＿＿＿。 A．属性 B．方法 C．事件 D．过程 【解析】所谓事件，是由Visual Basic预先设置好的 能够被对象识别的动作；属性是一个对象的特征，不同 的对象有不同的属性；方法是一种特殊过程和函数。 59、＿＿属性用于控制屏幕图像的重建，主要用于 多窗体程序设计。 A．AutoRedraw B．BackColor C．BorderStyle D．Caption 60、下列控件中，不属于内部控件的是：＿＿。 A．DirveListBox B．ActiveX控件 C．Data控件 D．组合框 8、在窗体上画一个文本框和一个图片框，然后编写如下事件过程： Private Sub Form_Click() Text1.Text = "Visual Basic" End Sub Private Sub Text1_Change() Picture1.Print "SIZU" End Sub 9、在窗体上画一个列表框，然后编写如下事件过程： Private Sub Form_Click() List1.RemoveItem 1 List1.RemoveItem 2 List1.RemoveItem 1 End Sub Private Sub Form_Load() List1.AddItem "A" List1.AddItem "B" List1.AddItem "C" List1.AddItem "D" List1.AddItem "E" End Sub 程序运行后，单击窗体，列表框中显示的项目为 A、E 。 第3 单元 实践练习 一、选择题 1、在Visual Basic中，为表示钱款而设置的数据类型是＿。 A．字节型 B．货币型 C．对象型 D．布尔型 2、可在常数的后面加上类型说明符以强制表示常数的类型， 用＿表示整型常数。 A．% B．＃ C．！ D．$ 3、Visual Basic中的数值可以用十六进制或八进制表示， 十六进制数以＿＿开头，八进制数以＆O开头。 A．$O B．&O C．$H D．＆H 4、如果一个变量未经定义而直接使用，则该变量的类型是： A．Variant B．String C．Currency D．Single 5、以下名项中，不是字符串常量的是：＿＿ A．”” B．”5%成功率” C．“uiek” D．strBareFoot 6、下无符号常量的声明中，不合法的是：＿＿＿＿。 A．Const a As Single=1 B．Const a As Double=Sin(1) C．Const a=”OK” D．Const a$=”12“ 7、关于变量的说法不正确的是：＿＿＿＿。 A．变量名的长度不能超过255个字符 B．变量名可以包含小数点 C．不能将Visual Basic的保留字用作变量名 D．变量名的第一个字符必须是字母 8、以下各项可以作为Visual Basic的变量名的是：＿＿。 A．Bare_Foot B．52Heel C．Silk-Leg D．High Heel 15、以下关于运算符的说法中，错误的是：＿＿＿＿。 A．括号可以改变运算符的运算顺序 B．通常不允许两个运算符相连，两个运算符应当用括号隔开 C．在表达式中只能用圆括号，不能使用方括号和花括号 D．表达式中的乘号“*”可以省略，但不能用符号“×”代替 17、表达式Left(“Mike Like Girl’s silk feet”, 3)的值是：＿＿＿＿。 A．”Mike” B．”Mik” C．” Mike Like Girl’s” D．” e Like Girl’s silk feet” 18、表达式IntStr(“阳光照耀着微风的水面，显得风和日丽”, “微风”)的值是：＿＿＿＿。 A．5 B．6 C．10 D．12 19、求一个3位正整数N的十位数的正确方法是：＿＿＿＿。 A．N-Int(N/100)*100 B．Int(N/10)-Int(N/100) C．Int(N/10)-Int(N/100)*10 D．Int(N-Int(N/100)*100) 20、表达式Abs(-9.5)+Len(“Silk”)的值是：＿＿＿。 A．9.5 B．13.5 C．9.5Silk D．-5.5 21、表达式Mid(“I Love silk foot”, 4 ,2)的值是：＿＿＿。 A．silk B．foot C．ov D．ve 22、表达式Val(“week2000”+”400”)的值是：＿＿＿。 A．2400 B．2000400 C．0 D．week2000400 23、表达式Val(“562Heel”+”200”) 的值是：＿＿＿。 A．562 B．762 C．200 D．562Heel200 24、表达式Val(“562Heel”)+val(”200”) 的值是：762。 25、函数Format$(124.60,”000,000.0”)的值是：＿＿＿。 A．000，124.60 B．124.60 C．124.6 D．000，124.6 26、可以同时删除字符串前面和尾部空格的函数是：＿＿＿。 A．Trim B．Rtrim C．Mid D．Ltrim 29、以下关于函数调用的说法中，错误的是：＿＿＿。 A．作为内部函数参数的表达式的值不受计算过程的影响 B．函数以表达式形式调用 C．若有多个参数，以分号隔开 D．内部函数的计算过程只是访问它们 30、若有下列表达式： Dim MyDouble As Double, MyInt As Integer, MyString As String MyDouble = 2345.5678 MyInt = CInt(MyDouble) MyString = Str(MyInt) Print MyString End Sub执行后，输出的结果是 31、函数Int(Rnd(0)*11)+10的值的范围是：＿＿＿＿。 二、填空题 1、用户可以用Type语句定义自己的数据类型。 2、表达式Right(“The work is troublesome”, 3)的值是：ome 3、可以用Const语句来定义符号常量。 4、在Visual Basic中，取模运算的运算符是Mod。 5、表达式”1”　&　“89”的值是：189，表达式1＋89的值是：90。 6、执行MyNumber=Abs(-50.3)后，MyNumber的值是：50.3。 7、执行MyNumber=Int(-89.67)后，MyNumber的值是：-90。 第4单元　数据输入与输入部分 一、选择题 1、在默认情况下，InputBox()函数返回值的类型是：＿＿＿。 A．变体 B．字符串 C．数值 D．数值或字符串 2、下面关于InputBox()函数的叙述，不正确的是：＿。 A．InputBox()函数可以写成InputBox$()的形式 B．执行一次InputBox()函数可以输入多个数值 C．在默认情况下，InputBox()函数的返回值是一个字符串 D．执行一次InputBox()函数，只能输入一个值，要想输入 多个值，需执行多次 3、MsgBox()函数的返回值类型为：＿＿＿。 A．字符串 B．变体 C．数值型 D．不确定 4、在当前窗体上显示“可视化程序设计”的输出语句是：＿。 A．Print “可视化程序设计” B．Picture1.Print “可视化程序设计” C．Printer. Print “可视化程序设计” D．Debug. Print “可视化程序设计” 13、关于Msgbox()函数的使用，下列说法中错误的是＿＿。 A函数的第二个参数的第三类数值用来确定默认活动按钮。 当某个按钮为活动按钮时其内部的文字周围有一个虚线框 B函数显示的提示信息最多不超过1000个字符，所显示 的信息自动换行。 C在应用程序中，该函数的返回值通常用来作为继续执行 程序的依据，根据该返回值决定其后的操作。 D该函数在使用时可以根据信息量自动调整信息框的大小 15、下列程序的功能是＿＿＿。 Private Sub Command1_Click() Dim strHel As String, X As Single, Y As Single FontSize = 20 strHel = "欢迎使用本系统！" X = (ScaleWidth - TextWidth(strHel)) / 2 Y = (ScaleHeight - TextHeight(strHel)) / 2 CurrentX = X CurrentY = Y Print strHel End Sub A．在当前光标所在处输出字符串 B．在窗体中居中显示字符串 C．显示当前位置的值 D．无输出结果 二、填空题 1、在窗体上绘制一个命令按钮，然后编写如下程序： Private Sub Command1_Click() Dim A As Integer, B As Integer A = InputBox("请输入一个整数") B = InputBox("请输入一个整数") Print A + B End Sub 程序运行后，单击命令按钮，在输入对话框中分别输入10和5，输出的结果为15。 第5单元 控制结构部分 一、选择题 1、运行下列程序段之后，在弹出的对话框中依次输入5、8，单击“确定”按钮后，窗体上显示的结果为：＿＿＿＿＿ Private Sub Command1_Click() a=InputBox(“请输入第一个数”) b= InputBox(“请输入第二个数”) If a”; b End sub A．5 < 8 B．8 > 5 C．5<8 D．5 2、下面语句正确的是：＿＿＿＿ A．If X ≠ Y Print "X不等于Y" B．If X <> Y Print "X不等于Y" C．If X ！＝Y Then Print "X不等于Y" D．If X >< Y Then Print "X不等于Y" 5下面程序段＿能够正确实现目的：如果A＜B则A＝5否则A＝－5 A．If A < B Then A = 5: Print A Else A = -5: Print A C．If A < B Then A=5 A = 5 Print A 8、下列程序段的执行结果为：＿＿＿。 Private Sub Command1_Click() A = 2: B = 1 Select Case A Case 1 Select Case B Case 0 Print "****" Case 1 Print "####" End Select Case 2 Print "@@@@" End Select End Sub 11、下列程序段的执行结果为：＿＿＿。 X = 1: Y = 2 For I = 1 To 3 F = X + Y X = Y Y = F Print F; Next I A．-3　5　8 B．3　3　3 C．5　8　13 D．3　5　5 12、下列程序段的执行结果为：＿＿＿。 I = 2: A = 6 Do I = I + 1 A = A - 1 Loop Until I >= 5 Print "I="; I Print "A="; A A．I=5、 A=3 B．I=6、A=2 C．I=5、A=2 　D．I=6、A=3 13、下列程序段的执行结果为：＿＿＿。 a = 1: b = 0 Do a = a + b b = b + 1 Loop While b < 5 Print a; b A、11　5 B、16　6　 C、a　b D、10　30 14、假定有以下循环结构 Do Until 条件 循环语句 Loop 则正确的描述是：＿＿＿。 A．如果“条件”是一个为0的常数， 则至少执行一次循环体。 B．如果“条件”是一个为0的常数， 则一次循环体也不执行。 C．如果“条件”是一个不为0的常数 则至少执行一次循环体。 D．不论“条件”是否为“真”，至少 要执行一次循环体。 15、假定有以下程序段： For i = 1 To 2 For j = 3 To 1 Step -1 Print i * j Next j, i 　　则语句Print i * j执行的次数是：＿＿。 A．5　　　　B．6　　　　C．7　　　　D．8 二、填空题 1、单击使命按钮执行以下程序，在弹出的对话框中输入 10，单击“确定”后，在窗体上输出31。 Private Sub Command1_Click() Dim X As Single, Y As Integer X = InputBox("输入一个数") X = CInt(X) Select Case X Case Is <= 1 Y = 1 Case Is <= 15 Y = X * 3 + 1 Case Is <= 20 Y = X ^ 2 Case Is > 20 Y = 1 End Select Print Y End Sub 2、循环的执行次数是4 Private Sub Command1_Click() Dim X As Single: X = 1 Do While X <= 8 X = X + 2 Loop End Sub 4、阅读以下程序： Private Sub Command1_Click() Dim K As Integer, A As Integer, B As Integer A = 20: B = 2: K = 2 Do While K < A B = B * 2: K = K + 7 Loop Print B End Sub 程序运行后，单击命令按钮，输出的结果是：16 第6单元　数组 一、选择题 5、命令按钮中有如下代码运行单击命令按钮结果是： Option Base 1 Private Sub Command1_Click() Dim A(10), P(3) As Integer, K As Integer, I As Integer K = 5 For I = 1 To 10 A(I) = I Next I For I = 1 To 3 P(I) = A(I * I) Next I For I = 1 To 3 K = K + P(I) * 2 Next I Print K End Sub A．28 B．33 C．35 D．37 6、一个命令按钮中编写了如下代码，运行后单击命令按钮，输出结果是：＿＿＿。 Option Base 1 Private Sub Command1_Click() Dim A, I As Integer, J As Integer, S As Long A = Array(1, 2, 3, 4) J = 1 For I = 4 To 1 Step -1 S = S + A(I) * J J = J * 10 Next I Print S End Sub A．1234 B．4321 C．12 D．34 11、下列程序段的执行结果是：＿＿＿。 Option Base 1 Private Sub Command1_Click() Dim M(9) As Integer, I As Integer For I = 1 To 9 M(I) = M(I - 1) + I Next I Print M(5) End Sub A．10 B．14 C．15 D．20 13、下列程序段的执行结果为：＿＿＿。 Private Sub Command1_Click() Dim A(5, 6) As Integer, I As Integer, J As Integer For I = 1 To 3 For J = 1 To 4 A(I, J) = I - J Next J Next I For I = 1 To 2 For J = 1 To 3 Print A(J, I) Next J Next I End Sub 14、下列程序段的执行结果为：＿＿＿。 Private Sub Command1_Click() Dim A(10, 10) As Integer, I As Integer, J As Integer For I = 4 To 5 For J = 2 To 4 A(I, J) = I * J Next J Next I Print A(4, 3) + A(5, 4) End Sub 15、下列程序段的执行结果为：＿＿＿。 Private Sub Command1_Click() Dim X(3, 5) As Integer, I As Integer, J As Integer For I = 1 To 3 For J = 1 To 5 X(I, J) = X(I - 1, J - 1) + I + J Next J Next I Print X(3, 3) End Sub A．9 B．12 C．15 D．2 二、填空题 1、写出下列程序段的功能：求数组A(i)的最小值及其相应下标　 Dim A(1 To 10) As Integer些处对数组A(1 To 10)赋值代码略。 Private Sub Command1_Click() Dim Min As Integer, MinIndex As Integer Min = A(1): MinIndex = 1 For i = 2 To 10 If A(i) < Min Then Min = A(i) MinIndex = i End If Next i End Sub 2下面程序段是选择排序的思想，对已知数组中的几个数，有选 择地按递增顺序排序填空完成程序。 Private Sub Command1_Click()已知定义了一维数组A有n的元素 Dim iMax As Integer, I As Integer, J As Integer, T As Single For I = 0 To N - 1 iMax = I For J = I + 1 To N If A(J) < A(iMax) Then T = A(J): A(J) = A(iMax): A(iMax) = T Next J T=A(I) A(I) = A(iMax) A(iMax) = T Next I End Sub 第7单元　过程 一、选择题 1、下面的过程定义语句中，合法的是：＿＿＿。 A．Sub Proc(ByVal n()) B．Sub Procl(n) As Integer C．Function Procl(proc1) D．Function Procl(ByVal n)As Interger 3、Sub过程与Function过程最根本的区别是：＿＿＿。 A．两种过程参数的传递方式不同 B．Function过程可以有参数，Sub过程不可以 C．Sub过程不能返回值，而Function过程能返回值 D．Sub过程可以使用Call语句或直接使用过程名调用， 而Function过程不可以 4、关于通用过程与事件过程，下列说法不正确的是：＿＿＿。 A．事件过程是一种特殊的Sub过程 B．事件过程可以放在标准模块中，也可以放在窗体模块中 C．通用过程与事件过程之间可以互相调用 D．事件过程只能放在窗体模块中 5、要想在过程调用后不影响主调过程中的实际参数的值， 则对应下面的＿＿＿过程定义语句。 A．Sub Proc(ByVal n, ByVal m) B．Sub Proc(n, ByVal m) C．Sub Proc(n, m) D．Sub Proc(ByVal n, m) 6、在参数传递过程中，使用关键字来修饰参数，可以使之按 地址传递，此关键字是＿＿＿。 A．ByVal B．ByRef C．Value D．Reference 7、单击一次命令按钮之后，下列程序代码的执行结果为：＿。 Private Sub Command1_Click() S = P(1) + P(2) + P(3) + P(4) Print S; End Sub Public Function P(N As Integer) Dim Sum For I = 1 To N Sum = Sum + I Next I P = Sum End Function ☆11、单击按钮时，下列程序的执行结果为：＿＿＿。 Private Sub Value(m As Integer, m As Integer) m = m * 2: n = n - 5 Print m; n End Sub Private Sub Command1_Click() Dim x As Integer, y As Integer x = 10: y = 15 Call Value(x, y) Print x; y End Sub A．20、10、20、10 B．10、15 、10　15 C．10　15 20　10　 D．20　101、 0　 15 ☆12、单击按钮时，下列程序的执行结果为：＿＿＿。 Private Sub Proc1(x As Integer, y As Integer, z As Integer) x = 3 * z: y = 2 * z: z = x + y End Sub Private Sub Proc2(ByVal x As Integer, ByVal y As Integer, ByVal z As Integer) x = 3 * z: y = 2 * z: z = x + y End Sub Private Sub Command1_Click() Dim x As Integer, y As Integer, z As Integer x = 1: y = 2: z = 3 Call Proc2(x, y, z) Print x; y; z Call Proc1(x, y, z) Print x; y; z End Sub A．1　2　3 9　6　5　 B．3　4　7 9　8　17 C．1　2　3 3　4　7　 D．1　2　3 1　2　3 ☆14、单击一次按钮时，下列程序的执行结果为：＿。Integer Public Function My (m As Integer, n As Integer) As Do While m <> n Do While m > n: m = m - n: Loop Do While m < n: n = n - m: Loop Loop My = m End Function Private Sub Command1_Click() Print My (49, 35) End Sub A．7 B．6 C．0 D．8 ☆16、单击窗体，下列程序代码的执行结果是：＿＿＿。 Private Sub Form_Click() Test 1 End Sub Private Sub Test(x As Integer) x = x * 2 + 1 If x < 6 Then Call Test(x) End If x = x * 2 + 1 Print x; End Sub ☆17、单击一次按钮时，下列程序的执行结果为 Dim a As Integer, b As Integer, c As Integer Public Sub Proc1(ByVal x As Integer, ByRef y As Integer) x = 2 * x y = y + 2 End Sub Private Sub Command1_Click() a = 2: b = 4: c = 6 Call Proc1(a, b) Print "a="; a; "b="; b; "c="; c Call Proc1(b, c) Print "a="; a; "b="; b; "c="; c End Sub A．a=2 b=6 c=6 A=2 b=4 c=8 B．a=2 b=6 c=6 a=2 b=6 c=8 C．a=4 b=4 c=6 A=4 b=8 c=6 D．a=4 b=6 c=6 a=4 b=12 c=8 ☆20、有如下程序代码，单击命令按钮后输出的。 Private Sub SS(x, ByRef y, ByVal z) x = x + 1 y = y + 1 z = z + 1 End Sub Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer a = 1: b = 2: c = 3 Call SS(a, b, c) Print a, b, c End Sub A．1　2　3 B．1　3　4 C．2　2　4 D．2　3　3 二、填空题 ☆1、一个命令按钮有如下程序： Private Function M(X As Integer, Y As Integer) As Integer M = IIf(X > Y, X, Y) End Function Private Sub Command1_Click() Dim a As Integer, b As Integer a = 56: b = 65 Print M(a, b) End Sub 程序运行后，单击命令按钮，输出的结果为：65。 ☆3、一个命令按钮有如下程序： Private Sub S(ByVal X As Integer, Y As Integer) Dim t As Single t = X X = t \ Y Y = t Mod Y End Sub Private Sub Command1_Click() Dim A As Single, B As Single A = 5: B = 4 Call S(A, B) Print A; B End Sub 程序运行后，单击命令按钮，输出的结果为：5 、1。 ☆5、下列程序点击窗体的执行结果是：4。 Public Function FindMin(a() As Integer) Dim Start As Integer, Finish As Integer, I As Integer, Min As Integer Start = LBound(a) Finish = UBound(a) Min = a(Start) For I = Start To Finish If a(I) < Min Then Min = a(I) Next I FindMin = Min End Function Private Sub Command1_Click() Dim a As Integer, B As Integer a = 10: B = 20 Call Swap1(a, B) Print "A1="; a; "B1="; B Call Swap2(a, B) Print "A2="; a; "B2="; B End Sub Private Sub Form_Click() ReDim B(1 To 4) As Integer B(1) = 12: B(2) = 8: B(3) = 23: B(4) = 4 Print FindMin(B()) End Sub