在vb程式設計中如何把小寫變成大寫,VB中如何把原來字母中的小寫改為大寫,大寫改為小寫

2021-08-13 22:53:31 字數 6071 閱讀 8312

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...