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、執行工程，生成隨機的大寫字母；
中如何批量將小寫字母變成大寫字母
1 開啟word，新建一個空白文件 2 輸入一串文字，包含小寫字母 大寫字母和漢字 3 選中你想要更改大小寫字母的區域 4 同時按下鍵盤上的 shint和f3 可以發現，小寫字母完全變成了大寫字母，其他地方沒有變化 5 再次按下shift f3，選中區域的大寫字母又變成了小寫 執行word文件，選種...
如何把小寫金額轉換成英文大寫，word中如何將小寫金額數字轉換為大寫
a1單元格輸入資料制，在b1單元格輸入公式即可 1 if a1 0,金額為負無效 2 if or a1 0,a1 人民幣 零元 3 if a1 1,人民幣 4 text int a1 dbnum2 人民幣 g 通用格式 元 5 if int a1 10 int a1 10 0,6 if int a1...
在vb中如何使窗體上的文字顯示在窗體的中間
vb6.0可以抄將顯示在容器前的標籤控制元件的backstyle 屬性襲，設定為0使其透明而不遮擋後面的 內容。backstyle 屬性，返回或設定一個值，它指定 label 控制元件或 shape 控制元件的背景是透明的還是非透明的。例項 private sub form load label1....