1樓:匿名使用者
vb6.0可使用ucase 函式可將小寫字母變成大寫。
ucase 函式,返回 variant (string),其中包含轉成大寫的字串。
ucase 函式示例
本示例使用 ucase 函式來將某字串轉成全部大寫。
說明,只有小寫的字母會轉成大寫;原本大寫或非字母之字元保持不變。
dim lowercase, uppercaselowercase = "hello world 1234" ' 要輸送的字串。
uppercase = ucase(lowercase) ' 返回 "hello world 1234"。
2樓:
ucase 函式
返回字串的大寫形式。
ucase(string)
string 引數是任意有效的字串表示式。如果 string 引數中包含 null,則返回 null。
說明只有小寫字母被轉換成大寫字母;所有大寫字母和非字母字元均保持不變。
下面的示例利用 ucase 函式返回字串的大寫形式:
dim myword
myword = ucase("hello world") ' 返回"hello world"。
3樓:匿名使用者
private sub command1_click()
label1.caption=ucase(text1.text)
end sub
vb中如何把原來字母中的小寫改為大寫,大寫改為小寫
4樓:匿名使用者
lcase():是返回小寫字母函式
ucase():是返回大寫字母函式
例如:字元是:abcdef
lcase("abcdef") 的返回值是:abcdefucase("abcdef") 的返回值是:abcdef
5樓:陀傅香杜雁
比如通過text1輸入字串,
並且轉換
內後由text1輸出:
容private
subcommand1_click()s=text1.textl=
len(s)
fori=1
tolt=
mid(s,
i,1)
ifasc(t)
>=65and
asc(t)
<=90thenr=
r&lcase(t)
elseif
asc(t)
>=97and
asc(t)
<=122thenr=
r&ucase(t)
endif
next
itext1.text=r
endsub
6樓:聽不清啊
private sub command1_click()s = text1
for i = 1 to len(s)
c = mid(s, i, 1)
if c >= "a" and c <= "z" thenc = chr(asc(c) + 32)
else
if c >= "a" and c <= "z" then c = chr(asc(c) - 32)
end if
mid(s, i, 1) = c
next i
text2 = s
end sub
7樓:少公羽
比如通bai過text1輸入du字串
zhi,並且轉
dao換後
專由text1輸出:
屬private sub command1_click()s = text1.text
l = len(s)
for i = 1 to l
t = mid(s, i, 1)
if asc(t) >= 65 and asc(t) <= 90 then
r = r & lcase(t)
elseif asc(t) >= 97 and asc(t) <= 122 then
r = r & ucase(t)
end if
next i
text1.text = r
end sub
8樓:匿名使用者
private sub command1_click()s = ""
t = text1.text
for i = 0 to len(text1.text) - 1t = mid(text1.text, i + 1, len(text1.text) - 1)
a = mid(t, 1, 1)
if asc(a) >= 65 and asc(a) <= 90 then
s = s & lcase(a)
else
s = s & ucase(a)
end if
next i
text1.text = s
end sub
9樓:沒有白開水
lcase(字元)大寫變小寫
ucase(字元)小寫變大寫
在vb中文字框輸入怎麼把小寫自動轉換為大寫
10樓:匿名使用者
vb6.0可以文字框的keypress事件中判斷鍵盤輸入字元的keyascii引數做判斷來自動轉換。
keypress事件,此事件當使用者按內下和鬆開一個
容 ansi 鍵時發生。
private sub text1_keypress(keyascii as integer)
if keyascii >= asc("a") and keyascii <= asc("z") then
keyascii = keyascii - 32
end if
end sub
或者使用ucase函式在文字框的keypress事件中來轉換。
ucase 函式,返回 variant (string),其中包含轉成大寫的字串。
private sub text1_keypress (keyascii as integer)
char = chr(keyascii)
keyascii = asc(ucase(char))
end sub
11樓:小傻
如果是介面裡面的話,需要對文字內容進行監聽,才能進行轉換。具體是可以識別是否有空格,
12樓:匿名使用者
ucase()函bai數可以
du把字串中
zhi的小寫字元大寫dao
在回 change 事件裡轉換一答下
private sub textbox1_change()textbox1.text = ucase(textbox1.text)
end sub
13樓:管懷法騫仕
vb6.0可以文字框的keypress事件copy中判斷鍵盤輸入字元的keyascii引數做判斷來
自動轉換。
keypress事件,此事件當使用者按下和鬆開一個
ansi
鍵時發生。
private sub text1_keypress(keyascii as integer)
if keyascii >= asc("a") and keyascii <= asc("z") then
keyascii = keyascii - 32
end if
end sub或者使用ucase函式在文字框的keypress事件中來轉換。
ucase
函式,返回
variant
(string),其中包含轉成大寫的字串。
private sub text1_keypress (keyascii as integer)
char = chr(keyascii)
keyascii = asc(ucase(char))
end sub
vb 大小寫互相轉換
14樓:
如果你的
baitext1的內容裡不是du只有大小zhi寫英文,你dao可專以用下面的屬**
dim s as string
dim result as string
for i = 1 to len(text1.text)s = mid(text1.text, i, 1)if asc(s) >= asc("a") and asc(s) <= asc("z") then
s = chr(asc(s) + 32)
elseif asc(s) >= asc("a") and asc(s) <= asc("z") then
s = chr(asc(s) - 32)
end if
result = result + s
next
text1.text = result
15樓:清清
p=split(text1,"")
for i=0 to ubound(p)
b$=b$ & m_str(p(i))
next i
text1=b$
寫自一個自定義函式m_str(str)判斷bai和轉化大小寫du
:function m_str(byval str as string)as string
if ucase(str)=str then’如果本身為大zhi寫m_str=lcase(str)'轉為小dao寫else
m_str=ucase(str)'轉為小寫end if
end function
16樓:匿名使用者
dim a1&,a2&,a3&,a4$
a1=len(text1.text)
for a2=1 to a1
a3=asc(mid(text1.text,a2,1))if a3>64 and a3<91 thena4=a4 & chr(a3 + 32)
end if
else
a4=a4 & chr(a3-32)
end if
exit sub
text1.text=a4
如果你抄
的text1的內容裡只有大小寫英文,以上就可以。
17樓:戀紅
可以逐個檢查字元的ascii碼,如果範圍在小寫字母之列的將它減32再轉回字元,反之加32.
18樓:匿名使用者
private sub command1_click()for i = 1 to len(text1.text)ss = asc(mid(text1.text, i, 1))if ss > 96 and ss < 123 thenss = ss - 32
elseif ss > 65 and ss < 93 then ss = ss + 32
end if
a = a & chr(ss)
next i
text1.text = a
end sub
19樓:匿名使用者
text2.text=lcase(text1.text)
在vb程式中如何編輯**隨機產生一個大寫或小寫字母
20樓:司馬刀劍
1、大寫字母對應的ascii碼的範圍是65~89,因此隨機生成65~89之間的數字,生成對應的大寫字母即可;
2、開啟vb6.0,新建一個標準exe工程,介面上新建一個按鈕和一個文字框;
3、按鈕**如下:
private sub command1_click()text1.text = ""
dim n as integer
randomize
n = int(rnd * 25) + 65text1.text = chr(n)
end sub
4、執行工程,生成隨機的大寫字母;
如何在中把所有大寫字母變成小寫,如何在word中把所有大寫字母變成小寫
選中想要更改大小寫的英文字母或英文單詞,按住 shift 鍵,同時按下 f3 鍵,迴圈地按 f3 鍵,每次按 f3 鍵時英文單詞的格式會在全部大寫 首字母大寫和全部小寫格式之間進行切換。如何在word中用查詢替換,把所有的大寫字母變成小寫字母 在word中不能用查詢替換,把所有的大寫字母變成小寫字母...
在中怎麼把所選的小字母全部改成大寫字母
可以選中要修改的內容,點選格式 更改大小寫即可 選中之後,格式 更改大小寫 大寫 確定 shift f3 更改字母大小寫即按shift鍵不放並按f3鍵 採用命令 格式 更改大小寫.怎麼將word文件裡面的小寫字母改成大寫字母 開啟word文件,抄 點選 格式 選項卡,在下拉選單中選擇 更改大小寫 選...
程式設計題編寫函式,把字串中的大寫字母改為小寫字母,其餘不變
include char change char s main int tolower int c 函式 轉化為小寫函式 輸入一個字串,將其中的大寫字母改為小寫字母,小寫字母改為大寫字母,然後輸出!以下程式通過測試.有問題請追問 include void main else if p a p z p...