1、二级 VISUAL+BASIC-73 (1)及答案解析(总分：100.00，做题时间：90 分钟)一、B基本操作题/B(总题数：2，分数：30.00)1.在名称为 Form1、标题为“鼠标光标形状”的窗体上添加一个文本框，名称为 Text1。请通过属性窗口设置适当属性，使得程序运行时，鼠标在文本框中时，鼠标光标为箭头(Arrow)形状；在窗体中其他位置处，鼠标光标为十字(Cross)形状。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt1.vbp，窗体文件名保存为 sjt1.frm。（分数：15.00）_2.在名称为 Form1 的窗体上添加两个名称分别为 Label1、Label
2、2，标题分别为“开始位置”、“选中字符数”的标签；添加三个文本框，名称分别为 Text1、Text2、Text3，再添加一个名称为 Command1、标题为“显示选中信息”的命令按钮。程序运行时，在 Text1 中输入若干字符，并用鼠标选中部分文本后，单击“显示选中信息”按钮，则把选中的第一个字符的顺序号在 Text2 中显示，选中的字符个数在 Text3 中显示，如图所示。（分数：15.00）_二、B简单应用题/B(总题数：2，分数：40.00)3.在考生文件夹下有一个工程文件 sjt3.vbp，窗体上有一个圆和一个矩形，还有水平和垂直滚动条各一个。程序运行时，移动某个滚动条的滚动块，可使圆
3、做相应方向的移动。滚动条刻度值的范围是圆可以在矩形中移动的范围。以水平滚动条为例，滚动块在最左边时，圆靠在矩形的左边线上，如图 1 所示；滚动块在最右边时，圆靠在矩形的右边线上，如图 2 所示。垂直滚动条的情况与此类似。（分数：20.00）_4.在考生文件夹下有一个工程文件 sjt4.vbp。窗体中已经给出了所有控件，如图所示。程序运行时，单击“发射”按钮，航天飞机图标将向上运动，速度逐渐加快，全部进入图片云中后则停止，并将飞行距离(用坐标值表示)和所用时间(单位为秒)分别显示在标签 Label1 和 Label2 中；单击“保存”按钮，则把飞行距离和所用时间存入考生文件夹下的 out4.tx
4、t 文件中。（分数：20.00）_三、B综合应用题/B(总题数：1，分数：30.00)5.在考生文件夹下有一个工程文件 sjt5.vbp，其窗体上有两个命令按钮、三个标签和三个文本框，均使用默认名称。程序的功能如下：如果单击“读数据”命令按钮，则将考生文件夹下 in5.dat 文件中两组已按升序方式排列的数(每组 30个数)分别读入数组 A 和 B，并分别在 Text1、Text2 中显示。如果单击“合并”命令按钮，则将 A、B 两个数组合并为另一个按从小到大排列的数组 C，并将合并后数组 C 中的数据显示在 Text3 中。窗体中给出了所有控件(如图所示)以及“读数据”命令按钮的 Click
5、 事件过程，请完善“合并”命令按钮的 Click 事件过程，使其实现上述功能。（分数：30.00）_二级 VISUAL+BASIC-73 (1)答案解析(总分：100.00，做题时间：90 分钟)一、B基本操作题/B(总题数：2，分数：30.00)1.在名称为 Form1、标题为“鼠标光标形状”的窗体上添加一个文本框，名称为 Text1。请通过属性窗口设置适当属性，使得程序运行时，鼠标在文本框中时，鼠标光标为箭头(Arrow)形状；在窗体中其他位置处，鼠标光标为十字(Cross)形状。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt1.vbp，窗体文件名保存为 sjt1.frm。（
6、分数：15.00）_正确答案：(操作步骤 步骤 1：新建一个窗体，按照题目要求建立文本框控件并设置其属性，如图所示。 *程序中用到的控件及属性见表。 控件 窗体 文本框属性 Caption MousePointerName MousePointer设置值 鼠标光标形状 2 Text11步骤 2：调试并运行程序，关闭程序后按题目要求存盘。)解析：考点 本题考点有：文本框的 Name 和 MousePointer 属性以及窗体的 Caption 和 MousePointer 属性。 解析 先将窗体的 Caption 属性设置为“鼠标光标形状”，然后再添加一个名称为 Text1 的文本框。通过对文本
7、框和窗体的 MousePointer 属性的设置，使鼠标指针在文本框中时，鼠标光标为箭头(Arrow)形状；在窗体中其他位置处鼠标光标为十字(Cross)形状。2.在名称为 Form1 的窗体上添加两个名称分别为 Label1、Label2，标题分别为“开始位置”、“选中字符数”的标签；添加三个文本框，名称分别为 Text1、Text2、Text3，再添加一个名称为 Command1、标题为“显示选中信息”的命令按钮。程序运行时，在 Text1 中输入若干字符，并用鼠标选中部分文本后，单击“显示选中信息”按钮，则把选中的第一个字符的顺序号在 Text2 中显示，选中的字符个数在 Text3 中
8、显示，如图所示。（分数：15.00）_正确答案：(操作步骤 步骤 1：建立界面，添加相应的控件并设置控件的属性。程序中用到的控件及属性见表。 控件 文本框 1 文本框 2 文本框 3 命令按钮 标签 1 标签 2属性 Name Name Name Name CaptionName CaptionName Caption设置值 Text1Text2Text3Command1显示选中信息 Label1开始位置 Label2选中字符数步骤 2：打开代码编辑窗口，在指定位置编写如下代码。 Private Sub Command1_Click() Text3=Text1.SelLength 将 Text
9、1 中选中的字符长度显示 Text2=Text1.SelStart 将 Text1 中选中的字符串首字母的顺序号显示 End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。)解析：考点 本题考点有：文本框的 Name、SelLength 和 SelStart 属性，标签的 Name、Caption 属性，命令按钮的 Name、Caption 属性，通过文本框的 Name 属性设置文本框的名称。在 Text1 中输入若干字符，并用鼠标选中一些字符后，单击“显示选中信息”按钮，则把 Text1 的 SelStart 属性值显示在 Text2 中，Text1 的 SelLength 属
10、性值显示在 Text3 中。 解析 通过标签的 Name 和 Caption 属性设置标签的名称和标题，通过命令按钮的 Name 和 Caption 属性设置命令按钮的名称和标题。二、B简单应用题/B(总题数：2，分数：40.00)3.在考生文件夹下有一个工程文件 sjt3.vbp，窗体上有一个圆和一个矩形，还有水平和垂直滚动条各一个。程序运行时，移动某个滚动条的滚动块，可使圆做相应方向的移动。滚动条刻度值的范围是圆可以在矩形中移动的范围。以水平滚动条为例，滚动块在最左边时，圆靠在矩形的左边线上，如图 1 所示；滚动块在最右边时，圆靠在矩形的右边线上，如图 2 所示。垂直滚动条的情况与此类似。
11、（分数：20.00）_正确答案：(操作步骤 步骤 1：打开本题工程文件。步骤 2：打开代码编辑窗口，去掉程序中的注释符“”，将问号改为正确的内容。Private Sub Form_load()HScroll1.Min=Shape2.LeftHScroll1.Max=Shape2.Width+Shape2.Left-Shape1.Width 确定水平滚动条的最大值VScroll1.Min = Shape2.TopVScroll1.Max=Shape2.Height+Shape2.Top-Shape1.Height 确定垂直滚动条的最大值，使 Shape2 不能超过 Shape1 的范围HScro
12、ll1.Value=1000VScroll1.Value=1000End SubPrivate Sub HScroll1_Change ()Shape1.Left=HScroll1.Value 使 Shape1 随水平滚动条的改变而改变End SubPrivate Sub VScroll1_Change ( )Shape1.Top=VScroll1.Value 使 Shape1 随垂直滚动条的改变而改变End Sub程序结束步骤 3：调试并运行程序，关闭程序后按题目要求存盘。)解析：考点 本题考点有：形状控件的 Left、Width 和 Top 属性以及滚动条的 Value、Min 和 Max
13、 属性。 解析 窗体载入时，通过滚动条的 Min 和 Max 属性设置两个滚动条的移动刻度值的范围，滚动条刻度值的范围是圆可以在矩形中移动的范围。形状控件的 Top 和 Left 属性值随着滚动条的 Value 属性值的变化而改变，使水平滚动条的滚动块在最左边时，圆靠在矩形的左边线上，滚动块在最右边时，圆靠在矩形的右边线上。垂直滚动条的情况与此类似。4.在考生文件夹下有一个工程文件 sjt4.vbp。窗体中已经给出了所有控件，如图所示。程序运行时，单击“发射”按钮，航天飞机图标将向上运动，速度逐渐加快，全部进入图片云中后则停止，并将飞行距离(用坐标值表示)和所用时间(单位为秒)分别显示在标签
14、Label1 和 Label2 中；单击“保存”按钮，则把飞行距离和所用时间存入考生文件夹下的 out4.txt 文件中。（分数：20.00）_正确答案：(操作步骤 步骤 1：打开本题工程文件。步骤 2：打开代码编辑窗口，去掉程序中的注释符“”，将问号改为正确的内容。Dim a, t, dPrivate Sub Command1_Click ()Timer1.Enabled=True 使 Timer1 事件生效d=Image1.Top 保存飞机初始位置End SubPrivate Sub Command2_Click()Open App.Path & “/out4.txt“ For Outpu
15、t As #1Print #1, Label1, Label2 将两个标签中的内容保存到文件中Close #1End SubPrivate Sub Form_Load()a=1t=0End SubPrivate Sub Timer1_Timer()Image1.Top=Image1.Top-a*50If Image1.Top+Image1.Height =Image2.Top+Image2.Height-200 Then 判断飞机是否已进入云朵Timer1.Enabled=False 若飞机已进入云朵，则停止移动，Timer 失效d=d-Image1.Top 计算飞机的飞行距离Label1=d
16、Label2=t*Timer1.Interval/1000End Ifa=a+0.1t=t+1 记录所用时间End Sub程序结束步骤 3：调试并运行程序，关闭程序后按题目要求存盘。)解析：考点 本题考点有：计时器的 Interval 和 Enabled 属性，形状控件的 Height 和 Top 属性，文件编辑以及 H 判断语句。 解析 计时器的 Interval 属性用来控制计时器事件发生的时间间隔(Interval是以毫秒为单位)。当单击“发射”按钮时开始计时，将计时器控件的 Enabled 属性设置为 True。航天飞机图标将向上运动，速度逐渐加快，通过形状控件的 Height 和 T
17、op 属性判断是否全部进入云中，如果全部进入则停止，这时需要将计时器控件的 Enabled 属性设置为 False，并把飞行距离 d 和所用时间(单位为秒)分别显示在标签 Label1 和 Label2 中；单击“保存”按钮，则把飞行距离和所用时间存入考生文件夹下的 out4.txt 文件中。三、B综合应用题/B(总题数：1，分数：30.00)5.在考生文件夹下有一个工程文件 sjt5.vbp，其窗体上有两个命令按钮、三个标签和三个文本框，均使用默认名称。程序的功能如下：如果单击“读数据”命令按钮，则将考生文件夹下 in5.dat 文件中两组已按升序方式排列的数(每组 30个数)分别读入数组
18、A 和 B，并分别在 Text1、Text2 中显示。如果单击“合并”命令按钮，则将 A、B 两个数组合并为另一个按从小到大排列的数组 C，并将合并后数组 C 中的数据显示在 Text3 中。窗体中给出了所有控件(如图所示)以及“读数据”命令按钮的 Click 事件过程，请完善“合并”命令按钮的 Click 事件过程，使其实现上述功能。（分数：30.00）_正确答案：(操作步骤 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，在指定位置编写如下代码。 c(1)=a(1) 将第一个元素作为数组 C 的第一个元素 For i=2 To 30 将数组 a 的 30 个数据作为数组 C 的前
19、 30 项 c(i)=a(i) Next c(31)=b(1) For j=32 To 60 将数组 b 的 30 个数据作为数组 C 的后30 项 c(j)=b(j-30) Next For i=1 To 60 冒泡算法 f=True For j=1 To 59 循环比较大小，重新排序 If c(j)c(j+1) Then t=c(j) c(j)=c(j+1) c(j+1)=t f=False End If Next If f Then Exit For End If Next 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。)解析：考点 本题考点有：文件编辑、For 循环语句、Str()函数、Space()函数和冒泡排序。 解析 单击“合并”命令按钮，通过 For 语句将 A 和 B 两个数组合并，合并方式为数组的前 30 个数为数组 A，后 30 个数为数组 B，然后运用冒泡排序的方法生成按升序方式排列的数组 C，并将合并后数组的数据依升序方式显示在 Text3 中。
