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