编写vb程序,从键盘中输入一个正整数,计算该整数中个数字的和,并将结果输出到

病情分析：
您的症状比较复杂，大概分析如下，您本身体质脾虚肝气不舒，加之外感，侵犯肺卫，营卫不合，气血运行不畅，郁而化火，表现为以上症状。
指导意见：
您现在是以肺部的表现为主，上面的药方是对症的。全方是宣肺化痰、滋阴安神。您首先要放松心情，生活规律，饮食合理均衡，适当参加体育锻炼，当上述症状缓解后，可以调理一下肝脾。

病情分析：
这种情况考虑脾湿 脾虚 心脾两虚 慢性咽炎引起。
指导意见：
上面这些药物有清肺化痰 生津止渴 怯风安神的作用，主要是治疗慢性咽炎和失眠的。我认为不是很适合。我认为应该以调理脾胃为主，建议你服用香砂六君子丸 归脾丸 藿香正气软胶囊 冬凌草片治疗，应该能有比较好的疗效的。
平时注意休息，避免劳累，不要吃生冷辛辣食物，饮食以清淡为主。

这个方子还是以治风热感冒兼有治疗咽炎鼻炎和失眠的症状。可以用呀。我个人推荐用参苏饮加味

病情分析：
我个人觉得不是很适合你的。
指导意见：
我觉得你主要还是需要化湿为主的。这个方子的话，化湿的力量不是很强。建议你再换个中医看看。

Private Sub Command1_Click()
Dim myInput As String, i As Integer, mySum As Integer
myInput = InputBox("请输入一个整数", "输入", 1345)
For i = 1 To Len(myInput)
mySum = mySum + Val(Mid(myInput, i, 1))
Next
MsgBox mySum
End Sub

请将问题说明白