1、VB机试模拟试卷 180及答案与解析 一、基本操作题（ 30分） 1 在名为 Form1窗体上绘制一个命令按钮，其名称为 Cmd1，标题为 C1ear。编写适当的事件过程，使程序运行后，若单击命令按钮，则清除窗体的标题。程序运行结果如下图所示。 注意： 文件必须存放在考生文件夹中，工程文件名为 execise83.vbp，窗体文件名为 execlse83.frm。 二、简单应用题（ 40分） 2 在考生文件夹中有一个工程文件 exeeise105.vbp，请在 Form1窗体上建立一个名称为 Opt1的单选按钮数组 ，含有 3个单选按钮，其标题分别为 “71”、 “81”、“91”， Inde
2、x属性分别为 0、 1、 2；再绘制一个名称为 Cmd1的命令按钮，标题为“计算 ”；绘制一个名称为 Text1的文本框，如图所示， 程序的功能是在选定一个单选按钮并单击 “计算 ”按钮后，可以计算出相应的阶乘值，在 Text1中显示该阶乘值。请绘制出上述控件并编写程序。 注意： 不得修改工程中已经存在的内容，在结束程序运行之前，必须进行一次计算。必须通过单击窗体右上角的关闭按钮结束程序，否则无成绩。最后按原文件名存盘。 三、综合应用题（ 30分） 3 在考生文件夹下有工程文件 sj5 vbp及窗体文件 sj5 frm，该程序是不完整的。在名称为 Forml的窗体上有 3个 Label控件和
3、2个命令按钮，命令按钮的名称为Commandl与 Command2，标题为 “读取 ”与 “保存并退出 ”。考生文件夹下的数据文件 in5.txt存放一些字符。要求程序运行时，按 “读取 ”按钮后，从考生文件夹下的in5 txt中读出数据并识别出其中的非字母元素，按 “保存并退出 ”按钮后，将非字母元素写入考生文件夹下的 out5 txt文件中 (以标准格式在一行中输出 )；执行完毕， “读取 ”按钮变成 “完成 ”，且无效 (变灰 )，单击 “保存并退出 ”按钮，程序结束，如图 295所示。 注意：请将程序代码补充完整，但不能修改其他部分。存盘时不得改变文件名和文件夹，相应的 txt文件也保
4、存到考生文件夹下，否则没有成绩。 VB机试模拟试卷 180答案与解析 一、基本操作题（ 30分） 1 【正确答案】 二、简单应用题（ 40分） 2 【正确答案】 三、综合应用题（ 30分） 3 【正确答案】 本题主要考查文件的读入，根据一定的条件筛选后再输出到另一个文件中。其中用到了判断是否读到文件尾函数 EOF()、将字符转换成 ASCII码函数Ase()和求字符串长度函数 Len()。补充后的代码如下： Dim str As String Private Sub Commandl_Click() Dim tmp As String str=“ Open“App Path& in5 txt“
5、For Input As#1 打开文件准备读取 While EOF(1)=False读取文件知道文件尾 Input#l， trap 将读取的文本放人 trap中 str=str+trap将 tmp放入字符串中 Wend Commandl Enabled=FalseCommandl不可用 Commandl Caption=“完成 “ Commandl的 Caption属性变为完成 End Sub Private Sub Command2_Click() Dim rel As String Dim tmp As String Dim i As Integer rel=“ For i=1 To Len(str) 利用 for循环遍历字符串 tmp=Mid(str， i， 1) 逐个取出用来判断 If Asc(tmp)Asc(“z“)Then rel=rel+trap如果不是字母，则放人输出字符串中 End If Next i Open“App Path &out5 txt“For Output As#2 Print#2， rel将得到的字符串写入文件 Close#2 Unload Me End Sub 单击 按钮运行程序，并按要求保存。
