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

发布网友发布时间：2024-10-17 20:05

共3个回答

热心网友时间：2024-12-01 02:54

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

热心网友时间：2024-12-01 02:52

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

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

热心网友时间：2024-12-01 02:58