[填空題] 窗體上有一個(gè)名稱為Text 1的文本框和一個(gè)名稱為Command l、標(biāo)題為“計(jì)算”的命令按鈕,如圖所示。函數(shù)fun及命令按鈕的單擊事件過程如下,請
2021-07-20
[填空題] 窗體上有一個(gè)名稱為Text 1的文本框和一個(gè)名稱為Command l、標(biāo)題為“計(jì)算”的命令按鈕,如圖所示。函數(shù)fun及命令按鈕的單擊事件過程如下,請?zhí)羁铡? Private Sub Command 1 _Click() Dim x As Integer x=Val(InputBOX("輸入數(shù)據(jù)")) Text 1=Str(fun(x)+fun(x)+fun(x)) End Sub Private Function fun(ByRef n As Integer) If n Mod 3=0 Then n=n+n Else n=n*n End If _【9】_=n End Function 當(dāng)單擊命令按鈕,在輸入對話框中輸入2時(shí),文本框中顯示的是_【10】_
正確答案:276
詞條內(nèi)容僅供參考,如果您需要解決具體問題
(尤其在法律、醫(yī)學(xué)等領(lǐng)域),建議您咨詢相關(guān)領(lǐng)域?qū)I(yè)人士。