2012全国计算机二级VB机试模拟题 (10)

1
第1小题
【审题分析】本题只需按要求画出控件并设置其相关属性即可。

【操作步骤】
步骤1：新建一个"标准EXE"工程，按表99-1在窗体中画出控件并设置其相关属性。

表99-1
步骤2：按要求将文件保存至考生文件夹中。

【主要考点】水平滚动条、标签。

第2小题
【知识点播】形状控件的FillStyle用于设置其填充样式，1－Transparent-
透明、0－Solid-实线、2－Horizontal Line-水平线、3－V ertical Line-垂直线、4－Upward Diagonal-向上对角线、5－DownWard Diag-向下对角线、6－Cross-交叉线、7－Diagonal Cross对角交叉线，缺省值为1。

【审题分析】本题需分别在两个命令按钮的Click事件过程中，编写设置形状控件Shp1的FillStyle属性为相应值的语句。

【操作步骤】
步骤1：新建一个"标准EXE"工程，按表99-2在窗体中画出控件并设置其相关属性。

表99-2
步骤2：在代码编辑窗口编写两个命令按钮的单击事件过程。

参考代码：
Private Sub Cmd1_Click()
Shp1.FillStyle = 3
End Sub
Private Sub Cmd2_Click()
Shp1.FillStyle = 2
End Sub
步骤3：按要求将文件保存至考生文件夹中。

2
第1小题
【知识点播】①KeyPress(KeyAscii As Integer) 事件是在对象具有焦点时，按下键盘上的键时触发的事件，KeyAscii参数是所按键的ASCII的代码，将每个字符的大、小写形式作为不同的键代码解释。

Asc()函数可返回字符的ASCII 码值，该值可以进行数学运算。

②数字0~9的ASCII码范围为48~57，大写字母A~Z的ASCII码范围为65~90，小写字母a~z的ASCII码范围为97~122，空（NUL）的ASCII码为0。

③组合框的列表项既可以在设计阶段通过其List属性设置加入（注意：每输入完一项后按<Ctrl+Enter>键换行再输入下一项），也可在程序运行时通过AddItem方法加入，其语法为：组合框名.AddItem 项目字符串[,索引值]。

其中，"索引值"可以指定插入项在列表框中的位置，表中的项目从0开始计数。

如果省略"索引值"，则文本被放在列表框的尾部。

【审题分析】本题源程序要在文本框中防止非数字字符的输入，应在其KeyPress事件过程中，将输入字符的KeyAscii值大于57或小于48的重新赋值为0。

向组合框中输入项目，应使用其AddItem方法。

【操作步骤】
步骤1：打开考生文件夹下的本题工程文件vbsj3.vbp。

在代码编辑窗口，去掉程序中的注释符"'"，将问号"？"改为正确的内容。

参考代码：
Cbo1.AddItem Txt1.Text
If KeyAscii > 57 Or KeyAscii < 48 Then
KeyAscii = 0
步骤2：按要求将文件保存至考生文件夹中。

第2小题
【审题分析】设计本题程序的思路：利用For循环语句（循环变量i的初值为0，终值为2）逐一判断单选按钮数组的元素是否选中，If语句的条件表达式为：Opt1(i).V alue = True，若选中，则求该单选按钮对应整数的阶乘。

计算某整数s的阶乘，可通过For循环语句来实现：令循环变量j的初值为1，终值为s，步长为1，将j的各次取值通过表达式temp=temp*j累积，temp的初始值应设置为1，才能保证计算的正确性。

【操作步骤】
步骤1：打开考生文件中的本题工程文件vbsj4.vbp，按表99-3在窗体中用"复制"和"粘贴"命令画出包含3个元素的单选按钮数组、1个文本框和1个命令按钮并设置属性。

表99-3
步骤2：在代码编辑窗口，编写"计算"按钮的单击事件过程。

参考代码：
Private Sub Cmd1_Click()
Dim s As Integer
Dim i As Integer
Dim j As Integer
temp = 1
For i = 0 To 2
If Opt1(i).Value = True Then
For j = 1 To Val(Opt1(i).Caption)
temp = temp * j
Next
End If
Next
Txt1.Text = temp
End Sub
步骤3：按要求将文件保存至考生文件夹中。

步骤4：按<F5>运行程序，先选中一个选项，接着单击"计算"按钮，然后单击窗体右上角的关闭按钮结束程序。

【主要考点】阶乘算法、单选按钮数组。

3
【知识点播】①Input函数用于读取以Input 或Binary 方式打开的文件中的字符。

其语法格式为：
Input(number, [#]filenumber)
其中，number 表示指定要返回的字符个数，filenumber为打开文件的文件号。

与Input # 语句不同，Input 函数返回它所读出的所有字符，包括逗号、回车符、空白列、换行符、引号和前导空格等。

②LOF函数可返回一个用Open 语句打开的文件的大小，该大小以字节为单位，返回值为Long数据类型。

③Asc()函数返回字符的ASCII码值，该值可以进行数学运算。

④Len()是求字符串长度函数。

⑤Chr()返回ASCII码对应的字符，可以说Asc()函数与Chr()函数是一对相反的函数。

⑥Mid(字符串,起始位置[,个数])函数用于从已有字符串中取出从指定位置开始的含指定个数字符的字符串。

【审题分析】程序设计思路：通过For循环用Mid函数逐一取出字符串s 中的每个字符，并将其转换成大写后赋值给字符变量（如ch），若该字符介于A~Z之间，则该字母的记录次数增1（用数组元素a(Asc(ch) - 64)记录该字母出现次数，表达式Asc(ch) - 64为该字母在字母表中的序号）。

通过For循环，用字母表中第一个字母的出现次数（max=a(1)）依次与字母表中其他字母（序号为2~26）的出现次数比较，将其中的较大值存入一个变量（如max，初值为a(1)），并用另一个变量（如num，初值为1）记录下该
字母在字母表中的序号。

比较结束，在文本框Txt1中显示表达式Chr(num + 64)的值，在文本框Txt2中变量max的值。

【操作步骤】
步骤1：打开考生文件夹下的本题工程文件vbsj5.vbp，按表99-4在窗体Form1中画出控件，并分别设置它们的相关属性。

表99-4
步骤2：在代码编辑窗口的指定位置，编写"统计"按钮的单击事件过程。

参考代码：
Private Sub cmdCount_Click()
' 考生编写
Dim ch As String
Dim a(26) As Integer
Dim max As Integer
For i = 1 To Len(s)
ch = UCase(Mid(s, i, 1))
If ch >= "A" And ch <= "Z" Then
a(Asc(ch)-64)=a(Asc(ch)-64)+1
End If
Next
max = a(1)
num = 1
For i = 2 To 26
If max < a(i) Then
max = a(i)
num = i
End If
Next
Txt1.Text = Chr(num + 64)
Txt2.Text = max
End Sub
步骤3：按要求将文件保存至考生文件夹中。

步骤4：按<F5>运行程序，先单击"读数"按钮，接着单击"统计"按钮，然后单击窗体右上角的关闭按钮结束程序。