1、VB 机试-试卷 35 及答案解析(总分：12.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.基本操作题（）（分数：2.00）_2.(1)在名称为 Form1 的窗体中绘制一个名称为 Labell 的标签，其标题为空，BorderStyle 属性为 1；再添加一个名称为 Timer1 的计时器。请设置适当的控件属性，并编写适当的事件过程，使得运行时，标签中的数字每隔 1 秒钟加 2。程序运行效果如图 1-1 所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sj1vbp，窗体文件名为 sj1frm。(2)在窗体上设置一个文本框，名称为 Text1，再添加一
2、个命令按钮，名称为 Commandl，标题为“当前时间日期切换“；每次单击按钮时，Text1 就显示出当前时间，再单击一次，Text1 就显示当前日期。请编写相应的程序代码来完成这个功能。程序运行时的窗体界面如图 1-2 所示。 （分数：2.00）_二、简单应用题(总题数：2，分数：4.00)3.简单应用题（）（分数：2.00）_4.(1)在考生文件夹中有工程文件 sj3vbp 及其窗体文件 sj3frm，该程序是不完整的。在窗体上有一个文本框，名称为 Textl，一个列表框，名称为 List1，一个命令按钮，名称为(Command1、标题为“复制”。要求程序运行后，在列表框中自动建立 5 个
3、列表项，分别为“Temp1”、“Ternp2”、“Temp3”、“Temp4”、“Temp5”如果选择列表框中的一项，则单击“复制”按钮时，可以把该项复制到文本框中，如图 83 所示。 注意：请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。 (2)在考生文件夹中有工程文件sj4vbp 及其窗体文件 sj4frm，该程序是不完整的。在窗体上有四个复选框，名称分别为Checkl、(“heck2、Check3 和 Check4，标题分别为“足球”、“篮球”、“羽毛球”和“排球”，一个标签，名称为 Label1，还有一个
4、命令按钮，名称为 Command1，标题为“选择结果”。要求程序运行后，如果选中某个复选框，当单击“选择结果”命令按钮时，则显示相应的信息。例如，如果选中“足球”和“羽毛球”复选框，单击“选择结果”命令按钮后，在标签上显示“我喜欢的运动是足球羽毛球”，如图84 所示。 （分数：2.00）_三、综合应用题(总题数：2，分数：4.00)5.综合应用题（）（分数：2.00）_6.在考生文件夹下有一个工程文件 sj5vbp，其窗体上有一个文本框，名称为 Textl；有 3 个命令按钮，名称分别为 Commandl、Command2 和 Command3，标题分别为“输入”、“计算显示”和“保存”，程序
5、运行时的窗体界面如图 255 所示。在给定程序中有一个函数过程 isPrimeNum。其功能是判断参数是否为素数，如果是素数，则返回 True，否则返回 False。 （分数：2.00）_VB 机试-试卷 35 答案解析(总分：12.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.基本操作题（）（分数：2.00）_解析：2.(1)在名称为 Form1 的窗体中绘制一个名称为 Labell 的标签，其标题为空，BorderStyle 属性为 1；再添加一个名称为 Timer1 的计时器。请设置适当的控件属性，并编写适当的事件过程，使得运行时，标签中的数字每隔 1 秒钟
6、加 2。程序运行效果如图 1-1 所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sj1vbp，窗体文件名为 sj1frm。(2)在窗体上设置一个文本框，名称为 Text1，再添加一个命令按钮，名称为 Commandl，标题为“当前时间日期切换“；每次单击按钮时，Text1 就显示出当前时间，再单击一次，Text1 就显示当前日期。请编写相应的程序代码来完成这个功能。程序运行时的窗体界面如图 1-2 所示。 （分数：2.00）_正确答案：(正确答案： (1)计时器的 Interval 属性用于设置每次触发计时器的 Timer 事件的时间间隔，单位为毫秒。Enabled 属性控制计时器
7、是否开始启用，True 表示启用，False 表示不启用。 根据题意，新建“标准 EXE”工程，将一个标签和一个计时器控件添加到窗体中，标签的名称为 Labell、Caption 属性为“0”，Timer 的名称为 Timerl、Interval 属性为“1000”。设置完成后双击 Commandl 进入代码窗口，编写如下代码： Private Sub Timer1_Timer() LabellCaption=Val(LabellCaption)+2 每过一个间隔计数加 2 End Sub 单击 按钮运行程序，并按要求保存。 (2)根据题意，新建“标准 EXE”工程，将一个文本框控件和一个命令
8、按钮添加到窗体中文本框的名称为 Text1、Text 属性为空，命令按钮的名称为 Command1、Caption 属性为“当前时间/日期切换”。双击 Commandl 进入代码窗口，编写如下代码： Dim i As Integer Private Sub Commandl_Click() If i=0 Then Text1Text=Date i=1显示标识，1 表示显示的是日期 Else Text1Text=Time i=00 表示显示的是时间 End If End Sub Private Sub Form_Load() Text1Text=Time i=0 End Sub 单击 )解析：二
9、、简单应用题(总题数：2，分数：4.00)3.简单应用题（）（分数：2.00）_解析：4.(1)在考生文件夹中有工程文件 sj3vbp 及其窗体文件 sj3frm，该程序是不完整的。在窗体上有一个文本框，名称为 Textl，一个列表框，名称为 List1，一个命令按钮，名称为(Command1、标题为“复制”。要求程序运行后，在列表框中自动建立 5 个列表项，分别为“Temp1”、“Ternp2”、“Temp3”、“Temp4”、“Temp5”如果选择列表框中的一项，则单击“复制”按钮时，可以把该项复制到文本框中，如图 83 所示。 注意：请在有“?”的地方填入正确内容，然后删除“?”及代码前
10、的所有注释符(即“”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。 (2)在考生文件夹中有工程文件sj4vbp 及其窗体文件 sj4frm，该程序是不完整的。在窗体上有四个复选框，名称分别为Checkl、(“heck2、Check3 和 Check4，标题分别为“足球”、“篮球”、“羽毛球”和“排球”，一个标签，名称为 Label1，还有一个命令按钮，名称为 Command1，标题为“选择结果”。要求程序运行后，如果选中某个复选框，当单击“选择结果”命令按钮时，则显示相应的信息。例如，如果选中“足球”和“羽毛球”复选框，单击“选择结果”命令按钮后，在标签上显示“我喜欢的运动是足球羽毛
11、球”，如图84 所示。 （分数：2.00）_正确答案：(正确答案：(1)根据题意，新建“标准 EXE”工程，在窗体空白处单击右键，选择菜单编辑器添加以下菜单项： 单击“确定”按钮，单击 按钮运行程序，并按要求保存即可。 (2)根据题意，新建“标准 EXE”工程，在窗体中画一个框架控件和一个文本框控件，将框架的名称设置为Framel、Caption 属性设置为框架、Height、Width 属性分别设置为 2 500、3 500，将文本框的 Text 属性设置为文本框，Left、Top 属性分别设置为 500、1 000。 单击 按钮运行程序并按要求保存。 二、简单应用题 (1)向列表框中添加项
12、目可以用 AddItem 方法，也可以在属性窗口中设置。但题目中要求程序运行后自动添加，所以这里应该用代码实现。列表框的 Text 属性为最后一次选中的表项的文本，也就是要显示在文本框中的。补充后的代码如下： Private Sub Form_Load() Listl AddItem “Templ“ 加入元素 1 Listl AddItem “Temp2“ 加入元素 2 Listl AddItem “Temp3“ Listl Addltem “Femp4“ Listl AddItem “Temp5“ End Sub Private Sub Commandl_Click() Textl Text
13、 =ListlText 将 Listl 中选中的文本赋值给 Textl 的文本 End Sub 单击 按钮运行程序，并按要求保存。 (2)单击命令按钮触发 Click 事件，本题程序中主要是判断复选按钮的状态和在标签上显示复选按钮的 Caption 属性值，判断复选按钮的状态可以通过 Value 属性来实现。如果复选按钮被选中，则Value 值为 1，否则 Value 值为 0。把复选按钮的 Caption 属性值赋给标签的 Caption 属性即可显示相应的文字。补充后的代码如下： Private Sub Commandl_Click() Dim str As String str=“我喜欢
14、的运动是“ If Check1Value Then sty=str+Checkl Caption Else Str=Str End If If Check2Value Then str=str+Check2 Caption Else Str=Str End If If Check3Value Then str=str+Check3 Caption Else str=str End If If Check4Value Then str=str+Check4 Caption Else str=Str End If Labell Caption =str End Sub Private Sub Fo
15、rm Load() LabellCaption=“ End Sub 单击 )解析：三、综合应用题(总题数：2，分数：4.00)5.综合应用题（）（分数：2.00）_解析：6.在考生文件夹下有一个工程文件 sj5vbp，其窗体上有一个文本框，名称为 Textl；有 3 个命令按钮，名称分别为 Commandl、Command2 和 Command3，标题分别为“输入”、“计算显示”和“保存”，程序运行时的窗体界面如图 255 所示。在给定程序中有一个函数过程 isPrimeNum。其功能是判断参数是否为素数，如果是素数，则返回 True，否则返回 False。 （分数：2.00）_正确答案：(正
16、确答案： 素数的判断准则就是看该数是否除了 1 及其本身外无其他约数(即从 2 到 n-1 之间没有可以将其整除的数)即可。文本框用 Text 属性来显示计算结果，其形式为：文本框名Text=显示内容。将数据写入文件可用命令 Write#或 Print#，本程序中用的是后者，其形式为：Print#文件号，输出列表。 根据题意，将一个文本框控件和 3 个命令按钮添加到窗体中，文本框的名称为 Textl，Text 属性为空，命令按钮的名称分别为 Commandl、Command2 和 Command3，Caption 属性分别为“输入”、“计算显示”和“保存”。双击 Commandl 进入代码窗口
17、，编写如下代码： Dim a As Integer Dim res As Integer Private Sub Commandl_Click() a=Val( InputBox (“输入参数：“) 弹出输入对话框 End Sub Private Sub Command2_Click() While isPrimeNum(a)= False 如果输入参数不是素数则继续循环 a=a-1 Wend Textl Text =a将获得的素数在 Text1 中显示出来 End Sub Function isPrimeNum(num As Integer)As Boolean判断输入是否为素数 isPrimeNum=True Dim i As Integer For i=2 To num-1 If num Mod i=0 Then isPrimeNum=False End If Next i End Function Private Sub Command3 Click() Open AppPath”out5txt”For Output As #1 Write #1，a Close#1 End Sub 单击 )解析：
