用VB程序算出 1000-2000范围内的 最大素数 在线等呀。。。

Private Sub Command1_Click()

Dim i As Integer

For i = 2000 To 1000 Step -1

If prime(i) Then Print " 1000-2000范握罩岁围内的最大素数: "闷州 &i: Exit For

Next

End Sub

Private Function prime(ByVal n As Long) As Boolean '返回段睁值=True是素数，False不是素数

Dim k As Long

If n <2 Then

prime = False

Else

prime = True

For k = 2 To n - 1

If (n Mod k) = 0 Then prime = False: Exit For

Next k

End If

End Function

答案是1999

思路：i除以2、3一直到i-1，取余数，如果余数为0，即能整除，不是素数，执行m=1和Exit for跳出内循环，执行Next i。如果是素数，就不会执行前面的语句，m则等于0，通过n=n+1统计源枝素数的个数，当出现第120个素数时，执行Print和Exit for跳出外循环，结束代码运行。代码如下：

Private Sub Command1_Click()

For i = 2 To 2000

m = 0

For j = 2 To i - 1

If i Mod j = 0 Then m = 1: Exit For

Next j

If m = 0 Then n = n + 1

If n = 120 Then Print "1到2000第好派120个素数是：友裂贺" &i: Exit For

Next i

End Sub

病情分析：

这还是要注意饮食还是必要的

指导意见：

一般的可以辅食添加的，可以考虑常规的葡萄糖酸锌颗粒，食疗还是难以很快的补充的，可以试试用一点猪肝，鱼，肉松，等还是很不错的

病情分析：

九个月幼儿缺锌吃什么？

指导意见：

适量吃动物性食物一般动物性食物含锌量较为丰富大豆、花生中锌的含量较为丰富，要经常给宝贝吃一些。锌制剂有葡萄糖酸锌、硫酸锌、甘草酸锌、醋酸锌等，最常用的是葡萄糖酸锌，每天服用3.5-7mg/kg，疗程2-3个月。补充锌剂4-5周后，如滑键果症状没有减轻应及时去看医生。补充锌剂一定要在医生指导下应用，不要自己随意增加剂量。剂量过大可引起恶心、呕吐、胃部桐哪不适等消化道刺激症状，长期大剂量服用还可能造成锌中毒。

病情分析：

您好，根据您叙述的情况，主要是9个月的宝宝，考虑缺锌引起的这些症状的。建议补锌

指导意见：

您好，根据您宝宝目前的情况，可以给宝宝补葡萄糖酸锌口服液。还有动物肝脏、花生、鱼、蛋、奶、肉及水果...各种植物性食物中含锌量比较高的有豆类、花生、小米、萝卜、大白菜等，可以碾成泥状等给宝宝吃的。希望我的回答对您有所帮助，祝您宝宝健康，快乐。

病情分析：

你好，宝宝缺锌的症状主要有：厌食，食欲不振，进食减少，消化能局让码力也减弱；生长发育落后.头发稀少发黄，要积极治疗。

指导意见：

建议遵医嘱服用药物，可以服用葡萄糖酸锌颗粒和葡萄糖酸亚铁口服液治疗看看。另外富含锌的食物有猪肝、瘦肉、猪肾、鸡蛋、鲤鱼及牛奶中较多。此外，花生、核桃、栗子等硬壳果中锌含量也较高。

可以吃葡萄糖酸锌，腹泻可以吃点婴儿健脾散。

---