杭州交通信息网wifi连接管理器ios版:一个好象有点难的VB问题
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/30 15:24:06
先假设在窗体上有控件文本框tex1,text2，复选框check1,命令按扭command1,command2.
在文本框text1中输入一串字符，按command1（caption是“加密处理”），如果在复选框check1中打钩,就将a变成c,b变成d,c变成e,.....z变成b,其他字符不变，并将结果显示在text2中。但不在复选框中打钩，则将在text1的内容原样显示在text2中。按command2(caption是“关闭”），则退出程序。
请高手帮我编下代码
谢谢
在文本框text1中输入一串字符，按command1（caption是“加密处理”），如果在复选框check1中打钩,就将a变成c,b变成d,c变成e,.....z变成b,其他字符不变，并将结果显示在text2中。但不在复选框中打钩，则将在text1的内容原样显示在text2中。按command2(caption是“关闭”），则退出程序。
请高手帮我编下代码
谢谢
Private Sub Command1_Click()
If Check1.Value = False Then
Text2.Text = Text1.Text
Else: Text2.Text = Locked(Trim(Text1.Text))
End If
End Sub
Public Function Locked(text_ori)
Dim ch As String
ch = text_ori
num = 1
While num <= Len(ch)
c = Mid(ch, num, 1)
s = Asc(c)
If s > 120 Then s = s - 120 + 94
temp = temp + Chr(s + 2)
num = num + 1
Wend
Locked = temp
End Function
Private Sub Command2_Click()
End
End Sub
代码就不写了 给你个思路
check1的事件里你需要提取文本框text1里面的值
用循环判断每一个字符是否为字符 然后强制转换为ASICC码 再把ASICC码值加2，这样就完成你的a变c,b变d了
最后的y和z判断一下再转换,最后输出来就行了
先设计算法,再画出程序数据流图!然后用VB语言规范书写出来即可!
上面思路以经写得很清楚了！弱的问题！我就不多写了！
自己动一下手吧！进步会快一些的！