1、VB机试模拟试卷 175及答案与解析 一、基本操作题( 30分) 1 (1)在名称为 Forml的窗体上画一个标签,名称为 Labell,标签上显示 “密码 ”,在标签的右边画一个文本框,名称为 Textl,其宽和高分别为 1 600和 350,设置适当的属性使得在输入密码时,文本框中显示 “*”字符,另外再把窗体的标题设置为 “输入密码 ”,以上这些设置都只能在属性窗口中进行设置,运行时的窗体如图 251所示。 注意:存盘时必须存放在考生文件夹下,工程文件名为 sjl vbp,窗体文件名为 sjl frm。 (2)在名称为 Forml的窗体上画一个图片框,名称为 Picl。请编写适当的事件过
2、程,使得在运行时,每单击窗体一次就在窗体中输出 “窗体 ”一次,每单击图片框一次,就在图片框中输出 “图片框 ”一次,如图 252所示。要求程序中不得使用变量,每个事件过程中只能写一条语句。注意:存盘时必须存放在考生文件夹下,工程文件名为 sj2 vbp,窗体文件名为sj2 frm。 二、简单应用题( 40分) 2 注意:下面出现的 “考生文件夹 ”均为 c:wexam25160001。 (1)在考生文件夹中有工程文件 sjt3.vbp及其窗体文件 sjt3.frm,该程序是不完整的,请在有 ?号的地方填入正确内容,然后删除 ?及所有注释符 (即 号 )但不能修改其他部分。存盘时不得改变文件名
3、和文件夹。 本题描述如下: 在窗体上有一个名称为 Text1的文本框,一个名称为 C1,标题为 “校验 ”的命令按钮。其中文本框用来输入口令,如图 5-3所示,要求在文本框中输入的内容都必须以 “”显示 (请考生通过属性窗口设置 )。要求程序运行后,输入口令,单击命令按钮后,对口令进行校验。如果输入的内容是“ABC”这 3个大写字母,则用 MsgBox信息框输出 “正确 ”,否则输出 “错误 ”,如图5-4所示。 (2)在考生文件夹中有工程文件 sjt4.vbp及其窗体文件 sjt4.frm,该程序是不完整的,请在有 ?号的地方填入正确内容,然后删除 ?及所有注释符 (即 号 )但不能修改其他
4、部分。存盘时不得改变文件名和文件夹。 本题描述如下: 在窗体上有 3个名称分别为 Ch1、 Ch2和 Ch3的复选框,标题依次为 “程序设计 ”、 “数据库原理 ”和 “计算机网络 ”,还有一个名称为 C1,标题为 “选课 ”的命令按钮,如图 5-5所示。要求程序运行后,如果选择某个复选框,当单击命令按钮时在窗体上输出相应的信息。例如:如果选择 “程序设计 ”和 “数据库原理 ”复选框,单击命令按钮后,将在窗体上显示 “我选的课程是程序设计数据库原理 ”。三、综合应用题( 30分) 3 在考生文件夹下有一个工程文件 sj5 vbp,在该工程中为考生提供了一个通用过程,考生可以直接调用。请在窗体
5、上画一个名称为 Textl的文本框;画一个名称为Commandl、标题为 “计算显示 ”的命令按钮;再画两个单选按钮,名称分别为Optionl和 Option2、标题分别为 “求 100到 250之间能被 5整除的数的个数 ”和 “求300到 400之间能被 6整除的数的个数 ”,如图 625所示。请 编写适当的事件过程,使得在运行时,选中一个单选按钮,再单击 “计算显示 ”按钮,就可以按照单选按钮后的文字要求计算,并把计算结果放入文本框中,最后把已经修改的工程文件和窗体文件以原来的文件名存盘。 注意:考生不得修改窗体文件中已经存在的程序,退出程序时必须通过单击窗体右上角的关闭按钮来完成。在结
6、束程序运行之前,必须至少要进行一种计算,否则不得分。 VB机试模拟试卷 175答案与解析 一、基本操作题( 30分) 1 【正确答案】 (1)在设置属性时标签的名称由 Name属性设置,内容由 Caption属性设置。窗体 的标题由窗体的 Caption属性设置。要使文本框中输入的字符以 “*”号显示,可以将 PasswordChar属性设置为 “*”。 根据题意,新建 “标准 EXE”工程,将一个标签和一个文本框控件添加上窗体中,标签的名称为 Labell、 Caption属性为 “密码 ”,文本框的名称为 Textl、 Text属性为空, PasswordChar属性为 “*”、Heigh
7、t属性为 350、 width属性为 1 600, Forml的 Caption属性为 “输入密码 ”,设置完成后,单击 按钮运行程序,并按要求保存。 (2)单击窗体时触发 Form_Click事件,单击图片框时触发 Picl_Click事件。在对象中打印信息使用 Print方法,其语法格式为:对象 Print。省略对象时指在窗体上打印。 根据题意,新建 “标准EXE”工程,将一个图片控件添加到窗体中,其名称为 Picl,双击 Picl进入代码窗口,编写如下代码: Private Sub Form_Click() Print“窗体 “ 单击窗体 End Sub Private Sub Pic1
8、_Click() Picl Print“图片框 “ 单击图片框 End Sub 单击 按钮运行程序,并按要求保存。 二、简单应用题( 40分) 2 【正确答案】 (1)在窗体上建立好控件后,先设置控件属性,再编写事件过程。 单击命令按钮或窗体触发的是 Click事件,因此,程序中应该编写命令按钮的Click事件过程,按钮的标题通过 Caption属性设置;要使文本框的内容在输入时显示为 “*”,则应该将 PasswordChar属性设置为 “*”。解题步骤: 第一步:建立界面并设置控件属性。程序中用到的控件及其属性见表 5-3。第二步:编写程序代码。 程序提供的代码: Option Expli
9、cit Private Sub C1_Click() If Text1.Text = “?“ Then MsgBox “?“ Else MsgBox “错误 ” End Sub 参考代码: Option Explicit Private Sub C1_Click() If Text1.Text = “ABC“ Then MsgBox “正确 ” Else MsgBox “错误 “ End Sub 第三步:调试并运行程序。 第四步:按题目要求存盘。 (2)建立好控件后,先设置控件属性,再编写事件过程。 复选框用来表 示状态,在程序运行期间可以改变其状态。复选框的标题由 Caption属性来设置,
10、复选框的 Value属性用来表示复选框的状态。其取值有如下几种: 0:表示复选框未被选中; 1:表示选中该复选框; 2:表示该复选框被禁止 (灰色 )。 在窗体上打印信息用 Print方法,单击命令按钮触发的是Click事件。解题步骤: 第一步:建立界面并设置控件属性。程序中用到的控件及其属性见表 5-4。 第二步:编写程序代码。 程序提供的代码: Option Explicit Private Sub C1_Click() Dim s As String s=“我选的课程是 ” If Ch1.Value = 1 Then s=s &“程序设计 ” End If If Ch2.Value =
11、1 Then s=s &“数据库原理 ” End If If Ch3.Value = 1 Then s = s & Ch3.? End If Print ? End Sub 参考代码: Option Explicit Private Sub C1_Click() Dim s As String s=“我选的课程是 ” If Ch1.Value = 1 Then s= s &“程序设计 ” End If If Ch2.Value=1 Then s=s &“数据库原理 ” End If If Ch3.Value=1 Then s=s & Ch3.Caption End If Print s End
12、 Sub 第三步:调试并运行程序。 第四步:按题目要求存盘。 三、综合应用题( 30分) 3 【正确答案】 根据题意,将一个文本框控件,两个单选按钮控件和一个命令按钮添加到窗体中,文本框的名称为 Textl,单选按钮的名称:分别为 Optionl和Option2, Caption分别为 “求 100到 250之间能被 5整除的数的个数 ”和 “求 300到400之间能被 6整除的数的个数 ”,命令按钮的名称为 Commandl, Caption属性为“计算显示 ”,设置完成后,双击 Commandl进入代码窗口,补充后的具体代码如下: Private Sub Commandl_Click()
13、Dim rain As Integer下限 Dim max As Integer上限 Dim i As Integer循环计数 Dim mum As Integer个数 Dim tmp As Integer除数 If Optionl Value=True Then 选中 Optionl时 min=100 max=250 tmp=5 Else选中Option2时 rain=300 max=400 tmp=3 End If num=0 For i=min To max利用循环来逐个判断 If i Mod tmp=0 Then num=num+1 如果能被除数整除,则个数加 1 End If Next i Textl Text=hum在 Textl文本框中显示出来 Open“App Path& out5 txt“For Output As#1 Print#1, Textl Text Close#1End Sub单击 按钮运行程序,并按要求保存。
copyright@ 2008-2019 麦多课文库(www.mydoc123.com)网站版权所有
备案/许可证编号:苏ICP备17064731号-1