1)) + 5If Text2.Text <> "" Then Text2.Text = Text2.Text & Chr(ASCText)ElseText2.Text = Chr(ASCText)End IfNextEnd SubPrivate Sub Form_Load()Text2.Text = ""End Sub
i
Private Sub Command1_Click() '加密以后的按钮For i = 1 To Len(Text1.Text)ASCText = Asc(Mid(Text1.Text
设计一个vb循环语句

最新推荐文章于 2024-10-03 23:04:39 发布