86版西游记图片:请VB高手帮忙编个小程序!!

来源:百度文库 编辑:高校问答 时间:2024/05/04 08:08:38
内容如下:有文本框text1和text2,在text1中输入一串字符,注意是字母小写的.点击一按纽使得text1中的”a”字母变为”c","z"变为"b",并将结果显示在text2中!!!!!!!

Private Sub Command1_Click()
if ascii(text1.text)<'z的值then
Text2.Text = Chr(Asc(Text1.Text) + 2)
endif
End Sub

Private Sub Command1_Click()
Text2.Text = Chr(Asc(Text1.Text) + 2)
End Sub

自己在试一试。

Text2.Text = IIf(Asc(Text1.Text) > 120, Chr(Asc(Text1.Text) - 24), Chr(Asc(Text1.Text) + 2))

AICII码加一就OK了