Question

vb2005！输入一段英文句子进行加密输出！把每个字母变成其后的第三个字母。用ascii

Answer 1

 Dim str As String = "abcdefghijklmnopqrstuvwxyz"
        Dim str1 As String = ""
        Dim l As Integer = Len(str)
        Dim a() As Integer
        ReDim a(l)

        For i = 1 To l
            a(i) = Asc(Mid(str, i, 1))
        Next
        For i = 4 To l
            str1 = str1 & a(i)
        Next
        For i = 1 To 3
            str1 = str1 & a(i)
        Next
        TextBox6.Text = str & vbCrLf & str1

Answer 2

病情分析；像是缺锌症状，可用葡萄糖钙锌口服液。
意见及建议：去医院儿科做一个微量元素检测，缺什么补什么。

病情分析：
蔬菜是补充维生素最好的方法 必须要吃的
孩子的挑食一般都是养成的习惯 改掉习惯才是根本
指导意见：
把蔬菜放在米饭里 饭团 或者做成寿司 给孩子吃
换种方式 会改善的
要少吃或者不吃零食 影响孩子的发育 食欲的
平时要多喝水 多运动促进消化 代谢 会好的
祝健康成长

Answer 3

病情分析；像是缺锌症状，可用葡萄糖钙锌口服液。
意见及建议：去医院儿科做一个微量元素检测，缺什么补什么。

病情分析：
蔬菜是补充维生素最好的方法 必须要吃的
孩子的挑食一般都是养成的习惯 改掉习惯才是根本
指导意见：
把蔬菜放在米饭里 饭团 或者做成寿司 给孩子吃
换种方式 会改善的
要少吃或者不吃零食 影响孩子的发育 食欲的
平时要多喝水 多运动促进消化 代谢 会好的
祝健康成长