在Form1、标题为“鼠标光标形状”的窗体上添加一个文本框

基础题(1)

【解题思路】先将窗体的Caption属性设置为"鼠标光标形状"，然后再添加一个名称为Text1的文本框。通过文本框和窗体的MousePointer属性的设置，使鼠标在文本框中时，鼠标光标为箭头(Arrow)形状；在窗体中其他位置处，鼠标光标为十字(Cross)形状。

【操作步骤】

步骤1：新建一个窗体，在窗体中添加一个窗体和一个文本框，然后按照题目要求设置控件属性。程序中用到的控件及属性见表3.78。

表3.78

步骤2：调试并运行程序，关闭程序后按题目要求存盘。

基础题(2) 【解题思路】通过标签的Name、Caption属性设置标签的名称和标题，通过命令按钮的Name、Caption属性设置命令按钮的名称和标题。

【操作步骤】

步骤1：建立界面，在窗体中添加3个文本框，一个命令按钮和两个标签控件。并设置控件的属性。程序中用到的控件及属性见表3.79和表3.80。

步骤2：打开代码编辑窗口，在指定位置编写代码。

参考答案

Private Sub Command1_Click()

Text3 = Text1.SelLength

Text2 = Text1.SelStart

End Sub

步骤3：调试并运行程序，关闭程序后按题目要求存盘。

【举一反三】可以通过第35套第二大题的第二小题来进行同类知识点的练习。

简单题(1)

【解题思路】窗体载入时，通过滚动条的Min、Max属性设置两个滚动条的移动刻度值的范围，滚动条刻度值的范围是圆可以在矩形中移动的范围。形状控件的Top和Left属性值随着滚动条的V alue属性值的变化而改变，使水平滚动条的滚动块在最左边时，圆靠在矩形的左边线上，滚动块在最右边时，圆靠在矩形的右边线上。垂直滚动条的情况与此类似。

【操作步骤】

步骤1：打开本题工程文件。

步骤2：分析并编写程序代码。

程序提供代码

Private Sub Form_load()

HScroll1.Min = Shape2.Left

'HScroll1.Max = Shape2.Width + Shape2.Left - Shape1. ?

VScroll1.Min = Shape2.Top

'VScroll1.Max = Shape2.Height + ? - Shape1.Height

HScroll1.Value = 1000

VScroll1.Value = 1000

End Sub

Private Sub HScroll1_Change()

'？= HScroll1.V alue

End Sub

Private Sub VScroll1_Change()

'Shape1.Top = ?

End Sub

程序结束

参考答案

第1个？处填入：Width

第2个？处填入：Shape2.Top

第3个？处填入：Shape1.Left

第4个？处填入：VScroll1.Value

步骤3：调试并运行程序，关闭程序后按题目要求存盘。

【举一反三】可以通过第19套第二大题的第二小题来进行同类知识点的练习。

简单题(2) 【解题思路】计时器的Interval属性用来控制计时器事件发生的时间间隔(Interval是以毫秒为单位)。当单击"发射"按钮时开始计时，将计时器控件的Enabled属性设置为True。航天飞机图标将向上运动，速度逐渐加快，通过形状控件的Height、Top属性判断是否全部进入云中后，如果全部进入则停止，这时需要将计时器控件的Enabled属性设置为False，并把飞行距离d、所用时间(单位为秒)分别显示在标签Label1和Label2中；单击"保存"按钮，则把飞行距离、所用时间存入考生文件夹下的out4.txt文件中。

【操作步骤】

步骤1：打开本题工程文件。

步骤2：分析并编写程序代码。

程序提供代码

Dim a, t, d

Private Sub Command1_Click()

'Timer1.? = True

d = Image1.Top

End Sub

Private Sub Command2_Click()

Open App.Path & "\out4.txt" For Output As #1

Print #1, Label1, Label2

Close #1

End Sub

Private Sub Form_Load()

a = 1

t = 0

End Sub

Private Sub Timer1_Timer()

Image1.Top = Image1.Top - a * 50

If Image1.Top + Image1.Height <= Image2.Top + Image2.Height - 200 Then

'？= False

' d = ? - Image1.Top

Label1 = d

Label2 = t * Timer1.Interval / 1000

End If

a = a + 0.1

't = ?

End Sub

程序结束

参考答案

第1个？处填入：Enabled

第2个？处填入：Timer1.Enabled

第3个？处填入：d

第4个？处填入：t + 1

步骤3：调试并运行程序，关闭程序后按题目要求存盘。

综合题

【举一反三】可以通过第1套第二大题的第一小题来进行同类知识点的练习。

【解题思路】单击"读数据"命令按钮，通过文件操作和For循环语句将考生文件夹下in5.dat 文件中两组已按升序方式排列的数据(每组30个数据)分别读入数组A和B，并分别将它们显示在Text1、Text2中；为使数据间保持一定间隔，每个数据后用Space(2)加入2个空格。

单击"合并"命令按钮，通过For语句将A、B两个数组合并，合并方式为数组的前30个数为数组A，后30个数为数组B，然后运用冒泡排序的方法生成按升序方式排列的数组C，并将合并后数组的数据依升序方式显示在Text3中。

【操作步骤】

步骤1：打开本题工程文件。

步骤2：分析并编写程序代码。

程序提供代码

Dim a(30) As Integer, b(30) As Integer, c(60) As Integer

Private Sub Command1_Click()

Dim k As Integer

Open App.Path & "\in5.dat" For Input As #1

For k = 1 To 30

Input #1, a(k)

Text1 = Text1 + Str(a(k)) + Space(2)

Next k

For k = 1 To 30

Input #1, b(k)

Text2 = Text2 + Str(b(k)) + Space(2)

Next k

Close #1

End Sub

Private Sub Command2_Click()

'考生编写程序开始

'＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

'＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

'考生编写程序结束

'以下程序将合并后的数组C显示在Text3中

For k = 1 To 60

Text3 = Text3 + Str(c(k)) + Space(2)

Next k

End Sub

Private Sub Form_Unload(Cancel As Integer)

Open App.Path & "\out5.dat" For Output As #1

Print #1, Text3.Text

Close #1

End Sub

程序结束

参考答案

c(1) = a(1)

For i = 2 To 30

c(i) = a(i)

Next

c(31) = b(1)

For j = 32 To 60

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：调试并运行程序，关闭程序后按题目要求存盘。

【举一反三】可以通过第35套第三大题来进行同类知识点的练习。