展开全部
创建新的VB工程,在窗体上放置两个TextBox控件,名称为Text1和Text2,再放置两个按钮控件
,名称分别为Command1和Command2,双击Command1,填入如下代码
Private Sub Command1_Click()
Text2 = ""
For i = 1 To Len(Text1.Text)
Text2 = Text2 & Chr$(Asc(Mid(Text1, i, 1)) + 2)
Next i
End Sub
双击Command2
Private Sub Command2_Click()
End
End Sub
若满意请及时采纳。谢谢
,名称分别为Command1和Command2,双击Command1,填入如下代码
Private Sub Command1_Click()
Text2 = ""
For i = 1 To Len(Text1.Text)
Text2 = Text2 & Chr$(Asc(Mid(Text1, i, 1)) + 2)
Next i
End Sub
双击Command2
Private Sub Command2_Click()
End
End Sub
若满意请及时采纳。谢谢
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询