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

結(jié)果 Page 1 說(shuō)明 題型 1表示判斷 2表示單選 3表示多選 4 表示填空 5表示編程 難度2為中等 判斷題a 表示正確 B 表示錯(cuò)誤 填空題 第一空放在參考答案中 章章節(jié)節(jié)題題型型問(wèn)問(wèn)題題難難度度系系數(shù)數(shù) 21 改變控件的大小 可以使用鼠標(biāo)和鍵盤(pán) 還可以通過(guò)執(zhí)行代碼 2 21 當(dāng)按鈕的Enable 屬性設(shè)置為false時(shí) 該按鈕為不可見(jiàn) 3 21 標(biāo)簽框有Text屬性 3 21 改變控件在窗體中的上下位置應(yīng)修改控件的Width屬性 3 21 有的對(duì)象屬性既可在屬性窗口中設(shè)定又可在程序代碼中設(shè)定 2 21 用窗體的caption屬性可以設(shè)置窗體的標(biāo)題 2 31 代碼Const Number1 15 Number1 10合法 2 31 Double 類型的數(shù)據(jù)由4個(gè)字節(jié)組成 3 31 Dim a as integer A as integer為正確的變量定義語(yǔ)句 2 31 在一個(gè)語(yǔ)句行內(nèi)寫(xiě)多條語(yǔ)句時(shí) 語(yǔ)句之間應(yīng)該用逗號(hào)分隔 2 41 用 Do Loop While 語(yǔ)句實(shí)現(xiàn)循環(huán)時(shí) 不管條件真假 首先無(wú)條件執(zhí)行循環(huán)一 次 2 41 在Do While Loop結(jié)構(gòu)中要安排修改循環(huán)條件的語(yǔ)句循環(huán)過(guò)程才不會(huì)產(chǎn)生死循 環(huán) 3 41 關(guān)鍵字For和Exit必須成對(duì)地使用 2 41 對(duì)于 For i 0 to 5 print i Next i 循環(huán)結(jié)構(gòu)的循環(huán)次數(shù)是5次 3 41 如果算術(shù)表達(dá)式作為IF語(yǔ)句的判斷條件 那么其值是非零按真處理3 51 定義數(shù)組語(yǔ)句Dim a b As Integer 是正確的 2 51 在Visual Basic 中使用數(shù)組必須遵循 先定義 后使用 的原則 2 61 VB函數(shù)中的參數(shù)可以是常量 變量 表達(dá)式 還可以是另一個(gè)函數(shù) 2 31 VB的賦值語(yǔ)句只能給變量賦值 2 31 在VB中 字符型常量應(yīng)使用 號(hào)將其括起來(lái) 2 21 用窗體的Caption屬性可以設(shè)置窗體的標(biāo)題 3 41 IF語(yǔ)句中條件表達(dá)式中只能使用關(guān)系或邏輯表達(dá)式2 11 VB是一種面向?qū)ο蟮某绦蛟O(shè)計(jì)語(yǔ)言1 41 if語(yǔ)句中的條件表達(dá)式可以是邏輯表達(dá)式1 41 do while語(yǔ)句中的條件表達(dá)式只能用邏輯表達(dá)式或關(guān)系表達(dá)式2 41 for語(yǔ)句中的步長(zhǎng)可以設(shè)置為負(fù)數(shù)2 41 在while語(yǔ)句中一般要有一個(gè)專門(mén)用于改變循環(huán)控制條件的語(yǔ)句1 31 數(shù)據(jù) 2011 12 23 是字符類型3 31 函數(shù)Time返回的是現(xiàn)在的時(shí)間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)嵌套語(yǔ)句是正確的 For i 1 To 10 For j 1 To 20 Next i Next j 3 結(jié)果 Page 2 41 以下循環(huán)嵌套語(yǔ)句是正確的 For I IF Then Next I End IF 3 41 以下語(yǔ)句嵌套是正確的 IF Then For I End IF Next I 3 41 以下語(yǔ)句嵌套是正確的 IF Then For I Next I End IF 3 41 以下語(yǔ)句嵌套是正確的 Do while 3 Loop 3 41 以下語(yǔ)句將輸出 BBB IF 1 Then Print AAA Else Print BBB End If 3 31 以下語(yǔ)句將輸出 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)行時(shí) 當(dāng)用戶向文本框輸入新的內(nèi)容 或在程序代碼中對(duì)文本框的Text屬性 進(jìn)行賦值從而改變了文本框的Text屬性值時(shí) 將觸發(fā)文本框的 事件 2 22 在Visual Basic中 組成對(duì)象的 三要素 是 3 22 如果要改變窗體的標(biāo)題 則需要設(shè)置的屬性是 3 22 在VB環(huán)境中 工程文件的擴(kuò)展名是 1 22 Caption是Label控件的 2 22 決定Label控件是否可見(jiàn)的是 屬性 3 22 Visual Basic中所有對(duì)象都有 屬性 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í)行語(yǔ)句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í)行語(yǔ)句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)先級(jí)最高的是 3 結(jié)果 Page 3 32 我們?cè)谝粋€(gè)窗體上建立兩個(gè)文本框 名稱分別為T(mén)ext1和Text2 事件過(guò)程如 下 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 下列賦值語(yǔ)句 是有效的 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í)行下面語(yǔ)句后 A的值為 A 0 IF A 0 THEN A A 1 IF A 1 THEN A 0 2 42 以下哪個(gè)程序段不能正確地求出兩個(gè)數(shù)中的大數(shù) 2 42 如果整型變量a b的值分別為3和1 則下列語(yǔ)句中循環(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)語(yǔ)句控制的循環(huán)次數(shù)是 3 42 語(yǔ)句 If x 1 Then y 1 下列說(shuō)法正確的是 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 寫(xiě)作 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 下列符號(hào)是Visual Basic中合法變量名的是 3 42 下列語(yǔ)句中循環(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中有且只有一個(gè)為0 可以用以下表達(dá)式來(lái)表示 3 32 Byte類型的數(shù)據(jù)由幾個(gè)字節(jié)組成 3 32 Double類型的數(shù)據(jù)由 個(gè)字節(jié)組成 3 32 變量A 的類型是 2 32 表達(dá)式X 1 X是 2 42 若x是一個(gè)正實(shí)數(shù) 對(duì)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ù)組共有 個(gè)元素 2 22 函數(shù)len 123ABC 的值是 3 52 如果有數(shù)組聲明 Dim a 10 As Integer 則該數(shù)組共有 個(gè)元素 2 32 函數(shù)len 123456 的值是 3 32 表達(dá)式Int Rnd 71 10產(chǎn)生的隨機(jī)整數(shù)范圍是 2 32 函數(shù)Sgn 5 1416 的返回值是 3 42 下列賦值語(yǔ)句 是有效的 1 22 語(yǔ)句Dim b As single 的作用是 將b定義為什么類型變量 2 22 保存一個(gè)工程至少應(yīng)保存兩個(gè)文件 這兩個(gè)文件分別是 1 32 表達(dá)式 abc Next i End Sub 3 44 在窗體上畫(huà)一個(gè)名稱為Command1的命令按鈕 然后編寫(xiě)如下事件過(guò)程 單擊命令按鈕 結(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時(shí) 語(yǔ)句 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 語(yǔ)句 x InputBox 請(qǐng)輸入數(shù)據(jù) 輸入12345 則x的值為 類型的數(shù)據(jù) 提示 例如整型 Int 字符型 string 3 44 下列程序用來(lái)將變量x y的值互換 請(qǐng)補(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é)束時(shí) 循環(huán)變量等于終值加步長(zhǎng) 2 41 表達(dá)式A A 1在VB中沒(méi)有任何意義 2 41 在Do While Loop循環(huán)中 當(dāng)條件為假時(shí) 反復(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)中可以嵌套另外一個(gè)循環(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)鍵字 聲明符號(hào)常量 3 34 函數(shù)Len abcdef 的返回值是 3 34 執(zhí)行以下語(yǔ)句后 輸出結(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 以下語(yǔ)句的輸出結(jié)果是 print sgn 2 3 34 以下語(yǔ)句的輸出結(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 個(gè) 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 個(gè) 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ù)有錯(cuò) 不能構(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 請(qǐng)輸入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 請(qǐng)輸入學(xué)生 s Print 能被17整數(shù)的數(shù)據(jù)有 c 個(gè) 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 個(gè) 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ù)有錯(cuò) 不能構(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 請(qǐng)輸入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 請(qǐng)輸入學(xué)生 s Print 能被17整數(shù)的數(shù)據(jù)有 c 個(gè) 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 個(gè) 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ù)有錯(cuò) 不能構(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 請(qǐng)輸入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 請(qǐng)輸入學(xué)生 s Print 能被17整數(shù)的數(shù)據(jù)有 c 個(gè) 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