19(1.2通話開(kāi)始,通話結(jié)束)

ID:12078804

大?。?9.50 KB

頁(yè)數(shù):7頁(yè)

時(shí)間:2018-07-15

19(1.2通話開(kāi)始,通話結(jié)束)_第1頁(yè)
19(1.2通話開(kāi)始,通話結(jié)束)_第2頁(yè)
19(1.2通話開(kāi)始,通話結(jié)束)_第3頁(yè)
19(1.2通話開(kāi)始,通話結(jié)束)_第4頁(yè)
19(1.2通話開(kāi)始,通話結(jié)束)_第5頁(yè)
資源描述:

《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

當(dāng)前文檔最多預(yù)覽五頁(yè),下載文檔查看全文

此文檔下載收益歸作者所有

當(dāng)前文檔最多預(yù)覽五頁(yè),下載文檔查看全文
溫馨提示:
1. 部分包含數(shù)學(xué)公式或PPT動(dòng)畫的文件,查看預(yù)覽時(shí)可能會(huì)顯示錯(cuò)亂或異常,文件下載后無(wú)此問(wèn)題,請(qǐng)放心下載。
2. 本文檔由用戶上傳,版權(quán)歸屬用戶,天天文庫(kù)負(fù)責(zé)整理代發(fā)布。如果您對(duì)本文檔版權(quán)有爭(zhēng)議請(qǐng)及時(shí)聯(lián)系客服。
3. 下載前請(qǐng)仔細(xì)閱讀文檔內(nèi)容,確認(rèn)文檔內(nèi)容符合您的需求后進(jìn)行下載,若出現(xiàn)內(nèi)容與標(biāo)題不符可向本站投訴處理。
4. 下載文檔時(shí)可能由于網(wǎng)絡(luò)波動(dòng)等原因無(wú)法下載或下載錯(cuò)誤,付費(fèi)完成后未能成功下載的用戶請(qǐng)聯(lián)系客服處理。
关闭