1、二级 VISUAL+BASIC-9-2 及答案解析(总分：88.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：61.00)1.下面程序运行时，单击窗体后，窗体上显示的结果是U /U。Private Sub Form_ClickDim I As IntegerDim sum As LongDim t1 As Longt1=1:sum=0For 1=1 To 3t1=t1*Isum=sum+t1Next IPrint sumEnd Sub A.3 B.9 C.5 D.6（分数：2.00）A.B.C.D.2.在窗体上画一个命令按钮，名称为 Command1，然后编写如下代码：Op
2、tion Base()Private Sub Command1_ Click()Dim A1(4) As Integer, A2(4)As IntegerFor k= 0 To 2A1(k+1)=InputBox(“请输入个整数”)A2(3-k)=A1(k+1)Next kPrint A2 (k)End Sub程序运行后，单击命令按钮，在输入对话框中依次输入 2、4、6，则输出结果为_。 A. 0 B. 1 C. 2 D. 3（分数：2.00）A.B.C.D.3.下列程序段，在运行时最后输出的内容是a=2c=1AAA：c=c + aIf c10 ThenPrint cGoTo AAAElseP
3、rint “10 以内的奇数显示完毕“End If A. 3 B. 7 C. 9 D. 10 以内的奇数显示完毕（分数：1.00）A.B.C.D.4.下列关于菜单的叙述中，错误的是U /U A.当窗体为活动窗体时，用Ctrl+E键可以打开菜单编辑器 B.把菜单项的 Enabled 属性设置为 False，则可删除该菜单项 C.弹出式菜单在菜单编辑器中设计 D.程序运行时，利用控件数组可以实现菜单项的增加或减少（分数：2.00）A.B.C.D.5.在窗体上添加一个命令按钮，名为 command1，一文本框，名为 text1，则执行如下事件过程后，文本框中的输出为_。For i = 1 To 3F
4、or j = 1 To 3For k = 1 To 2x=x+ 3Next kNext jNext iText1. Text =str (x) A. 21 B. 42 C. 54 D. 72（分数：2.00）A.B.C.D.6.在设计应用程序时，通过_窗口可以查看到应用程序工程中的所有组成部分。 A. 代码窗口 B. 窗体设计窗口 C. 属性窗口 D. 工程资源管理器窗口（分数：2.00）A.B.C.D.7.当发生 Form_ Click 事件后，下面这段程序代码的执行结果为在窗体中输出_ 。Option ExplicitPrivate Sub Form Click ()Dim num As
5、String * 1, n As IntegerOpen “C:/ Check. txt“ For Random As #10For n = 1 To 6num = Chr(n + 64)Put %10, n, numNext nSeek #10, 3: Get #10, , numPrint Loc(10); Seek(10)End Sub A.3 4 B.4 5 C. 5 3 D. 3 3（分数：2.00）A.B.C.D.8.表达式 5Mod3+3/5*2 的值是U /U。 A.0 B.2 C.4 D.6（分数：2.00）A.B.C.D.9.在工程中的标准模块中定义了如下数据类型：Type
6、 fruitorange As Integerapple As IntegerEnd Type在窗体上有命令按钮 Command1，要求当单击命令按钮时在 C:/根目录下的顺序文件 myfrtac.txt 中写入一条记录，下列能够完成改操作的事件过程是_ 。 A. Private Sub Command1_Click() Dim myfrt As fruit myfrt. orange = 5 myfrt. apple = 10 Open “c:/myfrta. txt” For Output As #1 Print #1, myfrt. orange; myfrt. apple Close
7、#1 End Sub B. Private Sub Command1_Click() Dim myfrt As fruit myfrt. orange= 5 myfrt. apple= 10 Open “c:/myfrtac. txt”For Input As #1 Print #1, myfrt, orange; myfrt. apple Close #1 End Sub C. Private Sub Command1_Click() Dim myfrt As fruit myfrt. orange= 5 myfrt. apple = 10 Open “c:/myfrtac. txt” Fo
8、r As #1 Print #1, myfrt. orange; myfrt. apple Close #1 End Sub D. Private Sub Command1_Click() Dim myfrt As fruit myfrt. orange = 5 myfrt. apple= 10 Open “c:/myfrtactxt” For Output As #1 Print myfrt. orange; myfrt. apple Close #1 End Sub（分数：2.00）A.B.C.D.10.阅读程序：Sub Form_ClickU /Ua = 10: b = 15: c =
9、20: d = 25Print a; Spc(5); b; Spc(7); cPrint a; Space(8); b; Space(5); cPrint c; Spc(1); “+“; Spc(1); d;Print Spc(1); “ = “; Spc(1); c + dEnd Sub运行上面的程序，单击窗体后，第三行输出结果是_。 A. 20+25=45 B. 20+25=45 C. 10 15 20 D. 20 25 45（分数：2.00）A.B.C.D.11.复选框的 Value 属性为 0 时，表示该复选框( )。 A. 未被选中 B. 被选中 C. 框内有灰色的勾 D. 操作有误
10、（分数：2.00）A.B.C.D.12.在 E 盘当前目录文件夹下建立一个名为“Student.txt”的随机文件，要求用 InputBox 函数输入 5 个学生的姓名(StuName)、年级(StuGrade)和年龄(StuAge)。在程序中有以下记录类型和窗体的事件过程，请选择正确的语句完成程序U /U。Private Type studentStuName As String*10StuGrade As string*10StuAgc As IntegerEnd TypePrivate Sub Form_Click()Dim s As studentOpen “c:/student.tx
11、t“ For Random As #1 Len=Len(s)For i=1 To 1s.StuName=InputBox(“请输入姓名“)s.StuGrade=Input. Box(“请输入年级号“)s.StuAge=Val(InputBox(“请输入年龄“)Next iClose #1End Sub A. Print #1,s B. Print#1,i C. Put#1,s D. Put#1,i（分数：2.00）A.B.C.D.13.以下 VB6.0 控件中，有 Caption 属性的是U /U。 A.组合框 B.列表框 C.计时器 D.单选按钮（分数：2.00）A.B.C.D.14.由事务
12、型数据流图映射为软件结构的设计首先应设计一个_它有两个功能：接收事务数据，根据事务类型调度相应的处理模块。 A. 总控模块 B. 事务中心 C. 变换中心 D. 事务调度（分数：1.00）A.B.C.D.15.要使菜单项 MenuOne 在程序运行时失效，使用的语句是 A. MenuOne.Visible=True B. MenuOne.Visible=False C. MenuOne.Enabled=True D. MenuOne.Enabled=False（分数：2.00）A.B.C.D.16.目录列表框的 Path 属性的作用是 A.显示当前驱动器或指定驱动器上的路径 B.显示当前驱动器
13、或指定驱动器上的某目录下的文件名 C.显示根目录下的文件名 D.只显示当前路径下的文件（分数：1.00）A.B.C.D.17.下列选项中不符合良好程序设计风格的是 A. 源程序要文档化 B. 数据说明的次序要规范化 C. 避免滥用 goto 语句 D. 模块设计要保证高耦合、高内聚（分数：2.00）A.B.C.D.18.树是结点的集合，它的根结点的数目是U /U。 A. 有且只有 1 个 B. 1 或多于 1 C. 0 或 1 D. 至少有 2 个（分数：2.00）A.B.C.D.19.关于 MDI 窗体，下列说法正确的是U /U。 A.一个应用程序可以有多个 MDI 窗体 B.子窗体可以移到
14、 MDI 窗体以外 C.不可以在 MDI 窗体上放置按钮控件 D.MDI 窗体的子窗体不可以拥有菜单（分数：2.00）A.B.C.D.20.以下叙述中错误的是 A.下拉式菜单和弹出式菜单都用菜单编辑器建立 B.在多窗体程序中，每个窗体都可以建立自己的菜单系统 C.除分隔线外，所有菜单项都能接收 Click 事件 D.如果把一个菜单项的 Enabled 属性设置为 False，则该菜单项不可见（分数：1.00）A.B.C.D.21.在窗体中添加一个名称为 Command1 的命令按钮和一个名称为 text1 的文本框，然后编写如下程序； U /UPrivate Sub Commandl_Clic
15、k()Dim x，y，z As Integerx=5：y7：z=OText1Text=“Call Pl(x，y，z)Text1. TextStr(z)End SubSub P1(ByVal a As Integer, ByVal b As Integer, c As Integer)c=a+bEnd Sub A. 0 B. 12 C. Str(z) D. 没有显示（分数：2.00）A.B.C.D.22.在文本框中，要设置显示的文本颜色，应该设置U /U属性。 A. ForeColor B. BackColor C. FillColor D. BackStyle（分数：2.00）A.B.C.D.
16、23.利用 Open 语句打开文件时，若省去 For模式，默认的模式是U /U。 A. Output B. Input C. Append D. Random（分数：1.00）A.B.C.D.24.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_ClickU /UDim n As IntegerFor n=0 To 9 Step 3Print rel(n)；Next nEnd SubPrivate Function tel(ByVal i As Integer)As IntegerDim x As Integerx=0For
17、j=1 To iIf i5 Then rel=i：Exit Functionx=x+jNext jrel=xEnd Function程序运行后，单击命令按钮，则窗体上显示的内容是_。 A. 1 3 5 7 B. 2 8 14 53 C. 0 3 21 45 D. 0 5 11 34（分数：2.00）A.B.C.D.25.函数过程 Fun1 的功能是：如果参数 b 为奇数，则返回值为 1，否则返回值为 0。Function Fun1(b As Integer) if _ ThenFun1=0ElseFun1=1End IfEnd Function使该功能完整，应在空行处填入以下哪条语句 A. b
18、 Mod 20 B. b Mod 2=0 C. b/2=1 D. b/2=0（分数：2.00）A.B.C.D.26.在窗体上画一个名称为 Commandl 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()For n=1 To 20If n Mod 30 Then m=m+n/3Next nPrint nEnd Sub程序运行后，如果单击命令按钮，则窗体上显示的内容是_。 A. 15 B. 18 C. 21 D. 24（分数：1.00）A.B.C.D.27.有如下程序：Private Sub Form_Click()E=1:F=1For j=1 To 3
19、E=E+F:F=F+ENextPrint E:FEnd Sub该程序的输出结果是 A. 6 6 B. 5 8 C. 13 21 D. 34 55（分数：2.00）A.B.C.D.28.应用程序窗体的名称属性为 Frm1，窗体上有一个命令按钮，其名称属性为 Cmd1，单击窗体和命令按钮的事件过程名分别为_。 A. form_ Click() Command1_Click() B. Frm1_ Click() Command1_ Click() C. form_ Click() Cmd1_ Click() D. Frm1_ Click() Cmd1_ Click()（分数：2.00）A.B.C.D
20、.29.假定有以下函数过程：Function fun(S As String)Dim S1 As StringFor i=1 To Len(S)S1=LCaes(Mid(S，i，1)+S1Next iFun=S1End Function在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click( )Dim Str1 As String，str2 As StringStr1=InputBox(“请输入一个字符串“)str2=Fun(str1)Print Str2End SUb程序运行后，单击命令按钮，如果在输入对话框中输入字符串“AbCDefG，则单击“确
21、定”按钮后在窗体上的输出结果为U /U。 A.ABCDEFG B.abcdefg C.GFEDCBA D.gfedcba（分数：2.00）A.B.C.D.30.模块的U /U定义为受该模块内一个判断影响的所有模块的集合。 A. 控制域 B. 作用域 C. 宽度 D. 接口（分数：1.00）A.B.C.D.31.下列对于软件测试的描述中正确的是 A. 软件测试的目的是证明程序是否正确 B. 软件测试的目的是使程序运行结果正确 C. 软件测试的目的是尽可能多地发现程序中的错误 D. 软件测试的目的是使程序符合结构化原则（分数：2.00）A.B.C.D.32.在 Visual Basic 应用程序中
22、，以下正确的描述是 _。 A. 过程的定义可以嵌套，但过程的调用不能嵌套 B. 过程的定义不可以嵌套，但过程的调用可以嵌套 C. 过程的定义和过程的调用均可以嵌套 D. 过程的定义和过程的调用均不能嵌套 （分数：1.00）A.B.C.D.33.在 E 盘当前目录文件夹下建立一个名为“Student.txt”的随机文件，要求用 InputBox 函数输入 5 个学生的姓名(StuName)、年级(StuGrade)和年龄(StuAge)。在程序中有以下记录类型和窗体的事件过程，请选择正确的语句完成程序U /U。Private Type studentStuName As String * 10S
23、tuGrade As String * 10StuAge As IntegerEnd TypePrivate Sub Form_Click()Dim s As studentOpen “c:/student.txt“ For Random As #1 Len = Len(s)For i = 1 To 1s. StuName = InputBox(“请输入姓名“)s. StuGrade = InputBox(“请输入年级号“)s. StuAge = Val(InputBox(“请输入年龄“)Next iClose #1End Sub A. Print #1,s B. Print #1,i C.
24、Put #1,s D. Put #1,i（分数：2.00）A.B.C.D.34.关系模型允许定义 3 类数据约束，下列不属于数据约束的是 A. 实体完整性约束 B. 参照完整性约束 C. 属性完整性约束 D. 用户自定义的完整性约束（分数：1.00）A.B.C.D.35.窗体文件的扩展名是_。 A. .frm B. .vbp C. .bas D. .frx（分数：2.00）A.B.C.D.二、B填空题/B(总题数：15，分数：27.00)36.对窗体编写如下两个事件过程： Private Sub Form_ KeyDown (KeyCode As Integer, Shift As Integ
25、er) Print Chr (KeyCode) End Sub Private Sub Form_ KeyPress (KeyAscii As Integer) Print Chr (KeyAscii) End Sub 程序运行后，如果直接按键盘上的 a 键(即不按住 shift 键)，则在窗体上输出的字符分别为_ 和_ 。（分数：2.00）填空项 1:_37.若 s、i 均为整型变量，执行下列程序段后 s 的值为 _。 s=0 i=1 Do s=s+i i=i+1 Loop Until i5（分数：2.00）填空项 1:_38.顺序存储方法是把逻辑上相邻的结点存储在物理位置U U /U /U
26、的存储单元中。（分数：1.00）填空项 1:_39. 1 是数据库设计的核心。（分数：2.00）填空项 1:_40.表达式(7/3+1)*(18/-1)的值是_。（分数：2.00）填空项 1:_41.假设用一个长度为 50 的数组(数组元素的下标为 049)作为栈的存储空间，栈底指针 bottom 指向栈底元素，栈顶指针 top 指向栈顶元素，如果 bottom=49，top=30(数组下标)，则栈中具有 1 个元素。（分数：2.00）填空项 1:_42.执行下面程序，第一行输出结果是U U /U /U，第二行输出结果是 47。 Option Explicit Private Sub Form
27、_Click( ) Dim A As Integer A=2 Call Sub1 (A) End Sub Private Sub1 (x As Integer) x=x*2+1 If x10 Then Call Sub1 (x) End If x=x*2+1 Print x End Sub（分数：1.00）填空项 1:_43.应用程序结构指的是组织指令的_，即指令存放的_和指令的_顺序。（分数：1.00）填空项 1:_44.以下程序段执行后 y 的值是U U /U /U。 x=8.6 y=int(x+0.5) print y（分数：2.00）填空项 1:_45.在窗体上画一个命令按钮和一个文本
28、框，其名称分别为 Command1 和 Text1，然后编写如下事件过程： Private Sub Command1_Click() Dim inData As String Text1. Text=“ Open “d: /myfile. txt “For_As #1 Do While _ Input # 1，inData Text1. Text=Text1. Text+inData Loop Close #1 End Sub 程序的功能是，打开 D 盘根目录下的文本文件 myfile.txt，读取它的全部内容并显示在文本框中。请填空。（分数：4.00）填空项 1:_46.函数 Str(256
29、.36)的值是 1。（分数：2.00）填空项 1:_47.一个栈的初始状态为空。首先将元素 1，2，3，4，5 依次入栈，然后退栈一次，再将元素 A，B，C，D依次入栈，之后将所有元素全部退栈，则所有元素退栈(包括中间退栈的元素)的顺序为 1。（分数：2.00）填空项 1:_48.数据库设计包括概念设计、U U /U /U和物理设计。（分数：2.00）填空项 1:_49.有如下函数过程： Function gys(By Val x As Integer, ByVal y As Integer) As Integer Do While y0 preminder=x/y x=Y y=premind
30、er Loop gys=x End Function 以下是调用该函数的事件过程： Private Sub Command1_Click Dim a As Integer,b As Integer a=10；b=2 x=gys(a，b) Print x End Sub 该程序的运行结果是_。（分数：2.00）填空项 1:_50.下列程序段的功能是，单击命令按钮后，将随机产生 10 个三位数，并将这些数写到 C 盘根目录下的data.txt 文件中。请填空。 Private Sub Command1_Click() Dim a As Integer OpenU U /U/UFor Output
31、As #100 Randomize For i =1 To 10 a=100+Int(899*Rnd) U U /U /U Next i Close #100 End Sub填空项 1:_二级 VISUAL+BASIC-9-2 答案解析(总分：88.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：61.00)1.下面程序运行时，单击窗体后，窗体上显示的结果是U /U。Private Sub Form_ClickDim I As IntegerDim sum As LongDim t1 As Longt1=1:sum=0For 1=1 To 3t1=t1*Isum=sum+t1
32、Next IPrint sumEnd Sub A.3 B.9 C.5 D.6（分数：2.00）A.B. C.D.解析：2.在窗体上画一个命令按钮，名称为 Command1，然后编写如下代码：Option Base()Private Sub Command1_ Click()Dim A1(4) As Integer, A2(4)As IntegerFor k= 0 To 2A1(k+1)=InputBox(“请输入个整数”)A2(3-k)=A1(k+1)Next kPrint A2 (k)End Sub程序运行后，单击命令按钮，在输入对话框中依次输入 2、4、6，则输出结果为_。 A. 0 B.
33、 1 C. 2 D. 3（分数：2.00）A.B.C. D.解析：解析 数组的基本操作 评析 程序共有一层循环，当循环执行第一次时，A2(3-k)=A1(k+1)，即A2(3)=A1(1)=2：当循环执行第二次时，A2(2)=A1(2)=4：当循环执行第三次时，A2(1)=A1(3)=6。此时结束循环，执行 Print A2(k)，即 Print A2(3)，故输出结果为 2。3.下列程序段，在运行时最后输出的内容是a=2c=1AAA：c=c + aIf c10 ThenPrint cGoTo AAAElsePrint “10 以内的奇数显示完毕“End If A. 3 B. 7 C. 9 D
34、. 10 以内的奇数显示完毕（分数：1.00）A.B.C.D. 解析：解析 考查考生对 GoTo 语句的应用能力。 解题要点 在本题中使用了 If 语句与 GoTo 语句。当c10 时，输出 c，并继续运行；当大于 10 时，显示“10 以内的奇数显示完毕。”并结束程序。因为c=c+a，c 和 a 都是正数，总有大于 10 的时候，所以最后输出的一定是“10 以内的奇数显示完毕”。 错解分析 GoTo 语句的格式是：GoTo 标号|行号，其执行过程是，当程序运行到 GoTo 语句时，程序直接转到 GoTo 语句后面的标号或行号所在的位置，然后继续往下运行程序。 考点链接 GoTo 语句的应用。
35、4.下列关于菜单的叙述中，错误的是U /U A.当窗体为活动窗体时，用Ctrl+E键可以打开菜单编辑器 B.把菜单项的 Enabled 属性设置为 False，则可删除该菜单项 C.弹出式菜单在菜单编辑器中设计 D.程序运行时，利用控件数组可以实现菜单项的增加或减少（分数：2.00）A.B. C.D.解析：解析 Visual Basic 中的菜单(包括弹出式菜单)是通过菜单编辑器来设计的。打开某个活动窗体的菜单编辑器有 4 种方法：(1)选择菜单【工具】【菜单编辑器】命令；(2)单击工具栏中的“菜单编辑器”图标；(3)使用快捷键CtrI+E；(4)右击窗体，从弹出的快捷菜单中选择【菜单编辑器】
36、命令。菜单项的“有效”属性(即 Enabled)是控制菜单项的有效性的，当把一个菜单项的“有效”属性设置为False，就可以使其失效，运行后该菜单项变为灰色。 菜单项的增减也可通过控件数组来实现。控件数组可以在设计阶段建立，也可以在运行时建立。利用这一特点，可在设计时建立菜单控件数组的第一个元素，该元素的下标为 0、Visible 属性为 False,，在程序运行时，通过 Load 语句来建立该菜单控件数组的新元素，并将其 Visible 属性设置为 True，从而实现增加菜单项的功能。删除菜单项时可通过 UnLoad 语句来实现。5.在窗体上添加一个命令按钮，名为 command1，一文本框
37、，名为 text1，则执行如下事件过程后，文本框中的输出为_。For i = 1 To 3For j = 1 To 3For k = 1 To 2x=x+ 3Next kNext jNext iText1. Text =str (x) A. 21 B. 42 C. 54 D. 72（分数：2.00）A.B.C. D.解析：6.在设计应用程序时，通过_窗口可以查看到应用程序工程中的所有组成部分。 A. 代码窗口 B. 窗体设计窗口 C. 属性窗口 D. 工程资源管理器窗口（分数：2.00）A.B.C.D. 解析：解析 工程管理器窗口用来列出当前工程中的窗体和模块以及类模块等工程的组成部分。7.当
38、发生 Form_ Click 事件后，下面这段程序代码的执行结果为在窗体中输出_ 。Option ExplicitPrivate Sub Form Click ()Dim num As String * 1, n As IntegerOpen “C:/ Check. txt“ For Random As #10For n = 1 To 6num = Chr(n + 64)Put %10, n, numNext nSeek #10, 3: Get #10, , numPrint Loc(10); Seek(10)End Sub A.3 4 B.4 5 C. 5 3 D. 3 3（分数：2.00）
39、A. B.C.D.解析：8.表达式 5Mod3+3/5*2 的值是U /U。 A.0 B.2 C.4 D.6（分数：2.00）A.B. C.D.解析：解析 算术运算的优先级由高到低为：幂()取负(-)乘、浮点除(*、/)整除(/)取模(Mod)加、减(+、-)连接( myfrt. apple Close #1 End Sub B. Private Sub Command1_Click() Dim myfrt As fruit myfrt. orange= 5 myfrt. apple= 10 Open “c:/myfrtac. txt”For Input As #1 Print #1, myf
40、rt, orange; myfrt. apple Close #1 End Sub C. Private Sub Command1_Click() Dim myfrt As fruit myfrt. orange= 5 myfrt. apple = 10 Open “c:/myfrtac. txt” For As #1 Print #1, myfrt. orange; myfrt. apple Close #1 End Sub D. Private Sub Command1_Click() Dim myfrt As fruit myfrt. orange = 5 myfrt. apple= 1
41、0 Open “c:/myfrtactxt” For Output As #1 Print myfrt. orange; myfrt. apple Close #1 End Sub（分数：2.00）A. B.C.D.解析：10.阅读程序：Sub Form_ClickU /Ua = 10: b = 15: c = 20: d = 25Print a; Spc(5); b; Spc(7); cPrint a; Space(8); b; Space(5); cPrint c; Spc(1); “+“; Spc(1); d;Print Spc(1); “ = “; Spc(1); c + dEnd S
42、ub运行上面的程序，单击窗体后，第三行输出结果是_。 A. 20+25=45 B. 20+25=45 C. 10 15 20 D. 20 25 45（分数：2.00）A. B.C.D.解析：11.复选框的 Value 属性为 0 时，表示该复选框( )。 A. 未被选中 B. 被选中 C. 框内有灰色的勾 D. 操作有误（分数：2.00）A. B.C.D.解析：解析 复选框的 Value 属性用来返回或设置控件的状态，它可取 3 种属性值 x 当取 0 时，表示未选中(默认值)；当取 1 时，表示选中；当取 2 时，表示为变灰。运行时只有 0 和 1 两种状态。12.在 E 盘当前目录文件夹下
43、建立一个名为“Student.txt”的随机文件，要求用 InputBox 函数输入 5 个学生的姓名(StuName)、年级(StuGrade)和年龄(StuAge)。在程序中有以下记录类型和窗体的事件过程，请选择正确的语句完成程序U /U。Private Type studentStuName As String*10StuGrade As string*10StuAgc As IntegerEnd TypePrivate Sub Form_Click()Dim s As studentOpen “c:/student.txt“ For Random As #1 Len=Len(s)For
44、 i=1 To 1s.StuName=InputBox(“请输入姓名“)s.StuGrade=Input. Box(“请输入年级号“)s.StuAge=Val(InputBox(“请输入年龄“)Next iClose #1End Sub A. Print #1,s B. Print#1,i C. Put#1,s D. Put#1,i（分数：2.00）A.B.C. D.解析：解析 本题考查随机文件的读写，在 For 循环中，向随机文件中写入 5 个学生的信息，所以应该使用写操作语句，在随机文件中，写操作用 Put 语句，其格式为：Put#文件号，记录号，变量。13.以下 VB6.0 控件中，有
45、Caption 属性的是U /U。 A.组合框 B.列表框 C.计时器 D.单选按钮（分数：2.00）A. B.C.D.解析：14.由事务型数据流图映射为软件结构的设计首先应设计一个_它有两个功能：接收事务数据，根据事务类型调度相应的处理模块。 A. 总控模块 B. 事务中心 C. 变换中心 D. 事务调度（分数：1.00）A.B. C.D.解析：15.要使菜单项 MenuOne 在程序运行时失效，使用的语句是 A. MenuOne.Visible=True B. MenuOne.Visible=False C. MenuOne.Enabled=True D. MenuOne.Enabled=
46、False（分数：2.00）A.B.C.D. 解析：解析 菜单控件的主要属性有：Caption、Name、Index、Enabled、Visible 等，其中 Enabled 和Visible 属性值为逻辑值，Visible 属性用于表示菜单项是否可见，Enabled 属性用于表示菜单项是否可用。当 Enabled 属性值为 False 时，表示菜单项当前不可用；当属性值为 True 时，表示菜单项可用。16.目录列表框的 Path 属性的作用是 A.显示当前驱动器或指定驱动器上的路径 B.显示当前驱动器或指定驱动器上的某目录下的文件名 C.显示根目录下的文件名 D.只显示当前路径下的文件（分数
