1樓：天南地北公路人
這樣可以不？
private sub command1_click()dim x as string
dim y as string
dim s as string
x = text1.text
if option1.value = true thenfor i = 1 to len(x)
y = mid(x, i, 1)
if y >= "a " and ch <= "z" thens = s + ucase(y)
elseif y >= "a" and y <= "z" thens = s + lcase(y)
end if
next i
text2.text = s
end if
if option2.value = true thenx = ucase(x)
text2.text = x
end if
if option3.value = true thenx = lcase(x)
text2.text = x
end if
end sub
2樓：匿名使用者
1（基本應用題）.如下圖：編寫程式，在文字框中輸入英文字母，單擊「大寫」只題目2嗎新建工程，新增四個label，caption屬性分別為「邊長a」「邊長b」「
vb:在文字框中輸入英文字元,單擊按鈕會將文字框中的所有大寫字元轉換為小寫,所有小寫字元轉換為大寫
3樓：匿名使用者
private sub command1_click()dim s as string,s1 as strings = text1
for i = 1 to len(s)
ch = mid(s, i, 1)
if ch >= "a" and ch <= "z" thens1 = s1 + ucase(ch)
elseif ch >= "a" and ch <= "z" then
s1 = s1 + lcase(ch)
end if
next i
text1=s1
end sub
4樓：匿名使用者
private sub command1_click()
dim s as string, t as string, p as string
s = text1.text
t = ""
for i = 1 to len(s)
p = mid(s, i, 1)
if asc(p) > 96 and asc(p) < 123 then
t = t & chr(asc(p) - 32)
end if
if asc(p) > 64 and asc(p) < 91 then
t = t & chr(asc(p) + 32)
end if
next i
text1.text = t
end sub
private sub form_load()
text1.text = "aabbccddeeffgghhiijjkk"
end sub
在計算機vb程式中，任意輸入若干個字母到文字框1中，通過單擊命令按鈕將其中的大寫字母轉換成小寫字母
5樓：匿名使用者
把大寫字母轉換為小寫字母是用lcase函式，所以可以按下面的步驟實現。
開啟程式設計軟體，在窗體上繪製一個文字框和一個命令按鈕。
private sub command1_click()
text1=lcase(text1.text)
end sub
這裡的sub為子過程。
在visual basic中的物件對一個事件的發生作出認定時，便自動用相應於控制元件的名字呼叫事件的過程。因為名字在物件和**之間建立了聯絡，所以說事件過程是附加在窗體或控制元件上的。
一個控制元件的事件過程把控制元件的實際名字、下劃線和事件名組合起來。
;一個窗體事件過程把詞彙form、下劃線和事件名組合起來。如果正在使用mdi窗體，則事件過程把詞彙「mdiform」、下劃線和事件名組合起來。
所有的事件過程使用相同的語法。
sub 物件名_事件（宣告）
語句end sub
雖然可以自己編寫事件過程，但使用visualbasic提供的**過程會更方便，這個過程自動把正確的過程名包括進來。從物件框中選擇一個物件，從過程框中選擇一個過程之後，就可以在**編輯器中選擇一個模板。
在開始為控制元件編寫事件過程之前先設定控制元件的name屬性，如果對控制元件新增一個過程之後又更改控制元件的名字，那麼也必須更改過程的名字，以符合物件的新名字。否則visualbasic無法使控制元件和過程相符。過程名與控制元件明不符時，過程就變為通用過程。
6樓：匿名使用者
大小寫，asc碼差32。大寫加32，列印asc碼就行了
7樓：無敵軟體精英
ucase函式和lcase函式可以實現。
ucase("字串")將字串中所有小寫字母轉換成大寫.
lcase("字串")將字串中所有大寫字母轉換成小寫。
「將大寫字母轉換為小寫字母，小寫字母轉換為大寫字母」怎麼編寫程式？
8樓：匿名使用者
#include
void main()
解釋一下，bai大寫字母就小寫du
就是zhi+32，小寫字母變大寫就是-32，我這裡採用dao了與32進行異域就達到了效果。
編寫程式！！！用vb編寫程式，在文字框中輸入英文字元，單機「大寫」按鈕把英文字元轉換為大寫，單擊「 5
9樓：元小翠
private sub command1_click()
dim s as string, t as string, p as string
s = text1.text
t = ""
for i = 1 to len(s)
p = mid(s, i, 1)
if asc(p) > 96 and asc(p) < 123 then
t = t & chr(asc(p) - 32)
end if
if asc(p) > 64 and asc(p) < 91 then
t = t & chr(asc(p) + 32)
end if
next i
text1.text = t
end sub
private sub form_load()
text1.text = "aabbccddeeffgghhiijjkk"
end sub
vb，怎麼在文字框裡把輸入一個大寫字母，按命令執行轉換轉換成小寫字母，謝謝！！
10樓：甕皓月
你是不是想有把vb語句寫在文字框中,來執行這條語句? 以前要想過當是沒做到,生成的程式是脫離了編譯器的.可vb語句只有vb編譯器認得
11樓：
lcase是vb的內建函式, 用於將大寫轉小寫, 和它相反的是ucase, 你可以測試以下語句
當點選轉換命令時, 執行以下**
text1.text = lcase(text1.text)
12樓：大帥紛紜
用一個ucase和lcase這兩個是用來轉化大小寫的
例如 ucase(str(text1.text)) 就是吧text1裡面的全部以字元的方式轉成了大寫的了！~希望有用！
13樓：匿名使用者
點選按鈕一，轉換成小寫，點選按鈕二轉換成大寫private sub command1_click()text1.text = lcase(text1.text)end sub
private sub command2_click()text1.text = ucase(text1.text)end sub
14樓：王永昌
#include
void main()
在中繪製完文字框想在文字框外輸入文字,如何把游標移到文字框下方
把游標移到文字框外，如果游標在上面你就多按幾個回車，然後把文字框向上移動就可以了。把文字框拉開，輸入文字，再留空，把文字框放回原地，其實我一直覺得文字框不太好用 word中在繪製的文字框中輸入文字從左到右怎麼設定 word中繪製的文字框中輸入文字預設就是從左到右的，不用設定，如果要橫排變成豎排，要設...
在vb程式中如何測試文字框輸入次數的返回值（就行輸入銀行密碼一樣，只能輸入三次錯誤密碼就自動鎖住了）
輸入到記事本，儲存為form1.frm即可 每行 均寫了註釋，應該知道意思了 version 5.00 begin vb.form form1 caption form1 clientheight 3840 clientleft 60 clienttop 450 clientwidth 5625 l...
怎麼在vb中限定文字框大小,讓文字自動換行
在窗體設計過程中，使multiline true scrollbars 2就可以了。但不能在程式執行中改變這兩個屬性 1 在設計狀態下 把文字框的 multiline 屬性 設為true，就是允許文字框可以顯示多行文字。2 如果版 內容較多時把權scrollbars設為 2 vertical，這樣可...