【计算机类职业资格】计算机二级VISUAL+BASIC考试1+2015年及答案解析.doc

1、计算机二级 VISUAL+BASIC考试 1+2015年及答案解析(总分：40.00，做题时间：90 分钟)一、选择题(总题数：38，分数：40.00)1.下列关于算法复杂度叙述正确的是（分数：1.00）A.最坏情况下的时间复杂度一定高于平均情况的时间复杂度B.时间复杂度与所用的计算工具无关C.对同一个问题，采用不同的算法，则它们的时间复杂度是相同的D.时间复杂度与采用的算法描述语言有关2.设有栈 S和队列 Q，初始状态均为空。首先依次将 A,B,C,D,E,F入栈，然后从栈中退出三个元素依次入队，再将 X,Y,Z入栈后，将栈中所有元素退出并依次入队，最后将队列中所有元素退出，则退队元素的顺序

2、为（分数：1.00）A.DEFXYZABCB.DEFXYZABCC.FEDXYZCBAD.DEFZYXABC3.下列叙述中正确的是（分数：1.00）A.有两个指针域的链表称为二叉链表B.循环链表是循环队列的链式存储结构C.带链的栈有栈顶指针和栈底指针，因此又称为双重链表D.结点中具有多个指针域的链表称为多重链表4.某二叉树共有 845个结点，其中叶子结点有 45个，则度为 1的结点数为（分数：1.00）A.400B.754C.756D.不确定5.软件需求分析阶段的主要任务是（分数：1.00）A.确定软件开发方法B.确定软件开发工具C.确定软件开发计划D.确定软件系统的功能6.下面对软件测试描述

3、错误的是（分数：1.00）A.严格执行测试计划，排除测试的随意性B.随机地选取测试数据C.随机地选取测试数据D.软件测试是保证软件质量的重要手段7.结构化程序的三种基本控制结构是（分数：1.00）A.顺序、选择和重复（循环）B.过程、子程序和分程序C.顺序、选择和调用D.调用、返回和转移8.数据库中对概念模式内容进行说明的语言是（分数：1.00）A.数据定义语言B.数据操纵语言C.数据控制语言D.数据宿主型语言9.某个工厂有若干个仓库，每个仓库存放有不同的零件，相同零件可能放在不同的仓库中。则实体仓库和零件间的联系是（分数：1.00）A.多对多B.一对多C.多对一D.一对一10.表达式 5 *

4、 Sqr(25) + Sgn(4 4) 的值是（分数：1.00）A.29B.25C.26D.3611.无论 X取何值，均能成立的表达式是（分数：1.00）A.Int(X) = Abs(X)B.Int(X) = Abs(X)C.Int(X) Abs(X)12.要求在窗体中定义一个变量 x，在本窗体所有过程中都可以访问它，而在其他模块中不能访问，则该变量的定义是（分数：1.00）A.在本窗体的某个过程中写语句：Dim xB.在本窗体所有过程之前写语句：Dim xC.在本窗体所有过程之前写语句：Public xD.在本窗体的所有过程中写语句：Dim x13.以下叙述中错误的是（分数：1.00）A.对

5、象具有属性、方法等成员B.对象可以识别预先定义的事件C.一个对象中包含数据及其对这些数据的相关操作D.对象的属性值一经初始化，则不能再改变14.以下叙述中正确的是（分数：1.00）A.影响窗体上某个文本框的 Tab顺序的属性是 TabStopB.语句 Me.Text = “Visual Basic“用于设置当前窗口的标题信息C.用于获取文本框中当前被选中文本的属性为 SelTextD.要获取水平滚动条中当前滚动块的位置应使用其 Position属性15.下面关于组合框 Cb1的叙述中正确的是（分数：1.00）A.程序运行时，列表项可以多选B.鼠标单击一个列表项后，Cb1.Text 的值等于 C

