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

《在form1、标题为“鼠标光标形状”的窗体上添加一个文本框》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、基础题(1)【解题思路】先将窗体的Caption属性设置为"鼠标光标形状"，然后再添加一个名称为Text1的文本框。通过文本框和窗体的MousePointer属性的设置，使鼠标在文本框中时，鼠标光标为箭头(Arrow)形状；在窗体中其他位置处，鼠标光标为十字(Cross)形状。【操作步骤】步骤1：新建一个窗体，在窗体中添加一个窗体和一个文本框，然后按照题目要求设置控件属性。程序中用到的控件及属性见表3.78。表3.78步骤2：调试并运行程序，关闭程序后按题目要求存盘。基础题(2)【解题思路】通过标签的Name、Caption属性设置标签的名称和标题，通过命令按钮的Name、Capti

2、on属性设置命令按钮的名称和标题。【操作步骤】步骤1：建立界面，在窗体中添加3个文本框，一个命令按钮和两个标签控件。并设置控件的属性。程序中用到的控件及属性见表3.79和表3.80。步骤2：打开代码编辑窗口，在指定位置编写代码。参考答案PrivateSubCommand1_Click()Text3=Text1.SelLengthText2=Text1.SelStartEndSub步骤3：调试并运行程序，关闭程序后按题目要求存盘。【举一反三】可以通过第35套第二大题的第二小题来进行同类知识点的练习。简单题(1)【解题思路】窗体载入时，通过滚动条的Min、Max属性设置两个滚动条的移动刻

3、度值的范围，滚动条刻度值的范围是圆可以在矩形中移动的范围。形状控件的Top和Left属性值随着滚动条的Value属性值的变化而改变，使水平滚动条的滚动块在最左边时，圆靠在矩形的左边线上，滚动块在最右边时，圆靠在矩形的右边线上。垂直滚动条的情况与此类似。【操作步骤】步骤1：打开本题工程文件。步骤2：分析并编写程序代码。程序提供代码PrivateSubForm_load()HScroll1.Min=Shape2.Left'　HScroll1.Max=Shape2.Width+Shape2.Left-Shape1.?VScroll1.Min=Shape2.Top'　VScroll1.Max

4、=Shape2.Height+?-Shape1.HeightHScroll1.Value=1000VScroll1.Value=1000EndSubPrivateSubHScroll1_Change()'　？=HScroll1.ValueEndSubPrivateSubVScroll1_Change()'　Shape1.Top=?EndSub程序结束参考答案第1个？处填入：Width第2个？处填入：Shape2.Top第3个？处填入：Shape1.Left第4个？处填入：VScroll1.Value步骤3：调试并运行程序，关闭程序后按题目要求存盘。【举一反三】可以通过第19套第二大题

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

6、：打开本题工程文件。步骤2：分析并编写程序代码。程序提供代码Dima,t,dPrivateSubCommand1_Click()'　Timer1.?=Trued=Image1.TopEndSubPrivateSubCommand2_Click()OpenApp.Path&"out4.txt"ForOutputAs#1Print#1,Label1,Label2Close#1EndSubPrivateSubForm_Load()a=1t=0EndSubPrivateSubTimer1_Timer()Image1.Top=Image1.Top-a*50IfImage1.Top+Image

7、1.Height<=Image2.Top+Image2.Height-200Then'　？=False'　d=?-Image1.Top　　　　Label1=d　　　　Label2=t*Timer1.Interval/1000EndIfa=a+0.1'　t=?EndSub程序结束参考答案第1个？处填入：Enabled第2个？处填入：Timer1.Enabled第3个？处填入：d第4个？处填入：t+1步骤3：调试并运行程序，关闭程序后按题目要求存盘。综合题【举