国家二级VB机试（上机操作）模拟试卷490
基本操作题
1.请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1、标题为“鼠标光标形状”的窗体上画一个名称为Text1的文本框。请通过属性窗口设置适当属性，使得程序运行时，鼠标在文本框中时，鼠标光标为箭头(Arrow)形状；在窗体中其他位置处，鼠标光标为十字(Cross)形状。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sjt1．frm。
(2)在名称为Form1的窗体上画两个标签，名称分别为Label1、Label2，标题分别为“开始位置”、“选中的字符数”；画三个文本框，名称分别为Text1、Text2、Text3，再画一个名称为Command1，标题为“显示选中信息”的命令按钮。
程序运行时，在Text1中输入若干字符，并用鼠标选中一些字符后，单击“显示选中信息”按钮，则把选中的第一个字符的顺序号显示在Text2中，选中的字符个数显示在Text3中，如图3－152所示。要求：画出所有控件，编写命令按钮的Click事件过程。
第1小题
【操作步骤】
步骤1：新建“标准EXE”工程，按要求画出控件并设置相应属性。
步骤2：按要求将文件保存至考生文件夹中。
第2小题
【操作步骤】
步骤1：新建一个“标准EXE”工程，按要求画出控件并设置属性。
步骤2：在代码编辑窗口，编写命令按钮的单击事件过程。参考代码：
Private Sub Command1_ Click ( )
Text2＝Text1．SelStart＋1
Text3＝Text1．SelLength
End Sub
步骤3：按要求将文件保存至考生文件夹中。
解析：
简单应用题
2.(1)在考生文件夹下有一个工程文件sjt3．vbp，窗体上有一个矩形和一个圆，还有垂直和水平滚动条各一个。程序运行时，移动某个滚动条的滚动块，可使圆做相应方向的移动。滚动条刻度值的范围是圆可以在矩形中移动的范围。以水平滚动条为例，滚动块在最左边时，圆靠在矩形的左边线上，如图3－153(a)所示；滚动块在最右边时，圆靠在矩形的右边线上，如图3－153(b)所示。垂直滚动条的情况与此类似。
文件中已经给出了全部控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的“?”改为正确的内容。注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。
(2)在考生文件夹下有一个工程文件sjt4．vbp。窗体中已经给出了所有控件，如图3－154所示。
第1小题
【操作步骤】
步骤1：打开考生文件下的本题工程文件sjt3．vbp，在代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：
HScroll1．Max ＝ Shape2．Width＋Shape2．Left－Shape1．Width
VScroll1．Max ＝ Shape2．Height＋Shape2．Top－Shape1．Height
Shape1．Left ＝ HSCroll1．Value
Shape1．Top ＝ VScroll1
步骤2：按要求将文件保存至考生文件夹中。
第2小题
【操作步骤】
步骤1：打开考生文件夹中的本题工程文件sjt4．vbp，在代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：
Timer1．Enabled＝True
Timer1．Enabled＝False
d＝d－Image1．Top
t＝t＋1
步骤2：按＜F5＞键运行程序，先单击“发射”按钮，计算完毕后单击“存盘”按钮，最后单击窗体右上角的关闭按钮结束程序。
步骤3：按要求将文件保存至考生文件夹中。
解析：
综合应用题
3.在考生文件夹下有一个工程文件sjt5．vbp，其窗体上有三个标签、三个文本框和两个命令按钮，均使用默认名称。程序的功能是：
①如果单击“读数据”命令按钮，则把考生文件夹下in5．dat文件中两组已按升序方式排列的数(每组30个数)分别读入数组A和B，并分别将它们显示在Text1、Text2中；
②如果单击“合并”命令按钮，则将A、B两个数组合并为另一个按升序方式排列的数组C，并将合并后数组C中的数据依升序方式显示在Text3中。
窗体中给出了所有控件(如图3－155所示)以及“读数据”命令按钮的Click事件过程，请完善“合并”命令按钮的Click事件过程，使其实现上述功能。
【操作步骤】
步骤1：打开考生文件夹下的工程文件sjt5．vbp。
步骤2：编写“合并”按钮的单击事件过程。参考代码：
Private Sub Command2_Click( )
’考生编写程序开始
ia＝1：ib＝1：ic＝1
Do While ia＜＝30 And ib＜＝30
If a(ia)＜b(ib)Then
c(ic)＝a(ia)＝ia＝ia＋1
Else
c(ic)＝b(ib)＝ib＝ib＋1
End If
ic＝ic＋1
Loop
Do While ia＜＝30
c(ic)＝a(ia)：ia＝ia＋1：ic＝ic＋1
Loop
Do While ib ＜＝ 30
C(ic)＝b(ib)：ib＝ib+1：ic＝ic+1
Loop
’考生编写程序结束
’以下程序将合并后的数组C显示在Text3中
For k＝1 To 60
Text3＝Text3＋Str(C(k))＋Space(2)
Next k
End Sub
步骤3：运行程序，单击“读数据”按钮，然后单击“合并”按钮获得结果，然后通过窗体右上角的“关闭”按钮结束程序。
步骤4：按要求将文件保存至考生文件夹中。
解析：
本文档预览：3600字符，共3586字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
