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

来源：百度知道 编辑：UC知道 时间：2024/05/16 05:49:23
用VB脚本编写一个大小写转换的工具，可以直接双击打开的那种，或者其他语言写也行，只要能用就OK，谢谢了
多谢几位了，我需要的那种是可以双击打开，然后输入小写字母，按下转换后就可以生成大写字母的，而且转化出来的大写字母可以复制才可以
是不是exe都无所谓，只要好用就可以
如果可以帮我，告诉我怎么弄可以吗？比如说保存成什么扩展名的，只写一段代码，我不知道如何操作啊，惭愧，没学过编程，我记得vb脚本是.vbs扩展名的吧，类似的吧

文件:1.vbs

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

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

你要代码还是要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找我吧。嘿...

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