2015年计算机二级考试《VB》全真机考操作试题(3)
基本操作题
1在名称为Form1的窗体上添加一个名称为Label1的标签，标签的宽和高分别为2000、300，有边框，并利用属性窗口设置适当的属性，使其标题“等级考试”居中显示，并使标签的外观如图所示。
【考点分析】本题考点有：标签的Name、Caption、Width、Height、BorderStyle和Alignment属性。
【解题思路】标签的Name、Caption、Width和Height属性设置标签的名称、标题、宽和高，通过BorderStyle属性为标签设置边框，Alignment属性用来设置标签中文本的对齐方式。
【操作步骤】
步骤1：新建一个窗体，按照题目要求建立标签控件井没置其属性，如图3.32所示。
程序中用到的控件及属性见表3.47。
步骤2：调试并运行程序，关闭程序后按题目要求存盘。
2在名称为Form1的窗体上画两个标签(名称分别为Label1和Label2，标题分别为“姓名”和“年龄”)、两个文本框(名称分别为Textl和Text2，初始内容均为空)和一个命令按钮(名称为Command1，标题为“显示”)。然后编写命令按钮的Click事件过程。程序运行后，在两个文本框中分别输人姓名和年龄，然后单击“显示”按钮，则在窗体上显示两个文本框中的内容，如图所示。要求程序中不得使用任何变量。
【考点分析】本题考点有：标签的Name和Caption属性、文本框Name和Text属性、命令按钮的Name和Caption属性、“&”和“+”运算符以及Print方法。
【解题思路】通过标签的Name和Caption属性设置标签的名称和标题，通过文本框Name和Text属性设置文本框的名称和文本，通过命令按钮的Name和Caption属性设置命令按钮的名称和标题，“&”和“+”运算符均可将两个表达式作为字符串连接。在窗体上输出文本内容可使用Print方法。
【操作步骤】
步骤1：新建一个窗体，按照题目要求建立控件并设置相应属性，程序中用到的控件及属性如表3.16所示。
步骤2：打开代码编辑窗口，在指定位置编写如下代码。
参考答案
Private Sub Command1_Click()
Form1.Print Text1.Text&"，现年"&
Text2.Text&"岁"
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
简单应用题
3在考生文件夹下有一个工程文件sit4.vbp，窗体上已经添加所有控件，如图所示。在程序运行时，如果单击“开始”按钮，则每隔0.1秒窗体上的汽车图标向右移动一次(初始状态下不移动);如果单击“停止”按钮，则停止移动。
请完成以下工作：
①设置适当控件的适当属性，使得每0.1秒汽车图标向右移动一次，而初始状态下不移动。
②请去掉程序中的注释符，把程序中的?改为正确的内容。
③为两个命令按钮编写适当的事件过程.最后以原文件名存盘。
注意：不得修改已经给出的程序。编写事件的过程中不能使用变量，每个事件过程中只能有一条语句。
【考点分析】本题考点有：计时器的Interval和Ena-bled属性以及图片框的Left属性。
【解题思路】首先通过计时器的Interval和Enabled属性设置计时器每次改变的时间间隔和计时器是否可用，根据题意，在初始状态下Enabled属性设置为False，在计时器的Tim-er事件过程中，通过图片框的Left属性值的改变来实现自左向右移动的功能。在“开始”按钮的单击事件过程中应启用计时器，在“停止”按钮的单击事件过程中必须停止计时器。
【操作步骤】
步骤1：打开本题工程文件，设置计时器Interval的属性为100，将Enabled属性设置为False。
步骤2：打开代码编辑窗口，在指定位置编写如下代码。
参考答案
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【易错提示】计时器的Interval属性是以毫秒为单位的，因此在设置时要注意ls=1000ms。
4在考生文件夹下有一个工程文件sit4.vbp，其窗体如图所示。该程序用来对在上面的文本框中输入的英文字母串(称为“明文”)加密，加密结果(称为“密文”)显示在下面的文本框中。加密的方法为：选中一个单选按钮，单击“加密”按钮后，根据选中的单选按钮后面的数字n，将“明文”中的每个字母改为它后面的第lt个字母(“z”后面的字母认为是“8t”，“Z”后面的字母认为是“A”)，如图所示。窗体中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。
注意：不得修改程序中的其他部分和控件的属性。最后将修改后的文件按原文件名存盘。
【考点分析】本题考点有：Mid()函数、Len()函数、Asc()函数、String()函数、单选按钮Value、If判断语句以及For循环语句。
【解题思路】根据题意，首先要确定移动的位数，移动的位数是通过单选按钮来选择的，移动的值是由单选按钮的Caption属性值决定的，然后要确定循环的次数，循环的次数是由输入字母的个数决定的。使用Mid()函数取出字符串中的字符，利用Asc()函数返回字符的代码，利用String()函数将字符代码转换成字符。
Mid()函数的格式为Mid(字符串，P，n)。其中，Mid()函数从第P个字符开始，向后截取n个字符，P和n都是算术表达式。Mid()函数的第3个变量可以省，这样将从第P个字符开始向后截取到字符串的结尾。
String()函数用于重复指定字符串中的字符，返回新的字符串。
Asc()函数用于返回一个Integer，代表字符串中首字母的字符代码。
【操作步骤】
步骤1：打开本题工程文件。
步骤2：打开代码编辑窗口，去掉程序中的注释符“´”，将问号改为正确的内容。
参考答案(横线部分是需考生填入的内容)
Private Sub Command1_Click()
Dim n As Integer，k As Integer，m As Integer
Dim c As String，a As String
For k=0 To 2
If Op1(k).Value Then
n=Val(Op1(k).____Caption______)
End If
Next k
m=Len(Text1.Text)
a=""
Fork=1 To__m_______
c=Mid$(Text1.Text，_____k_____，1)
c=String(1，Asc(c)+n)
If c>"z"Or c>”Z”And c<"a"Then
e=String(1，Asc(c)一26)
End If
__________=a+c
Next k
Text2.Text=a
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【易错提示】单选按钮数组的起始下标为0，而不是1，在循环和判断的时候要特别注意。
综合操作题
5在考生文件夹下有一个工程文件sit5.vbp，功能是用来计算勾股定理整数组合的个数。勾股定理中3个数的关系是：a2+b2=C2。例如，3、4,5就是一个满足条件的整数组合(注意：a，b，C分别为4，3，5与分别为3，4，5被视为同一个组合，不应该重复计算)。编写程序，统计均在60以内的三个数满足上述关系的整数组合的个数，并显示在标签Labell中。
注意：不得修改原有程序的控件属性。在结束程序运行之前，必须至少正确运行一次程序，将统计的结果显示在标签中，否则无成绩。最后把修改后的文件按原文件名存盘。
【考点分析】本题考点有：嵌套循环、文件编辑以及If判断语句。
【解题思路】通过循环嵌套实现遍历60以内的整数，通过勾股定理表达式判断是否为勾股数整数组合，并通过变量的累加实现勾股定理整数组合个数的统计。
【操作步骤】
步骤1：打开本题工程文件。
步骤2：打开代码编辑窗口，在代码编辑窗口指定位置编写以下代码。
参考答案：
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【易错提示】注意通过嵌套循环得出的m值，为所求m值的2倍，例如5^2=4^2+3^2，同时5^2=3^2+4^
2，因此最后的值应为m/2。