1樓：匿名使用者
a>b>c
這裡從左到右計算，a>b 結果為true
那麼下一步計算就是 判斷 true > c因為true 和c 無法比較，所以輸入結果為false
2樓：匿名使用者
修改了一下
private sub form_load()dim i as integer
randomize
for i = 0 to 29
list1.additem cstr(int(rnd * 90 + 10))
next i
end sub
private sub form_click()dim i as integer, s(29) as booleanon error resume next
for i = 0 to 29
s(i) = prime(list1.list(i)) = truenext i
for i = 0 to 29
if s(i) then list1.removeitem inext
end sub
private function prime(n as integer) as boolean
dim i as integer
if n < 2 then
prime = false
else
for i = 2 to sqr(n)
if n mod i = 0 then exit fornext i
if i > sqr(n) then prime = true else prime = false
end if
end function
一道vb簡單題目
3樓：
dim ary1(999) as integer, ary2(999) as integer
dim k as integer
private sub command1_click()
for i = 0 to 999
if sushu(ary1(i)) then '判斷素數並放入ary2陣列'
ary2(k) = ary1(i)
k = k + 1 ''素數的個數
end if
next i
for i = 0 to k - 1 '氣泡排序從小到大'
for j = i + 1 to k - 1
if ary2(i) > ary2(j) then
t = ary2(i)
ary2(i) = ary2(j)
ary2(j) = t
end if
next j
next i
for i = 0 to k - 1
text2.text = text2.text & ary2(i) & " "
next i
end sub
private function sushu(byval n as long) as boolean '判斷一個數是否是素數
dim i as long
for i = 2 to n - 1
if (n mod i) = 0 then exit for
next i
if i = n then sushu = true
end function
private sub form_load()
'text1.multiline = true
'text2.multiline = true
for i = 0 to 999
ary1(i) = int(rnd * 1000 + 1) '隨機數1 to 1000到ary1陣列
text1 = text1.text & ary1(i) & " "
next i
end sub
4樓：聽不清啊
private sub command1_click()
clsrandomize
dim a(100) as integer
print "隨機產生100個數：" '產生隨機數
for i = 0 to 99
a(i) = int(1000 * rnd) + 1
print tab(5 * (i mod 10) + 1); a(i);
if i mod 10 = 9 then print
next i
n = -1 '挑選其中的素數
for i = 0 to 99
yes = true
for j = 2 to sqr(a(i))
if a(i) mod j = 0 then yes = false: exit for
next j
if yes then n = n + 1: a(n) = a(i)
next i
for i = 0 to n - 1 '升序排序
for j = 0 to n - 1 - i
if a(j) > a(j + 1) then
t = a(j): a(j) = a(j + 1): a(j + 1) = t
end if
next j
next i
print "其中的素數有(從小到大)：" '輸出
for i = 0 to n
print tab(5 * (i mod 10) + 1); a(i);
if i mod 10 = 9 then print
next i
end sub
5樓：匿名使用者
要知道一個人有無病，西醫常用的方法是驗血、驗尿；中醫會把脈、看舌、觀氣色。
但原來簡單看一看十隻手指頭，亦可看出端倪。指甲是人體**的一部分，若色素、外觀出現問題，除可反映本身指甲有病，亦可顯示許多系統性疾病，如肺病、心臟病，甚至重金屬中毒等。
指甲是由角質蛋白組成，屬於死細胞，它會不斷生長，都是因為被甲床的活細胞不斷擠出所致。指甲仿似身體的縮影，可反映健康狀況。正常人的指甲一般是光滑，帶粉紅，呈半透明弧狀。
但若本身內臟功能失調，便直接會影響指甲的健康，常見的病徵包括：
⒈易脆裂：
原因：血液迴圈出現問題；或缺乏維他命a、c、b3、b6或鈣、鐵等；或甲狀腺出現紊亂。
⒉向上鼓起變厚：
原因：缺氧所致，可以是慢性肺病或肺癌；或先天性心臟病；或患有其他遺傳病。
⒊脆弱，出現凹點，甚至脫出甲床：
原因：有可能患上溼疹、牛皮癬或受傷。
⒋變色或變形：
原因：有可能是真菌、病毒或病菌感染。若是受假單胞菌感染，指甲甚至會變綠。指甲變黃則主要反映慢性氣管問題。
⒌甲面出現一道深刻橫紋：
原因：嚴重缺乏蛋白質，可以是營養不良、或化療後遺症引致。
⒍出現白點或白條紋：
原因：輕微白點有可能是缺乏營養素，嚴重的可以是重金屬砷中毒，另吸收過量銀毒則會出現藍指甲。
⒎前端裂開：
原因：溼水過久；過量塗搽指甲油或洗甲水。
⒏色澤混濁，甲端有深色紋：
原因：可以反映嚴重疾病如癌症、心臟病或糖尿病。
如何改善？從飲食下手
指甲有毛病，切記應馬上看醫生查明原因，及早治理。平日想指甲更健康，亦可從飲食方面入手：
⒈足夠蛋白質：指甲由蛋白質組成，若平日指甲底部出現白色橫紋，有可能是蛋白質不足，宜多吃豆、種子、果仁、蛋或肉類等食物。
⒉鈣質鞏固指甲：缺鈣可引致指甲易幹易脆，宜多吃乳酪、奶或豆類食品。
⒊維他命防幼線：維他命b可促進指甲生長及保持健康色澤，若吸收不足，指甲可出現幼線。
⒋礦物質防白點：指甲出現白點有可能是身體有嚴重疾病，亦可能是缺乏鋅或鐵，宜先請教醫生。鋅含量豐富的食品有海產、蛋及肉類。
1有時候指甲上會長一個白色的小點,這個點還會隨著指甲的生長而向外移動,知道變成可以剪掉的指甲,這是什麼原因?
2指甲上沒有月牙白,是什麼原因?
3指甲不紅潤,甚至有點發白,冷的時候還會發紫,這有是什麼原因?
你好！首先祝你身體健康！我來和你談談「指甲」的問題。
人的指甲是健康的熒光屏，這是因為人的十二經脈會於指端。正常人的指甲光潔、平滑、半透明，呈均勻的淡紅色，甲端有定型的弧度，甲根有一月狀灰白色的甲弧。身體一旦出現病狀，即會通過神經、血管、經絡等反映到指甲上，出現指甲的形狀、顏色的異常變化。
1）指甲形狀與疾病：
1.指甲凸起並向指肉中卷伸，象徵慢性呼吸系統可能出現疾病，諸如肺氣腫、結核病、心血管病等。
2.指甲條紋紊亂，並呈現深褐色，是脫水和初期腎虛的反應。
3.指甲出現橫紋，可能是心肌梗塞前的一種徵兆，也和麻疹、腮腺炎有關。
4.指甲出現絮狀白雲，常是有蛔蟲的跡象。
5.指甲出現豎的條紋，多是缺乏維生素甲的表現。
6.指甲部分脫落，表明新陳代謝紊亂。
7.指甲平坦，凹陷成匙狀，無光且脆弱，多是缺鐵性貧血所致。
8.指甲突然變厚和指甲周圍脫皮，表明呼吸道或消化道可能存在腫瘤。
9.指甲中間下陷，整片指甲變成平坦或匙狀，常和鐵質不足的貧血病、梅毒、甲狀腺障礙、風溼症等有關。
10.指甲出現不規則凹點，很多牛皮癬病人常有此現象。
11.指甲成行的凹狀麻點，常因患簇狀禿髮症所致。
2）指甲顏色與疾病：
1.指甲外表蠟白無華--常常是貧血的症象。如指甲上出現橫貫白線，多見於砷、鉛等金屬中毒，或何杰金氏病，糙皮病等。甲板表面出現白斑，多為慢性肝、腎病所致。
2.指甲表面或周圍出現黃色--常見於慢性出血性疾病，甲狀腺機能減退，腎病綜合症與胡蘿蔔素血癥，指甲周圍出現黃色，要警惕惡性黑色素瘤，但長期吸菸或長期服用四環素藥物者，老年
人也可使指甲變黃。
3.指甲出現紫色--多為心臟病、血液病人的一個特點，反映血液內缺氧或某些成份異常，若紫色與白色交替出現，可見於肢端動脈痙攣症。
4.指甲出現青色--如急腹症患者四肢闕汽，指甲便突然變青，胎兒死於腹中的孕婦，指甲會持續發青。如指甲呈青紫色，常見於先天性心臟病人、大葉性肺炎、重度肺氣腫病人；癌症患者或
中毒者的指甲也常出現青色瘀斑。
5.指甲出現藍色--常出現在白喉、急性腸道傳染病與食道異物阻塞；如指甲根部呈蘭色半月狀，常是血液迴圈障礙或心臟病、雷諾氏綜合症、風溼性關節炎或紅斑狼瘡造成。
6.指甲出現灰色--常見於青光眼患者或粘液性水腫、類風溼性關節炎、偏癱患者及營養不良。
7.指甲出現黑色--多見於外傷或甲溝炎症患者、腎上腺皮質功能減退、胃腸息肉綜合症，維生素b12缺乏、黑色素瘤也可能在指甲上出現黑色。
以上回答如果滿意，請不要辜負我的一片好意，及時點選「採納為答案」。
這沒問題的
一道大學vb題，求教大佬，一道vb程式設計題目 求大佬解答！！！
恕我直言，我到現在都想不明白 當年大一怎麼會有vb這門課！什麼vb題 請發圖。手速王i和v額v當然黑卡我拿我v手速起我v我餓u五哈 有毒的對吧 檔案a.txt中每行 一道vb程式設計題目 求大佬解答！private sub command1 click dim x as integer,y as i...
一道VB習題，求答案，一道VB題,跪求答案
private sub form load dim i as integer dim j as integer dim s as long j 0 s 0 me.autoredraw true 自動重畫，顯示結果for i 101 to 500 if i mod 2 1 then me.print ...
一道題目，求解，求解一道會計題目。
我們先把bai 問題簡化一下 甲和du乙各從 zhia城和b城同時出發，在距離b城69公里處dao相遇 回甲和答乙各從b城和a城同時出發，在距離b 應該不是a 城50公里處相遇。求a,b兩城的距離。解 設a,b兩城的距離x千米 第一次相遇甲行駛了 x 69千米 第二次相遇甲行駛了 50千米 x 69...