1、国家二级 VB机试（上机操作）模拟试卷 355及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.(1)在名称为 Form1的窗体上画一个名称为 CmdChange、标题为“改变颜色”的命令按钮，窗体标题为“设置窗体背景色”。编写程序，使得单击命令按钮时，将窗体的背景颜色改为红色(&HF&)。运行程序后的窗体如图 3142 所示。 要求：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为 vbsj1vbp，窗体文件名为 vbsj1frm。 (2)在名称为 Form1的窗体上画一个命令按钮和一个垂直滚动条，其
2、名称分别为 Cmdl(标题为“设置”)和 Vsb1，编写适当的事件过程。程序运行后，如果单击命令按钮，则按如下要求设置垂直滚动条的属性： Max=窗体高度 Min=0 LargeChange=50 SmallChange=10 如果移动垂直滚动条的滚动框，则在窗体上显示滚动框的位置值。程序的运行情况如图 3143 所示。 要求：不得使用任何变量。 注意：存盘时必须存放在考生文件夹下，工程文件名为 vbsj2vbp，窗体文件名为 vbsj2frm。 （分数：2.00）_二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sjt3vbp。程序的功能是通过键盘向文本框
3、中输入大、小写字母及数字。单击“统计”按钮，分别统计输入字符串中大写字母、小写字母及数字字符的个数，并将统计结果分别显示在标签控件数组 x中，如图 3167 所示。在给出的窗体文件中已经添加了全部控件，但程序不完整。 要求：去掉程序中的注释符，把程序中的“?”改为正确的内容。 注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 （分数：2.00）_三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件 sjt5vbp，已给出了所有控件(如图 3141 所示)和部分程序。程序运行时，请按以下顺序操作： 1)单击“读入文件”按钮，把考生目录下的文件 i
4、n5dat 中的内容读入内存并显示在上面的文本框(Text1)中； 2)单击“加密”按钮，则可对 Text1中的内容进行加密并显示在下面的文本框(Text2)中。 3)单击“存结果“按钮则把 Text2中的内容存到 out5dat 文件中。 加密规则：对于第奇数个字符，若是字母，则把它变为它后面的字符(若为“Z”则变为“A”)，不是字母则不变；对于第偶数个字符，若是字母，则把它变为它前面的字符(若为“A”则变为“Z”)，不是字母则不变。大小写字母都遵循此规则。例如： 若原有的字符是：AbbaZOHa-MnnKYzx 则加密后的字符是：BaczAFGb-NmojXaw 已经给出“存结果”按钮的
5、Click事件过程和函数 isletter，函数 isletter(aAsString)判断变量 a中是否为一个字母，若是则返回 True，否则返回 False，可以直接调用。 请编写“读入文件”按钮和“加密”按钮的 Click事件过程，以实现上述功能。(in5dat 文件中只含英文单词和空格，不分段落和行) 注意：考生不得修改已经存在的程序，必须用“存结果“按钮存储加密结果，否则无成绩。最后，按原文件名把程序存盘。 （分数：2.00）_国家二级 VB机试（上机操作）模拟试卷 355答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.(1)在名称为
6、Form1的窗体上画一个名称为 CmdChange、标题为“改变颜色”的命令按钮，窗体标题为“设置窗体背景色”。编写程序，使得单击命令按钮时，将窗体的背景颜色改为红色(&HF&)。运行程序后的窗体如图 3142 所示。 要求：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为 vbsj1vbp，窗体文件名为 vbsj1frm。 (2)在名称为 Form1的窗体上画一个命令按钮和一个垂直滚动条，其名称分别为 Cmdl(标题为“设置”)和 Vsb1，编写适当的事件过程。程序运行后，如果单击命令按钮，则按如下要求设置垂直滚动条的属性： Max=窗体高度 Mi
7、n=0 LargeChange=50 SmallChange=10 如果移动垂直滚动条的滚动框，则在窗体上显示滚动框的位置值。程序的运行情况如图 3143 所示。 要求：不得使用任何变量。 注意：存盘时必须存放在考生文件夹下，工程文件名为 vbsj2vbp，窗体文件名为 vbsj2frm。 （分数：2.00）_正确答案：(正确答案：(1)步骤 1：新建一个“标准 EXE”工程，在窗体 Form1中画一个命令按钮，设置相关属性，其属性及值如表 4-83所示。 步骤 2：打开代码编辑窗口，编写按钮的 Click事件过程中。参考代码： PriVate Sub cmdChange_Click() Ba
8、ckColor=&HFF& End Sub 步骤 3：按要求将文件保存至考生文件夹中。 (2)步骤 1：新建一个“标准 EXE”工程，按表 484 在窗体中画出控件并设置其相关属性。 )解析：解析：(1)本题需在命令按钮的单击事件过程中，通过语句设置窗体的 BackColor属性值为“&HFF&”。 (2)本题其实就是在命令按钮的单击事件过程中用代码来设置水平滚动条的属性，并且在水平滚动条的 Change事件过程中，用 Print方法把表示水平滚动条滑块位置的 Value属性值输出到窗体上。二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sjt3vbp。程序
9、的功能是通过键盘向文本框中输入大、小写字母及数字。单击“统计”按钮，分别统计输入字符串中大写字母、小写字母及数字字符的个数，并将统计结果分别显示在标签控件数组 x中，如图 3167 所示。在给出的窗体文件中已经添加了全部控件，但程序不完整。 要求：去掉程序中的注释符，把程序中的“?”改为正确的内容。 注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 （分数：2.00）_正确答案：(正确答案：(1)步骤 1：打开考生文件夹中的本题工程文件 sjt3vbp，在代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。参考代码： n=Len(Text1Text) b
10、=Asc(Mid(s，i，1) Select Case b For i=0 To 2 x(i)=a(i) 步骤 2：按要求将文件保存至考生文件夹中。 (2)步骤 1：打开考生文件夹中的本题工程文件 sjt4vbp，通过 List1列表框的 List属性添加四个项目：文本框、标签、命令按钮、单选按钮。 步骤 2：在代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。参考代码： For i=0 To LaListCount - 1 LbAddItem LaList(i) Next LaClear 步骤 3：按要求将文件保存至考生文件夹中。)解析：解析：(1)本题源程序在 For循环体
11、中(其中循环终值应为文本框的字符长度，即n=Len(Text1Text)，用 Mid函数逐一取出文本框中的每个字符，并用 Asc函数返回其 ASCII码。若取出字符的 ASCII码在 4857 之间，则记录数字个数的数组变量 a(0)增 1；若 ASCII码在 6590 之间，则记录大写字母个数的数组变量 a(1)增 1；若 ASCII码在 97122 之间，则记录小写字母个数的数组变量a(2)增 1。 (2)本题列表框中列表项的移动功能，是通过调用 remove过程来实现的，在 remove过程中通过 For循环(循环变量终值为 LaListCount-1)将列表框 La中的各项逐一添加到列
12、表框 Lb中，全部项目添加完成后，用列表框的 Clear方法清除该列表框中的所有项目。三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件 sjt5vbp，已给出了所有控件(如图 3141 所示)和部分程序。程序运行时，请按以下顺序操作： 1)单击“读入文件”按钮，把考生目录下的文件 in5dat 中的内容读入内存并显示在上面的文本框(Text1)中； 2)单击“加密”按钮，则可对 Text1中的内容进行加密并显示在下面的文本框(Text2)中。 3)单击“存结果“按钮则把 Text2中的内容存到 out5dat 文件中。 加密规则：对于第奇数个字符，若是字母，则把它变
13、为它后面的字符(若为“Z”则变为“A”)，不是字母则不变；对于第偶数个字符，若是字母，则把它变为它前面的字符(若为“A”则变为“Z”)，不是字母则不变。大小写字母都遵循此规则。例如： 若原有的字符是：AbbaZOHa-MnnKYzx 则加密后的字符是：BaczAFGb-NmojXaw 已经给出“存结果”按钮的 Click事件过程和函数 isletter，函数 isletter(aAsString)判断变量 a中是否为一个字母，若是则返回 True，否则返回 False，可以直接调用。 请编写“读入文件”按钮和“加密”按钮的 Click事件过程，以实现上述功能。(in5dat 文件中只含英文单词
14、和空格，不分段落和行) 注意：考生不得修改已经存在的程序，必须用“存结果“按钮存储加密结果，否则无成绩。最后，按原文件名把程序存盘。 （分数：2.00）_正确答案：(正确答案：步骤 1：打开考生文件夹中的本题工程文件 sjt5vbp，在代码编辑窗口指定位置编写以下代码。参考代码： Private Sub Command1_Click() Open“in5dat“For Input As 1 Line Input #1，s Close #1 Text1Text=s End Sub Private Sub Command2_Click() Dim i As Integer，ss As String
15、 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 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
16、) End If End If Else ss=ss & Mid(s，i，1) End If Next Text2Text=ss End Sub 步骤 2：按F5键运行程序，先单击“读入文件”按钮，接着单击“加密”按钮，然后单击“存结果”按钮保存结果，最后单击窗体右上角的关闭按钮结束程序。 步骤 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”。最后将转换得到的字母连接起来即得到结果。
