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 单击*按钮运行程序,并按要求保存。)解析: