[填空題] 在窗體上畫(huà)—個(gè)文本框、—個(gè)標(biāo)簽和—個(gè)命令按鈕，其名稱分別為T(mén)ext1、Label1和Command1，然后編寫(xiě)如下兩個(gè)事件過(guò)程： Private Sub Command1_Crick()S$=InputBox("請(qǐng)輸入—個(gè)字符串")Text1.Text=S$ End Sub Private Sub Text1_Change()Label1.Caption=UCase(Mid(Text1.Text,7)) End Sub 程序運(yùn)行后，單擊命令按鈕，將顯示一個(gè)輸入對(duì)話框，如果在該對(duì)話框中輸入字符串 “VisualBasic”，則在標(biāo)簽中顯示的內(nèi)容是 【6】 。

BASIC

[知識(shí)點(diǎn)] 字符串函數(shù)[評(píng)析] UCase$(字符串)：用來(lái)把“字符串”的小寫(xiě)字母轉(zhuǎn)換為大寫(xiě)字母。Mid$(字符串，p，n)：從第p個(gè)字符開(kāi)始，向后截取n個(gè)字符。Mid函數(shù)的第三個(gè)自變量可以省略。在這種情況下，將從第二個(gè)自變量指定的位置向后截取到字符串的末尾。文本框的Change事件：如果文本框的內(nèi)容發(fā)生變化將會(huì)觸發(fā)文本框的Change事件。輸入的字符串“VisualBasic”被賦給變量S，然后將變量S的值賦給文本框Text1，則觸發(fā)文本框Text1的Change事件。然后先求出字符串Mid(Text1.Text,7)從文本框Text1中的第七個(gè)字符開(kāi)始截取，一直取到字符串的尾部，所以取出的字符串為“Basic”，然后用UCase函數(shù)將取出的字符串轉(zhuǎn)換為大寫(xiě)，最后將轉(zhuǎn)換后的字符串賦給標(biāo)簽Label1的標(biāo)題，所以標(biāo)簽中顯示的內(nèi)容是BASIC。