1、国家二级 VB机试（上机操作）模拟试卷 355及答案与解析 一、基本操作题 1 (1)在名称为 Form1的窗体上画一个名称为 CmdChange、标题为 “改变颜色 ”的命令按钮，窗体标题为 “设置窗体背景色 ”。编写程序，使得单击命令按钮时，将窗体的背景颜色改为红色 (&HF&)。运行程序后的窗体如图 3 142所示。 要求：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为 vbsj1 vbp，窗体文件名为 vbsj1 frm。 (2)在名称为 Form1的窗体上画一个命令按钮和一 个垂直滚动条，其名称分别为 Cmdl(标题为 “设置 ”)和Vs
2、b1，编写适当的事件过程。程序运行后，如果单击命令按钮，则按如下要求设置垂直滚动条的属性： Max=窗体高度 Min=0 LargeChange=50 SmallChange=10 如果移动垂直滚动条的滚动框，则在窗体上显示滚动框的位置值。程序的运行情况如图 3 143所示。 要求：不得使用任何变量。 注意：存盘时必须存放在考生文件夹下，工程文件名为 vbsj2 vbp，窗体文件名为 vbsj2 frm。二、简单应用题 2 (1)在考生文件夹下有一 个工程文件 sjt3 vbp。程序的功能是通过键盘向文本框中输入大、小写字母及数字。单击 “统计 ”按钮，分别统计输入字符串中大写字母、小写字母及
3、数字字符的个数，并将统计结果分别显示在标签控件数组 x中，如图3 167所示。在给出的窗体文件中已经添加了全部控件，但程序不完整。 要求：去掉程序中的注释符，把程序中的 “?”改为正确的内容。 注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。(2)考生文件夹下的工程文件sjt4 vbp中有两个名称分别为 List1、 List2的列表框控件，两个名 称分别为Command1、 Command2，标题分别为 “”、 “”按钮，将 List1中的表项添加到List2中，同时将 List1清空；单击 “ 三、综合应用题 3 在考生文件夹下有一个工程文件 sjt5 vbp，已
4、给出了所有控件 (如图 3 141所示 )和部分程序。程序运行时，请按以下顺序操作： 1)单击 “读入文件 ”按钮，把考生目录下的文件 in5 dat中的内容读入内存并显示在上面的文本框 (Text1)中； 2)单击“加密 ”按钮，则可对 Text1中的内容进行加密并显示在下面的文本框 (Text2)中。 3)单击 “存结果 “按钮则把 Text2中的内容存到 out5 dat文件中。 加密规则：对于第奇数个字符，若是字母，则把它变为它后面的字符 (若为 “Z”则变为 “A”)，不是字母则不变；对于第偶数个字符，若是字母，则把它变为它前面的字符 (若为 “A”则变为“Z”)，不是字母则不变。大
5、小写字母都遵循此规则。例如： 若原有的字符是：AbbaZOHa-MnnKYzx 则加密后的字符是： BaczAFGb-NmojXaw 已经给出 “存结果 ”按钮的 Click事件过程和函数 isletter，函数 isletter(aAsString)判 断变量 a中是否为一个字母，若是则返回 True，否则返回 False，可以直接调用。 请编写 “读入文件 ”按钮和 “加密 ”按钮的 Click事件过程，以实现上述功能。 (in5 dat文件中只含英文单词和空格，不分段落和行 ) 注意：考生不得修改已经存在的程序，必须用 “存结果 “按钮存储加密结果，否则无成绩。最后，按原文件名把程序存盘
6、。国家二级 VB机试（上机操作）模拟试卷 355答案与解析 一、基本操作题 1 【正确答案】 (1)步骤 1：新建一个 “标准 EXE”工程，在窗体 Form1中画一个命令按钮，设置相关属性，其 属性及值如表 4-83所示。步骤 2：打开代码编辑窗口，编写按钮的 Click事件过程中。参考代码： PriVate Sub cmdChange_Click()BackColor=&HFF&End Sub 步骤 3：按要求将文件保存至考生文件夹中。 (2)步骤 1：新建一个 “标准 EXE”工程，按表 4 84在窗体中画出控件并设置其相关属性。 步骤 2：打开代码编辑窗口，编写水平滚动条的 Chang
7、e事件过程。参考代码： Private Sub Cmd1_Click()Vsb1 Max=Form1 HeiqhtVsb1 Min=0Vsb1 LargeChange=50Vsb1 SmallChanqe=10End SubPrivate Sub Vsb1_Change()Print Vsb1 ValueEnd Sub 步骤3：按要求将文件保存至考生文件夹中。 【试题解析】 (1)本题需在命令按钮的单击事件过程中，通过语句设置窗体的BackColor属性值为 “&HFF&”。 (2)本题其实 就是在命令按钮的单击事件过程中用代码来设置水平滚动条的属性，并且在水平滚动条的 Change事件过程中
8、，用 Print方法把表示水平滚动条滑块位置的 Value属性值输出到窗体上。 二、简单应用题 2 【正确答案】 (1)步骤 1：打开考生文件夹中的本题工程文件 sjt3 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。参考代码： n=Len(Text1 Text) b=Asc(Mid(s， i， 1) Select Case b For i=0 To 2 x(i)=a(i) 步骤 2：按要求将文件保存至考生文件夹中。 (2)步骤 1：打开考生文件夹中的本题工程文件 sjt4 vbp，通过 List1列表框的List属性添加四个项目：文本框、标签、命令按钮、单选
9、按钮。 步骤 2：在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。参考代码： For i=0 To La ListCount - 1 Lb AddItem La List(i) Next La Clear 步骤 3：按要求将文件保存至考生文件夹中。 【试题解析】 (1)本题源程序在 For循环体中 (其中循环终值应为文本框的字符长度，即 n=Len(Text1 Text)，用 Mid函数逐一取出文本框中的每个字符，并用Asc函数返回其 ASCII码。若取出字符的 ASCII码在 48 57之间，则记录数字个数的数组变量 a(0)增 1；若 ASCII码在 65 90之间
10、，则记录大写字母个数的数组变量 a(1)增 1；若 ASCII码在 97 122之间，则记录小写字母个数的数组变量 a(2)增 1。 (2)本题列表框中列表项的移动功能，是通过调用 remove过程来实现的，在remove过程中通过 For循环 (循 环变量终值为 La ListCount-1)将列表框 La中的各项逐一添加到列表框 Lb中，全部项目添加完成后，用列表框的 Clear方法清除该列表框中的所有项目。 三、综合应用题 3 【正确答案】 步骤 1：打开考生文件夹中的本题工程文件 sjt5 vbp，在代码编辑窗口指定位置编写以下代码。参考代码： Private Sub Command1
11、_Click() Open“in5 dat“For Input As 1 Line Input #1， s Close #1 Text1 Text=s End Sub Private Sub Command2_Click() Dim i As Integer， ss As String ss=“ For i=1 To Len(s) If isletter(Mid(s， i， 1)=True Then If i MOd 2=0 Then If Mid(s， i， 1)=“a“Then ss=ss & “Z“ ElseIf Mid(s， i， 1)=“A“Then ss=ss & “Z“ Else
12、 ss=ss & Chr(Asc(Mid(S， i， 1)-1) End If Else If Mid(s， i， 1)=“Z“Then ss=ss & “A“ Else If Mid(s， i， 1)=“z“ Then ss=ss & “a“ Else s=ss & Chr(Asc(Mid(s， i， 1)+1) End If End If Else ss=ss & Mid(s， i， 1) End If Next Text2 Text=ss End Sub 步骤 2：按 键运行程序，先单击 “读入文件 ”按钮，接着单击 “加密 ”按钮，然后单击 “存结果 ”按钮保存结果，最后单击窗体右上角
13、的关闭按钮结束程序。 步骤 3：按要求将文件保存至考生文件夹中。 【试题解析】 分析题目可知，本题中 “读入文件 ”命令按钮中首先使用 For But方式打开文件，然后通过 Line Input撑语句将打开文件中的数据读出到变量 S中并且赋给文本框。 在 “加密 ”按钮的单击事件中，利用 For循环对字符串 S进行遍历，依次取出 S中的每一个字符；如果循环变量 i的值为偶数，接下来就要判断取出的字符是不是字母，如果是字母则进行 Chr(Asc(Mid(s， i， 1) 1)的转换，但是要注意如果为字母 “A”或者 “a”要转换为 “Z”或者 “z”。同理，如果循环变量的值为奇数，如果取出的字符是字母，则进行 Chr(Asc(Mid(s， i， 1)+1)的转换，如果为字母 “Z”或者“z”要转换为 “A”或者 “a”。最后将转换得到的字母连接起来即得到结果。