6、b1.List(Cb1.ListIndex)的值C.利用 Selected属性可以判断哪个列表项被选中了D.组合框不响应 Change事件16.下面关于组合框 Cb1的叙述中正确的是（分数：1.00）A.程序运行时，列表项可以多选B.鼠标单击一个列表项后，Cb1.Text 的值等于 Cb1.List(Cb1.ListIndex)的值C.利用 Selected属性可以判断哪个列表项被选中了D.组合框不响应 Change事件17.在列表框或组合框中，能够表示当前被选中列表项序号的是（分数：1.00）A.ListIndexB.IndexC.TopIndexD.List18.要在程序运行过程中把 Co

7、mmand1按钮的标题修改为“按钮“，正确的做法是（分数：1.00）A.在属性窗口中把 Command1按钮的 Caption属性改为“按钮”B.在程序中执行语句：Command1.Caption = “按钮“C.在属性窗口中把 Command1按钮的 Text属性改为“按钮”D.在程序中执行语句：Command1.Text = “按钮“19.文件列表框中用于设置或返回所选文件路径和文件名的属性是（分数：1.00）A.FileB.FilePathC.PathD.FileName20.在窗体上画 2个名称分别为 Text1和 Text2的文本框，然后编写如下事件过程： Private Sub F

8、orm_Load() Show Text1.Text = “ABCDEF“ Text2.SetFocus End Sub Private Sub Text1_GotFocus() Text1.SelStart = 2 Text1.SelLength = 3 End Sub 运行程序，单击 Text1，该文本框中的内容为（分数：1.00）A.显示 ABCDEF，且 BCD被选中B.显示 ABCDEF，且 CDE被选中C.显示 BCDD.显示 CDE21.下面关于框架控件的叙述中正确的是（分数：1.00）A.框架响应 Click事件B.框架可以接受焦点C.框架的标题是字符串，放在 Text属性中D

9、.可以在框架中输入文本22.通过语句 X = InputBox(“输入数据“, “示例“, “0“)对变体类型的变量 X输入数据，程序运行后，如果在对话框的输入区中输入数值 100并按回车键，则下列叙述中正确的是（分数：1.00）A.变量 X的值是字符串“0“B.在 InputBox对话框标题栏中显示的是“输入数据”C.输入对话框的输入区中的初始默认值为数值 0D.变量 X的值是字符串“100“23.下面说法中错误的是（分数：1.00）A.使用 ReDim语句可以改变数组的维数B.使用 ReDim语句可以改变数组的类型C.使用 ReDim语句可以改变数组的每一维的大小D.ReDim语句可以使原

10、数组中的内容被清除24.若程序中有语句：y = proc(6)，则 proc 应该是（分数：1.00）A.一个 Function过程的名称B.一个 Sub过程的名称C.一个事件过程的名称D.既可能是一个 Function过程的名称，也可能是一个 Sub过程的名称25.下列说法中正确的是（分数：1.00）A.任何情况下都可以用标准工具栏的“菜单编辑器”按钮打开菜单编辑器B.任何情况下都可以用标准工具栏的“菜单编辑器”按钮打开菜单编辑器C.任何情况下都可以用“工具“菜单中的“菜单编辑器”命令打开菜单编辑器D.只有当某个窗体为当前活动窗体时，才能打开菜单编辑器26.下面关于菜单的叙述中正确的是（分数

11、：1.00）A.弹出式菜单和下拉式菜单都可用菜单编辑器编辑B.弹出式菜单不能有子菜单C.菜单项可以响应 Click事件和 DblClick事件D.有子菜单的菜单项不响应 Click事件27.为了向 c盘根目录下的 Stud.txt文件中添加数据而不破坏其原有数据，下列正确打开该文件的语句是（分数：1.00）A.Open “c:/Stud.txt“ For Output As #1B.Open “c:/Stud.txt“ For Append As #1C.Open c:/Stud.txt For Output As #1D.Open c:/Stud.txt For Append As #128

12、.如果希望向一个顺序文件写入数据，但又要保留文件中的原有内容，应采取的文件打开方式是（分数：1.00）A.AppendB.OutputC.RandomD.Input29.设有如下事件过程： Private Sub Command1_Click() ch = “ABCDEFG“ n = Len(ch) k = 1 Do Print Mid(ch, k, 1); Mid(ch, n, 1); k = k + 1 n = n - 1 Loop Until k n End Sub 运行此过程所产生的输出是（分数：1.00）A.AGBFCEDDB.AGBFCEDC.GFEDCBAD.GAFBECD30.

