1、国家二级 VB机试(上机操作)模拟试卷 172及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)存名称为 Forml的窗体上画一个名称为 Listl的列表框,在属性窗口中为列表框添加三个选项:北京、上海、天津。再建立一个下拉菜单,菜单标题为 “文件 ”,名称为File,此菜单下含有一个子菜单项,标题为 “显示列表框 ”,名称为 Show,初始状态为选中,运行时的效果如图 2 130所示。 注意:存盘时,将文件保存至考生文件夹下,目窗体文件名为 sjtl frm,工程文件名为 sitl vbp。 (2)新建一个名称为 F
2、orml,标题为 “使用输入对话框 ”的窗体,该窗体上无任何控件。请编写适当的事件过程,使得运行程序并单击窝体时,出现输入对话框,该对话框的标题为 “等级考试 ”,提示信息为 “请输入 ”,默认值为 “Basic”。如图 2131所示。 注意:存盘时,将文件保存至考生文件夹下,且窗体文件名为 sjt2 frm,工程文件名为 sjt2 vbp。要求程序中不得使用变量,每个事件过程中只能写一条语句。 二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp。程序的功能是:在运行时,如果选中一个单选按钮和一个或两个复选框,并单击 “确定 ”按钮,则对文本框中的文字做相应的设置,如图
3、2 100所示。窗体上的控件已经画出,但没有给出主要程序内容,请编写适当的事件过程,完成上述功能。 注意:不能修改已经给出的程序部分和已有的控件;在结束程序运行之前,必须选中一个单选按饥和至少一个复选框,并单击 “确定 ”按钮:必须通过单击窗体右上角的关闭按钮结束程序,否则无成绩。最后把修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sit4 vbp。窗体中已经给出 了所有控件。程序运行时,单击 “读入文件 ”按钮,将显示一个 “打开 ”对话框,可以在该对话框中选择考生文件夹下的文本文件 in4 txt,并把该文件的内容显示到 Text1文本框中。 要求:请去掉程序中的注释符
4、,并把程序中的 ?改为正确的内容,使其能正确运行,但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。 三、综合应用题 3 在窗体上画一个文本框,名称为 Text1(可显示多行 ),然后冉画三个命令按钮,名称分别为 Command1、 Command2和 Command3,标题分别为 “读数 ”、 “统计 ,和“存盘 ”,如图 2 67所示。程序的其功能是:单击 “读数 ”按钮,则把考生目录下的in5 txt文件中的所有英文 7符放入 Text1(可多行显示 );单击 “统计 ”按钮,找出并统计英文字母 i、 j、 k、 l、 m、 n(不区分大小写 )各自出现的次
5、数;单击 “存盘 ”按钮,将字母 i n出现次数的统计结果依次存到考生目录下的顺序文件 out5 txt中。 注意:存盘时必须存放在考生文件夹下,工程文件名为 sjt5 vbp,窗体文件名为 sjt5 frm。 国家二级 VB机试(上机操作)模拟试卷 172答案与解析 一、基本操 作题 1 【正确答案】 第 1小题 【操作步骤】 步骤 1:新建一个 “标准 EXE”工程,在窗体 Forml中画一个名为 Listl的列表框,在其 List属性中添加三个项目,依次为 “北京 ”、 “上海 ”和 “天津 ”,注意每输入完一项后按键换行再输入下一项。 步骤 2:新建一个 “标准 EXE”工程,选择【工
6、具】 【菜单编辑器】命令,打开菜单设计器,如表 3 70中的设置建立菜单项。步骤 3:按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1:新建一个 “标准 EXE”上程,将窗体FormI的 Caption属性设置为 “使用输入对话框 ”。 步骤 2:打开代码编辑窗口,编写以下事什过程: 参考代码: Private Sub Form_Click() InputBox”请输入 ”, ”等级考试 ”, ”BasiC” End Sub 步骤 3:按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 第 1小题 【操作步骤】 步骤 1:打开考生文件下的本题工程文件 sit
7、3 vbp。 步骤 2:打开代码编辑窗口,编写 “确定 ”按钮的 Click事件过程,代码如下。 参考代码: Private Sub CommandlC1ick() If Opl Value Then Textl FontName=Opl Caption E1seI f Op2 Value Then Textl FontName=Op2 Caption End If If Chl Value=1 Then Textl FontUnderline=True Else Textl FontUnderiime=False End If If Ch2 Value=1 Then Textl FontIt
8、al iC=True E1Se Textl FontItaliC=False End If End Sub 步骤 3:按 键运行程序,选中一个单选按钮和至少一个复选框,并单击 “确定 ”按钮,最后单击窗体右上角的关闭按钮结束程序。 步骤 4:按要求将文件保存至考生文件夹中。 【特别提示】文本框的 FontUnderline属性值和 Fontltalic属件值一设置为 True,将始终有效,直至将该属性值设 置为 False。 第 2小题 【操作步骤】 步骤 1:打开考生文件夹中的本题工程文件 sjt4 vbp,在代码编辑窗口,去掉程序中的注释符 “”,将问号 “?”改为正确的内容。 参考代码:
9、 Private Sub CommandlClick() Dim n As Long CD1 FileName=” CD1 Filter=所有文件 |*|文本文件 |* txt|Word丈档 |* doc” CD1 FilterIndex=2 CD1 Action=1 If CD1 FileName”Then Open CDI FileName For Input As# n=LOF(1) Textl=Inputs(n, #1) ciose#1 End If End Sub 步骤 2:按要求将文件保存至考生文件夹中。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1:新建一个 “标准
10、EXE”工程,如表 3 39所示,在窗体中画出控件并设置其相关属性。步骤 2:打开代码编辑窗口,编弓相应事件过程。 参考代码: Option Base 1 Dim sum(6)As Integer Private Sub Commandl C1ick() Open App Path ” in5 txt”For InputAs#1 Textl Text=Input(LOF(1), #1) Close#1 End Sub Private Sub Command2 C1ick() For i=1 To 6 sum(i)=0 Next i If Len(Textl Text)=0 Then MsgBo
11、x”请先使用 “读数 ”功能 !” E1se For i=1 To Len(Textl Text) C=LCase(Mid(Textl Text, i, 1) Select Case c Case“i” sum(1)=Sum(1)+1 Case“j” sum(2)=Sum(2)+1 case“k” sum(3)=sum(3)+l Case“1” sum(4)=sum(4)+1 Case“m” sum(5)=sum(5)+1 Case“n” sum(6)=Sum(6)+1 End Select Next i End If End Sub Private Sub Command3 C1ick() Open App Path ”out5 txt”For Output As#1 For i=1 To 6 Print#1, sum(i) Next i Close#1 End Sub 步骤3:按要求将文件保存至考生文件夹中。
copyright@ 2008-2019 麦多课文库(www.mydoc123.com)网站版权所有
备案/许可证编号:苏ICP备17064731号-1