在窗体中插入两个文本框,一个命令按钮。
代码如下:
Private Sub Command1_Click()
If Asc(Text1.Text) >= 65 And Asc(Text1.Text) <= 90 Then
Text2.Text = Chr(Asc(Text1.Text) + 32)
Else
If Asc(Text1.Text) >= 97 And Asc(Text1.Text) <= 122 Then
Text2.Text = Chr(Asc(Text1.Text) - 32)
Else
MsgBox "Error"
End If
End If
End Sub
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Command1.Caption = "OK"
End Sub
用UCASE LCASE二个命令可直接转换
编辑框1是输入,2个输出
直接给2写代码就可以了,先叛断框1是否是字母.是则框二转换输出并显示到框二.否则出错