13、有如下事件过程： Private Sub Form_Click() Dim a As Long, b As Long Dim sum As Long Dim x As Integer a = 1 b = 1 For x = 1 To 11 Step 2 a = b * x _ s = s + a sum = sum + s Next x Print sum End Sub 以上程序的功能是，计算 1!+(1!+3!)+(1!+3!+5!)+(1!+3!+5!+11!) 的值并输出。程序不完整，在_处应填入的内容是（分数：1.00）A.b = a * (x + 1)B.a = a * (x 1)

14、C.a = a * (x + 1)D.b = a * x31.下面程序的功能是找出这样一个三位整数：它等于每位数字的阶乘之和，例如 145就是这样的数（即145 = 1！+ 4！+ 5！） Private Sub Command1_Click() Dim x As Integer, i As Integer, j As Integer, k As Integer For i = 1 To 9 For j = 0 To 9 For k = 0 To 9 a = _ If a = fact(i) + fact(j) + fact(k) Then Print a End If Next k Next

15、 j Next i End Sub Function fact(n As Integer) As Long Dim x As Long x = 1 For k = 1 To n x = x * k Next k fact = x End Function 程序不完整，在横线上应填写的是（分数：1.00）A.i * 100 + j * 10 + kB.i * 1000 + j * 100 + k * 10C.i * 10 + j * 10 + k * 10D.fact(0) + fact(1) + fact(9)32.有如下通用过程： Private Sub St(ByVal strX As S

16、tring, strY As String) Dim Ts As String i = Len(strX) Do While i = 1 Ts = Ts + Mid(strX, i, 1) i = i - 1 Loop strY = Ts End Sub 在窗体上画一个命令按钮，其名称为 Command1，然后编写如下事件过程： Private Sub Command1_Click() Dim s1 As String, s2 As String s1 = “abcd“ Call St(s1, s2) Print s2 End Sub 程序运行后，单击命令按钮，输出结果是（分数：1.00）A.

17、abcdB.dabcC.dcbaD.abdc33.在窗体上画一个名称为 Command1的命令按钮，然后编写如下程序代码： Dim x As Integer Private Sub MySub() Static x As Integer Dim y As Integer x = x + 10 y = y + 10 Print “x=“; x; “y=“; y; End Sub Private Sub Form_Load() x = 50 End Sub Private Sub Command1_Click() Call MySub MySub Print “x=“; x End Sub 程序运

18、行时，单击 Command1，则在窗体上输出的结果是（分数：1.00）A.x=10 y=10 x=60 y=10 x=60B.x=60 y=10 x=70 y=10 x=70C.x=60 y=10 x=70 y=10 x=50D.x=10 y=10 x=20 y=10 x=5034.在窗体上画个文本框（名称分别为 Text1和 Text2），一个命令按钮（名称为 Command1）。并定义以下记录类型和变量： Private Type Teacher ID As Integer Name As String * 10 End Type Dim Teach As Teacher 程序运行后，在

19、Text1中输入编号（ID），在 Text2中输入姓名（Name），然后单击命令按钮，则把两个文本框中的内容写入随机文件 d:/f1.txt。以下能够正确实现上述功能的事件过程是（分数：1.00）A.Private Sub Command1_Click()Open “d:/f1.txt“ For Random As #1 Len = Len(Teach)Teach.ID = Val(Text1.Text)Teach.Name = Text2.TextPut #1, 1, TeachClose #1End SubB.Private Sub Command1_Click()Open “d:/f1.

20、txt“ For Random As #1 Len = Len(Teach)Teach.ID = Val(Text1.Text)Teach.Name = Text2.TextPut #1, Teach.ID, Teach.NameClose #1End SubC.Private Sub Command1_Click()Open “d:/f1.txt“ For Random As #1 Len = Len(Teach)Teach.ID = Val(Text1.Text)Teach.Name = Text2.TextWrite #1, 1, TeachClose #1End SubD.Privat

