Question

VB中求1*2*3*4……*n的值。

Answer 1

病情分析：
你好，像你平时身体怎么样呢？近一段时间有没服用过什么药呢？红细胞和血小板正常吗？你还做其他的检查吗？检查结果是什么？引起白细胞减少的原因有：一是药物，如服用解热镇痛药、磺胺类药等，此时如白细胞减少过于明显，则应停服或换药；二是病毒感染，如流行性感冒、病毒性感染等，此时一方面应积极进行抗病毒治疗，另方面可酌情服用增加白细胞的药物；三是患有免疫系统疾病，如类风湿性关节炎等，此时也应作同样干预，选服能增加白细胞的药物。
指导意见：
像你现在的情况平时比较容易感染，建议中医治疗加调理。
中医药治疗 气血亏虚：气短乏力，头晕，四肢酸软，食欲减退，失眠多梦，或极度衰弱，经常发生感冒或其他感染症群，舌淡苔白，脉细无力。 治法：补益气血。 方药：党参、黄芪各30克，黄精、陈皮、白术、生地、熟地、当归、白芍、丹参各10克，甘草6克，大枣5枚。 中成药：峰龄胶囊、百令胶囊、施普瑞螺旋藻。
[预防与调养> 1.注意饮食：避免生冷及不洁饮食以免消化系统感染。 2．尽量避免去公共场所，以防止呼吸道感染。 3．避免服用造成骨髓损害或白细胞减少的药物。 4．避免接触造成骨髓损害的化学物质及放射性物质

Answer 2

Private Sub Form_Load()
Dim a As Integer
Dim b As Long
Dim i As Integer
b = 1 '一定要赋初值为1.
a = InputBox("请输入数字", 0)
For i = 2 To a '循环乘开始，一直乘到你输入的值
b = b * i
Next i
Debug.Print "结果：" & b '把结果输出到立即窗口，如果想输出到其它上，可再创建控件。
End Sub

Answer 3

a=1
for i=1 to n
a=i*a
next i
print a