資源描述：
《19(1.2通話開(kāi)始,通話結(jié)束)》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫(kù)。
1、(1)【解題思路】通過(guò)形狀控件的Name、Shape、Width、Height屬性設(shè)置形狀控件的名稱、形狀、寬、高和FillColor屬性返回/設(shè)置填充形狀、圓環(huán)和方框所使用的顏色。窗體的FontName、Caption屬性設(shè)置窗體的標(biāo)題以及字體?！静僮鞑襟E】步驟1：建立界面，并設(shè)置控件的屬性。程序中用到的控件及屬性見(jiàn)表3.65。表3.65 步驟2：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤?！九e一反三】可以通過(guò)第24套第一大題的第一小題來(lái)進(jìn)行同類知識(shí)點(diǎn)的練習(xí)。(2)【解題思路】程序運(yùn)行時(shí)，單擊"通話開(kāi)始"按鈕，Timer1的Enabled屬性設(shè)置為True，運(yùn)用Timer1
2、Timer事件過(guò)程中的Text1.Text＝Text1.Text＋1語(yǔ)句，在Text1中累加通話時(shí)間(每秒加1)，單擊"通話結(jié)束"按鈕，Timer1的Enabled屬性為False，停止通話時(shí)間的累加；單擊"計(jì)算通話費(fèi)"按鈕，運(yùn)用Call語(yǔ)句調(diào)用過(guò)程sub1。【操作步驟】步驟1：建立界面，設(shè)置計(jì)時(shí)器Interval屬性為1000，Enabled屬性設(shè)置為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程序結(jié)束參考答案PrivateSubCommand1_Click()Timer1.Enabled=TrueEndSubPrivateSubCommand2_Click()Timer1.Enabled=FalseEndSubPrivateSubCommand3_Click()Callsub1EndSubPrivateSubTimer1_Timer()Text1.Text=Text1.Text+1EndSub步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。【舉一反三】可以通過(guò)第24套第二大題的第一小題來(lái)進(jìn)行同類知識(shí)點(diǎn)的練習(xí)。(1)【解題思
4、路】本題主要考查的是對(duì)循環(huán)語(yǔ)句的理解，以及對(duì)于循環(huán)上限的判斷。首先我們要看一下兩個(gè)主要的For循環(huán)語(yǔ)句實(shí)現(xiàn)什么樣的功能，先看第一個(gè)For語(yǔ)句，在循環(huán)語(yǔ)句中嵌套兩個(gè)循環(huán)語(yǔ)句，第一個(gè)語(yǔ)句是實(shí)現(xiàn)輸入空格，當(dāng)i＝1時(shí)也就是當(dāng)輸入第一行時(shí)，進(jìn)行Forj＝1To6-i的循環(huán)，即在第一行打印出5個(gè)空字符，也可以理解為打印出5個(gè)空格。第二個(gè)for循環(huán)實(shí)現(xiàn)的是*的打印，還以i＝1為例，要打印出一個(gè)*，同時(shí)我們要注意行數(shù)i和輸入空格及*符號(hào)個(gè)數(shù)之間的關(guān)系，也就是找出他們的表達(dá)式運(yùn)算規(guī)律，從而得到循環(huán)上限?！静僮鞑襟E】步驟1：打開(kāi)本題工程文件。步驟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程序結(jié)束參考答案第1個(gè)？處填入：5第2個(gè)？處填入：2*i-1第3個(gè)？處填入：i+1第4個(gè)？處填入：(9-2*i)步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求
6、存盤。(2)【解題思路】Timer1Timer事件過(guò)程中，通過(guò)判斷單選按鈕縱向或橫向是否被選中，來(lái)決定圓運(yùn)動(dòng)的方向，如果是縱向，則通過(guò)Shape2的Top、Width屬性值的改變實(shí)現(xiàn)圓的移動(dòng)，并通過(guò)判斷Top屬性值來(lái)確定是否到達(dá)上或下界，使圓向相反方向運(yùn)動(dòng)。如果是橫向，則通過(guò)Shape2的Left、Width屬性值的改變實(shí)現(xiàn)圓的移動(dòng)。Command2Click事件過(guò)程中通過(guò)將Timer1的Enabled屬性設(shè)置為False，使圓停止運(yùn)動(dòng)，Command1Click事件過(guò)程中通過(guò)將Timer1的Enabled屬性設(shè)置為True，使圓開(kāi)始運(yùn)動(dòng)。在窗體載入時(shí)，設(shè)置d的值，是為了方
7、便編輯小球向相反方向的運(yùn)動(dòng)過(guò)程語(yǔ)句?！静僮鞑襟E】步驟1：打開(kāi)本題工程文件。步驟2：分析并編寫程序代碼。程序提供代碼DimdAsIntegerPrivateSubCommand1_Click()Timer1.Enabled=TrueEndSubPrivateSubCommand2_Click()'?。?FalseEndSubPrivateSubForm_Load()d=1EndSubPrivateSubTimer1_Timer() IfOption1Then' Shape2.Top=?+d*50' IfShap
