中國(guó)石油大學(xué)華東VB練習(xí)題16周總選擇題

1. Visual Basic 是一種面向 對(duì)象的程序設(shè)計(jì)語(yǔ)言，_不是面向?qū)ο笙到y(tǒng)所包含的三個(gè)要素之一A. 變量 B. 事件 C. 方法 D. 屬性正確答案：A，你的答案：A ， 2. 決定控件在窗體中的位置的屬性是_A. EnabledB. Left 和 TopC. VisibleD. Width 和 Height正確答案：B，你的答案：B ， 3. 要判斷在文本框中是否按下 Enter 鍵，應(yīng)在文本框的_事件中判斷。A. ChangeB. DblClickC. KeyPressD. Click正確答案：C，你的答案： C， 4. 為了在文本框中顯示多行文本，可設(shè)置其 ScrollBars屬性為 2（垂直 滾動(dòng) 條）,但同時(shí)還需要設(shè)置_屬性的值為T(mén)rueA. MultiLineB. TextC. MaxLengthD. Enabled正確答案：A，你的答案：A ， 5. 下列屬性中，標(biāo)簽沒(méi)有的屬性是_A. NameB. CaptionC. TextD. Width正確答案：C，你的答案： C， 6. 下面_ 是不合法的整型常量。A. 100B. &H100C. &100D. &E100正確答案：D，你的答案： C， 7. 表達(dá)式“123“+“100“ & 200 的值是_A. 123300B. 423C. 223200 D. 123100200正確答案：D，你的答案： D， 8. 可以用來(lái)調(diào)用 Windows 中 計(jì)算器程序的語(yǔ)句是_A. k=Shell(“Calc.exe“,1)B. k=Shell(Calc.exe,1)C. Calc.exeD. Shell(“Calc.exe“,1) 正確答案：A，你的答案：A ， 9. 以下關(guān)系表達(dá)式中，其值為 False 的是_。A. “AB“ “Ab“B. “123“ C. Case 2， 3， 4D. Case x20正確答案：D，你的答案： D， 15. 現(xiàn)有如下一段程序：執(zhí)行程序，在輸入框中輸入字母“b“，則以下敘述中正確的是( )。 Private Sub Command1_Click() xUCase(InputBox(“輸入：“) Select Case x Case “A“ To “C“ Print “考核通過(guò)！“ Case “D“ Print “考核不通過(guò) ！“ Case Else Print “輸入數(shù)據(jù)不合法！“ End Select End SubA. 程序運(yùn)行錯(cuò) B. 在窗體上顯示“考核通過(guò)！“ C. 在窗體上顯示“考核不通過(guò) ！“D. 在窗體上顯示“輸入數(shù)據(jù)不合法！“正確答案：B，你的答案：A ， 16. 在窗體上畫(huà)一個(gè)命令按鈕，然后編寫(xiě)如下事件過(guò)程： Private Sub Command1_Click() Dim a As String aInputBox(“請(qǐng)輸入一個(gè)二進(jìn)制數(shù)“) nLen(a) For i1 To n DecDec * 2_(a， i， 1) Next i Print Dec End Sub 程序功能為：?jiǎn)螕裘畎粹o，將產(chǎn)生一個(gè)輸入對(duì)話框，此時(shí)如果在對(duì)話框中輸入一個(gè)二進(jìn)制數(shù)，并單擊“確定“ 按鈕，則把該二進(jìn)制數(shù)轉(zhuǎn)換為等值的十進(jìn)制數(shù)。這個(gè)程序不完整，應(yīng)在“_“處填入的內(nèi)容是( )。A. RightB. MidC. LeftD. Val正確答案：B，你的答案：B ， 17. 在窗體上畫(huà)一個(gè)名稱(chēng)為 Command1 的命令按鈕，編寫(xiě)如下事件過(guò)程： Private Sub Command1_Click() n0 For i0 To 10 X2 * i1 If X Mod 30 Then nn1 Next i Print n End Sub 運(yùn)行程序，單擊命令按鈕，則窗體上顯示的是( )。A. 5B. 1C. 7D. 3正確答案：D，你的答案： B， 18. 在窗體上畫(huà)一個(gè)名為 Command1 的命令按鈕，然后編寫(xiě)以下程序： Private Sub Command1_Click() Dim M(10)As Integer For k1 To 10 M(k)12k Next k x8 Print M(2M(x) End Sub 運(yùn)行程序， 單擊命令按鈕，在窗體上顯示的是( )。A. 5B. 7C. 6D. 8正確答案：C，你的答案： B， 19. 窗體上有 1 個(gè)名稱(chēng)為 Command1 的命令按鈕，事件過(guò)程如下： Private Sub Command1_Click() Dim x%， y%， z% xInputBox(“ 請(qǐng)輸入第 1 個(gè)整數(shù)“) yInputBox(“請(qǐng)輸入第 2 個(gè)整數(shù) “) Do Until xy If xy Then xxy Else yyx Loop Print x End Sub 運(yùn)行程序，單擊命令按鈕，并輸入 2 個(gè)整數(shù) 169 和 39，則在窗體上 顯示的內(nèi)容為( )。A. 13B. 23C. 11D. 39正確答案：A，你的答案：A ， 20. 以下能夠正常結(jié)束循環(huán)操作的程序段是A. i = 5 Do i = i + 2 Loop Until i = 1B. i = 0 Do While i 0 i = i - 2 Loop正確答案：D，你的答案： D， 21. 在窗體上畫(huà)兩個(gè)文本框(名稱(chēng)分別為 Text1 和 Text2)和一個(gè)命令按鈕(名稱(chēng)為 Command1)，然后編寫(xiě)如下事件過(guò)程： Private Sub Co