21、e Sub Command1_Click()Open “d:/f1.txt“ For Random As #1 Len = Len(Teach)Teach.ID = Val(Text1.Text)Teach.Name = Text2.TextWrite #1, Teach.ID, Teach.NameClose #1End Sub35.在窗体上画 2个名称分别为 Label1和 Label2的标签，然后编写如下程序代码： Sub S(L As Label, ByVal a As Integer) L.Caption = “1234“ a = a * a End Sub Private Sub

22、Form_Load() Label1.Caption = “ABCD“ Label2.Caption = 10 End Sub Private Sub Form_Click() Dim a As Integer a = Val(Label2.Caption) S Label1, a Label2.Caption = a End Sub 运行程序，单击窗体，在两个标签中显示的内容分别是（分数：1.00）A.ABCD和 10B.1234和 100C.ABCD和 100D.ABCD和 10036.在窗体上画一个名称为 Command1的命令按钮，一个名称为 Text1的文本框数组（含个文本框，下标从

23、开始），然后编写如下事件过程： Private Sub Command1_Click() Dim i As Integer, n As Integer For Each TextBox In Text1 Text1(i) = Text1(i).Index n = 10 * (n + Val(Text1(i).Text) i = i + 1 Next Print n End Sub 运行程序，单击命令按钮 Command1，则在窗体上的输出结果是（分数：1.00）A.0123B.123C.1234D.123037.有如下通用过程： Function Fs(ByVal n As Long) As

24、Long Dim k As Long k = 1 n = Abs(n) Do While n k = k * (n Mod 10) n = n / 10 Loop Fs = k End Function 编写如下事件过程： Private Sub Form_Click() Dim a As Long Dim b As Long a = InputBox(“请输入一个数“) a = CLng(A) b = Fs(A) Print b End Sub 程序运行后，单击窗体，在输入对话框中输入 567，输出结果为（分数：1.00）A.56B.67C.210D.1838.在窗体上画一个名称为 Comm

25、and1的命令按钮，然后编写如下事件过程： Option Base 1 Private Sub Command1_Click() Dim a(3, 3) As Integer Dim i As Integer, j As Integer, s As Integer s = 0 For i = LBound(a, 1) To UBound(a, 1) For j = LBound(a, 2) To UBound(a, 2) a(i, j) = (i - 1) * 3 + j If i = j Then s = s + a(i, j) End If Next j, i Print s End Su

26、b 程序运行时，单击Command1，则在窗体上输出的结果是（分数：1.00）A.15B.26C.34D.19_计算机二级 VISUAL+BASIC考试 1+2015年答案解析(总分：40.00，做题时间：90 分钟)一、选择题(总题数：38，分数：40.00)1.下列关于算法复杂度叙述正确的是（分数：1.00）A.最坏情况下的时间复杂度一定高于平均情况的时间复杂度B.时间复杂度与所用的计算工具无关 C.对同一个问题，采用不同的算法，则它们的时间复杂度是相同的D.时间复杂度与采用的算法描述语言有关解析：2.设有栈 S和队列 Q，初始状态均为空。首先依次将 A,B,C,D,E,F入栈，然后从栈中

27、退出三个元素依次入队，再将 X,Y,Z入栈后，将栈中所有元素退出并依次入队，最后将队列中所有元素退出，则退队元素的顺序为（分数：1.00）A.DEFXYZABCB.DEFXYZABC C.FEDXYZCBAD.DEFZYXABC解析：3.下列叙述中正确的是（分数：1.00）A.有两个指针域的链表称为二叉链表B.循环链表是循环队列的链式存储结构C.带链的栈有栈顶指针和栈底指针，因此又称为双重链表D.结点中具有多个指针域的链表称为多重链表 解析：4.某二叉树共有 845个结点，其中叶子结点有 45个，则度为 1的结点数为（分数：1.00）A.400B.754C.756 D.不确定解析：5.软件需求

28、分析阶段的主要任务是（分数：1.00）A.确定软件开发方法B.确定软件开发工具C.确定软件开发计划D.确定软件系统的功能 解析：6.下面对软件测试描述错误的是（分数：1.00）A.严格执行测试计划，排除测试的随意性B.随机地选取测试数据 C.随机地选取测试数据D.软件测试是保证软件质量的重要手段解析：7.结构化程序的三种基本控制结构是（分数：1.00）A.顺序、选择和重复（循环） B.过程、子程序和分程序C.顺序、选择和调用D.调用、返回和转移解析：8.数据库中对概念模式内容进行说明的语言是（分数：1.00）A.数据定义语言 B.数据操纵语言C.数据控制语言D.数据宿主型语言解析：9.某个工厂

29、有若干个仓库，每个仓库存放有不同的零件，相同零件可能放在不同的仓库中。则实体仓库和零件间的联系是（分数：1.00）A.多对多 B.一对多C.多对一D.一对一解析：10.表达式 5 * Sqr(25) + Sgn(4 4) 的值是（分数：1.00）A.29B.25C.26 D.36解析：11.无论 X取何值，均能成立的表达式是（分数：1.00）A.Int(X) = Abs(X)B.Int(X) = Abs(X)C.Int(X) Abs(X)解析：12.要求在窗体中定义一个变量 x，在本窗体所有过程中都可以访问它，而在其他模块中不能访问，则该变量的定义是（分数：1.00）A.在本窗体的某个过程中写

30、语句：Dim xB.在本窗体所有过程之前写语句：Dim x C.在本窗体所有过程之前写语句：Public xD.在本窗体的所有过程中写语句：Dim x解析：13.以下叙述中错误的是（分数：1.00）A.对象具有属性、方法等成员B.对象可以识别预先定义的事件C.一个对象中包含数据及其对这些数据的相关操作D.对象的属性值一经初始化，则不能再改变 解析：14.以下叙述中正确的是（分数：1.00）A.影响窗体上某个文本框的 Tab顺序的属性是 TabStopB.语句 Me.Text = “Visual Basic“用于设置当前窗口的标题信息C.用于获取文本框中当前被选中文本的属性为 SelTextD.

31、要获取水平滚动条中当前滚动块的位置应使用其 Position属性 解析：15.下面关于组合框 Cb1的叙述中正确的是（分数：1.00）A.程序运行时，列表项可以多选B.鼠标单击一个列表项后，Cb1.Text 的值等于 Cb1.List(Cb1.ListIndex)的值C.利用 Selected属性可以判断哪个列表项被选中了 D.组合框不响应 Change事件解析：16.下面关于组合框 Cb1的叙述中正确的是（分数：1.00）A.程序运行时，列表项可以多选B.鼠标单击一个列表项后，Cb1.Text 的值等于 Cb1.List(Cb1.ListIndex)的值 C.利用 Selected属性可以判

32、断哪个列表项被选中了D.组合框不响应 Change事件解析：17.在列表框或组合框中，能够表示当前被选中列表项序号的是（分数：1.00）A.ListIndex B.IndexC.TopIndexD.List解析：18.要在程序运行过程中把 Command1按钮的标题修改为“按钮“，正确的做法是（分数：1.00）A.在属性窗口中把 Command1按钮的 Caption属性改为“按钮”B.在程序中执行语句：Command1.Caption = “按钮“ C.在属性窗口中把 Command1按钮的 Text属性改为“按钮”D.在程序中执行语句：Command1.Text = “按钮“解析：19.文

33、件列表框中用于设置或返回所选文件路径和文件名的属性是（分数：1.00）A.FileB.FilePathC.PathD.FileName 解析：20.在窗体上画 2个名称分别为 Text1和 Text2的文本框，然后编写如下事件过程： Private Sub Form_Load() Show Text1.Text = “ABCDEF“ Text2.SetFocus End Sub Private Sub Text1_GotFocus() Text1.SelStart = 2 Text1.SelLength = 3 End Sub 运行程序，单击 Text1，该文本框中的内容为（分数：1.00）A

34、.显示 ABCDEF，且 BCD被选中B.显示 ABCDEF，且 CDE被选中 C.显示 BCDD.显示 CDE解析：21.下面关于框架控件的叙述中正确的是（分数：1.00）A.框架响应 Click事件 B.框架可以接受焦点C.框架的标题是字符串，放在 Text属性中D.可以在框架中输入文本解析：22.通过语句 X = InputBox(“输入数据“, “示例“, “0“)对变体类型的变量 X输入数据，程序运行后，如果在对话框的输入区中输入数值 100并按回车键，则下列叙述中正确的是（分数：1.00）A.变量 X的值是字符串“0“B.在 InputBox对话框标题栏中显示的是“输入数据”C.输

35、入对话框的输入区中的初始默认值为数值 0D.变量 X的值是字符串“100“ 解析：23.下面说法中错误的是（分数：1.00）A.使用 ReDim语句可以改变数组的维数B.使用 ReDim语句可以改变数组的类型 C.使用 ReDim语句可以改变数组的每一维的大小D.ReDim语句可以使原数组中的内容被清除解析：24.若程序中有语句：y = proc(6)，则 proc 应该是（分数：1.00）A.一个 Function过程的名称 B.一个 Sub过程的名称C.一个事件过程的名称D.既可能是一个 Function过程的名称，也可能是一个 Sub过程的名称解析：25.下列说法中正确的是（分数：1.0

36、0）A.任何情况下都可以用标准工具栏的“菜单编辑器”按钮打开菜单编辑器B.任何情况下都可以用标准工具栏的“菜单编辑器”按钮打开菜单编辑器C.任何情况下都可以用“工具“菜单中的“菜单编辑器”命令打开菜单编辑器D.只有当某个窗体为当前活动窗体时，才能打开菜单编辑器 解析：26.下面关于菜单的叙述中正确的是（分数：1.00）A.弹出式菜单和下拉式菜单都可用菜单编辑器编辑 B.弹出式菜单不能有子菜单C.菜单项可以响应 Click事件和 DblClick事件D.有子菜单的菜单项不响应 Click事件解析：27.为了向 c盘根目录下的 Stud.txt文件中添加数据而不破坏其原有数据，下列正确打开该文件的

37、语句是（分数：1.00）A.Open “c:/Stud.txt“ For Output As #1B.Open “c:/Stud.txt“ For Append As #1 C.Open c:/Stud.txt For Output As #1D.Open c:/Stud.txt For Append As #1解析：28.如果希望向一个顺序文件写入数据，但又要保留文件中的原有内容，应采取的文件打开方式是（分数：1.00）A.Append B.OutputC.RandomD.Input解析：29.设有如下事件过程： Private Sub Command1_Click() ch = “ABCD

38、EFG“ n = Len(ch) k = 1 Do Print Mid(ch, k, 1); Mid(ch, n, 1); k = k + 1 n = n - 1 Loop Until k n End Sub 运行此过程所产生的输出是（分数：1.00）A.AGBFCEDD B.AGBFCEDC.GFEDCBAD.GAFBECD解析：30.有如下事件过程： Private Sub Form_Click() Dim a As Long, b As Long Dim sum As Long Dim x As Integer a = 1 b = 1 For x = 1 To 11 Step 2 a =

39、 b * x _ s = s + a sum = sum + s Next x Print sum End Sub 以上程序的功能是，计算 1!+(1!+3!)+(1!+3!+5!)+(1!+3!+5!+11!) 的值并输出。程序不完整，在_处应填入的内容是（分数：1.00）A.b = a * (x + 1) B.a = a * (x 1)C.a = a * (x + 1)D.b = a * x解析：31.下面程序的功能是找出这样一个三位整数：它等于每位数字的阶乘之和，例如 145就是这样的数（即145 = 1！+ 4！+ 5！） Private Sub Command1_Click() Di

40、m x As Integer, i As Integer, j As Integer, k As Integer For i = 1 To 9 For j = 0 To 9 For k = 0 To 9 a = _ If a = fact(i) + fact(j) + fact(k) Then Print a End If Next k Next j Next i End Sub Function fact(n As Integer) As Long Dim x As Long x = 1 For k = 1 To n x = x * k Next k fact = x End Functio

41、n 程序不完整，在横线上应填写的是（分数：1.00）A.i * 100 + j * 10 + k B.i * 1000 + j * 100 + k * 10C.i * 10 + j * 10 + k * 10D.fact(0) + fact(1) + fact(9)解析：32.有如下通用过程： Private Sub St(ByVal strX As String, strY As String) Dim Ts As String i = Len(strX) Do While i = 1 Ts = Ts + Mid(strX, i, 1) i = i - 1 Loop strY = Ts En

42、d Sub 在窗体上画一个命令按钮，其名称为 Command1，然后编写如下事件过程： Private Sub Command1_Click() Dim s1 As String, s2 As String s1 = “abcd“ Call St(s1, s2) Print s2 End Sub 程序运行后，单击命令按钮，输出结果是（分数：1.00）A.abcdB.dabcC.dcba D.abdc解析：33.在窗体上画一个名称为 Command1的命令按钮，然后编写如下程序代码： Dim x As Integer Private Sub MySub() Static x As Integer

43、 Dim y As Integer x = x + 10 y = y + 10 Print “x=“; x; “y=“; y; End Sub Private Sub Form_Load() x = 50 End Sub Private Sub Command1_Click() Call MySub MySub Print “x=“; x End Sub 程序运行时，单击 Command1，则在窗体上输出的结果是（分数：1.00）A.x=10 y=10 x=60 y=10 x=60B.x=60 y=10 x=70 y=10 x=70C.x=60 y=10 x=70 y=10 x=50D.x=1

44、0 y=10 x=20 y=10 x=50 解析：34.在窗体上画个文本框（名称分别为 Text1和 Text2），一个命令按钮（名称为 Command1）。并定义以下记录类型和变量： Private Type Teacher ID As Integer Name As String * 10 End Type Dim Teach As Teacher 程序运行后，在 Text1中输入编号（ID），在 Text2中输入姓名（Name），然后单击命令按钮，则把两个文本框中的内容写入随机文件 d:/f1.txt。以下能够正确实现上述功能的事件过程是（分数：1.00）A.Private Sub Co

45、mmand1_Click()Open “d:/f1.txt“ For Random As #1 Len = Len(Teach)Teach.ID = Val(Text1.Text)Teach.Name = Text2.TextPut #1, 1, TeachClose #1End Sub B.Private Sub Command1_Click()Open “d:/f1.txt“ For Random As #1 Len = Len(Teach)Teach.ID = Val(Text1.Text)Teach.Name = Text2.TextPut #1, Teach.ID, Teach.Na

46、meClose #1End SubC.Private Sub Command1_Click()Open “d:/f1.txt“ For Random As #1 Len = Len(Teach)Teach.ID = Val(Text1.Text)Teach.Name = Text2.TextWrite #1, 1, TeachClose #1End SubD.Private Sub Command1_Click()Open “d:/f1.txt“ For Random As #1 Len = Len(Teach)Teach.ID = Val(Text1.Text)Teach.Name = Te

47、xt2.TextWrite #1, Teach.ID, Teach.NameClose #1End Sub解析：35.在窗体上画 2个名称分别为 Label1和 Label2的标签，然后编写如下程序代码： Sub S(L As Label, ByVal a As Integer) L.Caption = “1234“ a = a * a End Sub Private Sub Form_Load() Label1.Caption = “ABCD“ Label2.Caption = 10 End Sub Private Sub Form_Click() Dim a As Integer a =

48、Val(Label2.Caption) S Label1, a Label2.Caption = a End Sub 运行程序，单击窗体，在两个标签中显示的内容分别是（分数：1.00）A.ABCD和 10B.1234和 100C.ABCD和 100D.ABCD和 100 解析：36.在窗体上画一个名称为 Command1的命令按钮，一个名称为 Text1的文本框数组（含个文本框，下标从开始），然后编写如下事件过程： Private Sub Command1_Click() Dim i As Integer, n As Integer For Each TextBox In Text1 Text1(i) = Text1(i).Index n = 10 * (n + Val(Text1(i).Text) i = i + 1 Next Print n End Sub 运行程序，单击命令按钮 Command1，则在窗体上的输出结果是（分数：1.00）A.0123B.123C.1234D.1230 解析：37.有如下通用过程： Function Fs(ByVal n As Long) As Long Dim k As Long k = 1 n = Abs(n) Do While n k = k * (n Mod 10) n = n / 10 Loop Fs = k End Functio