vbs 如何把英文小写转成大大写

~ 是的，用UCase()：

UCase()函数用来将小写字母转化为大写字母。

其语法为：UCase(string)

string 参数为任何有效的字符串表达式。如果 string 包含 Null，将返回 Null。在UCase()函数中，原本大写或非字母字符保持不变。

n=inputbox("","","fdsaf")
msgbox ucase(n)

在键盘A键的左侧有一个键CapsLock键，在想大写的时候，按下该键使右上角指示灯变亮，就可以输入大写英文了。

你这个问题雷到我了。

---

佳木斯市17621579118： vbs 如何把英文小写转成大大写 - ？
无复肌氨： n=inputbox(＂＂,＂＂,＂fdsaf＂)msgbox ucase(n)

佳木斯市17621579118： vb用inputbox函数怎么把小写字母转成大写 - ？
无复肌氨： 这是一个输入小写a 输出大写A的,有精力自己写26个就行了,嘿嘿.dim a a=inputbox(＂输入一个小写字母＂) if a=＂a＂ then a=＂A＂ end if msgbox ＂输出为大写字母:＂+a

佳木斯市17621579118： 用VB如何将句首小写字母转换为大写? - ？
无复肌氨： Private Sub Command1_Click() Text1.Text = UCase(Left(Text1.Text,1)) & Right(Text1.Text,len(Text1.Text)-1) End Sub 代码有点长,你试一下就知道了.

佳木斯市17621579118： vb程序 大写字母转小写,小写转大写 - ？
无复肌氨： '第一题 Private Sub Command1_Click() a = InputBox(＂＂) Select Case Asc(a) Case Asc(＂a＂) To Asc(＂z＂) Print UCase(a) Case Asc(＂A＂) To Asc(＂Z＂) Print LCase(a) End Select End Sub'第二题 Private Sub Command1_Click() a = Val(...

佳木斯市17621579118： 求将小写英文转化为大写英文的vb源代码 - ？
无复肌氨： 用UCase函数转换你的变量或者容器!比如窗体的!Me.caption = UCase(Me.caption) 按扭的 Command1.Caption = UCase(Command1.Caption) 文本的 text1.text = UCase(text1.text) 变量的 s = UCase(s)

佳木斯市17621579118： 在计算机vb中如何让输入的英文字母都是大写显示的?需要什么字符转换方式之类的?？
无复肌氨： private sub command1_click() dim strtmp as string strtmp=inputbox(＂请输入你想转换成为大写的字母＂,＂大写转换＂,＂＂) msgbox Ucase(strtmp) '大写 msgbox Lcase(strtmp) '小写 end sub

佳木斯市17621579118： VB编程:将用户输入的小写英文字母转换为大写,大写转换为小写 - ？
无复肌氨： Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii >= Asc(＂A＂) And KeyAscii <= Asc(＂Z＂) Then KeyAscii = KeyAscii + 32 ElseIf KeyAscii >= Asc(＂a＂) And KeyAscii <= Asc(＂z＂) Then KeyAscii = KeyAscii - 32 End If End Sub

佳木斯市17621579118： 怎样快速将小写英文改成大[写 - ？
无复肌氨： Word中转换大小写的快捷键:Shift+F3.选中字母先,按一次,小写变大写;再按一次,大写变小写.如果选中的是大小写混排的字母,则转换效果依次为:首字母大写 ->全部大写 ->全部小写. 把Excel中需要转换的内容整个复制到Word中(Excel单元格在Word中会自动转换成表格),再用Shift+F3转换,最后复制回Excel.

佳木斯市17621579118： 如何用VB设计? 在文本框中输入英文字母,单击转大写按钮字母变为大写,单击转小写按钮字母变为小写. 谢谢! - ？
无复肌氨： 放一个文本框(Text1),两个命令按钮(Command1,内容:大写;Command2,内容:小写) 代码:Private Sub Command1_Click() Text1.Text = UCase(Text1.Text) End SubPrivate Sub Command2_Click() Text1.Text = LCase(Text1.Text) End Sub

佳木斯市17621579118： VBS如何将数字转换为大写字母 - ？
无复肌氨： 这个很简单呵呵.MsgBox Chr(68)