'此答案經(jīng)過VB程序測試驗證:
創(chuàng)新互聯(lián)建站專注于回民網(wǎng)站建設服務及定制,我們擁有豐富的企業(yè)做網(wǎng)站經(jīng)驗。 熱誠為您提供回民營銷型網(wǎng)站建設,回民網(wǎng)站制作、回民網(wǎng)頁設計、回民網(wǎng)站官網(wǎng)定制、成都微信小程序服務,打造回民網(wǎng)絡公司原創(chuàng)品牌,更為您提供回民網(wǎng)站排名全網(wǎng)營銷落地服務。
1.1000 to 8421 '前面判斷了3位數(shù)的數(shù)字,本空為判斷4位數(shù)的數(shù)字
2.1000 to 8421 ‘同理1題
3.c=100-a-b ’本空滿足第二個條件:雞的個數(shù)之和為100只
4.i*10+j*5+k*2+m=100 ‘本空需滿足錢的總和為100
5.sum=sum+1/s ’按所給公式求和
6.sum=sum+1/(i*(i+1)) ‘按所給公式求和
7.s=1 ’s必須初始化,否則默認為零將導致除數(shù)為零的錯誤
8.mr=right(m,1) ‘取右邊的第一個字符串
9.mr=right(m,1) ‘取右邊的第一個字符串
10.b=(g*s) mod 10 ’滿足條件個位與數(shù)位之積于十的余數(shù)為百位數(shù)
’-------不懂得還可以問。給分吧!
1.C
2.A
3.A
4.A
5.A
6.C
7.D
8.A
9.A
10.D
11.D
12.D
13.B
14.D
15.A
16.B
17.C
18.A
1.A
2.B
VB考這些數(shù)學題干什么?現(xiàn)在的教育都在誤導學生?。?!VB應該是用來幫助我們學習的,不是研究什么是素數(shù)什么是乘除來乘除去的!無語了!每個學生都要研究這些嗎?
答案也很簡單,以下代碼都是在Command1_Click()中執(zhí)行。
1.我這個代碼應該是你們要的結(jié)果,其實代碼可以優(yōu)化的更好玩(暫時不說)。
n = 0
for i = 100 to 666
a = Int(n / 100) '獲得百位數(shù),以下分別是獲得十位數(shù)個位數(shù)
b = Int(Int(n / 10) Mod 10)
c = n Mod 100 Mod 10
if (a+b) Mod 10 = c then
print i '這里是在窗體print,具體如何顯示結(jié)果你看你的試題要求嘍。
end if
For j = 2 To Sqr(i)
If i Mod j = 0 Then Exit For
Next j
If j Sqr(i) Then
'是素數(shù),就累加
n=n+1
End If
next i
print n
2.
for i = 10 to 500 step 2
n = n +1
next i
print n
3.寫到這里有點print煩了,什么題目啊,無聊至極
for i = 200 to 1000
if i mod 3 = 0 and i mod 5=0 then
n = n+i
end if
next i
print n
4.算了,這分我拿不下了。太累