19(1.2通话开始,通话结束)

《19(1.2通话开始,通话结束)》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、(1)【解题思路】通过形状控件的Name、Shape、Width、Height属性设置形状控件的名称、形状、宽、高和FillColor属性返回/设置填充形状、圆环和方框所使用的颜色。窗体的FontName、Caption属性设置窗体的标题以及字体。【操作步骤】步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.65。表3.65　步骤2：调试并运行程序，关闭程序后按题目要求存盘。【举一反三】可以通过第24套第一大题的第一小题来进行同类知识点的练习。(2)【解题思路】程序运行时，单击"通话开始"按钮，Timer1的Enabled属性设置为True，运用Timer1

2、Timer事件过程中的Text1.Text＝Text1.Text＋1语句，在Text1中累加通话时间(每秒加1)，单击"通话结束"按钮，Timer1的Enabled属性为False，停止通话时间的累加；单击"计算通话费"按钮，运用Call语句调用过程sub1。【操作步骤】步骤1：建立界面，设置计时器Interval属性为1000，Enabled属性设置为False。步骤2：编写程序代码。程序提供代码PrivateSub_sub1()a=Text1Ifa<18Then　　　　Text2=0.5Else　　　　a=a-18　　　　a=Int(a/6)+1　　　　Text2=0.

3、5+a*0.15EndIfEndSub程序结束参考答案PrivateSubCommand1_Click()Timer1.Enabled=TrueEndSubPrivateSubCommand2_Click()Timer1.Enabled=FalseEndSubPrivateSubCommand3_Click()Callsub1EndSubPrivateSubTimer1_Timer()Text1.Text=Text1.Text+1EndSub步骤3：调试并运行程序，关闭程序后按题目要求存盘。【举一反三】可以通过第24套第二大题的第一小题来进行同类知识点的练习。(1)【解题思

4、路】本题主要考查的是对循环语句的理解，以及对于循环上限的判断。首先我们要看一下两个主要的For循环语句实现什么样的功能，先看第一个For语句，在循环语句中嵌套两个循环语句，第一个语句是实现输入空格，当i＝1时也就是当输入第一行时，进行Forj＝1To6-i的循环，即在第一行打印出5个空字符，也可以理解为打印出5个空格。第二个for循环实现的是*的打印，还以i＝1为例，要打印出一个*，同时我们要注意行数i和输入空格及*符号个数之间的关系，也就是找出他们的表达式运算规律，从而得到循环上限。【操作步骤】步骤1：打开本题工程文件。步骤2：分析并编写程序代码。程序提供代码Privat

5、eSubForm_Click()'　Fori=1To?　　　　Forj=1To6-i　　　　　　Print""；　　　　Nextj'　Forj=1To?　　　　　　Print"*"；　　　　Nextj　　　　PrintNextiFori=1To4'　Forj=1To?　　　　　　Print""；　　　　Nextj'　Forj=1To?　　　　　　Print"*"；　　　　Nextj　　　　PrintNextiEndSub程序结束参考答案第1个？处填入：5第2个？处填入：2*i-1第3个？处填入：i+1第4个？处填入：(9-2*i)步骤3：调试并运行程序，关闭程序后按题目要求

6、存盘。(2)【解题思路】Timer1Timer事件过程中，通过判断单选按钮纵向或横向是否被选中，来决定圆运动的方向，如果是纵向，则通过Shape2的Top、Width属性值的改变实现圆的移动，并通过判断Top属性值来确定是否到达上或下界，使圆向相反方向运动。如果是横向，则通过Shape2的Left、Width属性值的改变实现圆的移动。Command2Click事件过程中通过将Timer1的Enabled属性设置为False，使圆停止运动，Command1Click事件过程中通过将Timer1的Enabled属性设置为True，使圆开始运动。在窗体载入时，设置d的值，是为了方

7、便编辑小球向相反方向的运动过程语句。【操作步骤】步骤1：打开本题工程文件。步骤2：分析并编写程序代码。程序提供代码DimdAsIntegerPrivateSubCommand1_Click()Timer1.Enabled=TrueEndSubPrivateSubCommand2_Click()'　？=FalseEndSubPrivateSubForm_Load()d=1EndSubPrivateSubTimer1_Timer()　　　　IfOption1Then'　Shape2.Top=?+d*50'　IfShap