1、二级 VISUAL+BASIC-45 及答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：40，分数：100.00)1.在软件设计中，不属于过程设计工具的是_。（分数：2.50）A.PDL(过程设计语言)B.PAD 图C.N-S 图D.DFD 图2.下列选项中，不属于模块间耦合的是_。（分数：2.50）A.数据耦合B.标记耦合C.异构耦合D.公共耦合3.在面向对象方法中，不属于“对象”基本特点的是_。（分数：2.50）A.一致性B.分类性C.多态性D.标识惟一性4.下列关于线性链表的叙述中，正确的是_。（分数：2.50）A.各数据结点的存储空间可以不连续，但它们的存储顺序
2、与逻辑顺序必须一致B.各数据结点的存储顺序与逻辑顺序可以不一致，但它们的存储空间必须连续C.进行插入与删除时，不需要移动表中的元素D.各数据结点的存储顺序与逻辑顺序可以不一致，它们的存储空间也可以不一致5.算法的空间复杂度是指_。（分数：2.50）A.算法在执行过程中所需要的计算机存储空间B.算法所处理的数据量C.算法程序中的语句或指令条数D.算法在执行过程中所需要的临时工作单元数6.某二叉树共有 7 个结点，其中叶子结点只有 1 个，则该二叉树的深度为(假设根结点在第 1 层)_。（分数：2.50）A.3B.4C.6D.77.数据库系统的三级模式不包括_。（分数：2.50）A.概念模式B.内
3、模式C.外模式D.数据模式8.将 E-R 图转换为关系模式时，实体和联系都可以表示为_。（分数：2.50）A.属性B键C.关系D域9.有三个关系 R、S 和 T 如下图： （分数：2.50）A并B.自然连接C.笛卡尔积D交10.一名工作人员可以使用多台计算机，而一台计算机可被多名工作人员使用，则实体工作人员与实体计算机之间的联系是_。（分数：2.50）A.一对一B.一对多C.多对多D.多对一11.能够用于标识对象名称的属性是_。（分数：2.50）A.NameB.CaptionC.ValueD.Text12.向文本框中输入字符时，下面能够被触发的事件是_。（分数：2.50）A.GotFocusB
4、.KeyPressC.ClickD.MouseDown13.如果把命令按钮的 Cancel 属性设置为 True，则程序运行后_。（分数：2.50）A.按 Esc 键与单击该命令按钮的作用相同B.按回车键与单击该命令按钮的作用相同C.按 Esc 键将停止程序的运行D.按回车键将中断程序的运行14.下面列表框属性中，是数组的是_。（分数：2.50）A.ListCountB.SelectedC.ListIndexD.MultiSelect15.设运行程序时弹出的菜单如下图所示。关于该菜单，以下叙述中错误的是_。 （分数：2.50）A.菜单中能够显示分隔线是因为该菜单项的标题为“-”B.分隔线对应的
5、菜单项的 Name 属性可以为空C.“退出”菜单项的有效性属性被设为 FalseD.使用 PopupMenu 方法能够显示图所示的菜单16.为了将“联想电脑”作为数据项添加到列表框 List1 的最前面，可以使用语句：_（分数：2.50）A.List1. AddItem”联想电脑”，0B.List1. AddItem”联想电脑”，1C.List1. AddItem 0，”联想电脑”D.List1. AddItem 1，”联想电脑”17.确定图片框 Picture1 在窗体上位置的属性是_。（分数：2.50）A.Width 和 HeightB.Left 和 TopC.Width 和 TopD.H
6、eight 和 Left18.在窗体上画一个水平滚动条，其属性值满足 MinMax。程序运行后，如果单击滚动条右端的箭头，则Value 属性值_。（分数：2.50）A.增加一个 SmallChange 量B.减少一个 SmallChange 量C.增加一个 LargeChange 量D.减少一个 LargeChange 量19.若看到程序中有以下事件过程，当程序运行时_。 Private Sub Click_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Print “VB Program“ En
7、d Sub（分数：2.50）A.用鼠标左键单击名称为“Command1”的命令按钮时，执行此过程B.用鼠标左键单击名称为“MouseDown”的命令按钮时，执行此过程C.用鼠标右键单击名称为“MouseDown”的控件时，执行此过程D.用鼠标左键或右键单击名称为“Click”的控件时，执行此过程20.要求当鼠标在图片框 P1 中移动时，立即在图片框中显示鼠标的位置坐标。下面能正确实现上述功能的事件过程是_。（分数：2.50）A.Private Sub P1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Sing
8、le)Print X, YEnd SubB.Private Sub P1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)Picture. Print X, YEnd SubC.Private Sub P1_MouseMove(Button As Inger, Shift As Integer, X As Single, Y As Single )P1. Print X, YEnd SubD.Private Sub Form_MouseMove(Button As Integer, Shift As
9、 Integer, X As Single, Y As Single )P1. Print X, YEnd Sub21.设有如下事件过程： Private Sub Command1_Click () For i = 1 To 5 j=i Do Print “ * “ j =j -1 Loop Until j = 0 Next i End Sub 运行程序，输出“*”的个数是_。（分数：2.50）A.5B.15C.20D.2522.窗体上有名称为 Command1 的命令按钮，名称分别为 Label1, Label2, Label3 的标。编写如下程序：Private x As Integer
10、Private Sub Command1_Cliek() Static y As Integer Dim z As Integer n=5 z=z+n y=y+n x=x+y Label1=x Label2=y Label3=z End Sub 运行程序，连续 3 次单击命令按钮后，3 个标签中分别显示的是_。（分数：2.50）A.5 5 5B.15 10 5C.15 15 15D.30 15 523.编写如下程序： Private Sub Command1_Click() Dim x As Integer, y As Integer x=InputBox(“输入第一个数“) y=InputB
11、ox(“输入第二个数“) Call f(x, y) Print x，y End Sub Sub f(a As Integer, ByVal b As Integer) a=a*2 x=a+b b=b+100 End Sub 程序运行后，单击命令按钮 Command1，并输入数值 10 和 15，则输出结果为_。（分数：2.50）A.10 115B.20 115C.35 15D.20 1524.在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a $ =InputBox(“请输入一个二进制数“) n=Len(a $) For i=1 To
12、n Dee=Dec * 2+_(a $, i, 1) Next i Print Dec End Sub 程序功能为：单击命令按钮，将产生一个输入对话框，此时如果在对话框中输入一个二进制数，并单击“确定”按钮，则把该二进制数转换为等值的十进制数。这个程序不完整，应在“_”处填入的内容是_。（分数：2.50）A.LeftB.RightC.ValD.Mid25.命令按钮 Command1 的单击事件过程如下： Private Sub Command1_Click() x=10 Print f(x) End Sub Private Function f(y As Integer) f=y*y End
13、Function 运行上述程序，如下叙述中正确的是：_。（分数：2.50）A.程序运行出错，x 变量的类型与函数参数的类型不符B.在窗体上显示 100C.函数定义错，函数名 f 不能又作为变量名D.在窗体上显示 1026.下面程序计算并输出的是_。 Private Sub Command1_Click() a=10 s=0 Do s=s+a*a*a a=a-1 Loop Until a=0 Print s End Sub（分数：2.50）A.13+23+33+103 的值B.10!+3!+2!+1!的值C.(1+2+3+10)3 的值D.10 个 103 的和27.在窗体上面一个名称为 Com
14、mand1 的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1_Click() d=0 c=10 x=Array(10，12，21，32，24) For i=1 To 5 If x(i)c Then d=d+x(i) c=x(i) Else d=d-c End If Next i Print d End Sub 程序运行后，如果单击命令按钮，则在窗体上输出的内容为_。（分数：2.50）A.89B.99C.23D.7728.窗体上有 1 个名称为 Text1 的文本框；1 个名称为 Timerl 的计时器控件，其 Interval 属性值为500
15、0，Enabled 属性值是 True。Timer1 的事件过程如下： Private Sub Timer1_Timer() Static flag As Integer If flag=0 Then flag=1 flag=-flag If flag=1 Then Text1. ForeColor= If xb(i, j)Then x=b(i, j) Next j Print Next i End Sub 程序中的数组 a 已被赋值。以下关于上述程序的叙述中，正确的是_。（分数：2.50）A.窗体模块中，不能使用 Dim 声明 a、b 数组B.“循环 1”可以正常运行C.“循环 2”中循环变
16、量 i、j 的终值不对，所以不能正常运行D.程序可以正常运行，x 中保存的是数组 b 中所有元素中最小的数30.窗体上有 1 个名称为 Command1 的命令按钮，事件过程如下： Private Sub Command1_Click() m=-3.6 If Sgn(m)Then n=Int(m) Else n=Abs(m) End If Print n End Sub 运行程序，并单击命令按钮，窗体上显示的内容为_。（分数：2.50）A.-4B.-3C.3D.3.631.在 VB 中按文件的访问方式不同，可以将文件分为_。（分数：2.50）A.顺序文件、随机文件和二进制文件B.文本文件和数据
17、文件C.数据文件和可执行文件D.ASCII 文件和二进制文件32.在窗体上用复制、粘贴的方法建立了一个命令按钮数组，数组名为 M1。设窗体 Ferm1 标题为“myform1”，双击控件数组中的第 3 个按钮，打开代码编辑器，写下如下代码： Privae Sub M1_Click(Index As Integer) Form1. Caption=“myform2“ End Sub 运行时，单击按钮数组中的第 1 个按钮，窗体标题为_。（分数：2.50）A.Form1BM1C.myform1D.myform233.设有数组定义语句：Dim a(5)As Integer, List1 为列表框控件
18、。下列给数组元素赋值的语句错误的是_。（分数：2.50）A.a(3)=3B.a(3)=Inputbox(“inputdata“)C.a(3)=List1. ListIndexD.a=Array(1，2，3，4，5，6)34.执行下列程序后，鼠标单击窗体，输出结果为_。 Private Sub Form_Click() Print “Click“ End Sub Private Sub Form_MouseDown(Button As Integer, Shin As Integer, X As Single, Y As Single) Print “Down“ End Sub Private
19、Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Print “Up“ End Sub（分数：2.50）A.DownUpClickB.ClickDownUpC.DownClickUpD.UpDownClick35.有如下的程序： Private Sub Command1_Click() Dim k As Integer, m As Integer Dim P As Integer k=4:m=1 P=Fun(k, m)=Print P; P=Fun(k, m):Print P End
20、Sub Private Function Fun(a As Integer, b As Integer) Static m As Integer, i As Integer m=5:i=2 i=i+m+1 m=i+a+b Fun=m/2 End Function 单击命令按钮后，输出结果为_。（分数：2.50）A.2 2B.4 4C.5 5D.6 636.下列叙述中正确的是_。（分数：2.50）A.在窗体的 Form_Load 事件过程中定义的变量是全局变量B.局部变量的作用域可以超出所定义的过程C.在某个 Sub 过程中定义的局部变量可以与其他事件过程中定义的局部变量同名，但是作用域只限于该
21、过程D.在调用过程中，所有局部变量系统初始化为 0 或空字符串37.在窗体上画一个文本框，其名称为 Text1，然后编写如下事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) Dim str As String Str=Chr(KeyAscii) KeyAscii=Asc(UCase(str) Text1. Text=String(2, KeyAscii) End Sub 程序运行后，如果在键盘上输入字母“b”，则在文本框 Text1 中显示的内容是_。（分数：2.50）A.bbbB.BBBC.BBD.bb38.假定有如下的窗体事件过程：
22、 Private Sub Form_Click() a $=“MicrosoftVisual Basic“ b $=Right(a $, 5) c $=Mid(a $, 1,9) MsgBox a $, 34, b $, c $, 5 End Sub 程序运行后，单击窗体，则在弹出的信息框的标题栏中显示的信息是_。（分数：2.50）A.Microsaft VisualB.MicrosoftC.BasicD.539.在 Visual Basic 中，要将一个窗体从内存中释放，应使用的语句是_。（分数：2.50）A.HideB.UnloadC.LoadD.Show40.以下叙述中错误的是_。（分数
23、：2.50）A.顺序文件中的数据只能按顺序读写B.对同一个文件，可以用不同的方式和不同的文件号打开C.执行 Close 语句，可将文件缓冲区中的数据写到文件中。D.随机文件中各记录的长度是随机的二级 VISUAL+BASIC-45 答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：40，分数：100.00)1.在软件设计中，不属于过程设计工具的是_。（分数：2.50）A.PDL(过程设计语言)B.PAD 图C.N-S 图D.DFD 图 解析：解析 数据流图(DFD)是结构化分析方法最主要的一种图形工具，不属于过程设计工具。2.下列选项中，不属于模块间耦合的是_。（分数：2
24、.50）A.数据耦合B.标记耦合C.异构耦合 D.公共耦合解析：解析 模块之间的耦合程度反映了模块的独立性，也反映了系统分解后的复杂程度。按照耦合程度从强到弱分别是：内容耦合、公共耦合、外部耦合、控制耦合、标记耦合、数据耦合和非直接耦合，没有异构耦合这种方式。3.在面向对象方法中，不属于“对象”基本特点的是_。（分数：2.50）A.一致性 B.分类性C.多态性D.标识惟一性解析：解析 在面向对象方法中，对象的基本特点包括：标识惟一性、分类性、多态性、封装性、模块独立性好。一致性不属于对象的基本特点。4.下列关于线性链表的叙述中，正确的是_。（分数：2.50）A.各数据结点的存储空间可以不连续，
25、但它们的存储顺序与逻辑顺序必须一致B.各数据结点的存储顺序与逻辑顺序可以不一致，但它们的存储空间必须连续C.进行插入与删除时，不需要移动表中的元素 D.各数据结点的存储顺序与逻辑顺序可以不一致，它们的存储空间也可以不一致解析：解析 一般来说，在线性表的链式存储结构中，各数据结点的存储顺序是不连续的，并且各结点在存储空间中的位置关系与逻辑关系也不一致。线性链表中数据的插入和删除都不需要移动表中的元素，只需改变结点的指针域即可。5.算法的空间复杂度是指_。（分数：2.50）A.算法在执行过程中所需要的计算机存储空间 B.算法所处理的数据量C.算法程序中的语句或指令条数D.算法在执行过程中所需要的临
26、时工作单元数解析：解析 算法的空间复杂度是指算法在执行过程中所需要的内存空间。6.某二叉树共有 7 个结点，其中叶子结点只有 1 个，则该二叉树的深度为(假设根结点在第 1 层)_。（分数：2.50）A.3B.4C.6D.7 解析：解析 二叉树的基本性质：在任意一棵二叉树中，度为 0 的叶子结点总比度为 2 的结点多一个，因此本题中度为 2 的结点为 1-1=0 个，因此，该二又树的每一个结点都只有一个分支，深度为 7。7.数据库系统的三级模式不包括_。（分数：2.50）A.概念模式B.内模式C.外模式D.数据模式 解析：解析 数据库系统的三级模式是概念模式、外模式和内模式，不包括数据模式。8
27、.将 E-R 图转换为关系模式时，实体和联系都可以表示为_。（分数：2.50）A.属性B键C.关系 D域解析：解析 将 E-R 图转换为关系模式时，实体与联系都转换成关系，E-R 图中属性转换成关系的属性。9.有三个关系 R、S 和 T 如下图： （分数：2.50）A并B.自然连接C.笛卡尔积D交 解析：解析 自然连接是一种特殊的等值连接，它要求两个关系中进行比较的分量必须是相同的属性组，并且在结果中把重复的属性列去掉；笛卡儿积是用 R 集合中的元素为第一元素，S 集合中的元素为第二元素构成的有序对。根据关系 T 可以很明显地看出是从关系 R 与关系 S 中取得相同的关系组，所以使用的是交运算
28、。10.一名工作人员可以使用多台计算机，而一台计算机可被多名工作人员使用，则实体工作人员与实体计算机之间的联系是_。（分数：2.50）A.一对一B.一对多C.多对多 D.多对一解析：解析 实体间的联系(关系)有三种：一对一联系(1:1)，即实体集 E1 中的一个实体最多只与实体集 E2 中的一个实体相联系；一对多联系(1:N)，即实体集 E1 中的一个实体可与实体集 E2 中的多个实体相联系；多对多联系(M:N)，即实体集 El 中的多个实体可与实体集 E2 中的多个实体相联系。本题中一名工作人员可以操作多台计算机，而一台计算机又可以被多名工作人员使用，所以两个实体之间是多对多的关系。11.能
29、够用于标识对象名称的属性是_。（分数：2.50）A.Name B.CaptionC.ValueD.Text解析：解析 每个对象都有 Name 属性，用于识别对象的名称。12.向文本框中输入字符时，下面能够被触发的事件是_。（分数：2.50）A.GotFocusB.KeyPress C.ClickD.MouseDown解析：解析 向文本框中输入文本时，有按键的动作，因此会触发 KeyPress 事件。13.如果把命令按钮的 Cancel 属性设置为 True，则程序运行后_。（分数：2.50）A.按 Esc 键与单击该命令按钮的作用相同 B.按回车键与单击该命令按钮的作用相同C.按 Esc 键将
30、停止程序的运行D.按回车键将中断程序的运行解析：解析 当一个命令按钮的 Cancel 属性被设置为 True 时，按 Esc 键与单击该命令按钮的作用相同。14.下面列表框属性中，是数组的是_。（分数：2.50）A.ListCountB.Selected C.ListIndexD.MultiSelect解析：解析 在列表框控件中，Selected 属性是一个数组，各个元素的值为 True 或 False; ListCount属性列出列表框中表项的数量；ListIndex 属性值表示已选中的表项的位置，表项位置由索引值指定，第一项索引值为 0，第二项为 1，以此类推；MultiSelect 属性
31、用来设置一次可以选择的表项是一项、多项或是指定范围。15.设运行程序时弹出的菜单如下图所示。关于该菜单，以下叙述中错误的是_。 （分数：2.50）A.菜单中能够显示分隔线是因为该菜单项的标题为“-”B.分隔线对应的菜单项的 Name 属性可以为空 C.“退出”菜单项的有效性属性被设为 FalseD.使用 PopupMenu 方法能够显示图所示的菜单解析：解析 A 项，在设计菜单时，如果在菜单标题栏输入“-”，则可以在菜单中加入一条分隔线；B项，菜单中每一个菜单项(包括分隔线)，都必须有一个名称，即 Name 属性不能为空；C 项，菜单项有效性属性设为 Flase 时，则该项显示为灰色不可用状态
32、；D 项，可以使用 PopupMenu 的方法显示弹出式菜单，格式为：PopupMenu 菜单名。16.为了将“联想电脑”作为数据项添加到列表框 List1 的最前面，可以使用语句：_（分数：2.50）A.List1. AddItem”联想电脑”，0 B.List1. AddItem”联想电脑”，1C.List1. AddItem 0，”联想电脑”D.List1. AddItem 1，”联想电脑”解析：解析 为列表框控件添加数据的方法是 AddItem，语法是：AddItem(string, index)。其中，index 是列表框中列表项的索引值，第一项的索引值为 0。17.确定图片框 Pi
33、cture1 在窗体上位置的属性是_。（分数：2.50）A.Width 和 HeightB.Left 和 Top C.Width 和 TopD.Height 和 Left解析：解析 确定图片框在窗体上位置的属性是 Left 和 Top，它们使用的是相对坐标，以窗体为参考点。18.在窗体上画一个水平滚动条，其属性值满足 MinMax。程序运行后，如果单击滚动条右端的箭头，则Value 属性值_。（分数：2.50）A.增加一个 SmallChange 量 B.减少一个 SmallChange 量C.增加一个 LargeChange 量D.减少一个 LargeChange 量解析：解析 当水平滚动条
34、的属性值 MinMax 时，如果单击滚动条右端或左端的箭头，Value 属性值会增加或减少 SmallChange 量；如果单击滚动块和右端箭头之间的空白处时，Value 属性值会增加LargeChange 量，反之则减少 LargeChange 量。19.若看到程序中有以下事件过程，当程序运行时_。 Private Sub Click_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Print “VB Program“ End Sub（分数：2.50）A.用鼠标左键单击名称为“Command1”
35、的命令按钮时，执行此过程B.用鼠标左键单击名称为“MouseDown”的命令按钮时，执行此过程C.用鼠标右键单击名称为“MouseDown”的控件时，执行此过程D.用鼠标左键或右键单击名称为“Click”的控件时，执行此过程 解析：解析 Click 是控件的名称，MouseDown 是鼠标按下事件。当用鼠标左键或右键单击 Click 控件时就会触发 MouseDown 事件，执行 MouseDown 事件过程。20.要求当鼠标在图片框 P1 中移动时，立即在图片框中显示鼠标的位置坐标。下面能正确实现上述功能的事件过程是_。（分数：2.50）A.Private Sub P1_MouseMove(
36、Button As Integer, Shift As Integer, X As Single, Y As Single)Print X, YEnd SubB.Private Sub P1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)Picture. Print X, YEnd SubC.Private Sub P1_MouseMove(Button As Inger, Shift As Integer, X As Single, Y As Single )P1. Print X, YEnd
37、Sub D.Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single )P1. Print X, YEnd Sub解析：解析 当鼠标在图片框 P1 中移动时，就会触发 P1 的鼠标移动事件，即 P1_MouseMove 事件，要求在图片框上输出数据，因此用 P1 的 Print 语句实现。21.设有如下事件过程： Private Sub Command1_Click () For i = 1 To 5 j=i Do Print “ * “ j =j -1 Loop Until
38、 j = 0 Next i End Sub 运行程序，输出“*”的个数是_。（分数：2.50）A.5B.15 C.20D.25解析：解析 i=1 时，输出 1 个“*”；i=2 时，输出 2 个“*”；i=3 时，输出 3 个“*”；i=4 时，输出4 个“*”；i=5 时，输出 5 个“*”。因此，总共输出“*”的个数是 1+2+3+4+5=15。22.窗体上有名称为 Command1 的命令按钮，名称分别为 Label1, Label2, Label3 的标。编写如下程序：Private x As Integer Private Sub Command1_Cliek() Static y
39、As Integer Dim z As Integer n=5 z=z+n y=y+n x=x+y Label1=x Label2=y Label3=z End Sub 运行程序，连续 3 次单击命令按钮后，3 个标签中分别显示的是_。（分数：2.50）A.5 5 5B.15 10 5C.15 15 15D.30 15 5 解析：解析 变量 x 被定义为窗体模块变量，它在整个窗体模块中有效。Click 事件定义变量 y 为静态变量，在每次调用过程中都会保留上次的值。每次单击按钮标签中显示的值即 x、y、z 的值，分别是： 第一次，n=5，z=z+n=0+5=5，y=y+n=0+5=5，x=x+
40、y=0+5=5； 第二次，n=5，z=z+n=0+5=5，y=y+n=5+5=10，x=x+y=5+10=15； 第三次，n=5，z=z+n=0+5=5，y=y+n=10+5=15，x=x+y=15+15=30。 因此 3 次单击命令按钮后，3 个标签中分别显示的是 30 15 5。23.编写如下程序： Private Sub Command1_Click() Dim x As Integer, y As Integer x=InputBox(“输入第一个数“) y=InputBox(“输入第二个数“) Call f(x, y) Print x，y End Sub Sub f(a As Int
41、eger, ByVal b As Integer) a=a*2 x=a+b b=b+100 End Sub 程序运行后，单击命令按钮 Command1，并输入数值 10 和 15，则输出结果为_。（分数：2.50）A.10 115B.20 115C.35 15D.20 15 解析：解析 过程 f 的参数 a 默认是按址传递，参数 b 指定按值传递，因此调用 f(x, y)时，变量 x 的值会受到影响，变量 y 的值不会。程序中输入 10 和 15，则 x=10, y=15。调用 f(x, y)，在过程中a=a*2=10*2=20，b=b+100=15+100=115。a 的值即按钮单击事件中变
42、量 x 的值，因此 x=20，而 y 的值仍是原来的值 15，因此输出 20 15。24.在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a $ =InputBox(“请输入一个二进制数“) n=Len(a $) For i=1 To n Dee=Dec * 2+_(a $, i, 1) Next i Print Dec End Sub 程序功能为：单击命令按钮，将产生一个输入对话框，此时如果在对话框中输入一个二进制数，并单击“确定”按钮，则把该二进制数转换为等值的十进制数。这个程序不完整，应在“_”处填入的内容是_。（分数：2.50）
43、A.LeftB.RightC.ValD.Mid 解析：解析 将二进制数转换为十进制数需要将二进制数的每一位取出来进行运算，从一个数值字符串中截取一位数字字符要使用 Mid()函数，因此在程序空缺处该填入 Mid。25.命令按钮 Command1 的单击事件过程如下： Private Sub Command1_Click() x=10 Print f(x) End Sub Private Function f(y As Integer) f=y*y End Function 运行上述程序，如下叙述中正确的是：_。（分数：2.50）A.程序运行出错，x 变量的类型与函数参数的类型不符 B.在窗体上
44、显示 100C.函数定义错，函数名 f 不能又作为变量名D.在窗体上显示 10解析：解析 变量 x 在按钮单击事件过程中没有定义，因此系统自动将它定义为 Variant 类型。过程 f中参数类型为 Integer，因此程序运行时会提示“ByRef 参数类型不符”的错误信息。26.下面程序计算并输出的是_。 Private Sub Command1_Click() a=10 s=0 Do s=s+a*a*a a=a-1 Loop Until a=0 Print s End Sub（分数：2.50）A.13+23+33+103 的值 B.10!+3!+2!+1!的值C.(1+2+3+10)3 的值
45、D.10 个 103 的和解析：解析 Do 循环语句执行过程如下：s=103，a=9；s=103+93，a=8；s=10+93+83，a=7；，依此类推，因此程序计算输出 103+93+13 的值。27.在窗体上面一个名称为 Command1 的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1_Click() d=0 c=10 x=Array(10，12，21，32，24) For i=1 To 5 If x(i)c Then d=d+x(i) c=x(i) Else d=d-c End If Next i Print d End Sub 程序
46、运行后，如果单击命令按钮，则在窗体上输出的内容为_。（分数：2.50）A.89B.99C.23 D.77解析：解析 程序中 Option Base 1 语句指定数组下标下限从 1 开始。程序通过赋初值定义变量 x 为含有 5 个元素的数组，元素值依次为 10，12，21，32，24。For 循环的功能是把这 5 个元素中大于 10 且大于前一个元素的值累加到变量 d 中，如果小于等于 10 或小于等于前一个元素则变量 d 将减去 10 或减去前一个元素的值。因此 d=0-10+12+21+32-32=23。28.窗体上有 1 个名称为 Text1 的文本框；1 个名称为 Timerl 的计时器
47、控件，其 Interval 属性值为5000，Enabled 属性值是 True。Timer1 的事件过程如下： Private Sub Timer1_Timer() Static flag As Integer If flag=0 Then flag=1 flag=-flag If flag=1 Then Text1. ForeColor= If xb(i, j)Then x=b(i, j) Next j Print Next i End Sub 程序中的数组 a 已被赋值。以下关于上述程序的叙述中，正确的是_。（分数：2.50）A.窗体模块中，不能使用 Dim 声明 a、b 数组B.“循环
48、 1”可以正常运行 C.“循环 2”中循环变量 i、j 的终值不对，所以不能正常运行D.程序可以正常运行，x 中保存的是数组 b 中所有元素中最小的数解析：解析 A 项，Dim 用于在标准模块、窗体模块或过程中定义变量或数组；C 项，程序可以正常运行；D 项，x 中保存的是数组 b 元素中的最大值。30.窗体上有 1 个名称为 Command1 的命令按钮，事件过程如下： Private Sub Command1_Click() m=-3.6 If Sgn(m)Then n=Int(m) Else n=Abs(m) End If Print n End Sub 运行程序，并单击命令按钮，窗体上显示的内容为_。（分数：2.50）A.-4 B.-3C.3D.3.6解析：解析 Sgn()函数返回参数的符号，参数为负数时返回-1；参数为 0 时，返回 0；参数为正数时返回 1。所以 Sgn(-3.6)返回-1。Visual Bas
