1、国家二级（ VB）机试模拟试卷 16及答案与解析 一、选择题 1 下列叙述中正确的是 ( )。 （ A）循环队列是队列的一种链式存储结构 （ B）循环队列是队列的一种顺序存储结构 （ C）循环队列是非线性结构 （ D）循环队列是一种逻辑结构 2 下列关于线性链表的叙述中，正确的是 ( )。 （ A）各数据结点的存储空间可以不连续，但它们的存储顺序与逻辑顺序必须一致 （ B）各数据结点的存储顺序与逻辑顺序可以不一致，但它们的存储空间必须连续 （ C）进行插入与删除时，不需要移动表中的元素 （ D）以上说法均不正确 3 一棵二叉树共有 25个结点，其中 5个是叶子结点，则度为 1的结点数为 ( )
2、。 （ A） 16 （ B） 10 （ C） 6 （ D） 4 4 在下列模式中，能够给出数据库物理存储结构与物理存取方法的是 ( )。 （ A）外模式 （ B）内模式 （ C）概念模式 （ D）逻辑模式 5 在满足实体完整性约束的条件下 （ A）一个关系中应该有一个或多个候选关键字 （ B）一个关系中只能有一个候选关键字 （ C）一个关系中必须有多个候选关键字 （ D）一个关系中可以没有候选 关键字 6 有三个关系 R S和 T如下： 则由关系 R和 s得到关系 T的操作是 ( )。 （ A）自然连接 （ B）交 （ C）除 （ D）并 7 下面描述中，不属于软件危机表现的是 ( )。 （
3、A）软件过程不规范 （ B）软件开发生产率低 （ C）软件质量难以控制 （ D）软件成本不断提高 8 下面不属于需求分析阶段任务的是 ( )。 （ A）确定软件系统的功能需求 （ B）确定软件系统的性能需求 （ C）需求规格说明书评审 （ D）制定软件集成测试计划 9 在黑盒测试方法中，设计测 试用例的主要根据是 ( )。 （ A）程序内部逻辑 （ B）程序外部功能 （ C）程序数据结构 （ D）程序流程图 10 在软件设计中不使用的工具是 ( )。 （ A）系统结构图 （ B） PAD图 （ C）数据流图 (DFD图 ) （ D）程序流程图 11 以下变量名中合法的是 ( )。 （ A） x
4、-2 （ B） 12abc （ C） sum_total （ D） print 12 已知 a=6， b=15， c=23， 则语句 print Sgn(a+b Mod 6-c a)&a+b 的输出结果 为( )。 （ A） 6 （ B） 16 （ C） 31 （ D） 121 13 以下叙述中错误的是 ( )。 （ A）续行符与它前面的字符之间至少要有一个空格 （ B） Visual Basic中使用的续行符为下划线 (一 ) （ C）以撇号 ()开头的注释语句可以放在续行符的后面 （ D） Visual Basic可以自动对输入的内容进行语法检查 14 以下关于多重窗体程序的叙述中，错误的
5、是 ( )。 （ A）对于多重窗体程序，需要单独保存每个窗体 （ B）在多重窗体程序中，可以根据需要指定 启动窗体 （ C）在多重窗体程序中，各窗体的菜单是彼此独立的 （ D）用 Hide方法不仅可以隐藏窗体，而且还可以清除内存中的窗体 15 以下关于文件的叙述中，错误的是 ( )。 （ A）顺序文件中的记录是一个接一个地顺序存放 （ B）随机文件中记录的长度是随机的 （ C）文件被打开后，自动生成一个文件指针 （ D） EOF函数用来测试是否到达文件尾 16 下面不是键盘事件的是 ( )。 （ A） KeyDown （ B） KeyUp （ C） KeyPress （ D） KeyCode
6、17 语句 Dim Arr( 2 To 4)As Integer所定义的数组的元素个数为 ( )。 （ A） 7个 （ B） 6个 （ C） 5个 （ D） 4个 18 为了使窗体左上角不显示控制框，需设置为 False的属性是 ( )。 （ A） Visible （ B） Enabled （ C） ControlBox （ D） Caption 19 窗体上有 1个名称为 Textl的文本框， 1个名称为 Labell的标签。程序运行后，如果在文本框中输入信息，则立即在标签中显示相同的内容。以下可以实现上述操作的事件过 程为 ( )。 （ A） Private Sub Labell Clic
7、k() Labell Caption=Textl Text End Sub （ B） Private Sub Labell Change() Labell Caption=TextI,Text End Sub （ C） Private Sub Textl Click() Iabell Caption： Textl Text End Sub （ D） Private Sub Textl Change() Labell Caption： Textl Text End Sub 20 对窗体上名称为 Commandl的命令按钮，编写如下事件过程： Private Sub Command l Click
8、( ) Move 200， 200 End Sub 程序运行时，单击命令按钮，则产生的操作是 ( )。 （ A）窗体左上角移动到距屏幕左边界、上边界各 200的位置 （ B）窗体左上角移动到距屏幕右边界、上边界各 200的位置 （ C）窗体由当前位置向左、向上各移动 200 （ D）窗体由当前位置向右、向下各移动 200 21 为了使每秒钟发生一次计时器事件，可以将其 Interval属性设置为 ( )。 （ A） l （ B） 10 （ C） 100 （ D） 1000 22 能够将组合框 Combol 中最后一个数据项删除的语句为 ( )。 （ A） Combol Removehem Co
9、mb01 ListCount （ B） Combol Removehem Comb01 ListCount l （ C） Combol Removeltem Combol Listlndex （ D） Combol Removeltem Combol Listlndex l 23 用来设置文字字体是否为粗体的属性是 ( )。 （ A） Fontlaalic （ B） FontUnderline （ C） FontSize （ D） FontBold 24 以下不能触发滚动条 Change事件的操作是 ( )。 （ A）拖动滚动框 （ B）单击两端的滚动箭头 （ C）单击滚动框 （ D）单击滚动
10、箭头与滚动框之间的滚动条 25 确定图片框 Picturel在窗体上位置的属性是 ( )。 （ A） Width和 Height （ B） Left和 Top （ C） Width和 Top （ D） Height和 Left 26 以下不属于单选按钮的属性是 ( )。 （ A） Caption （ B） Name （ C） Min （ D） Enabled 27 以下关于图片框控件的说法中，错误的是 ( )。 （ A）可以通过 Print方法在图片框中输出文本 （ B）图片框控件中的图形可以在程序运行过程中被清除 （ C）图片框控件中可 以放置其他控件 （ D）用 Stretch属性可以自动
11、调整图片框中图形的大小 28 为了清除列表框中指定的项目，应使用的方法是 ( )。 （ A） Cls （ B） Clear （ C） Remove （ D） Removeltem 29 假定 Picturel和 Textl分别为图片框和文本框的名称，则下列错误的语句是( )。 （ A） Print 25 （ B） Picturel Print 25 （ C） Textl Print 25 （ D） Debug Print 25 30 设在工程文件中有 一个标准模块，其中定义了如下记录类型： Type Books Name As String*10 TelNum As String*20 End
12、 Type 在窗体上画 -个名为 Commandl的命令按钮，要求当执行事件过程 CommandlClick时，在顺序文件 Person txt中写入一条记录。下列能够完成该操作的事件过程是 ( )。 （ A） Private Sub Commandl Click() Dim B As Books Open“C： Person txt“For 0utput As#1 B Name=InputBox(“输入姓名 ”) B TelNum=InputBox(“输入电话号码 ”) Write#1， B Name， B TelNum Close#l End Sub （ B） Private Sub Co
13、mmandl Click() Dim B As Books Open“C： Person txt“ For Input As#l B Name=InputBox(“输入姓名 ”) B TelNum=InputBox(“输入电话号码 ”) Print 1 B Name B TelNum Close l End Sub （ C） Private Sub Commandl Click() Dim B AS Books Open“c： Person txt“ For Output As l B Name=InputBox(“输入姓名 ”) B TelNum=InputBox(“输入电话号码 ”) Wr
14、ite 1 B Close#1 End Sub （ D） Private Sub Commandl Click() Open“C： Person txt“ For Input As l Name=InputBox(“输入姓名 ”) TelNum=InputBox(“输入电话号码 ”) Print 1 Name TelNnm Close#l End Sub 31 运行如下程序： Private Sub Command I Click() Dim a(5， 5)As Integer Fori=l To 5 For j 1 To 4 a(i， J)=i*2+j If a(i， j) 7=a(i， j
15、) 7 Then n=n+1 End If Next j Next Print n End Sub n的值是 ( )。 （ A） 2 （ B） 3 （ C） 4 （ D） 5 32 窗体上有单选钮和列表框控件。单击名称为 Optionl、标题为 “国家 ”的单选钮，向列表框中添加国家名称，如下图所示。 Optionl的单击事件过程如下： Private Sub Optionl Click() Dim arr nit=Array(“中国 ”， “日本 ”，“德国 ”， “美国 ”， “澳大利亚 ”) Listl Clear For i=0 To Ubound(arr) Listl AddItem
16、 arr(i) NextEnd Sub 以下关于上述代码的叙述中，正确的是 ( )。 （ A）程序有错，没有声明数组的维数及上下界 （ B）只有一维数组才能使用 Array为数组赋初值 （ C） For循环的终值应为 ListCount-l （ D） For循环的初值应为 1 33 现有如下一段程序： Private Sub Commandl Click() X=UCase(InputBox(“输入： ”) Select Case X Case“A”To“C” Print“考核通过 !” Case“D” Print“考核不通过 !” Case Else Print“输入数据不合法 !” End
17、 Select End Sub 执行程序，在输入框中输入字母 “B”，则以下叙述中正确的是 ( )。 （ A）程序运行错 （ B）在窗体上显示 “考核通过 !” （ C）在窗体上显示 “考核不通过 !” （ D）在窗体上显示 “输入数据不合法 !” 34 窗体上有三个水平滚动条，名称分别为 HSRed、 HSGreen和 HSBlue，取值范围均是 0 255，代表颜色的三种基色。改变滚动框的位置，可以改变三种基色的值，从而改变窗体的背景色，如下图所示。 程序代码如下： Dim color(3)As IntegerPrivate Sub Form Load() Call fill(color(
18、)End SubPrivate Sub fill(C()As Integer) Forml BackColor=RGB(C(1)， C(2)， C(3)End SubPrivate Sub HSRed Change() color(1)=HSRed Value Call fill(color()End SubPrivate Sub HSGreen Change() color(2)=HSGreen Value Call fill(color()End SubPrivate Sub HSBlue Change() color(3)=HSBlue Value Call fill(color()En
19、d Sub 关于以上程序，如下叙述中错误的是 ( )。 （ A） color是窗体级整型数组 （ B）改变任何一个滚动条滚动框的位置，窗体的背景色将立刻随之改变 （ C） 3个滚动条 Change事件过程中只设置了一个 color数组元素的值，调用 fill过程失败 （ D） fill函数定义中的形式参数是数组型参数 35 命令按钮 Commandl的 单击事件过程如下： Private Sub Commandl Click() X=10 Print f(X) End Sub Private Function f(Y As Integer) f=V*V End Function 运行上述程序，
20、如下叙述中正确的是 ( )。 （ A）程序运行出错， X变量的类型与函数参数的类型不符 （ B）在窗体上显示 100 （ C）函数定义错，函数名 f不能又作为变量名 （ D）在窗体上显示 l0 36 窗体一上有 1个名称为 Textl、内 容为空的文本框。 编写如下事件过程： Private Sub Textl KeyUp(KeyCode As Integer， Shift As Integer Print Textl Text： End Sub 运行程序，并在文本框中输入 “123”，则在窗体上的输出结果为 ( )。 （ A） 123 （ B） 112 （ C） 12123 （ D） 112
21、123 37 窗体上有 1个名称为 Commandl的命令按钮，事件过程如下： Private Sub Commandl Click() Dim x， y， z x=InputBox(“请输入第 1个整数 ”) Y=InputBox(“请输入第 2个整数 ”) Do Until x=y If XY Then X=X Y Else Y=y X Loop Print X End Sub 运行程序，单击命令按钮，并输入 2个整数 169和 39，则在窗体上显示的内容为 ( )。 （ A） 11 （ B） l3 （ C） 23 （ D） 39 38 窗体上有 1个名称为 Commandl的命令按钮，事
22、件过程及函数过程如 F： Private Sub Command 1一 Click() Dim m As String m=InputBox(“请输入字符串 ”) Prinl pick str(m) End Sub Private Function pick str(s As String)As String temp=“” i=l slen=Len(S) Do While iMod+&顺序计算。计算过程： Sgn(6+15Mod 6 23 6)&6+15=Sgn(6+35)&2l=Sgn(4)&21=l&2l=“121”。故选项 D正确。说明：字符串连接符 &两边的操作数不管是字符型还是数值
23、型，系统首先要将其转换为字符型，然后进行连接。 13 【正确答案】 C 【试题解析】 续行符 “ ”与前面的内容至少要保留一个空格，并且续行符只能出现在行尾，后面不能有注释。故选项 C错误。 14 【正确答案】 D 【试题解析】 用 Hide方法只是隐藏窗体，不卸载窗体，所以不会清除内存中的窗体。故选项 D错误。 15 【正确答案】 B 【试题解析】 随机文件中记录的长度是同定的、相等的，不是随机的。故选项 B错误。 16 【正确答案】 D 【试题解析】 KeyCode是 KeyrDown、 KeyUp键盘事件的参数，不是键盘事件，它返回的是按键相应的 ASCIl字符代码。故选项 D错误。 1
24、7 【正确答案】 A 【试题解析】 本题是定义了一个一维数组，下标是 -2to 4，所以数组元素的个数是 4 (-2)+l=7，故选 A。 18 【正确答案】 C 【试题解析】 窗体的 Visible属性是设置窗体可见不可见； Enabled属性是设置可用不可用； Caption属性是用来设置窗体标题栏上显示的内容； controlBox属性是设置窗体左上角是否显示控制框，当属性值为 True时，显示控制框，否则False时，不显示。故选项 C正确。 19 【正确答案】 D 【试题解析】 题意是在文本框中输入信息，会影响标签上显示的内容，所以触发的是文本框 Textl 的事件，要在文本框 Te
25、xtl的事件过程中写代码，因此排除 A、B 选项。又因为标签上显示的内容会随着文本框中输入信息变化，因此要在 Textl的 Change事件过程写代码。故 D选项正确。 20 【正确答案】 A 【试题解析】 Move 方法是窗体的移动方法，其中 200， 200是窗体左上二角的坐标 (X， Y)。坐标系是以屏幕左上角为原点，向右为 x轴正方向，向下为 Y轴正方向。所以本题中窗体左上角移动到距屏幕左边界、上边界各 200的位置。故 A选项正确。 21 【正确答案】 D 【试题解析】 计时器控件的 Interval 属 性值以毫秒为单位，设置为 1000则计时器事件每 1秒钟发生一次。 22 【正
26、确答案】 B 【试题解析】 组合框的 Removehem方法与列表框删除指定项目的方法相同，格式为： Removeltem(索引值 )，而列表中的项目索引值从 0开始，因此最后一项的索引值为 ListCount 1。 23 【正确答案】 D 【试题解析】 Fontltalie,用来设置文字是否为斜体， FontUnderlAne 用来设置文字是否加下划线， FontSize用来设置文字的字号， FontBold 用来设置文字是否为粗体 。 24 【正确答案】 C 【试题解析】 改变滚动框的位置后会触发 Change事件，拖动滚动框、单击滚动箭头、单击滚动箭头与滚动框之间的滚动条都会改变滚动框的
27、位置。 25 【正确答案】 B 【试题解析】 确定图片框在窗体上位置的属性是 Left和。 Top，它们使用的是相对坐标，以窗体为参考点。 26 【正确答案】 C 【试题解析】 单选按钮没有。 Min属性，滚动条控件的属性中有 Min 属性。 27 【正确答案】 D 【试题解析】 可以通过 Print方法在图片框中输出文件， 图片框中的图形可以在程序运行过程中通过载入空文件的方法清除，图片框控件可以作为父控件，即可以放置其他控件 Stretch 属性用来自动调整图片框中图形内容的大小。 28 【正确答案】 D 【试题解析】 清除列表框中的指定内容要使用 Re-moveItem方法，格式为：Re
28、moveItem(索引值 )，只要指定要清除项目的索引值就可以清除指定项日。如果要清除列表框中的全部内容可以使用 Clear方法。 29 【正确答案】 C 【试题解析】 Print方法呵以在窗体上显示文本字符串和表达式的值，并可在 其他图形对象或打印机上输出信息。其一般格式为： 对象名称 Print表达式表 ，； 其中对象名称可以是窗体 (Form)、图片框 (PictureBox)或打印机(Ihinter)，也可以是立即窗口 (Debug)。如果省略对象名称，则在当前窗体上输出。 30 【正确答案】 A 【试题解析】 数据文件的写操作分为 3步，即打开文件、写入文件和关闭文件。首先，在顺序文
29、件中打开文件写入数据的打开方式为： Open 文件名 For Output As#文件号。因此 B、 C选项排除，只看 A、 D选项。写入顺序文件 Print语句格式为： Print#文件号，变量名，变量名 ， Write语句的的格式与 Print语句一样： Write文件号，变量名，变量名。而记录类型变最不能整体引用，需要指明记录变量中的成员名，格式为：记录变量名成员名， Books 类型变量 B 成员Name和 TelNum赋值和引用应该是 B Name、 B TelNum，因此 A选项正确。 31 【正确答案】 B 【试题解析】 VB 中 “ ”是浮点除法运算符， “ ”是整数除法运算符
30、，程序中的条件表达式 a(i， j) 7=a(i， j) 7成立时说明这个数能够被 7整除，程序即是统计这个：二维数组中能被 7整除的数的个数。数组元素值在 i 1时为 (3， 4， 5， 6)，i 2时为 (5， 6， 7， 8)， i 3时为 (7， 8， 9， 10)， i 4时为 (9， 10， 11， 12)， i=5时为 (11， 12， 13， 14)，其中能够被 7整除的数有 7、 7、 14共 3个。因此答案为B。 32 【正确答案】 B 【试题解析】 程序没有错误。数组变量定义时可以不用声明上下界。 List控件列表项的索引从 0开始。 Array函数只适用于一组数组，只能
31、对一维数组进行初始化，不能对二维数组或多维数组进行初 始化。因此叙述正确的是 B 选项。 33 【正确答案】 B 【试题解析】 程序中 Ucase函数将输入的字母转换为大写，然后通过 Select，多分支控制语句选择输出不同信息，当输入字母在 “A”到 “”之间时，显示 “考核通过 !”，输入的是 “D”，时显示 “考核不通过 !”，如果输入的是 “A”到 “D”之外的其他字符则显示 “输入数据不合法 !”。程序中输入字母 “B”，因此会显示 “考核通过 !”。 34 【正确答案】 C 【试题解析】 当用 Dim语句定义数组时，该语句把数值数组中的全部元素都初始化为 0，而把字符 串数组中的全
32、部元素都初始化为空串。因此 color数组中的元素初始值都为 0，没有空值，过程调用不会失败。 C选项叙述错。 35 【正确答案】 A 【试题解析】 变量 x在按钮单击事件过程中没有定义，因此系统自动将它定义为Vatiant类型，由于过程中参数类型为 Integer，所以程序运行时会提示 “ByRef参数类犁不符 ”错误。 A选项正确。只在按钮事件中加上 Dim x as Integer就可以解决问题，或者 f 过程中的 y as integer改为 ByVal y as integer也可以解决。 36 【正确答案】 D 【试题解析】 KeyUp 事件是在松开按钮时发生。按下 1松开时，文本
33、框中显示1，执行 KeyUp事件过程，在窗体上显示示文本框内容，即 1。按下 2松开时，文本框中显示 12，执行 KeyUp事件过程，在窗体上 1后面接着现在姓示文本框的内容，即窗体上显示为 112。按下 3松开时，文本框中显示 123，执行 KeyUp事件过程，在窗体上 112后面接着显示文本框的内容，即在窗体上显示为 112123。 37 【正确答案】 B 【试题解析】 程序中 Do循环比较输入的两个数的大小，把较大的数值减去较小的数值后再与较小的值比较，直到两个数值相等。程序中输入 169和 39，则x=169 39=130， 130y即 13039，因此 x=130 39=91，如此循
34、环 x=91 39=52 39=13，此时 1339为假，执行 y=y x=39 13=26，循环 y=26 13=13，此时x、 y都为 13，循环结束，因此窗体上显示为 13。 38 【正确答案】 A 【试题解析】 过程 pick str的功能魁对输入的字符串的字符重新组合，通过 Do循环从原字符串中头尾开始各取一个字符重新组合，循环次数小于等于原字符串长 度整除 2的值。当输入字符串是 “basic”时，字符串长度为 5，循环次数为 52=2次，因此取出的字符依次是 “b”， “c”， “a”， “i”。即 “bcai”，因此答案为 A。 39 【正确答案】 D 【试题解析】 在过程 m
35、中 s被定义为静态变量，因此它的值只在第一次调用过程时初始化，以后再调用都不再初始化，而是保留之前的值。 m过程的功能是根据参数值累加，因此第 l次单击时， m(1)+m(2)+m(3)=1+3+6=10，此时变量 s的值，即过程 m的值为 6，第 2次单击时， m(1)+m(2)+m(3)=7+9+12 28。因此答案为 D。 40 【正确答案】 C 【试题解析】 程序中 5次循环 x的值分别为 l 1， 1 l 2=l (1*2)， l l 23=l (1*2*3)， l 1 2 3 4=1 (1*2*3*4)， 1 l 2 3 4 5=l (1*2*3*4*5)，可以看出 x值就是 1
36、i1，因此过程的功能就是计算 l+l 2 !+l 3 !+l 4 !+l 5 !。因此选项 C正确。 二、基本操作题 41 【正确答案】 （ 1）根据题意，首先通过滚动条的 Name、 Max、 Min、Value、 Width、 Height属性设置滚动条的属性值，然后通过标签的 Name、 Caption属性设置标签的名称和标题。 步骤 1：建立界面，并设置控件的属性。程序中用到的控件及属性见表 1。 步骤 2：测试并运行程序，关闭程序序后按题目要求存盘。（ 2）往 Form Load事件过程中Timerl的 Ena-bled属性设置为 True，计时器变为可用，在 Timerl Time
37、r计时器的事件过程，通过形状控件的 Top值每隔 0 5秒加 100，实现每隔 0 5秒形状控件向下移动 100 步骤 1：建立界面，并设置空件的属性。程序中用到的控件件及属性 见表 2 步骤 2：编写程序代码 Pri rate Sub Form Load() Timer1 Enabled=Ture End Sub Ptivate Sub Timerl Timer() Shanel Top=Shapel Top+l00 End Sub 步骤 3：调用并运行程序，关闭程序后按照题目要求存盘。 三、简单应用题 42 【正确答案】 (1)根据题意，通过文本框的 Name、 Text、 Enabled
38、、PasswordChar属性设置文本框，单击 “输入密码 ”按钮， Text的 Enabled属性设 置为True，并通过 SetFocus 方法使文本框获得焦点。输入密码后单击 Forml窗体的 “密码校验 ”按钮，则判断 Textl中输入内容是否为小写字符 “abc”，若密码正确，通过Hide方法隐藏 FormI窗体，并通过 Show显示 Form2窗体；若密码输入错误，则提示重新输入，变量 n用于累积输入次数，三次密码输入错误，则退出系统。 步骤 1：打开本题工程文件，添加一个名称为 Textl的文本框，初使文本内容为空， Enabled属性设置为 False，并将其 Pass-wor
39、dChar属性设置为 “*” 步骤 2：分析并编写程序代码。 程序提供代码 窗体 1的代码 Dim n As Integer Private Sub Commandl Click() TextI Enabled=? Textl SetFocus End Sub Pri vale Sub Command2 Click() lf Textl Enabled=False Then MsgBox”请先使用 输入密码 功能 !” Else If Textl “”Then t=t+c Else If ?=“the”Then m=m+1 End If t=“” End If Next i ?=Str(m)
40、End If End If End Sub 程序结束 笫 1个 ?处填入： 0 第 2个 ?处填入： Senlength 第 3个 ?处填入： Lease$(t) 第 4个 ?处填入： Text2 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 四、综合应用题 43 【正确答案】 在 “读数 ”命令的 Click事件过程中，通过调用 ReadData过程将数据从 in5 txt文件读入数组 Arr(窗体变量 )中；在 “计算 ”命令的 Click事件过程中，在 For循环语句 (循环变量 i的初值为 1，终值为 100)中依次将数组 Arr中 小于 50的元素的值显示在文本框中，并将其值
41、累加到变量 sum；在 “保存 ”命令的 Click事件过程中，通过调用 WriteData过程将 Sum的值写入数据文件 out5 txt。 步骤 1：打开本题工程文件，利用菜单设计器，按表 3 108中的设置建立菜单项，在窗体Forml中绘制一个文本框，其相关属性值见表 1和表 2。步骤 2：分析并编写程序代码。 程序提供代码 Option Base 1Dim Arr(100)As IntegerSub ReadData() Open App Path&“ ”&“datainl txt”For Input As#1 For i=l To 100 Input#l， Arr(i) Next i Close#1End SubSub WriteData(Filename As String， Num As Integer) Open App Path “ ”&Filename For Output As#l Print#1 Num Close#1End Sub程序结束 Private Sub Calc Click() Textl Text=“”For i=1 to 100 If Arr(i)
