在标题为“文本框”、名称为Form1上添加一个名称为Text

《在标题为“文本框”、名称为Form1上添加一个名称为Text》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、基础题(1)【解题思路】通过文本框的Name、Text、Width和Height属性设置文本框的名称、文本、宽和高，通过设置ScrollBars属性使文本框有水平滚动条，MultiLine属性设置为TRUE，可以多行显示，设置FontItalic属性使字体样式为斜体，最后通过窗体的Caption属性设置窗体的标题。【操作步骤】步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.115。表3.115步骤2：调试并运行程序，关闭程序后按题目要求存盘。基础题(2)【解题思路】通过列表框的Name和List属

2、性设置列表框的名称，并输入4个列表项："数学"、"物理"、"化学"、"语文"，FormLoad事件过程中将List1.List(3)设置为"英语"，把最后一个列表项自动改为"英语"；FormClick事件过程中，将List1，List(3)内容清空，点击窗体后则清空最后一个列表项，在这里要注意列表框的列表项数组Tndex属性值是从0开始的，所以第四个也就是最后一个的Index属性值为3。【操作步骤】步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.116。表3.116控件列表框属性NameList设

3、置值List1数学　物理　化学　语文步骤2：编写程序代码。参考答案PrivateSubForm_Click()List1.List(3)=""EndSubPrivateSubForm_Load()List1.List(3)="英语"EndSub步骤3：调试并运行程序，关闭程序后按题目要求存盘。简单题(1)【解题思路】通过框架的Name、Caption属性设置框架，通过单选按钮的Name、Caption属性设置单选按钮的名称和标题，文本框的Alignment属性用于设置文本框中文本的对齐方式，0为左对齐，1为右对齐，

4、2为居中。文本框的Font属性用于设置文本框的字体。【操作步骤】步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.117～3.119。表3.117控件文本框1框架1框架2属性NameNameCaptionNameCaption设置值TextFrame1对齐方式Frame2字体表3.118控件单选按钮1单选按钮2属性NameCaptionNameCaption设置值Option1左对齐Option2居中表3.119控件单选按钮3单选按钮4单选按钮5属性NameCaptionNameCaptionNam

5、eCaption设置值Option3右对齐Option4宋体Option5黑体参考答案PrivateSubOption1_Click()Text1.Alignment=0EndSubPrivateSubOption2_Click()Text1.Alignment=2EndSubPrivateSubOption3_Click()Text1.Alignment=1EndSubPrivateSubOption4_Click()Text1.FontName="宋体"EndSubPrivateSubOption5_Click

6、()Text1.FontName="黑体"EndSub步骤3：调试并运行程序，关闭程序后按题目要求存盘。简单题(2)【解题思路】本题主要考查考生对计时器控件(Timer)、直线控件(Line)常用属性和事件的掌握情况。计时器控件用于实现在规定的时间间隔触发其Timer事件，执行有关事件过程代码，并完成相应功能。Interval属性用于设置触发计时器的Timer事件的时间间隔，单位为毫秒，值为0时计时器不启用。Enabled属性控制计时器是否开始启用，True为启用，False为不启用。直线控件主要用于在界面上绘制线

7、条，通过修改其X1、Y1、X2、Y2属性值就能调整它的大小和位置。要实现钟表指针每隔0.5秒转动30度的效果，需将计时器的Interval属性值设为500，并在单击"开始"按钮后启用，在计时器的Timer事件中利用三角函数计算出线段外侧点新的坐标。【操作步骤】步骤1：打开本题工程文件。步骤2：分析并编写程序代码。程序提供代码Constx0=1200,y0=1200,radius=1000Dima,b,len1,len2PrivateSubCommand1_Click()Timer1.Enabled=TrueEndS

8、ubPrivateSubCommand2_Click()'?EndSubPrivateSubForm_Activate()'Fork=0To359Step?'x=radius*Cos(k*3.14159/180)+?y=y0-radius*Sin(k*3.14159/180)Form1.Circle(x,y),20Nextka=90b=90len1=Line