'此答案經(jīng)過VB程序測試驗(yàn)證:
創(chuàng)新互聯(lián)建站專注于回民網(wǎng)站建設(shè)服務(wù)及定制,我們擁有豐富的企業(yè)做網(wǎng)站經(jīng)驗(yàn)。 熱誠為您提供回民營銷型網(wǎng)站建設(shè),回民網(wǎng)站制作、回民網(wǎng)頁設(shè)計(jì)、回民網(wǎng)站官網(wǎng)定制、成都微信小程序服務(wù),打造回民網(wǎng)絡(luò)公司原創(chuàng)品牌,更為您提供回民網(wǎng)站排名全網(wǎng)營銷落地服務(wù)。
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必須初始化,否則默認(rèn)為零將導(dǎo)致除數(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ù)學(xué)題干什么?現(xiàn)在的教育都在誤導(dǎo)學(xué)生?。?!VB應(yīng)該是用來幫助我們學(xué)習(xí)的,不是研究什么是素?cái)?shù)什么是乘除來乘除去的!無語了!每個學(xué)生都要研究這些嗎?
答案也很簡單,以下代碼都是在Command1_Click()中執(zhí)行。
1.我這個代碼應(yīng)該是你們要的結(jié)果,其實(shí)代碼可以優(yōu)化的更好玩(暫時(shí)不說)。
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
'是素?cái)?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.寫到這里有點(diǎn)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.算了,這分我拿不下了。太累
當(dāng)前名稱:vb.net程序設(shè)計(jì)題庫 vb程序設(shè)計(jì)選擇題
網(wǎng)站URL:http://jinyejixie.com/article4/hepdoe.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供定制網(wǎng)站、網(wǎng)頁設(shè)計(jì)公司、、自適應(yīng)網(wǎng)站、網(wǎng)站制作、品牌網(wǎng)站設(shè)計(jì)
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來源: 創(chuàng)新互聯(lián)