UC知道VB 作业 不会呀 大侠救我
来源：百度知道 编辑：UC知道 时间：2024/05/15 08:36:10
这个是把小写换大写 大写换小写 数字不变的 我运行不了 不知道哪错了 还望大侠指点
Private Sub Command1_Click()
mm = Text1
If 65 <= Asc("mm") < 93 Then
Text2 = Chr(Asc("mm") + 27)
ElseIf 93 <= Asc("mm") < 111 Then Text2 = Chr(Asc("mm") - 27)
ElseText2 = "mm"
End If
End Sub
Private Sub Command1_Click()
mm = Text1
If 65 <= Asc("mm") < 93 Then
Text2 = Chr(Asc("mm") + 27)
ElseIf 93 <= Asc("mm") < 111 Then Text2 = Chr(Asc("mm") - 27)
ElseText2 = "mm"
End If
End Sub
Private Sub Command1_Click()
mm = Text1 '(mm=text1.text)
If 65 <= Asc("mm") < 93 Then ’这里不能象数学那样，应该是asc(mm)>=60 and asc(mm)<93 还有这里加引号括号里面的就成了字符串常量“mm”了，下面一句也以样
Text2 = Chr(Asc("mm") + 27) '应该是text2.text= Chr(Asc"mm) + 27)
'后面的都是这样的错误！
ElseIf 93 <= Asc("mm") < 111 Then Text2 = Chr(Asc("mm") - 27)
ElseText2 = "mm"
End If
End Sub
还有大小写的差值应该是32，不是27
Private Sub Command1_Click()
mm = Text1
' 错误：If 65 <= Asc("mm") < 93 Then，变量不能用“”围起。
'订正：
If 65 <= Asc(mm) < 93 Then
' 错误：Text2 = Chr(Asc("mm") + 27)，变量不能用“”围起。
'订正：
Text2 = Chr(Asc(mm) + 27)
ElseIf 93 <= Asc(mm) < 111 Then Text2 = Chr(Asc(mm) - 27)
ElseText2 = mm
End If
End Sub
最好的方法是：
先判断是否是大写还是小写，再用LCase（转换小写）UCase（转化大写）的函数。