[填空題] 在窗體上建立—個名稱為Text1的文本框，用來接收一個整數(shù)。當form1_ Click事件發(fā)生時，將在窗體上顯示輸入整數(shù)的各位數(shù)字和。Private
2021-07-20
[填空題] 在窗體上建立—個名稱為Text1的文本框，用來接收一個整數(shù)。當form1_ Click事件發(fā)生時，將在窗體上顯示輸入整數(shù)的各位數(shù)字和。
Private Function fun(m As Integer) As Integer
Dim k As Integer, n As Integer
do
n = 【10】
k=k+ n
m= m10
Loop until m = 0
fun = k
End Function
Private Sub form_ Click()
Dim n As Integer
n = Val(Text1. Text)
Print 【11】
End Sub
正確答案：[10] m Mod 10[11]fun(n)
參考解析：本題Fun函數(shù)的功能是求得形參m的各位數(shù)字的和，并作為函數(shù)值返回。在該函數(shù)中通過一個do... Loop循環(huán)把參數(shù)m的各位數(shù)字分離出來，加到和k中。不難得到[10]處應(yīng)填“m Mod 10”。當在窗體上單擊時，將調(diào)用函數(shù)Fun求得Text1中輸入整數(shù)的各位數(shù)字和，因此[11]處應(yīng)填“fun(n)”。
詞條內(nèi)容僅供參考，如果您需要解決具體問題
（尤其在法律、醫(yī)學(xué)等領(lǐng)域），建議您咨詢相關(guān)領(lǐng)域?qū)I(yè)人士。