2013VB考試復(fù)習(xí)題.xls

結(jié)果 Page 1 說明 題型 1表示判斷 2表示單選 3表示多選 4 表示填空 5表示編程 難度2為中等 判斷題a 表示正確 B 表示錯誤 填空題 第一空放在參考答案中 章章節(jié)節(jié)題題型型問問題題難難度度系系數(shù)數(shù) 21 改變控件的大小 可以使用鼠標(biāo)和鍵盤 還可以通過執(zhí)行代碼 2 21 當(dāng)按鈕的Enable 屬性設(shè)置為false時 該按鈕為不可見 3 21 標(biāo)簽框有Text屬性 3 21 改變控件在窗體中的上下位置應(yīng)修改控件的Width屬性 3 21 有的對象屬性既可在屬性窗口中設(shè)定又可在程序代碼中設(shè)定 2 21 用窗體的caption屬性可以設(shè)置窗體的標(biāo)題 2 31 代碼Const Number1 15 Number1 10合法 2 31 Double 類型的數(shù)據(jù)由4個字節(jié)組成 3 31 Dim a as integer A as integer為正確的變量定義語句 2 31 在一個語句行內(nèi)寫多條語句時 語句之間應(yīng)該用逗號分隔 2 41 用 Do Loop While 語句實(shí)現(xiàn)循環(huán)時 不管條件真假 首先無條件執(zhí)行循環(huán)一 次 2 41 在Do While Loop結(jié)構(gòu)中要安排修改循環(huán)條件的語句循環(huán)過程才不會產(chǎn)生死循 環(huán) 3 41 關(guān)鍵字For和Exit必須成對地使用 2 41 對于 For i 0 to 5 print i Next i 循環(huán)結(jié)構(gòu)的循環(huán)次數(shù)是5次 3 41 如果算術(shù)表達(dá)式作為IF語句的判斷條件 那么其值是非零按真處理3 51 定義數(shù)組語句Dim a b As Integer 是正確的 2 51 在Visual Basic 中使用數(shù)組必須遵循 先定義 后使用 的原則 2 61 VB函數(shù)中的參數(shù)可以是常量 變量 表達(dá)式 還可以是另一個函數(shù) 2 31 VB的賦值語句只能給變量賦值 2 31 在VB中 字符型常量應(yīng)使用 號將其括起來 2 21 用窗體的Caption屬性可以設(shè)置窗體的標(biāo)題 3 41 IF語句中條件表達(dá)式中只能使用關(guān)系或邏輯表達(dá)式2 11 VB是一種面向?qū)ο蟮某绦蛟O(shè)計語言1 41 if語句中的條件表達(dá)式可以是邏輯表達(dá)式1 41 do while語句中的條件表達(dá)式只能用邏輯表達(dá)式或關(guān)系表達(dá)式2 41 for語句中的步長可以設(shè)置為負(fù)數(shù)2 41 在while語句中一般要有一個專門用于改變循環(huán)控制條件的語句1 31 數(shù)據(jù) 2011 12 23 是字符類型3 31 函數(shù)Time返回的是現(xiàn)在的時間3 31 函數(shù)Int Rnd 100 有可能返回整數(shù)1003 31 表達(dá)式Not 10 33 30 45 And AAA ABC 的值是Ture2 31 表達(dá)式Sgn Val Not 23 77 23 3 的值是03 31 表達(dá)式Val Not 23 23 And x y 的值是02 31 程序段 Dim x Do While x x 2 x Exit Do Loop Print x 的輸出結(jié)果是2 3 41 以下循環(huán)嵌套語句是正確的 For i 1 To 10 For j 1 To 20 Next i Next j 3 結(jié)果 Page 2 41 以下循環(huán)嵌套語句是正確的 For I IF Then Next I End IF 3 41 以下語句嵌套是正確的 IF Then For I End IF Next I 3 41 以下語句嵌套是正確的 IF Then For I Next I End IF 3 41 以下語句嵌套是正確的 Do while 3 Loop 3 41 以下語句將輸出 BBB IF 1 Then Print AAA Else Print BBB End If 3 31 以下語句將輸出 AAA If 3 3 Then Print AAA Else Print BBB End If 3 12 不是Visual Basic標(biāo)準(zhǔn)控件的是 2 22 改變控件在窗體中的左右位置應(yīng)修改控件的 屬性 3 22 決定控件上文字的字體 字形 大小及效果的屬性是 3 22 運(yùn)行時 當(dāng)用戶向文本框輸入新的內(nèi)容 或在程序代碼中對文本框的Text屬性 進(jìn)行賦值從而改變了文本框的Text屬性值時 將觸發(fā)文本框的 事件 2 22 在Visual Basic中 組成對象的 三要素 是 3 22 如果要改變窗體的標(biāo)題 則需要設(shè)置的屬性是 3 22 在VB環(huán)境中 工程文件的擴(kuò)展名是 1 22 Caption是Label控件的 2 22 決定Label控件是否可見的是 屬性 3 22 Visual Basic中所有對象都有 屬性 3 22 改變控件在窗體中的上下位置應(yīng)修改控件的 屬性 3 32 設(shè)變量x 4 y 1 a 7 b 8 下面表達(dá)式 的值為 假 2 32 表達(dá)式Int 3 34 20值是 1 32 Integer類型的變量可存的最大整數(shù)是 3 32 下列數(shù)據(jù)類型中 占用內(nèi)存最小的是 1 32 執(zhí)行語句s Len Mid VisualBasic 5 7 后 s的值是 3 32 表達(dá)式6 Mod 4 2 3 2 38的值是 2 32 以下能產(chǎn)生21到53之間 包括21和53 的隨機(jī)整數(shù)的是 2 32 設(shè)a 5 b 6 c 7 d 8 執(zhí)行語句x iif a b and d c 10 20 后 x的值的 是 1 32 表達(dá)式abs 5 Len ABCDE 的值是 3 32 函數(shù)Int Rnd 100 是在 范圍內(nèi)的整數(shù) 3 32 下面的運(yùn)算符中 優(yōu)先級最高的是 3 結(jié)果 Page 3 32 我們在一個窗體上建立兩個文本框 名稱分別為Text1和Text2 事件過程如 下 Private Sub Text1 Change Text2 Text UCase Text1 Text End Sub 則在Text1文本框輸入 visual basic Text2將 3 32 下列各項(xiàng)不是Visual Basic的基本數(shù)據(jù)類型的是 2 32 下列運(yùn)算結(jié)果中 值最大的是 2 32 表達(dá)式2 3 2 2 8 4的值為 3 32 變量A 的類型是 2 42 下列賦值語句 是有效的 2 42 下列代碼的運(yùn)行結(jié)果為 Private Sub command1 click Dim m 10 For k 1 To 10 m k 11 k Next k x 5 Print m x End Sub 2 42 當(dāng)VB執(zhí)行下面語句后 A的值為 A 0 IF A 0 THEN A A 1 IF A 1 THEN A 0 2 42 以下哪個程序段不能正確地求出兩個數(shù)中的大數(shù) 2 42 如果整型變量a b的值分別為3和1 則下列語句中循環(huán)體的執(zhí)行次數(shù)是 For i b to a Print i Next i 2 42 由For k 0 to 10 step 3 next k 循環(huán)語句控制的循環(huán)次數(shù)是 3 42 語句 If x 1 Then y 1 下列說法正確的是 2 42 下面程序段運(yùn)行后 顯示的結(jié)果是 Dim x As Integer If x Then Print x Else Print x 1 2 42 下列程序的執(zhí)行結(jié)果為 a 100 b 50 If a b Then a a b Else b b a End If Print a 3 62 在 Form2 中引用 Form1 中的全局變量x 寫作 2 62 用于聲明全局變量的關(guān)鍵字是 2 32 不屬于Visual Basic的基本數(shù)據(jù)類型的是 3 32 下列運(yùn)算結(jié)果中 值最大的是 2 42 用InputBox函數(shù)可幫助生成 1 32 16 mod 3的運(yùn)算結(jié)果是 3 32 表達(dá)式2 3 2 2 8 4 3 2的值為 2 32 下列符號是Visual Basic中合法變量名的是 3 42 下列語句中循環(huán)體的執(zhí)行次數(shù) For I 1 to 10 step 2 k k 1 Next I 3 結(jié)果 Page 4 42 下面程序段的循環(huán)結(jié)構(gòu)執(zhí)行后 I 的輸出值是 For I 1 to 10 step 2 y y I Next I print I 2 42 x是小于100的非負(fù)數(shù) 用vb表達(dá)式正確的是 2 32 19 Mod 2 2的運(yùn)算結(jié)果是 3 32 a和b中有且只有一個為0 可以用以下表達(dá)式來表示 3 32 Byte類型的數(shù)據(jù)由幾個字節(jié)組成 3 32 Double類型的數(shù)據(jù)由 個字節(jié)組成 3 32 變量A 的類型是 2 32 表達(dá)式X 1 X是 2 42 若x是一個正實(shí)數(shù) 對x保留小數(shù)點(diǎn)后兩位小數(shù)的表達(dá)式是 3 42 把 InputBox 的返回值轉(zhuǎn)換為數(shù)值應(yīng)該使用的函數(shù)是 3 32 刪除字符串前導(dǎo)和尾隨空格的函數(shù)是 2 52 如果有數(shù)組聲明 Dim a 1 to 10 As Integer 則該數(shù)組共有 個元素 2 22 函數(shù)len 123ABC 的值是 3 52 如果有數(shù)組聲明 Dim a 10 As Integer 則該數(shù)組共有 個元素 2 32 函數(shù)len 123456 的值是 3 32 表達(dá)式Int Rnd 71 10產(chǎn)生的隨機(jī)整數(shù)范圍是 2 32 函數(shù)Sgn 5 1416 的返回值是 3 42 下列賦值語句 是有效的 1 22 語句Dim b As single 的作用是 將b定義為什么類型變量 2 22 保存一個工程至少應(yīng)保存兩個文件 這兩個文件分別是 1 32 表達(dá)式 abc Next i End Sub 3 44 在窗體上畫一個名稱為Command1的命令按鈕 然后編寫如下事件過程 單擊命令按鈕 結(jié)果為 Private Sub Command1 Click Dim a As Integer a 100 Do Print a a a 10 Loop Until a 10 End Sub 3 44 當(dāng)x 2時 語句 If x 2 Then Print x 2 的結(jié)果值是 2 44 以下循環(huán)的執(zhí)行次數(shù)是 k 0 Do While k 10 k k 1 Loop 3 44 語句 x InputBox 請輸入數(shù)據(jù) 輸入12345 則x的值為 類型的數(shù)據(jù) 提示 例如整型 Int 字符型 string 3 44 下列程序用來將變量x y的值互換 請補(bǔ)充完程序 提示 該題答案中不要出現(xiàn) 空格 t y x t 3 34 表達(dá)式Ucase Mid abcdefgh 4 5 的值是 3 34 判斷x不是3的倍數(shù)的表達(dá)式為 3 34 表達(dá)式Not 10 20256的值是 3 41 循環(huán)正常結(jié)束時 循環(huán)變量等于終值加步長 2 41 表達(dá)式A A 1在VB中沒有任何意義 2 41 在Do While Loop循環(huán)中 當(dāng)條件為假時 反復(fù)執(zhí)行循環(huán)體 3 41 chr 65 轉(zhuǎn)換成字母是A2 31 存放數(shù)據(jù)2011 12到變量x中應(yīng)該將x定義成單精度類型的變量2 41 循環(huán)結(jié)構(gòu)中可以嵌套另外一個循環(huán)結(jié)構(gòu)3 34 表達(dá)式15 3 3 9 5 5 mod 10 的值是 2 24 決定按鈕顯示內(nèi)容的屬性是 3 34 Visual Basic中使用關(guān)鍵字 聲明符號常量 3 34 函數(shù)Len abcdef 的返回值是 3 34 執(zhí)行以下語句后 輸出結(jié)果是 和 s ABCDEFGHIJK print mid s 3 4 print len s 3 44 以下程序段的輸出結(jié)果是 x 8 Print x 1 x 2 x 3 3 34 表達(dá)式Fix 32 Int 24 的值為 3 結(jié)果 Page 8 34 以下語句的輸出結(jié)果是 print sgn 2 3 34 以下語句的輸出結(jié)果是 s China s Beijing Print s 3 34 Sgn 337 468 2000 的值是 3 44 程序 Private Sub Command1 Click Dim x x 1 If x Then Print x Else Print x End If End Sub 的執(zhí)行結(jié)果是 3 44 程序 Private Sub Command1 Click Dim x If x Then Print x s Print 能被17整數(shù)的數(shù)據(jù)有 c 個 End Sub Private Sub command1 click Dim n as integer f as long n text1 text f 1 for I 1 to n f f I next I text2 text f end sub Private Sub Form Click Sum 0 For i 1 To 100 If i Mod 7 0 Then Sum Sum i End If Next i Print Sum End Sub Private Sub Command1 Click Dim m n k m Val InputBox m n Val InputBox n If m n Then k m m n n k End If Print m n End Sub Private Sub Command1 Click Dim x As Double fx As Double x Val InputBox 輸入x If x 0 And x 3 Then fx x x 2 x 6 ElseIf x 0 And x 5 And x 2 Then fx x x 5 x 4 Else fx x x x 1 End If Print x x f fx End Sub Private Sub Command1 Click Dim i As Integer c As Integer Dim s As Integer For i 1 To 100 s s i If i Mod 17 0 Then c c 1 Next i Print 1 2 100 s Print 能被17整數(shù)的數(shù)據(jù)有 c 個 End Sub Private Sub Command1 Click Dim x As Integer x InputBox x Print x Max x Min x s x For i 2 To 10 x InputBox x Print x s s x If x Max Then Max x If x c And b c a And a c b Then 如果能構(gòu)成三角形 x a b c 2 s Sqr x x a x b x c Print S s Else Print 數(shù)據(jù)有錯 不能構(gòu)成三角形 End If End Sub Private Sub Form Click Dim i As Integer Dim max As Integer Dim imax As Integer Dim a 1 To 8 As Integer For i 1 To 8 a i Val InputBox 請輸入a max 它所在的下標(biāo)是 imax End Sub Private Sub Command1 Click Dim sum1 As Integer sum2 As Integer i As Integer sum 0 For i 1 To 20 If i Mod 2 0 Then sum1 sum1 i Else sum2 sum2 i End If Next i Print sum1 sum2End Sub Private Sub Command1 Click Dim i As Integer c 50 As Single sum As Single For i 1 To 50 c i Val InputBox 請輸入學(xué)生 s Print 能被17整數(shù)的數(shù)據(jù)有 c 個 End Sub Private Sub command1 click Dim n as integer f as long n text1 text f 1 for I 1 to n f f I next I text2 text f end sub Private Sub Form Click Sum 0 For i 1 To 100 If i Mod 7 0 Then Sum Sum i End If Next i Print Sum End Sub Private Sub Command1 Click Dim m n k m Val InputBox m n Val InputBox n If m n Then k m m n n k End If Print m n End Sub Private Sub Command1 Click Dim x As Double fx As Double x Val InputBox 輸入x If x 0 And x 3 Then fx x x 2 x 6 ElseIf x 0 And x 5 And x 2 Then fx x x 5 x 4 Else fx x x x 1 End If Print x x f fx End Sub Private Sub Command1 Click Dim i As Integer c As Integer Dim s As Integer For i 1 To 100 s s i If i Mod 17 0 Then c c 1 Next i Print 1 2 100 s Print 能被17整數(shù)的數(shù)據(jù)有 c 個 End Sub Private Sub Command1 Click Dim x As Integer x InputBox x Print x Max x Min x s x For i 2 To 10 x InputBox x Print x s s x If x Max Then Max x If x c And b c a And a c b Then 如果能構(gòu)成三角形 x a b c 2 s Sqr x x a x b x c Print S s Else Print 數(shù)據(jù)有錯 不能構(gòu)成三角形 End If End Sub Private Sub Form Click Dim i As Integer Dim max As Integer Dim imax As Integer Dim a 1 To 8 As Integer For i 1 To 8 a i Val InputBox 請輸入a max 它所在的下標(biāo)是 imax End Sub Private Sub Command1 Click Dim sum1 As Integer sum2 As Integer i As Integer sum 0 For i 1 To 20 If i Mod 2 0 Then sum1 sum1 i Else sum2 sum2 i End If Next i Print sum1 sum2End Sub Private Sub Command1 Click Dim i As Integer c 50 As Single sum As Single For i 1 To 50 c i Val InputBox 請輸入學(xué)生 s Print 能被17整數(shù)的數(shù)據(jù)有 c 個 End Sub Private Sub command1 click Dim n as integer f as long n text1 text f 1 for I 1 to n f f I next I text2 text f end sub Private Sub Command1 Click Dim m n k m Val InputBox m n Val InputBox n If m n Then k m m n n k End If Print m n End Sub Private Sub Command1 Click Dim x As Double fx As Double x Val InputBox 輸入x If x 0 And x 3 Then fx x x 2 x 6 ElseIf x 0 And x 5 And x 2 Then fx x x 5 x 4 Else fx x x x 1 End If Print x x f fx End Sub Private Sub Command1 Click Dim i As Integer c As Integer Dim s As Integer For i 1 To 100 s s i If i Mod 17 0 Then c c 1 Next i Print 1 2 100 s Print 能被17整數(shù)的數(shù)據(jù)有 c 個 End Sub Private Sub Command1 Click Dim x As Integer x InputBox x Print x Max x Min x s x For i 2 To 10 x InputBox x Print x s s x If x Max Then Max x If x c And b c a And a c b Then 如果能構(gòu)成三角形 x a b c 2 s Sqr x x a x b x c Print S s Else Print 數(shù)據(jù)有錯 不能構(gòu)成三角形 End If End Sub Private Sub Form Click Dim i As Integer Dim max As Integer Dim imax As Integer Dim a 1 To 8 As Integer For i 1 To 8 a i Val InputBox 請輸入a max 它所在的下標(biāo)是 imax End Sub Private Sub Command1 Click Dim sum1 As Integer sum2 As Integer i As Integer sum 0 For i 1 To 20 If i Mod 2 0 Then sum1 sum1 i Else sum2 sum2 i End If Next i Print sum1 sum2End Sub Private Sub Command1 Click Dim i As Integer c 50 As Single sum As Single For i 1 To 50 c i Val InputBox 請輸入學(xué)生 s Print 能被17整數(shù)的數(shù)據(jù)有 c 個 End Sub Private Sub Command1 Click Dim x As Double fx As Double x Val InputBox 輸入x If x 0 And x 3 Then fx x x 2 x 6 ElseIf x 0 And x 5 And x 2 Then fx x x 5 x 4 Else fx x x x 1 End If Print x x f fx End Sub Private Sub