在文本框中通過____Text______屬性能獲得選取的文字。
啟動窗體時為了初始化窗體中的各控件，可以在窗體的__Load__事件中編寫代碼。
產生壹個10—99的隨機整數的表達式是___rnd()*89+10____
要使標簽Label1顯示的文字為紅色，在設計代碼中可加入語句____Label1.ForeColor=vbRed_____
下列程序，文本框顯示的結果是____53_____ private sub command1_click() Dim x as string, y as string x=”5” : y=”3” text1.text=x+y end sub
使命令按鈕Command3獲得焦點，應使用語句____Command3.SetFocus____
使在某壹條件下復選框check1禁用，應使其__Enabled__屬性值為__False__。
打開菜單編輯器進行菜單設計，應在VB的__工具__菜單下選取“菜單編輯器”。
要在列表框中第三條加上“上海”項目，應使用語句___list1.list(2)="上海"_____
判斷題
Visual Basic是壹個面象對象程序設計語言。（√）
雙擊設計窗體中某個控件，該控件將出現在窗體左上角 （×）
標簽控件只能顯示文本信息，不能響應鼠標單擊事件。（×）
Visual Basic是事件驅動的編程機制。（√）
VB中的所有對象都必須放置在窗體中。（×）
命令按鈕控件能分別響應鼠標單擊事件和雙擊事件。（×）
當窗體的Enabled屬性為True時，窗體上的按鈕、文本框等控件都會響應用戶操作。（√）
當窗體的Enabled屬性為False時，窗體上的按鈕、文本框等控件就不會響應用戶操作。（√）
當文本框編寫有KeyPress事件時，在文本框中輸入壹個字符後，就立即執行了壹次其KeyPress事件。（√）
Rem和英文單引號（‘）都可用於註釋語句（√）
多個IF語句可***有壹個End IF語句。（×）
Do Until……Loop語句執行時，先判斷條件，如果滿足條件則執行循環體中的語句。（×）
Do……Loop While語句執行時，先判斷條件是否滿足以決定是否執行循環體中的語句。（×）
數組的下界壹定是大於0的整數。（×）
在調用函數時默認是按傳值方式進行參數傳遞的。（×）
如果要讓某單選按鈕處於選中狀態，則Value屬性應設為0。（×）
同壹數組中的各元素的數據類型必須壹致。（√）
使在某壹條件下復選框check1處於選中，應使其Index屬性值為1。（×）
如果要時鐘控件每秒鐘發生壹個Timer事件，則Interval屬性應設為1。（×）
編程 無圖！
如圖是壹個系統登錄界面，請編寫其VB功能代碼，要求單擊“確定”command1按鈕時實現：（1）如果用戶名不是admin，則提示用戶出錯；（2）如果密碼不是“123456”，則提示密碼錯誤，之後輸口令的文本框text2獲得焦點；（3）文本框text2獲得焦點則其文本處於選定狀態；（4）連輸三次口令不正確則結束程序；（5）單擊“取消”command2按鈕則程序結束。
'包含註釋的答案
dim n as integer
private sub command1_click()
'（1）如果用戶名不是admin，則提示用戶出錯；
if text1.text <> "admin" then
msgbox "用戶出錯",64,"提示"
exit sub
end if
'（2）如果密碼不是“123456”，則提示密碼錯誤，之後輸口令的文本框text2獲得焦點；
if text2.text <> "123456" then
msgbox "密碼錯誤",64,"提示"
text2.setfocus
'（3）文本框text2獲得焦點則其文本處於選定狀態；
text2.selstart=0
text2.sellength=len(text2.text)
'（4）連輸三次口令不正確則結束程序；
n=n+1
if n>=3 then end
exit sub
end if
end sub
'（5）單擊“取消”command2按鈕則程序結束。
private sub command2_click()
end
end sub
'沒註釋的完整答案
dim n as integer
private sub command1_click()
if text1.text <> "admin" then
msgbox "用戶出錯",64,"提示"
exit sub
end if
if text2.text <> "123456" then
msgbox "密碼錯誤",64,"提示"
text2.setfocus
text2.selstart=0
text2.sellength=len(text2.text)
n=n+1
if n>=3 then end
exit sub
end if
end sub
private sub command2_click()
end
end sub
保證合格！