Question

用vb编写一个小程序,可以对输入的一段英文字符串进行加密和解

Answer 1

Dim s As String
Private Sub Command1_Click()
s = InputBox("请输入一个英文字符串:")
For i = 1 To Len(s)
c = Mid(s, i, 1)
Mid(s, i, 1) = Chr(Asc(c) - 3)
Next i
MsgBox ("加密后的字符串是:" & vbCrLf & s)
End Sub

Private Sub Command2_Click()
For i = 1 To Len(s)
c = Mid(s, i, 1)
Mid(s, i, 1) = Chr(Asc(c) + 3)
Next i
MsgBox ("解密后的字符串是:" & vbCrLf & s)
End Sub

Answer 2

病情分析：
白带多可能与进食生冷食物、感冒、抵抗力下降有关。
指导意见：
建议饮食上少吃生冷及刺激性食物。避免受凉，注意腹部保暖。如果白带扔多或伴有异味，建议去妇科看看。

病情分析：
青春期体内的雌激素水平会升高，白带会比以前增多，如果不是很多，且没有颜色、异味、外阴痒等的话，可以不用治疗。月经应该快来潮了。
指导意见：
如果有不正常的话，最好就医，做白带常规等检查。注意个人卫生。

病情分析：
了解你的情况，你还在成长期，难免有生理上的变化。白色念珠菌感染后引起白带增多。
指导意见：
建议你先服用，止带片，主要成份是：椿皮、五味子、黄柏、龟板、茯苓、阿胶、山药；止带胶囊成份（与止带片相同）：椿皮、五味子、黄柏、龟板、茯苓、阿胶、山药；治带胶囊成份是：墓头回、苦参、金樱子、知母（盐炒）、苍术（炒）。2、功能主治：清热燥湿，收敛止带。用于慢性子宫颈炎，子宫内膜炎，阴道粘膜炎等引起的湿热型赤白带症。1）定期检查，即使没有任何不适，每年至少做一次全面的妇科体检；2）少穿紧身裤，亦要避免穿着紧身尼龙内裤，应选择棉质内裤；3）平日不用卫生护垫，每天晚上用清水洗净外阴，更换内裤；4）不要用各种药液清洗阴道，这样做反而会破阴道的内环境；5）坚持锻炼，增强体质，睡眠充足，饮食合理，营养均衡；6）保持恬静的心理状态，避免过于激动、发怒急躁。