vb小写字母转换大写字母成大写字母

来源：蜘蛛抓取(WebSpider) 时间：2018-03-17 03:30 标签： 大写字母和小写字母表
VB中字母大小写转换的三种方法_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
VB中字母大小写转换的三种方法
阅读已结束，下载本文需要
想免费下载更多文档？
定制HR最喜欢的简历
你可能喜欢VB中有将小写字符转换成大写字符的函数吗_百度知道
VB中有将小写字符转换成大写字符的函数吗
我有更好的答案
例如：str = UCase(str)大写字符转换成小写字符的函数：UCase函数小写字符转换成大写字符的函数：LCase函数
采纳率：59%
rTYUI&)UCase将字符串中小写字符转换为大写LCase:将字符串中大写字符转换为小写，LCase(&quot，UCase(&quot
为您推荐：
其他类似问题
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。vb大小写转换_百度知道
vb大小写转换
最基本的那种
就是一个按钮把text1的小写转成大写输入到text2里
我有更好的答案
Private Sub Command1_Click()
Text2.Text = UCase(Text1.Text)
'转换成大写的函数
那小写呢是不是lcase
是的。Lcase
采纳率：66%
来自团队：
记不清了，你好好去看一下书吧，这个不难！
不知道你是说转换数字大小写还是字母大小写，还是金额大小写，这是我做的金额大小的程序代码如下：Private Function setdata(num As Integer) As String
'数字转换
Select Case num
setdata = &零&
setdata = &壹&
setdata = &贰&
setdata = &叁&
setdata = &肆&
setdata = &伍&
setdata = &陆&
setdata = &柒&
setdata = &捌&
setdata = &玖&
End SelectEnd FunctionPrivate Function chang(aaa As Integer) As String
'位数转换
Select Case aaa
chang = &&
chang = &十&
chang = &百&
chang = &千&
chang = &万&
chang = &十&
chang = &百&
chang = &千&
chang = &亿&
chang = &十&
End SelectEnd FunctionPrivate Sub Form_Activate()
'设定文本长度
Text2.MaxLength = 10
Text2.SetFocusEnd SubPrivate Sub Text2_Change()
'小写转大写
Dim i As Integer
Dim j As Integer
Dim myint As Integer
Dim myint1 As Integer
Dim mydoub As Double
Dim mystr As String
Dim mystr1 As String
Dim mystr2 As String
Dim mystr3 As String
Dim mystr4 As String
Dim money As Long
Dim money1 As Integer
Dim money2 As Long
mystr = Text2.Text
myint = InStr(mystr, &.&)
If myint = 0 Then
mystr = Text2.Text
mystr3 = Right(Text2.Text, Len(Text2.Text) - myint)
If mystr3 && && Then
'转换小数位
mystr4 = Left(mystr3, 1)
mystr3 = Right(mystr3, Len(mystr3) - 1)
If mystr4 && &0& Then
mystr2 = mystr2 + setdata(Val(mystr4)) + &角&
If mystr3 && && Then
mystr4 = Left(mystr3, 1)
mystr2 = mystr2 + setdata(Val(mystr4)) + &分&
mystr = Left(Text2.Text, myint - 1)
j = Len(mystr)
For i = 1 To Len(mystr)
'转换整数位
money2 = Left(mystr, i)
money1 = Right(money2, 1)
If money1 = 0 Then
If j = 5 Then
If Right(mystr1, 1) && &万& Then mystr1 = mystr1 & &万&
If Right(mystr1, 1) && &零& And Right(money, j) & 0 Then mystr1 = mystr1 & &零&
mystr1 = mystr1 & setdata(money1) + chang(j)
Text1.Text = mystr1 & &元& & mystr2
'显示大写End SubPrivate Sub Command1_Click() EndEnd Sub
我们只是做个作业
上楼这哥儿们给的就行
谢谢你了 但是太深了
为您推荐：
其他类似问题
您可能关注的内容
大小写的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。怎样把Textbox中输入的字母转换成大写？
[问题点数：50分，结帖人shgz]
怎样把Textbox中输入的字母转换成大写？
[问题点数：50分，结帖人shgz]
不显示删除回复
显示所有回复
显示星级回复
显示得分回复
只显示楼主
2002年1月 C++ Builder大版内专家分月排行榜第一2001年6月 C++ Builder大版内专家分月排行榜第一2000年11月 C++ Builder大版内专家分月排行榜第一2000年8月 C++ Builder大版内专家分月排行榜第一2000年7月 Delphi大版内专家分月排行榜第一
2001年7月 C++ Builder大版内专家分月排行榜第二2001年3月 C++ Builder大版内专家分月排行榜第二
2002年1月 C++ Builder大版内专家分月排行榜第一2001年6月 C++ Builder大版内专家分月排行榜第一2000年11月 C++ Builder大版内专家分月排行榜第一2000年8月 C++ Builder大版内专家分月排行榜第一2000年7月 Delphi大版内专家分月排行榜第一
2001年7月 C++ Builder大版内专家分月排行榜第二2001年3月 C++ Builder大版内专家分月排行榜第二
匿名用户不能发表回复！|在vb中输入大写form，系统自己将其改成小写form是怎么回事_百度知道
在vb中输入大写form，系统自己将其改成小写form是怎么回事
我有更好的答案
,&c1);
void main()
{char c1,c2;
printf(&输入个大写字母：\%c\n&n&);
scanf(&quot#include&stdio.h&,c2);
}
程序好像就是这样的吧
ASCII码的字母大小写相差32;%c&
printf(&
c2=c1-32
为您推荐：
其他类似问题
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。

我要回帖

更多关于 大写字母和小写字母表 的文章

 

随机推荐