1、智慧树知到VisualBasic程序设计章节测试答案第一章单元测试1、以下关于VB语言的说法中，正确的是（）。A.VB是一种面向过程的语言B.VB是一种面向对象的语言C.VB是一种低级语言D.VB是一种机器语言正确答案：VB是一种面向对象的语言2、在Visual Basic环境下，当写一个新的Visual Basic程序时，所做的第一件事是（）。A.编写代码B.新建一个工程C.打开属性窗口D.进入Visual Basic环境正确答案：新建一个工程3、以下可以构成语句的是（）。A.对象名.属性B.对象名.方法名C.对象名.事件名D.对象名.函数名正确答案：对象名.方法名4、（）是由Visual
2、Basic提供的一种专门的子程序，由对象本身所具有，反映该对象功能的内部函数或过程。A.文件B.属性C.方法D.窗体正确答案：方法5、下列不是Visual Basic 文件的是（）。A.*.frm文件B.*.basC.*.cls文件D.*.txt正确答案：*.txt6、下列不能打开工具箱窗口的操作是（）。A.执行“视图”菜单中的“工具箱”命令B.按Alt+F8键C.单击工具栏上的“工具箱”按钮D.按Alt+V，然后按Alt+X键正确答案：按Alt+F8键7、下列可以打开立即窗口的操作是（）。A.Ctrl+DB.Ctrl+EC.Ctrl+FD.Ctrl+G正确答案：Ctrl+G8、Visual
3、Basic6.0集成环境的主窗口中不包括（）。A.标题栏B.菜单栏C.状态栏D.工具栏正确答案：状态栏9、在Visual；Basic中，不能关闭的窗口是（）。A.窗体设计器窗口B.工程窗口C.属性窗口D.立即窗口正确答案：工程窗口10、Visual Basic是一种面向对象的可视化程序设计语言，采取了（）的编程机制。A.从窗体开始执行B.按书写顺序执行C.从主程序开始执行D.事件驱动正确答案：事件驱动11、以下关于VB语言的说法中，正确的是（）。A.VB是一种面向过程的语言B.VB是一种面向对象的语言C.VB是一种低级语言D.VB是一种机器语言正确答案：VB是一种面向对象的语言12、在Visu
4、al Basic环境下，当写一个新的Visual Basic程序时，所做的第一件事是（）。A.编写代码B.新建一个工程C.打开属性窗口D.进入Visual Basic环境正确答案：新建一个工程13、以下可以构成语句的是（）。A.对象名.属性B.对象名.方法名C.对象名.事件名D.对象名.函数名正确答案：对象名.方法名14、（）是由Visual Basic提供的一种专门的子程序，由对象本身所具有，反映该对象功能的内部函数或过程。A.文件B.属性C.方法D.窗体正确答案：方法15、下列不是Visual Basic 文件的是（）。A.*.frm文件B.*.basC.*.cls文件D.*.txt正确答
5、案：*.txt16、下列不能打开工具箱窗口的操作是（）。A.执行“视图”菜单中的“工具箱”命令B.按Alt+F8键C.单击工具栏上的“工具箱”按钮D.按Alt+V，然后按Alt+X键正确答案：按Alt+F8键17、下列可以打开立即窗口的操作是（）。A.Ctrl+DB.Ctrl+EC.Ctrl+FD.Ctrl+G正确答案：Ctrl+G18、Visual Basic6.0集成环境的主窗口中不包括（）。A.标题栏B.菜单栏C.状态栏D.工具栏正确答案：状态栏19、在Visual；Basic中，不能关闭的窗口是（）。A.窗体设计器窗口B.工程窗口C.属性窗口D.立即窗口正确答案：工程窗口20、Visu
6、al Basic是一种面向对象的可视化程序设计语言，采取了（）的编程机制。A.从窗体开始执行B.按书写顺序执行C.从主程序开始执行D.事件驱动正确答案：事件驱动21、下面不是VB工作模式的是A.设计模式B.运行模式C.汇编模式D.中断模式正确答案：汇编模式22、可视化编程的最大优点是A.具有标准工具箱B.一个工程文件由若干个窗体文件组成C.不需要编写大量代码来描述图形对象D.所见即所得正确答案：不需要编写大量代码来描述图形对象23、下列不能打开属性窗口的操作是A.执行“视图”菜单中的“属性窗口”命令B.按F4键C.按Ctrl+TD.单击工具栏上的“属性窗口”按钮正确答案：按Ctrl+T24、V
7、isual Basic的编程机制是A.可视化B.面向对象C.面向图形D.事件驱动正确答案：事件驱动25、Visual Basic继承了Basic语言简单易用的语法特点，同时支持面向对象的编程机制，其中构成其控件（对象）的三要素是A.属性；事件；事件过程B.控件；窗体；事件C.属性；过程；方法D.属性；事件；方法正确答案：属性；事件；方法26、下列关于面向对象和可视化程序设计的叙述正确的是A.面向对象的语言一定是可视化的B.面向对象和可视化是一个意思C.可视化的语言一定是面向对象的D.面向对象是程序设计的思想方法，可视化是一种辅助手段，二者没有必然联系正确答案：面向对象是程序设计的思想方法，可视
8、化是一种辅助手段，二者没有必然联系27、以下叙述中错误的是A.打开一个工程文件时，系统自动装入与该工程有关的窗体标准模块等文件B.保存Visual Basic程序时，应分别保存窗体文件及工程文件C.Visual Basic应用程序只能以解释方式执行D.事件可以由用户引发，也可以由系统引发正确答案：Visual Basic应用程序只能以解释方式执行第二章单元测试1、下列符号常量的声明中，（）是不合法的。A.Const a As Single=1.1B.Const a As Integer=“12”C.Const a As Double=Sin（1）D.Const a =“OK”正确答案：Cons
9、t a As Integer=“12”2、表达式“Turbo”+“c”；“Ture”+“Basic”的值是（）。A.TrueB.FalseC.NullD.出错信息正确答案：False3、执行下列语句后，V的值是（）。A=“56789”；V=Val（Mid（A，3，2）A.89B.78C.67D.0正确答案：784、表达式4+56*7/8 Mod 4的值是（）。A.4B.5C.6D.7正确答案：55、下列符号（）是Visual Basic中合法的变量名。A.x23B.8xyC.ENDD.X8B正确答案：x236、在一行内写多条语句时，每个语句之间用（）来分隔。A.，B.：C.、D.正确答案：7、
10、在VB中，用Single来表示的数据类型是（）。A.长整型B.字符型C.逻辑型D.单精度型正确答案：单精度型8、下列程序段的运行结果是（）。Dim A As Integer ， B As IntegerA = 15B = 4Print 4 + A B。A.7B.-7C.7.75D.8正确答案：79、三种逻辑运算符号优先次序为（）。A.AND、NOT、ORB.NOT、OR、ANDC.NOT、AND、ORD.OR、NOT、AND正确答案：NOT、AND、OR10、数学式3abc（d+e）改写为VB表达式为（）。A.3a*b*c（d+e）B.3abc（d+e）C.3abcd +3abceD.3*a*
11、b*c*（d+e）正确答案：3*a*b*c*（d+e）11、下列符号常量的声明中，（）是不合法的。A.Const a As Single=1.1B.Const a As Integer=“12”C.Const a As Double=Sin（1）D.Const a =“OK”正确答案：Const a As Integer=“12”12、表达式“Turbo”+“c”；“Ture”+“Basic”的值是（）。A.TrueB.FalseC.NullD.出错信息正确答案：False13、执行下列语句后，V的值是（）。A=“56789”；V=Val（Mid（A，3，2）A.89B.78C.67D.0正确
12、答案：7814、表达式4+56*7/8 Mod 4的值是（）。A.4B.5C.6D.7正确答案：515、下列符号（）是Visual Basic中合法的变量名。A.x23B.8xyC.ENDD.X8B正确答案：x2316、在一行内写多条语句时，每个语句之间用（）来分隔。A.，B.：C.、D.正确答案：17、在VB中，用Single来表示的数据类型是（）。A.长整型B.字符型C.逻辑型D.单精度型正确答案：单精度型18、下列程序段的运行结果是（）。Dim A As Integer ， B As IntegerA = 15B = 4Print 4 + A B。A.7B.-7C.7.75D.8正确答案
13、：719、三种逻辑运算符号优先次序为（）。A.AND、NOT、ORB.NOT、OR、ANDC.NOT、AND、ORD.OR、NOT、AND正确答案：NOT、AND、OR20、数学式3abc（d+e）改写为VB表达式为（）。A.3a*b*c（d+e）B.3abc（d+e）C.3abcd +3abceD.3*a*b*c*（d+e）正确答案：3*a*b*c*（d+e）21、以下能够触发文本框Change事件的操作是（）A.文本框失去焦点B.文本框获得焦点C.设置文本框的焦点D.改变文本框的内容正确答案：改变文本框的内容22、若要求从文本框中输入密码时在文本框中只显示号，则应用在此文本框的属性窗口中设
14、置（）A.Text属性值为B.Caption属性值为C.Passwordchar属性值为D.Passwordchar属性值为正确答案：Passwordchar属性值为第三章单元测试1、结构化程序设计的三种基本结构不包括（）。A.顺序结构B.倒序结构C.选择结构D.循环结构正确答案：倒序结构2、下面四个语句中，能打印显示20*30字样的是（）。A.Print“20*30”B.Print 20*30C.Print Chr（20）+“*”+Chr（30）D.Print val（“20”）*val（“30”）正确答案：Print“20*30”3、关于MsgBox函数，以下说法不正确的是（）。A.“提示
15、”参数用于在MsgBox函数产生的对话框内显示提示信息B.“按钮”参数是数值表达式，是表示指定显示按钮的数目和类型、使用的图标样式，默认按钮的标识以及消息框样式的数值的总和C.MsgBox函数的返回值是一个字符串，这个字符串与所选择的命令按钮有关D.“标题”参数可选，显示在对话框标题栏中的字符串表达式正确答案：MsgBox函数的返回值是一个字符串，这个字符串与所选择的命令按钮有关4、语句If x=1 Then y=1，下列说法正确的是（）。A.x=1和y=1均为赋值语句B.x=1和y=1均为关系表达式C.x=1为关系表达式，y=1为赋值语句D.x=1为赋值语句， y=1为关系表达式正确答案：x
16、=1为关系表达式，y=1为赋值语句5、下面程序段执行结果为（）。x = 5；：y = -6If not x ； 0 Then；x = y 3；Else ；y = x + 3End IfPrint；x - y；y - xA.-3 ；3B.5 ；-9C.3 ；-3D.-6 ；5正确答案：-3 ；36、编写如下事件过程：；Private Sub Form（）Click（） ；score=Int（Rnd*10）+80 ；Select Case score ；Case Is；60 ；a$=；F；Case 60 To 69 ；a$=；D；Case 70 To 79 ；a$=；C；Case 80 To 89
17、 ；a$=；B；Case Else ；a$=；A；End Select ；Print a$ ；End Sub ；程序运行后，单击窗体，则窗体上显示的内容是（）。A.AB.BC.CD.D正确答案：B7、循环结构For I%= -1 to 17；Step 2 共执行（）次。A.5B.6C.8D.9正确答案：98、下列程序段的执行结果为（）。a=0：b=1 Do；a=a+b ；b=b+1 Loop While a；10 Print a；b。A.10； 5B.a； bC.0； 1D.10； 30正确答案：10； 59、有如下程序，运行后输出的结果是（）。j=0：n=0 Do While ；n； 0 T
18、hen；x = y 3；Else ；y = x + 3End IfPrint；x - y；y - xA.-3 ；3B.5 ；-9C.3 ；-3D.-6 ；5正确答案：-3 ；316、编写如下事件过程：；Private Sub Form（）Click（） ；score=Int（Rnd*10）+80 ；Select Case score ；Case Is；60 ；a$=；F；Case 60 To 69 ；a$=；D；Case 70 To 79 ；a$=；C；Case 80 To 89 ；a$=；B；Case Else ；a$=；A；End Select ；Print a$ ；End Sub ；程序
19、运行后，单击窗体，则窗体上显示的内容是（）。A.AB.BC.CD.D正确答案：B17、循环结构For I%= -1 to 17；Step 2 共执行（）次。A.5B.6C.8D.9正确答案：918、下列程序段的执行结果为（）。a=0：b=1 Do；a=a+b ；b=b+1 Loop While a；10 Print a；b。A.10； 5B.a； bC.0； 1D.10； 30正确答案：10； 519、有如下程序，运行后输出的结果是（）。j=0：n=0 Do While ；n；3 ；j=（j+1）*（j+2）；n=n+1 Loop Print j；n。A.0； 1B.182； 3C.30； 4
20、D.3； 3正确答案：182； 320、下列的程序段执行后，x的值为（）。x=0 For i=1 To 10；For j=i To 10 ；x=x+1 ；Next j Next iA.50B.55C.5D.105正确答案：5521、以下哪个是合法的变量A.rightB.abc123C.123（）abcD.ab123c正确答案：ab123c22、在Visual Basic 中语句的续行号采用A.空格与下划线B.下划线与空格C.空格与短线D.短线与空格正确答案：空格与下划线23、假设变量BOOLVAR是一个布尔型变量，则下面正确的赋值语句是A.BOOLVAR=TRUEB.BOOLVAR=.TRUE
21、C.BOOLVAR=#TRUE#D.BOOLVAR=3；4正确答案：BOOLVAR=3；424、变量未赋值时，数值型变量的值为A.0B.空C.1D.无任何值正确答案：025、如果将布尔常量值TRUE赋值给一个整型变量，则整型变量的值为A.0B.-1C.TRUED.FALSE正确答案：-126、表达式4+5 6 * 7 / 8 Mod 9 的值是A.4B.5C.6D.7正确答案：527、设x=4，y=8，z=7，表达式x；z） Or z；x的值是A.1B.-1C.TrueD.False正确答案：False28、表达式12000 + ；129； &； 200的值是A.12329B.；1212920
22、0C.；12000129200D.；12329正确答案：；1212920029、下列可作为Visual Basic变量名的是A.A#AB.4AC.？xyD.constA正确答案：constA30、如果变量 a=2、b=；abc；、c=；acd；、d=5，则表达式 a；c And b；c 的值A.TrueB.FalseC.YesD.No正确答案：True31、把字符串“123”转换为数值；123；时应该使用的函数是A.StrB.ValC.LenD.Log正确答案：Val32、表示条件“a是大于b的奇数”的逻辑表达式是A.a；b and Int（a-1）/2）=（a-1）/2B.a；b or In
23、t（a-1）/2）=（a-1）/2C.a；b and a mod 2=0D.a；b or （a-1） mod 2=0正确答案：a；b and Int（a-1）/2）=（a-1）/233、以下4类运算符，优先级最低的是A.算术运算符B.字符运算符C.关系运算符D.逻辑运算符正确答案：逻辑运算符34、以下4种描述中，错误的是A.常量在程序执行期间其值不会发生改变B.根据数据类型不同，常量可分为字符型常量、数值常量、日期/时间型常量和布尔型常量C.符号常量是用一个标识符来代表一个常数，好象是为常数取一个名字，但仍保持常数的性质D.符号常量的使用和变量的使用没有差别正确答案：符号常量的使用和变量的使用
24、没有差别第四章单元测试1、以下关于静态数组的描述正确的是（）。A.静态数组的大小是固定的，可以有不同类型的数组元素B.静态数组的大小是可变的，但所有数组元素的类型必须相同C.静态数组的大小是固定的，所有数组元素的类型必须相同D.静态数组的大小是可变的，可以有不同类型的数组元素正确答案：静态数组的大小是固定的，可以有不同类型的数组元素2、执行下面程序段后，输出的结果为（）。Dim m（5） As Integer；s = 0；For i = 0 To 5；m（i） = 5；Next i；For j = 0 To 5；s = s + m（j）；Next j；Print sA.20B.25C.30D.
25、35正确答案：303、下面程序：Private Sub Form（）Click（）；Dim a（100） As Integer；For i = 1 To 10；j = i * i；a（j） = j；Next i；Print a（25）End Sub运行后，单击窗体，则输出的结果是（）。A.25B.36C.49D.81正确答案：254、有如下语句：Option Base 1Private Sub Command1（）Click（）；Dim A（2， -1 To 1） As Integer；End Sub以上语句所定义的数组A为（）维数组，共有（）个元素，第一维下标从（）到（），第二维下标从（）到
26、（）。A.1，2，6，2，-1，1B.6，2，1，2，-1，1C.2，6，1，2，-1，1D.2，1，6，-1，1，2正确答案：2，6，1，2，-1，15、有如下程序：Const n = -5；Const m = 6；Dim a（n To m） As Integer；For i = LBound（a， 1） To UBound（a， 1）；a（i） = i；Next i；Print a（LBound（a， 1）； a（UBound（a， 1）运行后输出的结果为（）。A.0 ；0B.-5 ；0C.-5 ；6D.0 ；6正确答案：-5 ；66、下面关于控件数组与一般控件的叙述中正确的是（）。A.控
27、件数组一定有1个以上同类型的控件组成，而一般控件只有一个控件B.控件数组的索引属性值Index值为0，而一般控件的Index值为空C.控件数组的Index值为1，而一般控件的Index值为0D.控件数组的建立通过Dim语句声明，而一般控件不需要声明正确答案：控件数组一定有1个以上同类型的控件组成，而一般控件只有一个控件7、如果要对已经声明的数组重新定义大小，并保留原有数据，可以使用语句（）。A.DimB.ReDimC.Dim PreserveD.ReDim Preserve正确答案：ReDim Preserve8、下列程序的输出结果为（）。Private；Sub；Command1（）Click
28、（）；Dim；a；ReDim；a（6）；For；j=1；To；5；a（j）=j*j；Next；j；Print；a（a（2）*a（3）-a（4）*2）+a（5）；End；Sub。A.36B.25C.16D.41正确答案：419、执行下面程序段后，输出的结果为（）。Dim a（10， 10） As Integer；For i = 2 To 4；For j = 4 To 5；a（i， j） = i * j；Next j；Next i； Print a（2， 5） + a（3， 4） + a（4， 5）A.22B.42C.32D.52正确答案：4210、要分配存放如下方阵的数据，正确的且最节约存储空间
29、的数组声明语句是（）。1.1 ；2.2 ；3.3；4.4 ；5.5 ；6.6；7.7 ；8.8 ；9.9。A.Dim；a（9）；As；SingleB.Dim；a（3， 3）；As；SingleC.Dim；a（-1；To；1， -5；To；-3）；As；SingleD.Dim；a（-3 to 1， -5 to 7）；As；Integer正确答案：Dim；a（-1；To；1， -5；To；-3）；As；Single11、以下关于静态数组的描述正确的是（）。A.静态数组的大小是固定的，可以有不同类型的数组元素B.静态数组的大小是可变的，但所有数组元素的类型必须相同C.静态数组的大小是固定的，所有数组
30、元素的类型必须相同D.静态数组的大小是可变的，可以有不同类型的数组元素正确答案：静态数组的大小是固定的，可以有不同类型的数组元素12、执行下面程序段后，输出的结果为（）。Dim m（5） As Integer；s = 0；For i = 0 To 5；m（i） = 5；Next i；For j = 0 To 5；s = s + m（j）；Next j；Print sA.20B.25C.30D.35正确答案：3013、下面程序：Private Sub Form（）Click（）；Dim a（100） As Integer；For i = 1 To 10；j = i * i；a（j） = j；Ne
31、xt i；Print a（25）End Sub运行后，单击窗体，则输出的结果是（）。A.25B.36C.49D.81正确答案：2514、有如下语句：Option Base 1Private Sub Command1（）Click（）；Dim A（2， -1 To 1） As Integer；End Sub以上语句所定义的数组A为（）维数组，共有（）个元素，第一维下标从（）到（），第二维下标从（）到（）。A.1，2，6，2，-1，1B.6，2，1，2，-1，1C.2，6，1，2，-1，1D.2，1，6，-1，1，2正确答案：2，6，1，2，-1，115、有如下程序：Const n = -5；Co
32、nst m = 6；Dim a（n To m） As Integer；For i = LBound（a， 1） To UBound（a， 1）；a（i） = i；Next i；Print a（LBound（a， 1）； a（UBound（a， 1）运行后输出的结果为（）。A.0 ；0B.-5 ；0C.-5 ；6D.0 ；6正确答案：-5 ；616、下面关于控件数组与一般控件的叙述中正确的是（）。A.控件数组一定有1个以上同类型的控件组成，而一般控件只有一个控件B.控件数组的索引属性值Index值为0，而一般控件的Index值为空C.控件数组的Index值为1，而一般控件的Index值为0D.控
33、件数组的建立通过Dim语句声明，而一般控件不需要声明正确答案：控件数组一定有1个以上同类型的控件组成，而一般控件只有一个控件17、如果要对已经声明的数组重新定义大小，并保留原有数据，可以使用语句（）。A.DimB.ReDimC.Dim PreserveD.ReDim Preserve正确答案：ReDim Preserve18、下列程序的输出结果为（）。Private；Sub；Command1（）Click（）；Dim；a；ReDim；a（6）；For；j=1；To；5；a（j）=j*j；Next；j；Print；a（a（2）*a（3）-a（4）*2）+a（5）；End；Sub。A.36B.25
34、C.16D.41正确答案：4119、执行下面程序段后，输出的结果为（）。Dim a（10， 10） As Integer；For i = 2 To 4；For j = 4 To 5；a（i， j） = i * j；Next j；Next i； Print a（2， 5） + a（3， 4） + a（4， 5）A.22B.42C.32D.52正确答案：4220、要分配存放如下方阵的数据，正确的且最节约存储空间的数组声明语句是（）。1.1 ；2.2 ；3.3；4.4 ；5.5 ；6.6；7.7 ；8.8 ；9.9。A.Dim；a（9）；As；SingleB.Dim；a（3， 3）；As；Singl
35、eC.Dim；a（-1；To；1， -5；To；-3）；As；SingleD.Dim；a（-3 to 1， -5 to 7）；As；Integer正确答案：Dim；a（-1；To；1， -5；To；-3）；As；Single21、把MsgBox的返回值转换为数值应该使用的函数是A.LogB.StrC.LenD.Val正确答案：Val22、以下（）程序段可以实施X；Y变量值的变换A.Y=X：X=YB.Z=X：Y=Z：X=YC.Z=X：X=Y：Y=ZD.Z=X：W=Y：Y=Z：X=Y正确答案：Z=X：X=Y：Y=Z23、下列语句中正确的是A.txt1.text+txt2.text=txt3.tex
36、tB.command1.name=cmdokC.12label.caption=1234D.a=inputbox（“hello”）正确答案：a=inputbox（“hello”）24、语句PRINT “INT（-13.2）=”；INT（-13.2）的输出结果为A.INT（-13.2）= -13.2B.INT（-13.2）= 13.2C.INT（-13.2）= -13D.INT（-13.2）= -14正确答案：INT（-13.2）= -1425、以下关于MsgBox的叙述中，错误的是A.MsgBox函数返回一个整数B.通过MsgBox函数可以设置信息框中图标和按钮的类型C.MsgBox语句没有返
37、回值D.MsgBox函数的第二个参数是一个整数，该参数只能确定对话框中显示的按钮数量正确答案：MsgBox函数的第二个参数是一个整数，该参数只能确定对话框中显示的按钮数量26、在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：Private Sub Command1（）Click（）Static X As IntegerStatic Y As IntegerClsY=1Y=Y+5X=5+XPrint X，YEnd Sub程序运行时，三次单击命令按钮Commandl后，窗体上显示的结果为A.15 ；16B.15 ；6C.15 ；15D.5 ；6正确答案：15 ；627、为了给x，
38、y，z三个变量赋初值1，下面正确的赋值语句是A.x=1y=1z=1B.x=1，y=1，z=1C.x=y=z=1D.xyz=1正确答案：x=1y=1z=1第五章单元测试1、假定有如下的Sub过程：Sub fun（x As Single， y As Single）；t = x；x = t / y；y = t Mod yEnd Sub在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1（）Click（）；Dim a As Single；Dim b As Single；a = 6；b = 4；fun a， b；Print a， bEnd Sub程序运行后，单击命令按钮
39、，输出结果为（）。A.5 ；4B.1 ；1C.1.25 ；4D.1.5 ；2正确答案：1.5 ；22、假定有以下函数过程：Function Fun（s As String） As String；Dim s1 As String；For i = 1 To Len（s）；s1 = UCase（Mid（s， i， 1） + s1；Next i；Fun = s1End Function在窗体上添加一个命令按钮，然后编写如下事件过程：Private Sub Command1（）Click（）；Dim Str1 As String；Dim Str2 As String；Str1 = InputBox（；请
40、输入一个字符串；）；Str2 = Fun（Str1）；Print Str2End Sub程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确定”按钮后再窗体上输出的结果为（）。A.AbcdefgB.ABCDEFGC.gfedcbaD.GFEDCBA正确答案：GFEDCBA3、有如下函数过程：Function secproc（x As Integer， y As Integer， z As Integer）；secproc = 3 * y + z + 2 * xEnd Function；Private Sub Command1（）Click（）；Dim a As
41、Integer， b As Integer， c As Integer；a = 2：b = 3：c = 4；Print secproc（c， b， a）End Sub该程序的运行结果是（）。A.17B.18C.19D.20正确答案：194、有如下函数过程：Function Cys（ByVal x As Integer， ByVal y As Integer） As Integer；Dim quotients；Do While y ； 0；quotients = x / y；x = y；y = quotients；Loop；Cys = xEnd Function以下是调用该函数的事件过程，该程序
42、的运行结果是（）。Private Sub Command1（）Click（）；Dim a As Integer；Dim b As Integer；a = 10；b = 2；x = Cys（a， b）；Print xEnd SubA.0B.25C.5D.100正确答案：55、以下是一个能返回数组a中最大数的函数过程代码：Function；maxval（a（）；As；Integer）；As；Integer；Dim；max%；max；=；1；For；i；=；2；To；10；If；a（i）；a（max）；Then；max；=；i；Next；i；maxval；=；max；End；Function；Private Sub Command1（）Click（）；Dim x（1 To 10） As Integer；For i = 1 To 10；x（i） = Int（Rnd（） * 100）；Print x（i）；Next i；Print；Print
