1、VB 机试-试卷 12 及答案解析(总分：12.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.基本操作题（）（分数：2.00）_2.在名为 Form1 的窗体上绘制两个标签(名称分别为 Lab1 和 Lab2，标题分别为“姓名”和“年龄”)、两个文本框(名称分别为 Text1 和 Text2，Text 属性均为空白)和一个命令按钮(名称为 Cmd1，标题为Display)。然后编写命令按钮的 Click 事件过程，使程序运行后，在两个文本框中分别输入姓名和年龄，然后单击命令按钮，则在窗体上显示两个文本框中的内容，如下图所示。 （分数：2.00）_二、简单应用题(总
2、题数：2，分数：4.00)3.简单应用题（）（分数：2.00）_4.在考生文件夹中有一个工程文件 execise76.vbp(相应的窗体文件名为 execise76.frm)，在名为 Form1的窗体上有 4 个文本框，初始内容为空:1 个命令按钮，标题为 Average。其功能是通过调用过程 Average求数组的平均值。请装入该文件。程序运行后，在 4 个文本框中各输入一个整数，然后单击命令按钮，即可求出数组的平均值，并在窗体上显示出来，如下图所示。 （分数：2.00）_三、综合应用题(总题数：2，分数：4.00)5.综合应用题（）（分数：2.00）_6.在考生文件夹下有工程文件 sj5v
3、bp 及窗体文件 sj5frm，该程序是不完整的。在窗体上有一个文本框、两个单选按钮及两个命令按钮。文本框的名称为 Text1。内空；两个命令按钮的名称分别为 Command1与 Command2、标题分别为“读取”与“加密”；单选按钮的名称分别为 Optionl 和 Option2，标题分别为“3”和“5”。单击“读取”，程序将读入考生文件夹下的文本文件 in5txt，单击“加密”，加密过的文本显示在 Text1 中。根据单选按钮中的不同的数字，加密的方法不同。例如选择 Optionl则逐一把读入的字符串改为它前面的第 3 个字母。程序运行时效果如图 55 所示。 （分数：2.00）_VB
4、机试-试卷 12 答案解析(总分：12.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.基本操作题（）（分数：2.00）_解析：2.在名为 Form1 的窗体上绘制两个标签(名称分别为 Lab1 和 Lab2，标题分别为“姓名”和“年龄”)、两个文本框(名称分别为 Text1 和 Text2，Text 属性均为空白)和一个命令按钮(名称为 Cmd1，标题为Display)。然后编写命令按钮的 Click 事件过程，使程序运行后，在两个文本框中分别输入姓名和年龄，然后单击命令按钮，则在窗体上显示两个文本框中的内容，如下图所示。 （分数：2.00）_正确答案：(正确答案
5、： )解析：二、简单应用题(总题数：2，分数：4.00)3.简单应用题（）（分数：2.00）_解析：4.在考生文件夹中有一个工程文件 execise76.vbp(相应的窗体文件名为 execise76.frm)，在名为 Form1的窗体上有 4 个文本框，初始内容为空:1 个命令按钮，标题为 Average。其功能是通过调用过程 Average求数组的平均值。请装入该文件。程序运行后，在 4 个文本框中各输入一个整数，然后单击命令按钮，即可求出数组的平均值，并在窗体上显示出来，如下图所示。 （分数：2.00）_正确答案：(正确答案： )解析：三、综合应用题(总题数：2，分数：4.00)5.综合
6、应用题（）（分数：2.00）_解析：6.在考生文件夹下有工程文件 sj5vbp 及窗体文件 sj5frm，该程序是不完整的。在窗体上有一个文本框、两个单选按钮及两个命令按钮。文本框的名称为 Text1。内空；两个命令按钮的名称分别为 Command1与 Command2、标题分别为“读取”与“加密”；单选按钮的名称分别为 Optionl 和 Option2，标题分别为“3”和“5”。单击“读取”，程序将读入考生文件夹下的文本文件 in5txt，单击“加密”，加密过的文本显示在 Text1 中。根据单选按钮中的不同的数字，加密的方法不同。例如选择 Optionl则逐一把读入的字符串改为它前面的第
7、 3 个字母。程序运行时效果如图 55 所示。 （分数：2.00）_正确答案：(正确答案：单选按钮组常用于提供唯一选择，Value 属性值决定每个单选按钮的选中状态：False 表示未选、True 表示选中，Caption 属性用于设置或返回单选按钮的标题。Chr 函数返回 String，其中包含有与指定的字符代码相关的字符。其语法格式为：Chr(charcode)。charcode 为必要参数，是一个用来识别某字符的 Long 函数。Mid$(字符串，起始位置，个数)函数用于从字符串指定位置开始的含指定个数字符的字符串；String(个数，字符)函数用于返回含指定个数字符的字符串；Asc(字
8、符串)函数用于返回字符串首字符的 ASCII 码值。 根据题意，将一个文本框控件、两个单选按钮控件和两个命令按钮添加到窗体中，文本框的名称为 Textl、Text 属性为空，单选按钮的名称分别为 Optionl 和Option2，Caption 属性分别为“3”和“5”，命令按钮的名称为 Commandl 和 Command2，Caption 属性分别为“读取”和“加密”。双击 Commandl 进入代码窗口，编写如下代码： Private Sub Command1_Click() Dim str As String Dim tmp As String Dim hum As Integer s
9、tr=“ Open“AppPath&in5txt“For Input As#1 打开文件准备读取 While EOF(1)=False 判断是否读到文件尾 Input#1，tmp读取文件 str=str+trap 将渎取的文本连接起来放入 str 中 Wend Close#l关闭文件 Textl Text str在 Textl 中显示 str End Sub Private Sub Command2_Click() Dim str As String Dim trap As String Dim i As Integer Dim ind As Integer If Optionl Value
10、=True Then ind=3当选中 Optionl 时，则移 3 位 ElseIf Option2 Value =True Then ind=5当选中 Option2 时，则移 5 位 End If str=“ For i=1 To Len(TextlText) tmp=Mid(Text1Text，i，1) 一个一个读入字符(Mid 函数) If Asc(tmp)=Asc(“A“)Then If Asc(trap)=Asc(“a“)Then tmp=Chr(Asc(tmp)-ind-Asc(“a“)+26)Mod 26+Asc(“a“) Else当输入为大写字母时 tmp=Chr(Asc(tmp)-ind-Asc(“A“)+26)Mod 26+Asc(“A“) End If End If str=str +tmp 将字符串连起来 Next i Textl Text =str 在 Textl 中将加密后的字符串显示出来 End Sub 单击 )解析：
