1、国家二级 VB机试（上机操作）模拟试卷 326及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.(1)在名称为 Form1的窗体上添加一个名称为 L1的标签，标签上标题为“请输入密码”，添加一个名称为 Text1的文本框，其宽、高分别为 2000和 300，设置适当的属性，使得在输入密码时，文本框中显示为“*”字符，此外再把窗体的标题设置为“密码窗口”，以上这些设置都必须在属性窗口中进行，程序运行时的窗体如图所示。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt1vbp，窗体文件名保存为 sjt1frm。 (2)在名称为 Form1
2、的窗体上添加一个名称为 P1的图片框，请编写适当的事件过程，使得程序在运行时，每单击一次图片框，就在图片框中输出“单击图片框”，每单击图片框外的窗体一次，就在窗体中输出“单击窗体”，运行时的窗体如图所示。要求在程序中不得使用变量，每个事件过程中只能写一条语句。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt2vbp，窗体文件名保存为 sjt2frm。 （分数：2.00）_二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 Sjt3vbp，包含了所有控件和部分程序。程序运行时，在文本框中每输入一个字符，则立即判断：若是小写字母，则将它的大写形式显示在标
3、签 Labell中；若是大写字母，则把它的小写形式显示在 Label1中，若是其他字符，则将该字符直接显示在 Labell中。输入的字母总数则显示在标签 Label2中，如图所示。 要求：去掉程序中的注释符，把程序中的?改为正确的内容。 注意：不得修改已经存在的程序，最后将修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4vbp。窗体中有一个图片框，图片框中有一个蓝色圆，名称为 Shape1，如图所示。 当程序运行时，单击“开始”按钮，圆半径逐渐变大(圆心位置不变)，当圆充满图片框时则变为红色，并开始逐渐缩小，当缩小到初始大小时又变为蓝色，并再次逐渐变大，如此往复。单击
4、“停止”按钮，则停止变化。文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。 （分数：2.00）_三、综合应用题(总题数：1，分数：2.00)3.考生文件夹下有一个工程文件 sjt5vbp，窗体上有两个文本框，名称分别为 Text1、Text2，都可以多行显示。还有三个命令按钮，名称分别为 C1、C2、C3，标题分别为“取数”、“排序”、“存盘”。“取数”按钮的功能是将考生文件夹下的 in5dat 文件中的 50个整数读到数组中，并在 Text1中显示出来；“排序”按钮的功能是对这 50个数按升序排序，并显示在 Text2中；“存盘”按钮的功能是把
5、排好序的 50个数存到考生目录下的 out5dat 文件中，如图所示。在窗体中已经给出了全部控件和部分程序代码，要求阅读程序并去掉程序中的注释符，把程序中的?改为正确的内容，并编写“排序”按钮的Click事件过程，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。最后将修改后的文件按原文件名存盘。 （分数：2.00）_国家二级 VB机试（上机操作）模拟试卷 326答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.(1)在名称为 Form1的窗体上添加一个名称为 L1的标签，标签上标题为“请输入密码”，添加一个名称为 Text1的文
6、本框，其宽、高分别为 2000和 300，设置适当的属性，使得在输入密码时，文本框中显示为“*”字符，此外再把窗体的标题设置为“密码窗口”，以上这些设置都必须在属性窗口中进行，程序运行时的窗体如图所示。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt1vbp，窗体文件名保存为 sjt1frm。 (2)在名称为 Form1的窗体上添加一个名称为 P1的图片框，请编写适当的事件过程，使得程序在运行时，每单击一次图片框，就在图片框中输出“单击图片框”，每单击图片框外的窗体一次，就在窗体中输出“单击窗体”，运行时的窗体如图所示。要求在程序中不得使用变量，每个事件过程中只能写一条语句。 注
7、意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt2vbp，窗体文件名保存为 sjt2frm。 （分数：2.00）_正确答案：(正确答案：(1)【操作步骤】 步骤 1：新建一个窗体，按照要求建立控件并设置其属性，如图 311 所示。 程序中用到的控件及属性如表 37 所示。 步骤 2：调试并运行程序，效果如图 312 所示。 步骤 3：关闭程序后按题目要求保存工程和窗体文件。 (2)【操作步骤】 步骤 1：新建一个窗体，按照题目要求建立控件并设置其属性，如图 313 所示。 )解析：二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 Sjt3vbp，包含了
8、所有控件和部分程序。程序运行时，在文本框中每输入一个字符，则立即判断：若是小写字母，则将它的大写形式显示在标签 Labell中；若是大写字母，则把它的小写形式显示在 Label1中，若是其他字符，则将该字符直接显示在 Labell中。输入的字母总数则显示在标签 Label2中，如图所示。 要求：去掉程序中的注释符，把程序中的?改为正确的内容。 注意：不得修改已经存在的程序，最后将修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4vbp。窗体中有一个图片框，图片框中有一个蓝色圆，名称为 Shape1，如图所示。 当程序运行时，单击“开始”按钮，圆半径逐渐变大(圆心位置不变
9、)，当圆充满图片框时则变为红色，并开始逐渐缩小，当缩小到初始大小时又变为蓝色，并再次逐渐变大，如此往复。单击“停止”按钮，则停止变化。文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。 （分数：2.00）_正确答案：(正确答案：(1)【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符“”，将问号改为正确的内容。 Dim n As Integer Private Sub Text1 Change() Dim ch As String ch=Right$(Text1,1)通过 Right函数从 Text1中取 1
10、位 If ch=“A“ And ch=”Z”Then 判断 ch的范围是否在 AZ中 Label1Caption=Lcase(ch)将大写的 ch转换为小写 n=n+1累加大写字符个数 E1seIf ch=”a”And ch=”z” Then 判断 ch是否为小写字母 Label1Caption=Ucase(ch) 将 ch转换为大写 n=n+1累加小写字符个数 Else Label1Caption=ch当不在字母范围内。则直接赋值显示 End If Label2Caption=nLabel2 中显示满足条件的个数 End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 (2)
11、【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符“”，将问号改为正确的内容。 Dim left0 As Integer Const blue_color=&HFF0000，red color=HFF& Private Sub Commandl_Click() Timer1Enabled=True 单击”开始”按钮，Timer 生效 End Sub Private Sub Command2_Click() Timer1Enabled=False单击“结束”按钮Timer 失效 End Sub Private Sub Form_Load() left0=S
12、hapelLeft加裁窗体时，初始化圆心到窗体的距离 End Sub Private Sub Timerl_Timer() If ShapelFillColor=blue_color Then If ShapelLeft0 Then ShapelHeight=Shape1. Height +100圆的高扩大 100 Shape1Width=Shapel Width+100 ShapelLeft=Shapel Left 一 50圆心到图片框左边上边的距离 Shape1Top=Shape1Top 一 50 Else Shape1FillColor= red_color当充满图片框时则变色 End
13、If End If If Shape1FillColor=red_color Then If ShapelLeftleft0 Then Shape1Height=Shape1 Height-i00 Shape1Width=Shapel Width100 Shapel.Left=Shape1 Left+50 设置 Shapel的左边位置 Shapel.Top=Shape1Top +50 设置 Shape1的上界位置 Else Shape1FillColor = blue_color 当缩小到原始大小时则变色 End If End If End Sub 步骤 3：调试并运行程序，关闭程序后按题目要
14、求存盘。)解析：三、综合应用题(总题数：1，分数：2.00)3.考生文件夹下有一个工程文件 sjt5vbp，窗体上有两个文本框，名称分别为 Text1、Text2，都可以多行显示。还有三个命令按钮，名称分别为 C1、C2、C3，标题分别为“取数”、“排序”、“存盘”。“取数”按钮的功能是将考生文件夹下的 in5dat 文件中的 50个整数读到数组中，并在 Text1中显示出来；“排序”按钮的功能是对这 50个数按升序排序，并显示在 Text2中；“存盘”按钮的功能是把排好序的 50个数存到考生目录下的 out5dat 文件中，如图所示。在窗体中已经给出了全部控件和部分程序代码，要求阅读程序并去
15、掉程序中的注释符，把程序中的?改为正确的内容，并编写“排序”按钮的Click事件过程，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。最后将修改后的文件按原文件名存盘。 （分数：2.00）_正确答案：(正确答案：【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符“”，将问号改为正确的内容，并编写代码。 Dim a(50)As Integer Private Sub C1_Click() Dim k As Integer，ch As String Open”in5dat”For Input As #1 ch=” For k=1 To 5
16、0 Input#1，s(k)将取出的数据存入数组 a中 ch=ch+Str(a(k)+”“将数据存入 ch Next k C10se #1 Text1Text=ch在 Text1文本框中显示文件内容 End Sub Private Sub C2_Click() End Sub Private Sub C3 Click() Open”out5dat”For Output As #1 Print#1，Text2Text Close #1 End Sub 需编写的“排序”按钮的代码 Private Sub C2_Click() Dim t As Integer Dim i As Integer Dim j As Integer Dim ch As String ch=” For i=50 To 2 Step1彼用冒泡算法从小 到大排序 For j=1 To 49 If a(j)a(j+1)Then两 两比较 t=a(j+1) a(j+1)=a(j) a(j)=t End If Next j Next i For j=1 To 50将排序后的数组重新赋给 ch ch=ch+Str(a(j)+” Next j Text2Text=ch End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。)解析：
