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

(1) 【解题思路】通过形状控件的Name、Shape、Width、Height属性设置形状控件的名称、形状、宽、高和FillColor属性返回/设置填充形状、圆环和方框所使用的颜色。窗体的FontName、Caption属性设置窗体的标题以及字体。 【操作步骤】 步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.65。 表3.65 　步骤2：调试并运行程序，关闭程序后按题目要求存盘。 【举一反三】可以通过第24套第一大题的第一小题来进行同类知识点的练习。 (2) 【解题思路】程序运行时，单击通话开始按钮，Timer1的Enabled 属性设置为True，运用Timer1 Timer 事件过程中的Text1.Text ＝ Text1.Text ＋ 1语句，在Text1中累加通话时间(每秒加1)，单击通话结束按钮，Timer1的Enabled 属性为False，停止通话时间的累加；单击计算通话费按钮，运用Call语句调用过程sub1。 【操作步骤】 步骤1：建立界面，设置计时器Interval属性为1000，Enabled属性设置为False。 步骤2：编写程序代码。 程序提供代码 Private Sub_sub1() a = Text1 If a 18 Then 　　　　Text2 = 0.5 Else 　　　　a = a - 18 　　　　a = Int(a / 6) + 1 　　　　Text2 = 0.5 + a * 0.15 End If End Sub 程序结束 参考答案 Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Command2_Click() Timer1.Enabled = False End Sub Private Sub Command3_Click() Call sub1 End Sub Private Sub Timer1_Timer() Text1.Text = Text1.Text + 1 End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 【举一反三】可以通过第24套第二大题的第一小题来进行同类知识点的练习。 (1) 【解题思路】本题主要考查的是对循环语句的理解，以及对于循环上限的判断。首先我们要看一下两个主要的For循环语句实现什么样的功能，先看第一个For语句，在循环语句中嵌套两个循环语句，第一个语句是实现输入空格，当i ＝ 1时也就是当输入第一行时，进行For j ＝ 1 To 6 - i的循环，即在第一行打印出5个空字符，也可以理解为打印出5个空格。第二个for循环实现的是*的打印，还以i ＝ 1为例，要打印出一个*，同时我们要注意行数i和输入空格及*符号个数之间的关系，也就是找出他们的表达式运算规律，从而得到循环上限。 【操作步骤】 步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 程序提供代码 Private Sub Form_Click() 　For i = 1 To ? 　　　　For j = 1 To 6 - i 　　　　　　Print ； 　　　　Next j 　For j = 1 To ? 　　　　　　Print *； 　　　　Next j 　　　　Print Next i For i = 1 To 4 　For j = 1 To ? 　　　　　　Print ； 　　　　Next j 　For j = 1 To ? 　　　　　　Print *； 　　　　Next j 　　　　Print Next i End Sub 程序结束 参考答案 第1个？处填入：5 第2个？处填入：2 * i - 1 第3个？处填入：i + 1 第4个？处填入：(9 - 2 * i) 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 (2) 【解题思路】Timer1 Timer事件过程中，通过判断单选按钮纵向或横向是否被选中，来决定圆运动的方向，如果是纵向，则通过Shape2的Top、Width属性值的改变实现圆的移动，并通过判断Top属性值来确定是否到达上或下界，使圆向相反方向运动。如果是横向，则通过Shape2的Left、 Width属性值的改变实现圆的移动。Command2 Click事件过程中通过将Timer1的Enabled属性设置为False，使圆停止运动，Command1 Click事件过程中通过将Timer1的Enabled属性设置为True，使圆开始运动。 在窗体载入时，设置d的值，是为了方便编辑小球向相反方向的运动过程语句。 【操作步骤】 步骤1：打开本题工程文件。