在form1上画一个文本框,名称为text1,字体为“黑体”文本框中的初始内容为“程序设计”

《在form1上画一个文本框,名称为text1,字体为“黑体”文本框中的初始内容为“程序设计”》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、基础题（1）【考点分析】本题考点有：命令按钮的Name、Caption属性，文本框的Name、Text、Font属性。【解题思路】命令按钮的名称和标题分别由其Name、Caption属性设置；文本框的名称、初始内容和字体分别由其Name、Text、Font属性设置。在命令按钮的Click事件中，将Text1.Font值设为"宋体"。【操作步骤】步骤1：建立界面，添加控件并设置控件的属性。程序中用到的控件及属性见表3.185。步骤2：编写程序代码。参考答案PrivateSubC1_Click()Text1.Font="宋体"EndSub步骤3：调试并运行程序，关闭程序后按题目要求存盘。基础题

2、（2）【考点分析】本题考点有：图片框的Name、Height、Width、Picture属性和窗体的DblClick事件。【解题思路】通过图片框的Name、Height、Width、Picture属性分别设置其名称、高、宽和添加图片。双击窗体为DblClick事件，图片的消失用LoadPicture()方法来实现。【操作步骤】步骤1：建立界面，添加控件并设置控件的属性。程序中用到的控件及属性见表3.186。步骤2：编写程序代码。参考答案PrivateSubForm_DblClick()P1.Picture=LoadPicture()EndSub步骤3：调试并运行程序，关闭程序后按题目要求存

3、盘。简答题（1）【考点分析】本题考点有：标签的Name、Caption、BorderStyle属性，计时器的Interval属性和Timer事件。【解题思路】标签的BorderStyle属性可以取两个值，当取0值时表示标签无边框，这是默认情况；当取1值时标签有边框。在计时器的Timer事件，将标签的Caption属性值加1，实现程序运行后每隔一秒钟标签中的数字加1。【操作步骤】步骤1：建立界面，添加控件并设置控件的属性。程序中用到的控件及属性见表3.187。步骤2：分析并编写程序代码。程序提供代码PrivateSubTimer1_Timer()L1=L1+1EndSub程序结束步骤3：调试

4、并运行程序，关闭程序后按题目要求存盘。简答题（2）【考点分析】本题考点有：列表框的MultiSelect、Selected、ListCount属性，窗体的Print方法，If判断语句和For循环语句。【解题思路】MultiSelect属性值可以用来设置一次可以选择的表项数。其可以取一下3种值：0-None：每次只能选择一项，如果选择另一项则会取消对前一项的选择。1-Simple：可以同时选择多个项，后续的选择不会取消前面所选择的项，而且可以用鼠标和空格选择。2-Extended：可以选择指定范围的表项。其方法是：单击所要选择的范围的第一项，然后按下Shift键，不要松开，并单击所要选择的范

5、围的最后一项。如果按住Ctrl键，并单击列表框中的项目，则可不连续地选择多个表项。【操作步骤】步骤1：打开本题工程文件，通过列表框属性窗口将复选即MultiSelect属性值设为1。步骤2：分析并编写程序代码。程序提供代码PrivateSubC1_Click()Fori=0ToMe.l1.ListCount-1Ifl1.Selected(i)=TrueThenPrintl1.List(i)EndIfNextEndSub程序结束步骤3：调试并运行程序，关闭程序后按题目要求存盘。综合题【考点分析】本题考点有：文本框的Name、Text属性，命令按钮的Name、Caption属性，单选按钮的Na

6、me、Caption、Value属性，Function()函数，Int()函数，If判断语句和For循环语句。【解题思路】Function()函数的功能是500到600之间被某个整数整除的数之和，在命令按钮的Click事件中，通过If语句判断单选按钮是否被选中，在调用对应的函数。【操作步骤】步骤1：建立界面，添加控件并设置控件的属性。程序中用到的控件及属性见表3.188和3.189。步骤2：分析并编写程序代码。程序提供代码PrivateSubC1_Click()'需要考生编写的内容EndSubPrivateFunctionfun(aAsInteger)AsIntegers%=0Fori%=

7、500To600IfInt(i%/a)=i%/aThens%=s%+i%EndIfNextfun=s%EndFunctionPrivateSubForm_Unload(CancelAsInteger)OpenApp.Path&"out5.txt"ForOutputAs#1Print#1,Op1.Value,Op2.Value,Text1.TextClose#1EndSub程序结束参考答案IfOp1.ValueThenT