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

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

[問答題] 在考生文件夾中有工程文件djks01 6.vbp及其窗體文件djks016.frm,該程序是不完整的。請?jiān)谟械牡胤教钊胝_內(nèi)容,然后刪除及所有注釋符

2021-07-20   

[問答題] 在考生文件夾中有工程文件djks01 6.vbp及其窗體文件djks016.frm,該程序是不完整的。請?jiān)谟械牡胤教钊胝_內(nèi)容,然后刪除及所有注釋符(’),但不能修改其他部分。存盤時(shí)不得改變文件名和文件夾。

本題描述如下:窗體上有一個(gè)名稱為Text1的文本框;兩個(gè)復(fù)選框,名稱分別為Ch1和Ch2,標(biāo)題分別為“中國國情研究中心”和“中國經(jīng)濟(jì)研究中心”;一個(gè)按鈕,標(biāo)題為“報(bào)考”。要求程序運(yùn)行后,如果只選中Ch1,單擊按鈕,則在文本框中顯示“報(bào)考中國國情研究中心”;如果只選中Ch2,然后單擊按鈕,則在文本框中顯示“報(bào)考中同經(jīng)濟(jì)研究中心”;如果同時(shí)選中Ch1和Ch2,單擊窗體,則在文本框中顯示“報(bào)考沖突”;如果Ch1和Ch2都不選取,在單擊窗體后,則在文本框中什么都不顯示。窗體顯示如下圖所示。

[試題源程序]

1 Private Sub Commandl Click( )

2 Text1.Text=""

3 If Then

4 Text1. Text="報(bào)考沖突"

5 Else If Ch2. Value=1 Then

6 Text1. Text=

7 Else If Ch1. Value=1 Then

8 Text1. Text="報(bào)考中國國情研究中心"

9 End If

10 End Sub

正確答案:

第一步:啟動(dòng)Visual Basic,打開考生文件夾下的工程文件sit3. vbp。 第二步:雙擊窗體中的任何位置,進(jìn)入代碼編輯窗口,填寫代碼如下: 第一個(gè)處填Ch1. Value=1 AndCh2. Value=1 第二個(gè)處填“報(bào)考中國經(jīng)濟(jì)研究中心” 第三步:填寫完畢,調(diào)試成功后,以原文件名保存。

參考解析:

根據(jù)題意當(dāng)復(fù)選框Ch1與Ch2都被選中時(shí),文本框顯示“報(bào)考沖突”,故第一個(gè)處填Ch1. Value=1 And Ch2. Value=1,表示兩者同時(shí)被選中。對于復(fù)選框,Value值為1表示復(fù)選框被選中。在第二個(gè)處填“報(bào)考中國經(jīng)濟(jì)研究中心”,表示此時(shí)顯示“報(bào)考中國經(jīng)濟(jì)研究中心”。

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

標(biāo)簽

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