[中学教育]在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属性值随着滚动
条的Value属性值的变化而改变,使水平滚动条的滚动块在最左边时,圆靠在矩形的左边线上,
滚动块在最右边时,圆靠在矩形的右边线上。垂直滚动条的情况与此类似。
【操作步骤】
步骤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.Value
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套第三大题来进行同类知识点的练习。