一道VB简单题目
Private Sub Command1_Click()
Cls
Randomize
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
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
但原来简单看一看十只手指头，亦可看出端倪。指甲是人体皮肤的一部分，若色素、外观出现问题，除可反映本身指甲有病，亦可显示许多系统性疾病，如肺病、心脏病，甚至重金属中毒等。
指甲是由角质蛋白组成，属于死细胞，它会不断生长，都是因为被甲床的活细胞不断挤出所致。指甲仿似身体的缩影，可反映健康状况。正常人的指甲一般是光滑，带粉红，呈半透明弧状。但若本身内脏功能失调，便直接会影响指甲的健康，常见的病征包括：
⒈易脆裂：
原因：血液循环出现问题；或缺乏维他命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缺乏、黑色素瘤也可能在指甲上出现黑色。
以上回答如果满意，请不要辜负我的一片好意，及时点击“采纳为答案”。
这没问题的
