用VB脚本编写一个大小写转换的工具

发布网友 发布时间：2022-04-20 07:51

我来回答

共4个回答

热心网友 时间：2022-05-23 15:55

你要代码还是要EXE啊，
代码：
Private Sub Command1_Click()

If UCase(Text1.Text) = Text1.Text Then
Text1.Text = LCase(Text1.Text)
Else
Text1.Text = UCase(Text1.Text)
End If

End Sub
如要EXE找我吧。嘿...

热心网友 时间：2022-05-23 15:55

文件:1.vbs

Dim str
str = InputBox("输入字符")
str = UCase(str)
InputBox "已转换为大写", , str

热心网友 时间：2022-05-23 15:56

Private Sub Command1_Click()
If Text1.Text <> "" Then
Text2.Text = UCase(Text1.Text)
Text3.Text = LCase(Text1.Text)
End If
End Sub

热心网友 时间：2022-05-23 15:56

dim a as string
a = inputbox("请输入字符")
msgbox ucase(a)
'msgbox lcase(a)

热心网友 时间：2022-05-23 15:55

你要代码还是要EXE啊，
代码：
Private Sub Command1_Click()

If UCase(Text1.Text) = Text1.Text Then
Text1.Text = LCase(Text1.Text)
Else
Text1.Text = UCase(Text1.Text)
End If

End Sub
如要EXE找我吧。嘿...

热心网友 时间：2022-05-23 15:55

文件:1.vbs

Dim str
str = InputBox("输入字符")
str = UCase(str)
InputBox "已转换为大写", , str

热心网友 时间：2022-05-23 15:56

Private Sub Command1_Click()
If Text1.Text <> "" Then
Text2.Text = UCase(Text1.Text)
Text3.Text = LCase(Text1.Text)
End If
End Sub

热心网友 时间：2022-05-23 15:56

dim a as string
a = inputbox("请输入字符")
msgbox ucase(a)
'msgbox lcase(a)