1、国家二级 VB机试（上机操作）模拟试卷 450及答案与解析 一、基本操作题 1 (1)在名称为 Form1的窗体上添加两个名称分别为 Text1和 Text2的文本框，它们的高、宽分别为 300、 2400和 1200、 2400。窗体的标题为 “窗口 ”。请通过属性窗口设置适当的属性，满足如下要求： Text2可以业示多行文本，并且有垂直和水平两个滚动条； 程序运行时在 Text1中显示输入的字符为 “*”。程序运行后的窗体如图所示。 注意：存盘时必须存放在考生文件夹下。工程文件名保存为 sjt1 vbp，窗体文件名保存为sjt1 frm。 (2)在名称为 Form1的窗体上添加一个名称为
2、Image1的图像框，其高、宽分别为 1900、 1700，通过属性窗口把考生文件夹下的图像文件 pic1 bmp载入图像框；再画两个命令按钮控件，名称分别为 C1、 C2，标题分别为 “放大 ”、 “缩小 ”，如图所示。 要求： 请编写适当的事件过程，程序运行后，如果单击 “放大 ”按钮，则将图像框的高度、宽度均增加 100；单击 “缩小 ”按钮，则将图像框的高度、忧度均减少 100，要求程序中不得使用任何变量。 通过属性窗口设置图像框的适当属性，使得在放大、缩小图 像框时，其中的图像也自动放大、缩小。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt2 vbp，窗体文件名保存为
3、 sjt2 frm。 二、简单应用题 2 (1)在名称为 Form1的窗体上添加一个名称为 Text1的文本框，再建立一个名称为Format的弹出式菜单，含三个菜单项，际题分别为 “加粗 ”、 “斜体 ”、 “下划线 ”，名称分别为 M1、 M2、 M3。请编写适当的事件过程，在程序运行时，当用鼠标右键单击文本框时，弹出菜单，选中一个菜单项后，则按所选菜单标题设置文本框中文本的格式，如图所示。注意：存盘 时必须存放在考生文件夹下，工程文件名保存为sjt3 vbp，窗体文件名保存为 sjt3 frm。 (2)在考生文件夹下有一个工程文件 sjt4 vbp，含有 Form1和 Form2两个窗体，
4、其中 Form1为启动窗体窗体上的控件如图 1所示。程序运行后，在 Form1窗休的文本框中输入有关信息 (如 “密码 ”文本框中显示 “*”字符 )，然后甲击 “提交 ”按钮，弹出 “确认 ”对话框 (Form2窗体 )并在 Form2中显示 Form1中输入的信息，如图 2所示。单击 “确认 ”按钮，程序结束，单击 “重输 ”按钮， Form2消失，回到 Form1窗体。在给出的窗体文件中已经给出了程序，但不完整。 要求： 将 Form1的标题改为“注册 ”，将 Form2的标题改为 “确认 ”； 设置适当的属性，使 Form2标题栏右上角的所有按钮消失 (如图 2所示 )； 去掉程序中的
5、注释符，把其中的 ?改为正确的内容。注意：不能修改程序中的其他部分，标题等属性的修改只能在属性窗口只进行。最后将修改后的文件按原文件名存盘。三、综合应用题 3 在考生文件夹下有一个工程文件 sjt5 vbp。程序运行时，单击 “装入数据 ”按钮，则从考生文件夹下的 in5 txt文件中读入所 有城市名称和距离，城市名称按顺序添加到列表框 List1中，距离放到数组 a中；当选中列表框中的一个城市时，它的距离就在 Text1中显示，如图所示；此时，单击 “计算运费 ”按钮，则计算到该城市的每吨运费 (结果取整，不四舍五入 )，并在 Text2中显示。 每吨运费的计算方法是：距离 折扣 单价。 其
6、中，单价为 0 3。折扣为距离 500 折扣为 1 500距离1000 折扣为 0 98 1000距离 1500 折扣为 0 95 1500距离 2000 折扣为 0 92 2000距离 折扣为 0 9 单击 “保存 ”按钮，则 把距离和每吨运费存到文件 out5 txt中。 已经给出了所有控件和部分程序，要求： 去掉程序中的注释符，把程序中的 ?改为正确的内容。 编写 “计算运费 ”按钮的 Click事件过程。 编写列表框的Click事件过程。 注意：不得修改已经存在的程序；在退出程序之前，必须至少计算一次运费，且必须使用 “保存 ”按钮存储计算结果，否则无成绩。最后，程序按原文件名存盘。
7、国家二级 VB机试（上机操作）模拟试卷 450答案与解析 一、基本操作题 1 【正确答案】 (1)步骤 1：新建一个窗体，按照题目要求建立文本框控件 并设置其属性，程序中涉及的控件及属性见表 3 8和表 3 9。步骤 2：调试并运行程序，关闭程序后按题目要求存盘。 (2)步骤 1：新建一个窗体，按照题目要求建立控件并设置图像框相应属性，如图 3 17所示。步骤 2：按照步骤 1设置其他控件相关属性，程亭中涉及的控件及属性见表 3 10。步骤 3：打开代码编辑窗口，在指定位置编写如下代码。 参考答案 Private Sub C1 Click()当单击 “放大 “按钮时，依次将 Imagel的高与
8、宽分别加 100 Imagel Height=Imagel Height+i00 Imagel Width=Imagel Width+100 End Sub Private Sub C2 Click()当单击 “缩小 “按钮，则依次将 Imagel的高与宽分别减 100 Imagel Height=Imagel Height100 Imagel Width=Imagel Width一 100 End Sub 步骤 4：调试并运行程序，关闭程序后按题目要求存盘。 【试题解析】 (1)文本框控件的 MultiLine属性用于设置文本框是否显示多行文本，值为 True表示是，值为 False则 表示
9、否。 ScrollBars属性设置文本框是否有水平或垂直滚动条，它有 0、 1、 2和 3这 4个值， 0表示没有滚动条 (默认值 )， 1表示只有水平滚动条， 2表示只有垂直滚动条， 3表示有水平和垂直滚动条。文本框的 PasswordChar属性常用于设置用某字符 (如 “*”)屏蔽用户在文本框中键入的内容，常用于口令输入。 (2)图像框 (Image)控件的 Picture属性用于在设计阶段时装载在图像框中显示的图片，它的 Stretch(自动伸缩 )属性用来设定载入其中的图片是否需要自动调整，以适应图像框的大小。图像框的宽和 高分别由其 Width属性和 Height属性设置。 本题要
10、在单击按钮时实现 “放大 ”或 “缩小 ”的功能，应在程序中动态设置图像框大小 (宽和高 )，即在其原来基础上增加或减小图像框的宽和高。 二、简单应用题 2 【正确答案】 (1)步骤 1：新建一个窗体，按照题目要求建立名称为 “Text1”的文本框控件及一个弹出式菜单并设置菜单属性，程序中用到菜单属性见表 3 32。步骤 2：打开代码编辑窗口，在指定位置编写如下代码 。 参考答案 Private Sub M1 Click() Text1 FontBold=True设置字体为加粗 End Sub Private Sub M2 CliCk() Text1 FontItaliC=True设置字体为斜
11、体 End Sub Private Sub M3 C1ick() Text1 FontUnderl ine=True为文字加下划线 End Sub Private Sub Text1 MouseDown(Button As Integer f Shift As Integer， X As Single， Y As Single) If Button=2 Then 断是否执行该事件 Me PopupMenu Format显示菜单 EndIf End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 (2)步骤 1：打开本题工程文件，按照题目要求设置属性，如图 3 26所示。步骤 2：
12、打开代码编辑窗口，去掉程序中的注释符，将问号改为正确的内容，并在指定位置编写代码。 参考答案 Private Sub C1_Click() Dim k As Integer Form2 Show当单击 ”提交 ”按钮时，则显示 Form2 Form2 Print Form1 L1 Caption； Form1 Text1 Form2 Print Form1 L2 Caption； Form1 Text2 Form2 Print Form1 L3 Caption；Form1 Text3 Form2 Print Form1 Framel Caption； “： “； 取框架 Framel的标题名称
13、 “性别 “ For k=0 To 1 If Form1 Op1(k) Value Then 通过下一条语句确定 K Form2 Print Form1 Op1(k) Caption End If Next k End Sub Private Sub Form Load() 将 Password Char属性设为 *则密码输入后显示 *： Text2 PasswordChar=“*“ End Sub 需考生编写的 Form2中的代码 Private Sub C1_Click() End End Sub Private Sub C2_C1ick() Unload Form2 End Sub 步骤
14、 3：调试并运行程序，关闭程序后按题目 要求存盘。 【试题解析】 (1)PopupMenu方法用来显示弹出菜单，语法格式为： object PopupMenu menuname， flags， x， y， bold command 要创建弹出式菜单需先用菜单编辑器来建立菜单，并将其主菜单项的可见(Visible)属性值设置为 False，然后在对象的 MouseDown(或 MouseUp)事件过程中判断该事件的 Button参数值是否为 2，如果是则执行对象的 PopupMenu方法来显示菜单。 (2)修改窗体标题是通过设置其 Caption属性来实现的， ControlBox属性用于设置控
15、制菜单栏是否在窗体标题栏中显示，为在窗体标题栏中只显示标题信息，需将该属性值设置为 False。文本框的 PasswordChar属性可设置用于屏蔽在文本框中输入内容的字符，例如 “*”。 三、综合应用题 3 【正确答案】 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号改为正确的内容，并编写相应的代码。 参考答案 Dim a(10)As Integer， n As Integer Private Sub Command1_Click() Open App Path &“ in5 txt“For InputAs #1 While Not EOF(1)
16、n=n+1下标循环加 1 Input #1， ch $， a(n)将文件依次读入 ch， a(n)中 List1 AddItem ch将城市名添加到 List1中 Wend Close #1 End Sub Private Sub Command2 CliCk() 需要 考生编写的内容 b=Val(Text1) If b=0 And b=50 0 And b = 1000 And b = 1 500 And b =2000 Then m=0 3* b* 0 9 End If Text2=int(m) End Sub Private Sub List1 Click() 需要考生编写的内容 Tex
17、t1=a(LiStl ListIndex+1) 通过 List1 ListIndex+1来确定所选城市对应的距离 End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 【试题解析】 单击 “装入数据 ”按钮 ，从考生文件夹下的 in5 txt文件中读入所有城市名称和距离，通过 List1的 Addltem方法把城市名称 ch按顺序添加到列表框List1中，将距离放到数组 a中，在读入数据时，同时注意 While语句，其中数组下标 n的下限为 1，即数组中第 1个元素为 a(1)； Command2_Click事件过程实现单选列表框中的一个城市时，使它的距离显示在 Text中， a(List1 List1ndex+1)表示的是所选城市对应的距离，通过 List1的 List1ndex属性确定数组的下标，但是 ListIndex属性是从 0开始的 ，因此要加 1才能与之对应。通过 Val()函数使Text1中的字符转化为数值型，运用表达式，计算结果。因为题目要求 “结果取整，不四舍五入 ”，所以是截尾取整，可以用 int()函数实现。
