1、二级 VISUAL+BASIC-85 及答案解析(总分：98.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.执行如下语句： a=InputBox(“Today“,“Tomorrow“,“Yesterday”,“Day before yesterday“,5) 将显示一个对话框，在对话框的输入区中显示的信息是_。（分数：2.50）A.TodavB.TomorrowC.YesterdayD.Day before yesterday2.编写如下程序： Private Sub Command1_Click() Dim a(3, 3) As Integer, s As In
2、teger For i=1 To 3 For j=1 To 3 a(i, j)=i*j+i Next j Next i s=0 For i=1 To 3 s=s+a(i, 4-i) Next i Print s End Sub 程序运行后，单击命令按钮 Command1，输出结果为（分数：2.50）A.7B.13C.16D.203.下列程序执行后，其输出结果为 _ 。 Dim a(5) For i=0 To 4 a(i)=i+1 m=i+1 If m=3 Then a(m-1)=a(i-2)Else a(m)=a(i) If i=2 Then a(i-1)=a(m-3) a(4)=i Prin
3、t a(i); Next i（分数：2.00）A.1 1 1 4 4B.1 2 3 4 1C.1 2 1 4 4D.1 1 1 4 14.有如下程序： Option Base 1 Private Sub Form Click() Dim arr，Sum Sum =0 arr=Array(1，3，5，7，9，11，13，15，17，19) For i=1 To 10 If arr(i)/3=arr(i)/3 Then Sum=Sum+arr(i) End If Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为（分数：2.00）A.25B.26C.27D.285.
4、下列程序的执行结果为_。 （分数：2.00）A.150B.200C.50D.56.下列说法正确的是_。（分数：2.50）A.窗体的属性包括 Name、Caption、Height、Visible、Paint 等B.窗体是 Visual Basic 的一个控件C.窗体的所有属性都可以在运行阶段设置D.窗体相当于一个容器，可以把其他控件放在其上7.对于如下图所示的二叉树，其后序遍历序列是_。 （分数：2.00）A.ABDECFGB.DEBAFCGC.DEBFGCAD.GFCEBDA8.在一个工程的窗体中有如下代码： Public x As Integer Private Sub Form_Load
5、() Dim y As Integer End Sub 在该工程的标准模块的声明部分有如下代码： Public a As Integer Private b As Integer 关于上述代码，以下叙述中错误的是_。（分数：2.00）A.变量 x 的作用域是整个工程B.变量 y 的作用域是 Form_Load 过程C.变量 a 的作用域是整个工程D.变量 b 的作用域是整个标准模块9.关于水平滚动条，如下叙述中错误的是_。（分数：2.50）A.当滚动框的位置改变时，触发 Change 事件B.当拖动滚动条中的滚动框时，触发 Scroll 事件C.LargeChange 属性是滚动条的最大值D.
6、Value 是滚动条中滚动框的当前值10.在 E-R 图中，用来表示实体联系的图形是_。（分数：2.50）A.椭圆形B.矩形C.菱形D.三角形11.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下代码： Option Base 1 Function Fun(a()As Integer) Sum=0 For i=1 To 3 For J=1 To 3 Sum=Sum+a(i,j) Next j Next j Fun=Sum End Function Private Sub Command1_Click() Dim arr(3,3)As Integer For i=1 To 3 F
7、or j=1 To 3 If i=j Then arr(i,j)=1 End If If ij Then arr(i,j)=j End If Next j Next i x=Fun(arr() Print x End Sub 程序运行后，单击命令按钮，输出结果为（分数：2.50）A.10B.15C.20D.3012.在软件设计中，不属于过程设计工具的是_。（分数：2.00）A.PDL(过程设计语言)B.PAD 图C.N-S 图D.DFD 图13.以下程序的功能是随机产生 10 个两位的整数： Option Base 1 Private Sub Command1_Click() Dim a(10
8、) As Integer, i As Integer Randomize For i=1 To 10 a(i)=Int(Rnd*100)+1 Print a(i) Next i End Sub 运行以上程序，发现有错误，需要对产生随机数的语句进行修改。以下正确的修改是（分数：2.00）A.a(i)=Int(Rnd*100)B.a(i)=Int(Rnd*90)+10C.a(i)=Int(Rnd*100)+10D.a(i)=Int(Rnd*101)14.下列与拖放操作无关的是（分数：2.50）A.KeyPress 事件B.Drag 方法C.DragOver 事件D.DragDrop 事件15.为了
9、在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为 True，这个属性是（分数：2.00）A.ValueB.CancelC.EnabledD.Default16.如果在 C 盘当前文件夹下已存在名为 StuData.dar 的顺序文件，那么执行语句 Open“C: StuData.dar” For Append As #1 之后将_ 。（分数：2.00）A.删除文件中原有内容。B.保留文件中原有内容，可在文件尾添加新内容。C.保留文件中原有内容，在文件头开始添加新内容。D.以上均不对。17.设窗体上有 3 个图像框：Image1、Image2、Image3，并有下面的程
10、序代码： Private Sub Form_Load() Image1.Picture=LoadPicture(“LEAF.bmp“) Image2.Picture=LoadPicture(“OPEN.bmp“) Image3.Visible=False End Sub Private Sub Image1_Click() Image2.Picture=Image1.Picture End Sub Private Sub Image2_Click() Image3.Picture=Image2.Picture Image2.Picture=Image1.Picture Image1.Pictu
11、re=Image3.Picture End Sub 在程序运行期间单击 Image2，则在窗体上看到的结果是（分数：2.50）A.在 Image3 中显示 Image2 中的图片B.Image1、Image2 中原有图片被交换了C.Image1、Image2 中都是原来 Imege1 中的图片D.Image1、Image2 中都是原来 Imege2 中的图片18.窗体上有一个 Text1 文本框、一个 Command1 命令按钮，并有以下程序： Private Sub Command1_Click() Dim n If Text1.Text“123456“ Then n=n+1 Print “
12、口令输入错误“ Next m End Sub Function proc(i As Integer) Dim a As Integer Static b As Integer a=a+1 b=b+1 proc=a*b+i End Function 程序运行后，单击命令按钮 Command1，输出结果为_。（分数：1.00）A.3 3 3B.3 4 5C.3 5 6D.1 2 323.求 1!+2!+10!的程序如下： Private Function s(x As Integer) f=1 For i=1 To x f=f*i Next s=f End Function Private Sub
13、 Command1_Click() Dim i As Integer, y As Long For i=1 To 10 _ Next Print y End Sub 为实现功能要求，程序的括号中应该填入的内容是（分数：3.00）A.Call s(i)B.Call sC.y=y+s(i)D.y=y+s24.窗体上有两个水平滚动条 HV、HT，还有一个文本框 Text1 和一个标题为“计算”的命令按钮Commandl，并编写了以下程序： （分数：2.00）A.过程调用语句不对，应为 calc(HV,HT)B.过程定义语句的形式参数不对，应为 Sub calc(x As Control,yAs Co
14、ntrol)C.计算结果在文本框中显示出来D.程序不能正确运行25.如果一个正整数从高位到低位上的数字依次递减，则称其为降序数(如 9632 是降序数，而 8516 则不是降序数)。现编写如下程序，判断输入的正整数是否为降序数。 Private Sub Command1_Click() Dim n As Long Dim flag As Boolean n=InputBox(“输入一个正整数“) s=Trim(Str(n) For i=2 To Len(s) If Mid(s,i -1,1)Mid(s,i,1)Then Exit For Next i IF i=Len(s)Then flag=
15、True Else flag= False If flag Then Print n;“是降序数“ Else Print n;“不是降序数“ End If End Sub 运行以上程序，发现有错误，需要对给 flag 变量赋值的 If 语句进行修改。以下正确的修改是_。（分数：2.00）A.Ifi=Len(s)+1 Then flag=False Else flag=TrueB.If i=Len(s)+1 Then flag=True Else flag=FalseC.If i=Len(s)-1 Then flag=False Else flag=TrueD.If i=Len(s)-1 The
16、n flag=True Else flag=False26.如果 x 为整数且|x|=100，则打印“OK”，否则打印“Error”，表示这个条件的单行格式 If 语句是_。（分数：2.00）A.If Int(x)=x And Sqr(x)=100 Then Print “OK“ Else Print “Error“B.If Fix(x)=x And Abs(x)=100 Then Print “OK“ Else Print “Error“C.If Int(x)=x And(x=100，x=-i00)Then Print “OK“ Else Print “Errort“D.If Fix(x)=
17、x And x=100 And x=-100 Then Print “OK“ Else Print “Error“27.阅读程序： Private Sub Form_Click() a=0 For j=1 To 15 a=a+j Mod 3 Next j Print a End Sub 程序运行后，单击窗体，输出结果是_。（分数：2.50）A.105B.1C.120D.1528.下列程序段的执行结果为 _。 X=5 Y=-20 If Not X0 Then X=Y-3 Else YX+3 Print X-Y；Y-X（分数：1.00）A.-3 3B.5 -8C.3 -3D.25 -2529.在数
18、据管理技术发展过程中，文件系统与数据库系统的主要区别是数据库系统具有 _。（分数：1.00）A.数据无冗余B.数据可共享C.专门的数据管理软件D.特定的数据模型30.算法的有穷性是指 _ 。（分数：2.00）A.算法程序的运行时间是有限的B.算法程序所处理的数据量是有限的C.算法程序的长度是有限的D.算法只能被有限的用户使用31.下面不属于软件需求分析阶段主要工作的是_。（分数：1.00）A.需求变更申请B.需求分析C.需求评审D.需求获取32.设 Label1、Command1、Text1、Check1 分别为标签、命令按钮、文本框、复选框的名称，则以下属性设置语句中，运行时不会出错的是（分
19、数：1.00）A.Label1.BackStyle=2B.Command1.Style=1C.Text1.ScrollBars=4D.Check1.Value=233.以下叙述中错误的是_。（分数：3.00）A.Visual Basic 是事件驱动型可视化编程工具B.Visual Basic 应用程序不具有明显的开始和结束语句C.Visual Basic 工具箱中的所有控件都具有宽度(Width)和高度(Height)属性D.Visual Basic 中控件的某些属性只能在运行时设置34.以下关于图片框控件的说法中，错误的是_。（分数：1.00）A.可以通过 Print 方法在图片框中输出文本
20、B.图片框控件中的图形可以在程序运行过程中被清除C.图片框控件中可以放置其他控件D.用 Stretch 属性可以自动调整图片框中图形的大小35.在窗体上画个名称为 Text1 的文本框，并编写如下程序： Private Sub Form_Load() Show Text1.Text=“ “ Text1.SetFocus End Sub Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single) Print “程序设计“ End Sub Private Sub Text1_KeyDown
21、(KeyCode As Integer,Shift As Integer) Print “Visual Basic“； End Sub 程序运行后，如果按 A 键，然后单击窗体，则窗体上显示的内容是 _。（分数：1.00）A.Visual BasicB.程序设计C.A 程序设计D.Visual Basic 程序设计二、填空题(总题数：15，分数：28.00)36.在窗体上画一个文本框，名称为 Text1，然后编写如下程序： Private Sub Form_Load() Open“d:/temp/dat.txt“For Output As#1 Text1.Text:“” End Sub Pri
22、vate Sub Text1_KeyPress(KeyAscii As Integer) If _ 1_ =13 Then If UCase(Text1.Text1= _ 2_ Then Close#1 End Else Write#1， _ 3_ Text1.Text=“” End If End If End Sub 以上程序的功能是，在 D 盘 temp 目录建立 1 个名为 dat.txt 的文件，在文本框中输入字符，每次按回车键(回车符的 ASC码是 13)都把当前文本框中的内容写入文稿件 dat.txt,并清除文本框中的内容；如果输入“END”，则结束程序。请将程序补充完整。 （分数
23、：2.00）37.能够将文本框控件隐藏起来的属性是 1。 （分数：2.00）38.在程序设计语言中，重复结构对应两类循环语句，对先执行循环体后判断的称为 1 循环结构。 （分数：2.00）39.由 Array 函数建立的数组的名字必须是 _ 1_ 类型。 （分数：2.00）40.如果在立即窗口中执行下列操作： a=8 b=9 print(ab)； 则输出结果是 1。 （分数：2.00）41.有序线性表进行二分查找的前提是该线性表必须是 _ 1_ 存储的。 （分数：2.00）42.用户可以用 _ 1_ 语句定义自己的数据类型。 （分数：1.00）43.下列程序弹出对话框中按钮的个数为 1。 Ms
24、gBox“确认!“，vbAbortRetryignore+vbMsgBoxHelpButton+vbinformation,“提示：“ （分数：2.00）44.在面向对象方法中一个对象请求另一个对象为其服务是通过发送 1 来完成的。 （分数：2.00）45.执行下面程序，第一行输出结果是 _ 1_ ，第二行输出结果是 _ 2_ 。 Option Explicit Private Sub Form_Click( ) Dim A As Integer A=2 Call Sub1 (A) End Sub Private Sub1 (x As Integer) x=x*2+1 If x10 Then
25、Call Sub1(x) End If x=x,2+1 Print x End Sub （分数：1.00）46.一个变量未被显示定义，末尾也没有类型说明符，则该变量的隐含类型是上 1 类型。 （分数：2.00）47.运行下列程序： Dim t As Integer Private Sub Form_Click() t = 2 x=Val(InputBox(“输入一个整数 5“) Print funl(x); t End Sub Private Function fun1(y) If y0 Then fun1 = 1： t=10 Else If y=0 Then fun1 = 0： t=20 E
26、lse fun1 = -1： t=30 End If End Function 从键盘为变量 x 输入数据 5，输出的结果是 _ 1_ 。 （分数：1.00）48.函数 Int(Rnd*10)+10 的值的范围是 _ 1_ 。 （分数：2.00）49.窗体上有名称为 Command1 的命令按钮事件过程及 2 个函数过程如下： Private Sub Command1_Click() Dim x As Integer，y As Integer，z x=3 y=5 z=fy(y) Print fx(fx(x),y End Sub Function fx(ByVal a As Integer) a
27、=a+a fx=a End Function fy=a Function fy(ByRef a As Integer) a=a+a fy=a End Function 运行程序，并单击命令按钮，则窗体上显示的 2 个值依次是 1 和 2。 （分数：4.00）50.下面的程序用“冒泡”法将数组 a 中的 10 个整数按升序排列，请将程序补充完整。 Option Base 1 Private Sub Command1_Click() Dim a a=Array(678，45，324，528，439，387，87，875，273，823) For i= _ 1_ For j= _ 2_ If a(i
28、) _ 3_ a(j)Then a1=a(i) a(i)=a(j) a(j)=a1 End If Next j Next i For i=1 To 10 Print a(i) Next i End Sub （分数：1.00）二级 VISUAL+BASIC-85 答案解析(总分：98.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.执行如下语句： a=InputBox(“Today“,“Tomorrow“,“Yesterday”,“Day before yesterday“,5) 将显示一个对话框，在对话框的输入区中显示的信息是_。（分数：2.50）A.TodavB.
29、TomorrowC.Yesterday D.Day before yesterday解析：解析 InputBox 函数的功能是显示一个对话框，该对话框能接收用户输入的数据。语法格式为： InputBox(prompt,title,default,xpos,ypos,hlelpfile,context) InputBox 函数的语法具有以下几个命令参数： prompt 必要的。作为对话框消息出现的字符串表达式。prompt 的最大长度大约是 1024 个字符，由所用字符的宽度决定。如果 pronpt 包含多个行，则可在各行之间用回车符(Chr(13)、换行符(Chr(10)或回车换行符的组合(C
30、hr(13) Next i（分数：2.00）A.1 1 1 4 4B.1 2 3 4 1C.1 2 1 4 4 D.1 1 1 4 1解析：解析 本题考查数组元素的赋值。数组 a 在循环中为数据赋值。循环变量 i 从 0 到 4，步长为 1。如果 i 等于 2，则将 a(0)的值赋给 a(2)；如果 m 等于 3，则将 a(0)的值赋给 a(1)。因此数组元素的值为：1 2 1 4 4。4.有如下程序： Option Base 1 Private Sub Form Click() Dim arr，Sum Sum =0 arr=Array(1，3，5，7，9，11，13，15，17，19) Fo
31、r i=1 To 10 If arr(i)/3=arr(i)/3 Then Sum=Sum+arr(i) End If Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为（分数：2.00）A.25B.26C.27 D.28解析：解析 本题考查“/”与“/”的区别。“/”是浮点除法运算符，而“/”是整数除法运算符。比如：6/4=1.5，而 6/4=1。这两个运算符的差别是考试重点，容易混淆，务必掌握。题目程序的功能实际上是对数组中能被 3 整除的元素求和，即 3+9+15。27，故选项 C 正确。5.下列程序的执行结果为_。 （分数：2.00）A.150B.200
32、C.50D.5 解析：解析 本题的难点是在循环体内的赋值问题。由于 int sum=0 在循环体内，每次循环都被赋值为0，事实上 int sum 的值为循环变量 i 的最后一次值。6.下列说法正确的是_。（分数：2.50）A.窗体的属性包括 Name、Caption、Height、Visible、Paint 等B.窗体是 Visual Basic 的一个控件C.窗体的所有属性都可以在运行阶段设置D.窗体相当于一个容器，可以把其他控件放在其上 解析：7.对于如下图所示的二叉树，其后序遍历序列是_。 （分数：2.00）A.ABDECFGB.DEBAFCGC.DEBFGCA D.GFCEBDA解析：
33、8.在一个工程的窗体中有如下代码： Public x As Integer Private Sub Form_Load() Dim y As Integer End Sub 在该工程的标准模块的声明部分有如下代码： Public a As Integer Private b As Integer 关于上述代码，以下叙述中错误的是_。（分数：2.00）A.变量 x 的作用域是整个工程 B.变量 y 的作用域是 Form_Load 过程C.变量 a 的作用域是整个工程D.变量 b 的作用域是整个标准模块解析：解析 Visual Basic 中变量按作用域分为 3 类。局部变量：在过程内用 Dim
34、语句或 Static 语句声明的变量，只能在本过程中使用。窗体/模块级变量：在“通用声明”段中用 Dim 语句或 Private 语句声明的变量，可被本窗体/模块的任何过程访问。全局变量：在“通用声明”段中用 Public 语句声明的变量，可被本应用程序的任何过程或函数访问。9.关于水平滚动条，如下叙述中错误的是_。（分数：2.50）A.当滚动框的位置改变时，触发 Change 事件B.当拖动滚动条中的滚动框时，触发 Scroll 事件C.LargeChange 属性是滚动条的最大值 D.Value 是滚动条中滚动框的当前值解析：解析 LargeChange 属性值是单击滚动块和左右两端箭头之
35、间空白的地方时，Value 增加或减少的量，Small 属性值才是滚动条的最大值。故 C 选项错误。10.在 E-R 图中，用来表示实体联系的图形是_。（分数：2.50）A.椭圆形B.矩形C.菱形 D.三角形解析：解析 E-R 图即实体一联系图(Entily Relationship Diagram)，提供了表示实体型、属性和联系的方法，用来描述现实世界的概念模型，构成 E-R 图的基本要素是实体型、属性和联系，其表示方法为：实体型(Entity)：用矩形表示，矩形框内写明实体名；属性(Attribute)：用椭圆形表示，并用无向边将其与相应的实体连接起来；联系(Relationship)：用
36、菱形表示，菱形框内写明联系名，并用无向边分别与有关实体连接起来，同时在无向边旁标上联系的类型(1:1，1:n 或 m:n)。11.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下代码： Option Base 1 Function Fun(a()As Integer) Sum=0 For i=1 To 3 For J=1 To 3 Sum=Sum+a(i,j) Next j Next j Fun=Sum End Function Private Sub Command1_Click() Dim arr(3,3)As Integer For i=1 To 3 For j=1 To
37、 3 If i=j Then arr(i,j)=1 End If If ij Then arr(i,j)=j End If Next j Next i x=Fun(arr() Print x End Sub 程序运行后，单击命令按钮，输出结果为（分数：2.50）A.10B.15 C.20D.30解析：12.在软件设计中，不属于过程设计工具的是_。（分数：2.00）A.PDL(过程设计语言)B.PAD 图C.N-S 图D.DFD 图 解析：13.以下程序的功能是随机产生 10 个两位的整数： Option Base 1 Private Sub Command1_Click() Dim a(10)
38、 As Integer, i As Integer Randomize For i=1 To 10 a(i)=Int(Rnd*100)+1 Print a(i) Next i End Sub 运行以上程序，发现有错误，需要对产生随机数的语句进行修改。以下正确的修改是（分数：2.00）A.a(i)=Int(Rnd*100)B.a(i)=Int(Rnd*90)+10 C.a(i)=Int(Rnd*100)+10D.a(i)=Int(Rnd*101)解析：解析 随机数函数 Rnd 的功能是用于产生一个小于 1 但大于或等于 0 的随机数。为了生成某个指定范围内的随机整数，可使用以下公式：Int(up
39、perbound-lowerbound+1)*Rnd+lowerbound)，其中upperbound 是随机整数范围的上限，lowerbound，随机整数范围的下限。本题中 upperbound 为99，lowerbound 为 10。14.下列与拖放操作无关的是（分数：2.50）A.KeyPress 事件 B.Drag 方法C.DragOver 事件D.DragDrop 事件解析：15.为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为 True，这个属性是（分数：2.00）A.ValueB.CancelC.EnabledD.Default 解析：解析 考查按钮
40、控件的 Default 属性。 按扭控件 Default 属性用来确定窗体的缺省命令按钮。用户可以按：Enter。键选择该按钮(激活其单击事件)。 按钮控件的 Caneel 属性。16.如果在 C 盘当前文件夹下已存在名为 StuData.dar 的顺序文件，那么执行语句 Open“C: StuData.dar” For Append As #1 之后将_ 。（分数：2.00）A.删除文件中原有内容。B.保留文件中原有内容，可在文件尾添加新内容。 C.保留文件中原有内容，在文件头开始添加新内容。D.以上均不对。解析：17.设窗体上有 3 个图像框：Image1、Image2、Image3，并有
41、下面的程序代码： Private Sub Form_Load() Image1.Picture=LoadPicture(“LEAF.bmp“) Image2.Picture=LoadPicture(“OPEN.bmp“) Image3.Visible=False End Sub Private Sub Image1_Click() Image2.Picture=Image1.Picture End Sub Private Sub Image2_Click() Image3.Picture=Image2.Picture Image2.Picture=Image1.Picture Image1.P
42、icture=Image3.Picture End Sub 在程序运行期间单击 Image2，则在窗体上看到的结果是（分数：2.50）A.在 Image3 中显示 Image2 中的图片B.Image1、Image2 中原有图片被交换了 C.Image1、Image2 中都是原来 Imege1 中的图片D.Image1、Image2 中都是原来 Imege2 中的图片解析：解析 本题中在窗体的 Load 事件中将 Image3 设置为不可见，然后在 Image1 的单击事件中将Image2 中的图片放到 Image1 中；在 Image2 的单击事件中使用 Image3 作为中间控件完成了Im
43、age1、Image2 中原有图片的交换。18.窗体上有一个 Text1 文本框、一个 Command1 命令按钮，并有以下程序： Private Sub Command1_Click() Dim n If Text1.Text“123456“ Then n=n+1 Print “口令输入错误“ Next m End Sub Function proc(i As Integer) Dim a As Integer Static b As Integer a=a+1 b=b+1 proc=a*b+i End Function 程序运行后，单击命令按钮 Command1，输出结果为_。（分数：1.
44、00）A.3 3 3B.3 4 5 C.3 5 6D.1 2 3解析：解析 变量 b 定义为 Static 即静态变量，它的特点是每次调用都会保留上次的值。程序 click 事件中调用了 3 次 proc(n)，即 proc(2)： 第一次，a=a+1=0+1=1，b=b+1=0+1=1，proc=a*b+i=1*1+2=3； 第二次，a=a+1=0+1=1，b=b+1=1+1=2，proc=a*b+i=1*2+2=4； 第三次，a=a+1=0+1=1，b=b+1=2+1=3，proc=a*b+i=1*3+2=5； 因此输出结果为 3 4 5。23.求 1!+2!+10!的程序如下： Priv
45、ate Function s(x As Integer) f=1 For i=1 To x f=f*i Next s=f End Function Private Sub Command1_Click() Dim i As Integer, y As Long For i=1 To 10 _ Next Print y End Sub 为实现功能要求，程序的括号中应该填入的内容是（分数：3.00）A.Call s(i)B.Call sC.y=y+s(i) D.y=y+s解析：解析 函数过程有一个返回值，一般出现在表达式中组成表达式的一部分。本题的题目要求累加各个数的阶乘，而函数 s 的作用是求参
46、数的阶乘，因此应该在每次循环中累加 f 函数的值，参数为循环变量 i。24.窗体上有两个水平滚动条 HV、HT，还有一个文本框 Text1 和一个标题为“计算”的命令按钮Commandl，并编写了以下程序： （分数：2.00）A.过程调用语句不对，应为 calc(HV,HT)B.过程定义语句的形式参数不对，应为 Sub calc(x As Control,yAs Control)C.计算结果在文本框中显示出来 D.程序不能正确运行解析：解析 访问滚动条控件的值，可以直接使用控件的名称，也可以在名称后面指明 Value 属性。滚动条位置是用数值来表示的，因此定义 Calc 过程时参数应该定义为
47、Integer 类型。程序中，Text1.Text=x*y 语句说明计算的结果在文本框中显示出来。25.如果一个正整数从高位到低位上的数字依次递减，则称其为降序数(如 9632 是降序数，而 8516 则不是降序数)。现编写如下程序，判断输入的正整数是否为降序数。 Private Sub Command1_Click() Dim n As Long Dim flag As Boolean n=InputBox(“输入一个正整数“) s=Trim(Str(n) For i=2 To Len(s) If Mid(s,i -1,1)Mid(s,i,1)Then Exit For Next i IF
48、i=Len(s)Then flag=True Else flag= False If flag Then Print n;“是降序数“ Else Print n;“不是降序数“ End If End Sub 运行以上程序，发现有错误，需要对给 flag 变量赋值的 If 语句进行修改。以下正确的修改是_。（分数：2.00）A.Ifi=Len(s)+1 Then flag=False Else flag=TrueB.If i=Len(s)+1 Then flag=True Else flag=False C.If i=Len(s)-1 Then flag=False Else flag=True
49、D.If i=Len(s)-1 Then flag=True Else flag=False解析：解析 本题中如果输入的数据满足降序数，则 For 循环会一直执行到条件不再满足，而不会中途退出循环，这时 i 的值应该是 Len(s)+1，也就是说，如果 i 的值是 Len(s)+1 则该数是降序数，flag 的值为 True，否则为 False。本题答案为 B。26.如果 x 为整数且|x|=100，则打印“OK”，否则打印“Error”，表示这个条件的单行格式 If 语句是_。（分数：2.00）A.If Int(x)=x And Sqr(x)=100 Then Print “OK“ Else
