Private Sub Command1_Click()
Dim X1 As Single, X2 As Single
Text2.Text= X1
If X1 > = "a" Or X1 <= "z" Then
X2 = UCase(X1)
ElseIf X1 > = "A" Or X1 <= "Z" Then
X2 = LCase(X1)
End If
Text2.Text= X2
End Sub
题目要求的是 如果输入的为小写字母将其输出为大写字母，如果是大写字母将其输出为小写字母，如果都不是则输出 #
写到一半试了一下，输出的只有X1或 x1

打错了， or应该是and

Dim X1 As Single, X2 As Single 是什么鬼，Single书上没写吗，看下String和Single的区别

额，，，，

Private Sub Command1_Click()
Dim x1 As String, x2 As String
x1 = Text1
If x1 >= "a" And x1 <= "z" Then
x2 = UCase(x1)
ElseIf x1 >= "A" And x1 <= "Z" Then
x2 = LCase(x1)
Else
x2 = "#"
End If
Print x2
End Sub

有大佬知道为什么倒计时开始的时候会有延迟吗