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