1、VB 机试-试卷 43 及答案解析(总分：12.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.基本操作题（）（分数：2.00）_2.(1)在名称为 Forml 的窗体上，画一个文本框、一个命令按钮和一个计时器控件。文本框的名称为Textl，命令按钮的名称为 Commandl、标题为“暂停”。编写适当的事件过程，使得程序运行时，文本框从初始时就显示当前时间。当单击“暂停”命令按钮后，时间将会停止不动。程序中不得使用任何变量。程序运行时的窗体界面如图 60 一 1 所示。 注意：保存时必须存放在考生文件夹下，窗体文件名为sjlfrm，工程文件名为 sjlvbp。 (2
2、)在名称为 Forml 的窗体上，画一个文本框、一个命令按钮和一个标签。文本框的名称为 Textl，内容为“模拟考试”。命令按钮的名称为 Commandl、标题为“字数统计”，标签的名称为 Labell、Caption 属性为空。编写适当的事件过程，使得程序运行时，选择文本框中的几个字符，然后单击命令按钮，将所选择的字符数在 Labell 上输出。程序中不得使用任何变量。程序运行效果如图 602 所示。 （分数：2.00）_二、简单应用题(总题数：2，分数：4.00)3.简单应用题（）（分数：2.00）_4.(1)在窗体上绘制一个名称为 Textl 的文本框，再绘制一个名称为 Cmdl、标题为
3、“计算”的命令按钮，如图 443 所示。要求程序运行后，单击命令按钮，将计算 100200 之间所有素数之和，并在文本框中显示结果，同时把结果存人文件 outtxt 中(在考生文件夹中有标准模块 modebas，其中的 putdata 过程可以把结果存入文件，而 isprime 函数可以判断整数 X 是否为素数，如果是素数，则函数返回 True，否则返回 False，考生可以把该模块文件添加到自己的工程中)。 注意：保存时必须存放在考生文件夹下，窗体文件名为 sj3frm，工程文件名为 sj3vbp，结果存入 resulttxt 文件，否则没有成绩。 (2)新建一个工程文件，在窗体 Forml
4、 上绘制一个列表框。名称为 Listl，并输入 3 个表项“6”、“21”、“43”；绘制一个文本框，名称为 Textl。请编写适当的事件过程，使得程序运行时，在列表框内选中一个数字并双击，则计算出 1500 以内能被该数整除的所有数之和，并在 Textl 中显示出来。 注意：考生完成程序编写后，将工程文件与窗体文件保存到考生文件夹下，文件名分别为 sj4vbp 与 sj4frm。程序运行时的窗体界面如图 444 所示。 （分数：2.00）_三、综合应用题(总题数：2，分数：4.00)5.综合应用题（）（分数：2.00）_6.在考生文件夹下有工程文件 sj5vbp 及窗体文件 sj5frm，该
5、程序是不完整的。在窗体上有一个文本框、两个单选按钮及两个命令按钮。文本框的名称为 Text1。内空；两个命令按钮的名称分别为 Command1与 Command2、标题分别为“读取”与“加密”；单选按钮的名称分别为 Optionl 和 Option2，标题分别为“3”和“5”。单击“读取”，程序将读入考生文件夹下的文本文件 in5txt，单击“加密”，加密过的文本显示在 Text1 中。根据单选按钮中的不同的数字，加密的方法不同。例如选择 Optionl则逐一把读入的字符串改为它前面的第 3 个字母。程序运行时效果如图 55 所示。 （分数：2.00）_VB 机试-试卷 43 答案解析(总分：
6、12.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.基本操作题（）（分数：2.00）_解析：2.(1)在名称为 Forml 的窗体上，画一个文本框、一个命令按钮和一个计时器控件。文本框的名称为Textl，命令按钮的名称为 Commandl、标题为“暂停”。编写适当的事件过程，使得程序运行时，文本框从初始时就显示当前时间。当单击“暂停”命令按钮后，时间将会停止不动。程序中不得使用任何变量。程序运行时的窗体界面如图 60 一 1 所示。 注意：保存时必须存放在考生文件夹下，窗体文件名为sjlfrm，工程文件名为 sjlvbp。 (2)在名称为 Forml 的窗体上，画
7、一个文本框、一个命令按钮和一个标签。文本框的名称为 Textl，内容为“模拟考试”。命令按钮的名称为 Commandl、标题为“字数统计”，标签的名称为 Labell、Caption 属性为空。编写适当的事件过程，使得程序运行时，选择文本框中的几个字符，然后单击命令按钮，将所选择的字符数在 Labell 上输出。程序中不得使用任何变量。程序运行效果如图 602 所示。 （分数：2.00）_正确答案：(正确答案： (1)本题考查控件的画法，命令按钮和计时器相关属性的设置及简单事件过程的编写。 标签的 Caption 属性用来设置其显示的文本。计时器能够按设定的时间间隔触发 Timer 事件，In
8、terval 属性用来设置或返回计时器 Timer 事件的时间间隔，单位为毫秒。计时器的 Enabled 属性值为True 时，计时器控件有效，Timer 事件发生；值为 False 时，计时器控件无效，Timer 事件不发生。Time()是系统函数，用于返回系统当前的时间。 根据题意，新建“标准 EXE”工程，将一个计时控件、一个命令按钮和一个文本框控件添加到窗体中，Timer 的名称为 Timerl，Command 属性的名称为Commandl、Caption 属性为“暂停”，文本框的名称为 Textl、Text 属性为空。双击 Commandl 进入代码窗口，编写如下代码： Privat
9、e Sub Commandl_Click() TimerlInterval=0 End Sub Private Sub Form_Load() TextlText=Time() TimerlInterval=1000 End Sub Private Sub Timerl_Timer() TextlText=Time() End Sub 单击 按钮运行程序，并按要求保存。 (2)本题考查文本框、命令按钮常用属性及简单事件。文本框的 SelLength 属性用来设置或返回所选择的字符数，在设计时不可用。 根据题意，新建“标准 EXE”工程，将一个文本框控件、一个命令按钮和一个标签添加到窗体中，文本
10、框的名称为 Textl、Text 属性为“模拟考试”，命令按钮的名称为 Commandl、Caption 属性为“字数统计”，标签的名称为 Labell、Caption 属性为空。双击 Commandl 进入代码窗口编写如下代码： Private Sub Commandl_Click() LabellCaption=TextlSelLength End Sub 单击 )解析：二、简单应用题(总题数：2，分数：4.00)3.简单应用题（）（分数：2.00）_解析：4.(1)在窗体上绘制一个名称为 Textl 的文本框，再绘制一个名称为 Cmdl、标题为“计算”的命令按钮，如图 443 所示。要求
11、程序运行后，单击命令按钮，将计算 100200 之间所有素数之和，并在文本框中显示结果，同时把结果存人文件 outtxt 中(在考生文件夹中有标准模块 modebas，其中的 putdata 过程可以把结果存入文件，而 isprime 函数可以判断整数 X 是否为素数，如果是素数，则函数返回 True，否则返回 False，考生可以把该模块文件添加到自己的工程中)。 注意：保存时必须存放在考生文件夹下，窗体文件名为 sj3frm，工程文件名为 sj3vbp，结果存入 resulttxt 文件，否则没有成绩。 (2)新建一个工程文件，在窗体 Forml 上绘制一个列表框。名称为 Listl，并输
12、入 3 个表项“6”、“21”、“43”；绘制一个文本框，名称为 Textl。请编写适当的事件过程，使得程序运行时，在列表框内选中一个数字并双击，则计算出 1500 以内能被该数整除的所有数之和，并在 Textl 中显示出来。 注意：考生完成程序编写后，将工程文件与窗体文件保存到考生文件夹下，文件名分别为 sj4vbp 与 sj4frm。程序运行时的窗体界面如图 444 所示。 （分数：2.00）_正确答案：(正确答案：(1)判断某数是否为素数，主要用到选择结构程序设计的思想。在窗体上建立好控件后，先设置控件的属性值，再编写事件过程。文本框中显示的内容通过 Text 属性设置，命令按钮的标题通
13、过 Captilon 属性设置，单击命令按钮触发 Click 事件。 建立菜单项。程序中用到的控件及其属性见下表： )解析：三、综合应用题(总题数：2，分数：4.00)5.综合应用题（）（分数：2.00）_解析：6.在考生文件夹下有工程文件 sj5vbp 及窗体文件 sj5frm，该程序是不完整的。在窗体上有一个文本框、两个单选按钮及两个命令按钮。文本框的名称为 Text1。内空；两个命令按钮的名称分别为 Command1与 Command2、标题分别为“读取”与“加密”；单选按钮的名称分别为 Optionl 和 Option2，标题分别为“3”和“5”。单击“读取”，程序将读入考生文件夹下的
14、文本文件 in5txt，单击“加密”，加密过的文本显示在 Text1 中。根据单选按钮中的不同的数字，加密的方法不同。例如选择 Optionl则逐一把读入的字符串改为它前面的第 3 个字母。程序运行时效果如图 55 所示。 （分数：2.00）_正确答案：(正确答案：单选按钮组常用于提供唯一选择，Value 属性值决定每个单选按钮的选中状态：False 表示未选、True 表示选中，Caption 属性用于设置或返回单选按钮的标题。Chr 函数返回 String，其中包含有与指定的字符代码相关的字符。其语法格式为：Chr(charcode)。charcode 为必要参数，是一个用来识别某字符的
15、Long 函数。Mid$(字符串，起始位置，个数)函数用于从字符串指定位置开始的含指定个数字符的字符串；String(个数，字符)函数用于返回含指定个数字符的字符串；Asc(字符串)函数用于返回字符串首字符的 ASCII 码值。 根据题意，将一个文本框控件、两个单选按钮控件和两个命令按钮添加到窗体中，文本框的名称为 Textl、Text 属性为空，单选按钮的名称分别为 Optionl 和Option2，Caption 属性分别为“3”和“5”，命令按钮的名称为 Commandl 和 Command2，Caption 属性分别为“读取”和“加密”。双击 Commandl 进入代码窗口，编写如下代
16、码： Private Sub Command1_Click() Dim str As String Dim tmp As String Dim hum As Integer str=“ 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() Di
17、m str As String Dim trap As String Dim i As Integer Dim ind As Integer If Optionl Value =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 单击 )解析：
