1樓：
private sub command1_click()dim sum as integer , i as integersum=0
for i=1 to 4
sum=sum+ val(mid(trim(text1.text),i,1)) * 3^(4-i)
next i
if sum mod 9 = val(right(trim(text1.text),1)) then
text2.text=「效驗成功」
else
text2.text="校驗失敗"
endif
end sub
2樓：匿名使用者
private sub command1_click()dim t as long, i as integerdim a%, b%, c%, d%, e%t = text1.text
a = t \ 10000
b = t \ 1000 - 10 * ac = (t mod 1000) \ 100d = (t mod 100) \ 10
e = t mod 10
'print a, b, c, d, e
if (27 * a + 9 * b + 3 * c + d) mod 9 <> e then
text2.text = "錯誤！"
else
text2.text = "正確！"
end if
end sub
用數字組成四位數，每個四位數中均沒有重複數字，求全部這樣的四位數之和。（要有過程）
1 假設4位數的開頭可以是0，即0124 0134都算，那麼總排列是p 5,4 5 4 3 2 120種 2 這120種裡面，0開頭的是p 4,3 4 3 2 24種 3 這120種裡面，因為機會均等，所以在120個 個位數 十位數 百位數 千位數 裡面，0 4出現的次數都是120 5 24遍，也就...
最大的四位數是多少？最小的四位數是多少
e拍 最大的四位數是9999，最小的四位數是1000。自然數中所含有的數位的個數用位數來表示。含有一個數位的數是一位數，含有兩個數位的數是兩位數.最大的一位數是9，最小的一位數是1，最大的兩位數是99，最小的兩位數是10。如此推理，最大的n位數是10 1，最小的n位數是10 擴充套件資料 數位和位數...
3 4四位數可以寫出多少個不同的四位數
1234 1243 1324 1342 1423 1432 2134 2143 2314 2341 2413 2431 3124 3142 3214 3241 3412 3421 4123 4132 4213 4231 4312 4321。6 4 24 種 個位數有4種可能 個位數佔了一個，所以十位...