国家二级VB机试（上机操作）模拟试卷469
基本操作题
1.请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1的窗体上画出如图3－6所示的三角形。下表给出了直线Line1、Line2的坐标值，请按此表画Line1、Line2，并画出直线Line3，从而组成如图3－46所示的三角形。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sjt1．fim。
(2)在名称为Form1的窗体上画一个名称为List1的列表框，并任意输入若干列表项；再画一个名称为Text1的文本框，无初始内容。请编写List1和Text1的Click事件过程。程序运行后，如果单击列表框中的某一项，则在文本框中显示该项相应的顺序号，若单击第一项，则在文本框中显示1；若单击第二项，则在文本框中显示2，以此类推(如图3－47所示)；如果单击文本框，则把该列表项的内容显示在文本框中。
第1小题
【操作步骤】
步骤1：新建一个“标准EXE”工程，按表4－29在窗体中画出控件并设置其相关属性。
[*]
步骤2：按要求将文件保存至考生文件夹中。
第2小题
【操作步骤】
步骤1：新建一个“标准EXE”工程，按表4－30在窗体中画出控件并设置其相关属性。
[*]
步骤2：打开代码编辑窗口，编写列表框和文本框的单击事件过程。参考代码：
Private Sub List1 Clck( )
Text1．Text＝List1．List1．Index＋1
End Sub
Private Sub Text1 Click( )
Text1．Text
List1．List(List1．ListIndex)
Een Sub
步骤3：按要求将文件保存至考生文件夹中。
解析：
简单应用题
2.(1)在考生目录下有一个工程文件sjt3．vbp，有两个名称分别为Form1和Form2的窗体，Form1为启动窗体，程序执行时Form2不显示。Form1中有菜单(如图3－48(a)所示)，程序运行时，若单击“格式”菜单项，则显示Form2窗体(如图3－48(b)所示)，选中一种字号和字体后单击“确定”按钮，则可改变Form1上文本框的字号和字体，并使Form2窗体消失。若单击“退出”菜单项，则结柬程序的运行。文件中已经给出了所有控件和程序，但程序不完整，要求：
1)利用属性窗口设置适当的属性，使Form1窗体标题栏右上角的最大化按钮、最小化按钮消失(如图3－48(a)所示)。
2)利用属性窗口把Form2窗体的标题设置为“格式”(如图3－48(b)所示)。
3)请去掉程序中的注释符，把程序中的“?”改为正确的内容。
注意：不能修改程序中的其他部分和其他控件的属性。最后把修改后的文件按原文件名存盘。
(2)在考生目录下有_个工程文件sjt4．vbp，包含了所有控件和部分程序。程序运行时，请按以下顺序操作：
1)单击“读入数据”按钮，可把考生目录下的文件in4．dat中的100个整数读到数组a中。
2)从名称为Comb01的组合框中选中一项(如图3—49所示)。
3)单击“计算”按钮，则可按该选项的要求对a中的数计算平均值(四舍五入取整或截尾取整)并放到文本框中。
4)单击窗体右上角的关闭按钮结束程序。
第1小题
【操作步骤】
步骤1：打开考生文件夹中的本题工程文件sjt3．vbp，按表4－31在窗体中画出控件并设置其相关属性。
[*]
步骤2：在代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：
Form2．Show
Form1．Text1．Fontsize＝List1．Text；
Form1．Text1．FontName＝
List2．List(List2．ListIndex)
Form2．Visible＝False
步骤3：按要求将文件保存至考生文件夹中。
第2小题
【操作步骤】
步骤1：打开考生文件夹中的本题工程文件sjt4．vbp，双击“计算”按钮，打开代码编辑窗口编辑计算按钮的单击事件。参考代码：
Private Sub Command2 Click( )
Dim i，j As Long
If Combol．Text：＝\\
解析：
综合应用题
3.在考生目录下有一个工程文件sjt5．vbp。窗体左边的图片框名称为Picture1，框中还有六个小图片框，它们是一个数组，名称为Pic，在窗体右边从上到下有三个显示不同物品的图片框，名称分别为Picture2、Picture3、Picture4，还有一个文本框Text1以及四个标签，如图3－50(a)所示。
程序运行时，可以用鼠标拖拽的方法把右边的物品放到左边的图片框中(右边的物品不动)，同时把该物品的价格累加到Text1中，如图3－50(b)所示。最多可放六个物品。
【操作步骤】
步骤1：打开考生文件夹下的工程文件sjt5．vbp。
步骤2：在代码编辑窗口中，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：
Select Case Source．Name
For k＝0 To 5
If Pic(k)．Visible＝False Then
Pic(k)．Visible＝True
Text1＝Text1＋a
步骤3：按要求将文件保存至考生文件夹中。
解析：
本文档预览：3600字符，共3403字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
