1、VB 机试-试卷 91 及答案解析(总分：12.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.基本操作题（）（分数：2.00）_2.在名为 Form1 窗体上绘制一个命令按钮，其名称为 Cmd1，标题为 C1ear。编写适当的事件过程，使程序运行后，若单击命令按钮，则清除窗体的标题。程序运行结果如下图所示。 （分数：2.00）_二、简单应用题(总题数：2，分数：4.00)3.简单应用题（）（分数：2.00）_4.在考生文件夹中有一个工程文件 exeeise105.vbp，请在 Form1 窗体上建立一个名称为 Opt1 的单选按钮数组，含有 3 个单选按钮，其标题
2、分别为“71”、“81”、“91”，Index 属性分别为 0、1、2；再绘制一个名称为 Cmd1 的命令按钮，标题为“计算”；绘制一个名称为 Text1 的文本框，如图所示， 程序的功能是在选定一个单选按钮并单击“计算”按钮后，可以计算出相应的阶乘值，在 Text1 中显示该阶乘值。请绘制出上述控件并编写程序。 注意： 不得修改工程中已经存在的内容，在结束程序运行之前，必须进行一次计算。必须通过单击窗体右上角的关闭按钮结束程序，否则无成绩。最后按原文件名存盘。（分数：2.00）_三、综合应用题(总题数：2，分数：4.00)5.综合应用题（）（分数：2.00）_6.在考生文件夹下有工程文件 s
3、j5vbp 及窗体文件 sj5frm，该程序是不完整的。在名称为 Forml 的窗体上有 3 个 Label 控件和 2 个命令按钮，命令按钮的名称为 Commandl 与 Command2，标题为“读取”与“保存并退出”。考生文件夹下的数据文件 in5.txt 存放一些字符。要求程序运行时，按“读取”按钮后，从考生文件夹下的 in5txt 中读出数据并识别出其中的非字母元素，按“保存并退出”按钮后，将非字母元素写入考生文件夹下的 out5txt 文件中(以标准格式在一行中输出)；执行完毕，“读取”按钮变成“完成”，且无效(变灰)，单击“保存并退出”按钮，程序结束，如图 295 所示。 （分数
4、：2.00）_VB 机试-试卷 91 答案解析(总分：12.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.基本操作题（）（分数：2.00）_解析：2.在名为 Form1 窗体上绘制一个命令按钮，其名称为 Cmd1，标题为 C1ear。编写适当的事件过程，使程序运行后，若单击命令按钮，则清除窗体的标题。程序运行结果如下图所示。 （分数：2.00）_正确答案：(正确答案： )解析：二、简单应用题(总题数：2，分数：4.00)3.简单应用题（）（分数：2.00）_解析：4.在考生文件夹中有一个工程文件 exeeise105.vbp，请在 Form1 窗体上建立一个名称为
5、 Opt1 的单选按钮数组，含有 3 个单选按钮，其标题分别为“71”、“81”、“91”，Index 属性分别为 0、1、2；再绘制一个名称为 Cmd1 的命令按钮，标题为“计算”；绘制一个名称为 Text1 的文本框，如图所示， 程序的功能是在选定一个单选按钮并单击“计算”按钮后，可以计算出相应的阶乘值，在 Text1 中显示该阶乘值。请绘制出上述控件并编写程序。 注意： 不得修改工程中已经存在的内容，在结束程序运行之前，必须进行一次计算。必须通过单击窗体右上角的关闭按钮结束程序，否则无成绩。最后按原文件名存盘。（分数：2.00）_正确答案：(正确答案： )解析：三、综合应用题(总题数：2
6、，分数：4.00)5.综合应用题（）（分数：2.00）_解析：6.在考生文件夹下有工程文件 sj5vbp 及窗体文件 sj5frm，该程序是不完整的。在名称为 Forml 的窗体上有 3 个 Label 控件和 2 个命令按钮，命令按钮的名称为 Commandl 与 Command2，标题为“读取”与“保存并退出”。考生文件夹下的数据文件 in5.txt 存放一些字符。要求程序运行时，按“读取”按钮后，从考生文件夹下的 in5txt 中读出数据并识别出其中的非字母元素，按“保存并退出”按钮后，将非字母元素写入考生文件夹下的 out5txt 文件中(以标准格式在一行中输出)；执行完毕，“读取”按
7、钮变成“完成”，且无效(变灰)，单击“保存并退出”按钮，程序结束，如图 295 所示。 （分数：2.00）_正确答案：(正确答案：本题主要考查文件的读入，根据一定的条件筛选后再输出到另一个文件中。其中用到了判断是否读到文件尾函数 EOF()、将字符转换成 ASCII 码函数 Ase()和求字符串长度函数 Len()。补充后的代码如下： Dim str As String Private Sub Commandl_Click() Dim tmp As String str=“ Open“AppPath&in5txt“For Input As#1 打开文件准备读取 While EOF(1)= Fa
8、lse 读取文件知道文件尾 Input#l，trap 将读取的文本放人 trap 中 str=str+trap将 tmp 放入字符串中 Wend CommandlEnabled=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“AppPath &out5txt“For Output As#2 Print#2，rel将得到的字符串写入文件 Close#2 Unload Me End Sub 单击*按钮运行程序，并按要求保存。)解析：
