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

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

[問(wèn)答題] 注意:下面出現(xiàn)的“考生文件夾”均為C:wexam25160002。 在考生文件夾下有一個(gè)工程文件sjt5.vbp,在該工程中為考生提供了一個(gè)通用過(guò)程

2021-07-20   

[問(wèn)答題] 注意:下面出現(xiàn)的“考生文件夾”均為C:wexam25160002。 在考生文件夾下有一個(gè)工程文件sjt5.vbp,在該工程中為考生提供了一個(gè)通用過(guò)程,考生可以直接調(diào)用。請(qǐng)?jiān)诖绑w上畫一個(gè)名稱為Text1的文本框;畫一個(gè)名稱為C1,標(biāo)題為“計(jì)算”的命令按鈕;再畫兩個(gè)單選按鈕,名稱分別為Op1和op2,標(biāo)題分別為“求200到300之間能被7整除的數(shù)之和”和“求200到300之間能被3整除的數(shù)之和”,如圖27-5所示。 請(qǐng)編寫適當(dāng)?shù)氖录^(guò)程,使得在運(yùn)行時(shí),選中一個(gè)單選按鈕,再單擊“計(jì)算”按鈕,就可以按照單選按鈕后的文字要求計(jì)算,并把計(jì)算結(jié)果放入文本框中,最后把已經(jīng)修改的工程文件和窗體文件以原來(lái)的文件名存盤。 注意:考生不得修改窗體文件中已經(jīng)存在的程序,退出程序時(shí)必須通過(guò)單擊窗體右上角的關(guān)閉按鈕。在結(jié)束程序運(yùn)行之前,必須至少要進(jìn)行一種計(jì)算,否則不得分。

正確答案:

解析: 在窗體上建立控件后,先設(shè)置控件屬性,再事件過(guò)程。 程序中提供的事件過(guò)程用來(lái)求200~300之間能被n個(gè)整除的數(shù)的和,這里n是傳遞給Function過(guò)程的參數(shù),該Function過(guò)程返回求得和。 文本框用Text屬性來(lái)接收用戶的輸入。按鈕的標(biāo)題由Caption屬性來(lái)設(shè)置,單擊按鈕觸發(fā)的是Click事件。為了檢測(cè)單選按鈕被選中,可以通過(guò)檢測(cè)其Value屬性來(lái)實(shí)現(xiàn),當(dāng)Value為True時(shí),表示該單選按鈕被選中,否則未被選中。在按鈕的 Click事件過(guò)程中通過(guò)條件語(yǔ)句來(lái)調(diào)用Function過(guò)程,實(shí)現(xiàn)程序

參考解析:

在窗體上建立控件后,先設(shè)置控件屬性,再事件過(guò)程。 程序中提供的事件過(guò)程用來(lái)求200~300之間能被n個(gè)整除的數(shù)的和,這里n是傳遞給Function過(guò)程的參數(shù),該Function過(guò)程返回求得和。 文本框用Text屬性來(lái)接收用戶的輸入。按鈕的標(biāo)題由Caption屬性來(lái)設(shè)置,單擊按鈕觸發(fā)的是Click事件。為了檢測(cè)單選按鈕被選中,可以通過(guò)檢測(cè)其Value屬性來(lái)實(shí)現(xiàn),當(dāng)Value為True時(shí),表示該單選按鈕被選中,否則未被選中。在按鈕的 Click事件過(guò)程中通過(guò)條件語(yǔ)句來(lái)調(diào)用Function過(guò)程,實(shí)現(xiàn)程序要求的功能。解題步驟: 第一步:建立界面并設(shè)置控件屬性。程序中用到的控件及其屬性見表27-5。表 27-5控 件屬 性設(shè)置值文本框NameTextText1空白按鈕NameCaptionC1“計(jì)算”單選按鈕NameCaptionOp1“求200到300之間能被7整除的數(shù)之和”單選按鈕NameCaption“求200到300之間能被3整除的數(shù)之和” 第二步:編寫程序代碼。 程序提供的代碼: Private Function fun(a As Integer) As Integer s% = 0 For i% = 200 To 300 If Int(i% / a) = i% / a Then s% = s% + i% End If Next fun = s% End Function Private Sub Form_Unload(Cancel As Integer) Open "out5.txt" For Output As #1 Print #1, Opl.Value, Op2.Value, Textl.Text Close #1 End Sub 參考答案: Private Function fun(a As Integer) As Integer s% = 0 For i% = 200 To 300 If Int(i% / a) = i% / a Then s% = s% + i% End If Next fun = s% End Function Private Sub C1_Click() If Opl.Value Then Text1 = fun(7) End If If Op2.Value Then Text1 = fun(3) End Sub Private Sub Form_Unload(Cancel As Integer) Open "out5.txt" For Output AS #1 Print #1, Opl.Value, Op2.Value, Text1.Text Close #1 End Sub 第三步;調(diào)試并運(yùn)行程序。 第四步:按題目要求存盤。

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

標(biāo)簽

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