国家二级VB机试（上机操作）模拟试卷515
基本操作题
1.请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。
（1）在标题为“文本框”、名称为Form1的窗体上画一个名称为Text1的文本框，无初始内容，其高、宽分别为2000、1800，可显示多行，有水平滚动条，并通过属性窗口把文本框的字体样式设置为“斜体”（如图1－79所示）。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。
（2）在名称为Form1的窗体上画一个名称为List1的列表框，通过属性窗口输入4个列表项：“数学”、“物理”、“化学”、“语文”，如图1－80所示。请编写适当的事件过程，使得在装入窗体时，把最后一个列表项自动改为“英语”；单击窗体时，则删除最后一个列表项。
第1小题
【操作步骤】
步骤1：新建一个“标准EXE”工程，如表2－21在窗体中画出控件并设置其相关属性。
[*]
步骤2：按要求将文件保存至考生文件夹中。
第2小题
【操作步骤】
步骤1：新建一个“标准EXE”工程，在窗体Form1中加入一个列表框，在属性设置窗口中将其设置为List1，在其List属性中添加四个项目，依次为“数学”、“物理”、“化学”和“语文”。注意：每输入完一项后按＜Ctrl+Enter＞键换行再输入下一项。
步骤2：打开代码编辑窗口，编写相应的事件过程：
参考代码：
Private Sub Form_Click()
List1.RemoveItem List1.ListCount – 1
End Sub
Private Sub Form_Load()
List1.List(List1.ListCount -1)= \\
解析：
简单应用题
2.（1）在名称为Form1的窗体上画一个名称为Text1的文本框；画两个标题分别为“对齐方式”、“字体”，名称分别为Frame1、Frame2的框架；在Frame1 框架中画三个单选按钮，标题分别为“左对齐”、“居中”、“右对齐”，名称分别为Option1、Option2、Option3；在 Frame2 框架中画两个单选按钮，标题分别为“宋体”、黑体”，名称分别为Option4、Option5。
要求：编写五个单选按钮的Click事件过程，使程序运行时，单击这些单选按钮，可以对文本框中的文字实现相应的操作（如图1－81所示）。
注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt3.vbp，窗体文件名为sjt3.frm。
（2）在考生文件夹下有一个工程文件sjt4.vbp。其窗体上有一个圆，相当于一个时钟，当程序运行时通过窗体的Activate 事件过程在圆上产生1两个刻度点，并完成其他初始化工作；另有长、短2条（红色、蓝色）直线，名称分别为Line1 和 Line2，表示两个指针。程序运行时，单击“开始”按钮，则每隔0.5秒Line1（长指针）顺时针转动一个刻度，Line2（短指针）顺时针转动1/1 两个刻度（即长指针转动一圈，短指针转动一个刻度），单击“停止”按钮，两个指针停止转动，如图1－82所示。
第1小题
【操作步骤】
步骤1：新建一个“标准EXE”工程，如表2－22在窗体中画出控件并设置其相关属性。
[*]
步骤2：在代码编辑窗口，分别编写5个按钮的单击事件过程。
参考代码：
Private Sub Option1_Click()
Text1.Alignment = 0
End Sub
Private Sub Option2_Click()
Text1.Alignment = 2
End Sub
Private Sub Option3_Click()
Name属性
Text1.Alignment = 1
End Sub
Private Sub Option4_Click()
Text1.Font = \\
解析：
综合应用题
3.在考生目录下有一个工程文件sjt5.vbp，其窗体如图1－83所示。考生目录下有一个in5.dat 文件，文件中有5个运动员的姓名、7个裁判的打分和动作的难度系数。每人的数据占一行，顺序是：姓名、7个分数、难度系数。程序运行时，单击“输入”按钮，可把in5.dat文件中的5个姓名读入数组athlete 中，把5组得分（每组7个）和难度系数读入二维数组a 中（每行的最后一个元素是难度系数），并把这些数据显示在Text1 文本框中；单击“选出冠军”按钮，则把冠军的姓名和成绩分别显示在文本框Text2、Text3中。成绩的计算方法是：去掉一个最高分和一个最低分，求剩下得分的平均分，乘以3再乘以难度系数；单击“存盘”按钮，则把冠军姓名和成绩存入考生目录下的out5.dat文件中。
【操作步骤】
步骤1：打开考生文件中的本题工程文件sjt5.vbp，在代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。
参考代码：
s = a(n, 1)
For k = 2 To 7
getmark = s * 3 * a(n, 8)
Private Sub Command2_Click()
’ 要求考生编写的程序
Dim k As Integer
maxmark = getmark(1)
m = 1
For k = 2 To 5
If maxmark < getmark(k) Then
maxmark = getmark(k)
m = k
End If
Next k
Text2 = athlete(m)
Text3 = maxmark
End Sub
步骤2：按要求将文件保存至考生文件夹中。
步骤3：按＜
本文档预览：3600字符，共3668字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
