影音先锋AⅤ天堂资源站,13小箩利洗澡无码视频APP,午夜理论片日本中文在线,最近新免费韩国日本电影

萬能百科  > 計(jì)算機(jī)?  > 

[填空題] 在Visual Basic工程prjl中包含有兩個(gè)窗體,窗體form1(主窗體)上有兩個(gè)命令按鈕command1和 command2,一個(gè)文本控件t

2021-07-20   

[填空題] 在Visual Basic工程prjl中包含有兩個(gè)窗體,窗體form1(主窗體)上有兩個(gè)命令按鈕command1和 command2,一個(gè)文本控件text1;窗體dialog是一個(gè)對(duì)話窗體,窗體包含兩個(gè)命令按鈕OK和Cancel,一個(gè)文本控件text1和一個(gè)標(biāo)簽控件labe11。

編寫程序要求實(shí)現(xiàn)的功能為:窗體form 1上command1的caption屬性值為name,程序運(yùn)行后,當(dāng)單擊 eommand1時(shí),彈出對(duì)話窗體dialog,其labe11控件中的提示信息為“please input your name:”,要求用戶輸入自己的姓名。如果單擊OK按鈕,保存當(dāng)前輸入的內(nèi)容并返回form1界面,command1的caption屬性值為email。若再次單擊command1命令按鈕,仍然出現(xiàn)dialog對(duì)話窗體,此時(shí)dialog的labe11提示用戶輸入自己的email,當(dāng)用戶輸入email后,單擊“確定”按鈕,保存當(dāng)前輸入的內(nèi)容并返回form1界面;如果單擊Cancel按鈕,則輸入內(nèi)容無效并返回form1。

Private Sub Command1_Click()

Dialog. Text1. Text = ""

Dialog. Show

End Sub

Private Sub Command2_Click()

Text1. Text = "email: "+ Dialog. email +" name: "+ Dialog. fname

End Sub

Private Sub Form_ Load()

Command1. Caption = "name"

【7】 . Caption = "please input your name:

Dialog. i = 0

End Sub

Option Explicit

正確答案:

[7]Dialog.Label1 [8]i=i+1 [9]Form1.Command1 [10]Form1.Command1

參考解析:

先來看空【7】處,需要將某個(gè)控件的caption屬性值設(shè)置為“please input your name:”,依據(jù)題目開始的描述,需要設(shè)置成該屬性值的控件是對(duì)話窗體dialog中的標(biāo)簽label1,所以該處填寫Dialog.Label1,而且需要注意的是,該處的dialog.是不能省掉的。接下來,在空【8】處,根據(jù)其下面的程序可以看出,利用i的值來判斷區(qū)分當(dāng)前要求輸入的內(nèi)容是name還是email,而在程序中卻發(fā)現(xiàn)缺少了使i值遞增的語(yǔ)句,即i=i+l。在空【9】處,如果當(dāng)前輸入的是name,則某個(gè)控件caption屬性值變?yōu)閑mail,如果輸入的是email,則該控件的 capUon屬性值變?yōu)閚ame,根據(jù)題目的要求,需要這樣改變,caption屬性的控件是窗體forml中的commandl命令按鈕,因?yàn)楫?dāng)前窗體是dialog,因此還需要注明按鈕所在的窗體,即form1,所以該處應(yīng)該填寫Form1. Command1。同樣地,在空【10】處,也應(yīng)該填寫Form1。Command1。

詞條內(nèi)容僅供參考,如果您需要解決具體問題
(尤其在法律、醫(yī)學(xué)等領(lǐng)域),建議您咨詢相關(guān)領(lǐng)域?qū)I(yè)人士。

標(biāo)簽

<蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <文本链> <文本链> <文本链> <文本链> <文本链> <文本链>