1、国家二级 VB机试（上机操作）模拟试卷 222及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应刚程序 (包括界面和代码 )。 (1)在名称为 Forml、标题为 “图片 ”的窗体上画一个名称为 Imagel的图像框，其高为2500、宽为 2000。请通过属性窗口设置适当属性，装入考生只录下的图片文件picl jpg，并使图片适应图像框的大小 (如图 2 135所示 )。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjtl vbp，窗体文件名为 sjtl frm。(2)在名称为 Forml的窗体上画一个名称为 Label1、标题为 “口令 ”的标签
2、；画一个名称为 Textl的文本框；再画三个命令按钮，名称分别为Commandl、 Command2、 Command3，标题分别为 “显示口令 ”、 “隐藏口令 ”、 “重新输入 ”。 程序运行时，在 Text1中输入若干字符，单击 “隐藏口令 ”按钮，则只显示同样数量的 “*”，如图 2 136(b)所示；单击 “显示口令 ”按钮，则显示输入的字符，如图 2 136(a)所示，单出 “重新输入 ”按钮，则清除 Textl中的内容，并把光标定位到 Textl中。 要求：请画出所有控件，编写命令按钮的 Click事件过程，程序中不得使用变量，在 “显示口令 ”按钮、 “隐藏口令 ”按钮的事件过
3、程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为 sit2 vbp，窗体文件名为 sit2 fhn。 二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp，它的功能是在运行时只显示名为Form2的窗体，单击 Form2上的 “C2”按钮，则显示名为 Forml的窗体：单击 Forml上的 “C1”按钮，则 Forml的窗体消失。这个程序并不完整，要求如下： 把Form2设为启动窗体；把 Forml上按钮的标题改为 “隐藏 ”，把 Form2上按钮的标题改为 “显示 ”。 去掉程序中的注释符，把程序中的 ?改为正确的内容，使其实现上述功能，但小能修改程序中的其他
4、部分。最后把修改后的文件存盘。 工程文件和窗体文件仍以原来的文件名存盘。正确程序运行后的界面如图 2 242所示。(2)在考生文件夹下有一个工程文件 sil4 vbp，它的功能是在文本框中输入一个整数，单击 “移动 ”按钮后，如果输入的是正数，滚动条中的滚动框向右移动与该数相等的刻度，但如果超过了滚动条的最大刻度，则不移动，并且显示 “文本框中的数值太 大 ”；如果输入的是负数，滚动条中的滚动框向左移动与该数相等的刻度，但如果超过了滚动条的最小刻度，则不移动，并且显示 “文本框中的数值太小 ”，如图 2 243所示。要求：去掉程序中的注释符，把程序中的 ?改为正确的内容，使其实现上述功能，但不
5、能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的程序以原来的文件名存盘。三、综合应用题 3 在窗体上画一个文本框，名称为 Text1(可显示多行 )，然后冉画三个命令按钮，名称分别为 Command1、 Command2和 Command3，标题分别为 “读数 ”、 “统计 ，和“存盘 ”，如图 2 67所示。程序的其功能是：单击 “读数 ”按钮，则把考生目录下的in5 txt文件中的所有英文 7符放入 Text1(可多行显示 )；单击 “统计 ”按钮，找出并统计英文字母 i、 j、 k、 l、 m、 n(不区分大小写 )各自出现的次数；单击 “存盘 ”按钮，将字母 i n出现次数
6、的统计结果依次存到考生目录下的顺序文件 out5 txt中。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt5 vbp，窗体文件名为 sjt5 frm。 国家二级 VB机试（上机操作）模拟试卷 222答案与解析 一、基本操作题 1 【正确答案】 第 l小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，如表3 71在窗体中必出控件并设置其相关属性。步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，如表 3 72在窗体中画出控件并设置其相关属性。步骤 2：在代码编辑窗口，分别编写三个按钮的单击事件过程。 参考代码：
7、 Private Sub Commandl C1 ick() Textl PasswordChar=” End Sub Prirate Sub Command2 C1ick() Textl PasswordChar=“*” End Slab Private Sub Command3一 Click() Textl=“” Text1 SetFocuS End Sub 步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 第 1小题 【操作步骤】 步骤 1：打开考生文件夹下的本题 _T程文件 sit3 vbp，然后将按钮 C1的Caption属性设置为 “隐藏 ”，将按钮 C
8、2的 Caption属性设置为 “显示 ”。 步骤 2：选择【工程】 【工程属性】命令，打开 “工程属性 ”对话框，设置Form2为启动窗体。 步骤 3：打开 Form2和 Form1的代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： Private Sub ClClick() Forml ViSible=False End Sub Private Sub C2一 Click() Forml ViSible=True End Sub 步骤 4：按要求将文件保存至考生文 件夹中。 第 2小题 【操作步骤】 步骤 1：打开考生文件中的奉题工程文件 sjt4 vbp
9、，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： If HSl Value+Textl TextHSl Max Then MsgBox”文本框中的数值太大 ” E1seIf HSl Value+Textl TextHSl Min Then MsgBox”文本框中的数值太小 ” E1Se HS1 Value=HSl Value+Textl Text End If 步骤 2：按要求将文件保存至考生文件夹中。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，如表 3 39所示，在窗体中画出控件并设置其相关属性。步骤 2：
10、打开代码编辑窗口，编弓相应事件过程。 参考代码： 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 MsgBox”请先使用 “读数 ”功能 !” E1se For i=1 To Len(T
11、extl 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：按要求将文件保存至考生文件夹中。
