浙江信息技術(shù)學(xué)考VB模塊基礎(chǔ)檢測(cè)(附參考題答案)

1、VB模塊基礎(chǔ)檢測(cè)（高一） 班級(jí)分?jǐn)?shù)一、選擇題（本大題共20小題，每小題3分，共60分）每小題4個(gè)選項(xiàng)中只有一個(gè)符合題目要求，不選、錯(cuò)選、多選均不得分。請(qǐng)將選項(xiàng)直接寫在各小題相應(yīng)位置。1某算法的自然語言描述與流程圖表示分別如下：第1步：輸入一個(gè)實(shí)數(shù)x第2步：判斷x與0的大小關(guān)系，若x0，則y=x2-1，否則y=2x-1第3步：輸出y第4步：結(jié)束則流程圖中空白處理框和處應(yīng)填入的是（ ）Ay x21x 2x 1By x21y 2x 1Cy 2x 1y x21Dx x21y 2x 12字符串變量a的值為“Hello,world!”，下列VB表達(dá)式的值是“world”的是（ ）ALen(a)BMid(a

2、, 6, 5)CMid(a, 7, 4)DMid(a, 7, 5)3產(chǎn)生-20，20 圍某一隨機(jī)整數(shù)的表達(dá)式是（ ）AInt(Rnd * 41) BInt(Rnd * 41) - 20CInt(40 * Rnd) - 20DInt(-40 * Rnd) + 204在VB中，若a=4，b=3，語句If a>b Then a=a-2 Else b=b+1執(zhí)行后，下列說確的是（ ）A執(zhí)行了語句a=a-2B先執(zhí)行a=a-2，再執(zhí)行c=b+1C執(zhí)行了語句b=b+1D先執(zhí)行b=b+1，再執(zhí)行a=a-25數(shù)學(xué)表達(dá)式1b100寫成VB表達(dá)式，正確的是（ ）A1 <= b <= 100B1 b

3、 100C1 <= b And b <= 100D1 <= b Or b <= 100第6題圖6在VB代碼編輯窗口中，輸入了“List1.”后出現(xiàn)了如第6題圖所示的信息，其中的“Clear”是List1的（ ）A屬性名B事件名C對(duì)象名D方法7在VB數(shù)組說明語句Dim a(11) As Single中，數(shù)組a的元素個(gè)數(shù)是（ ）A0B12C1D118下列VB表達(dá)式的值等于100的是（ ）AVal("96") + 4 BLen("40") + 60 CSqr(81) + 19 DStr(20) + "80"9若x為正

4、整數(shù)，同時(shí)能被5整除，則下列VB表達(dá)式的值一定為真的是（ ）Ax / 5 = 0Bx Mod 5 = 0 CInt(x 5) = 0 D5 Mod x = 010若x、y都是正整數(shù)，且關(guān)系表達(dá)式xy= 1為真，則下列VB表達(dá)式值一定為真的是（ ）Ax Mod y = 0Bx < yCx * y Mod 2 = 0Dx >= y And x < 2 * y第11題圖11有如下VB程序段： For i = 1 To 1000 a = Int(Rnd * 100 + 1) b = Int(Rnd * 100 + 1) x = a + b y = a - b c = Sqr(x) d

5、 = Sqr(y) Next i 調(diào)試時(shí)出現(xiàn)如第11題圖所示的錯(cuò)誤提示，產(chǎn)生此錯(cuò)誤的語句是（ ）Ax = a + bBy = a - bCc = Sqr(x)Dd = Sqr(y)12有如下VB程序段： m = a(10) For i = 9 To 1 step -1 If m > a(i) Then m = a(i)Next i該程序段執(zhí)行后，變量m中存儲(chǔ)的是（ ）Aa(1)至a(10)中的最大值Ba(1)至a(10)中的最小值Ca(2)至a(10)中的最大值Da(2)至a(10)中的最小值13某VB程序段如下： Dim a(1 To 20) As Integer Dim i As I

6、nteger a(1) = 1 For i = 1 To 20 a(i) = a(i - 1) * iNext i運(yùn)行該程序段，首先會(huì)出現(xiàn)的錯(cuò)誤提示為（ ）A下標(biāo)越界B子程序或函數(shù)未定義C要求對(duì)象D溢出14已知文本框?qū)ο骉ext1的Text屬性值發(fā)生改變時(shí)，會(huì)驅(qū)動(dòng)下面事件處理過程 Private Sub Text1_Change() If Val(Text1.Text) < 500 Then Text1.Text = Text1.Text + "2" End Sub開始時(shí)，在Text1中輸入6，Text1最后顯示值是（ ）A622B2222C62D22615. 某VB

7、程序的代碼如下：Private Sub Command1_Click()a=Val(Text1.Text)b=Val(Text2.Text)s=a*bLabel1.Cap=Str(s) End Sub運(yùn)行程序，單擊命令按鈕Command1后彈出圖中所示出錯(cuò)信息提示，引起該錯(cuò)誤的語句是（ ）A a=Val(Text1.Text) Bb=Val(Text2.Text) Cs=a*b DLabel1.Cap=Str(s)16. 下列V B表達(dá)式中，值為字符串型的是 ( )str(x) Text1.text Label1.Height Chr(x) Asc(x)ABCD17下列能計(jì)算Sum = 1 +

8、 2 / 3 + 3 / 5 + + 50 / 99的VB程序段是（ ）ASum = 1 For i = 1 To 49 Sum = Sum + i / (2 * i - 1) Next iBSum = 0 For i = 1 To 99 Sum = i / (2 * i - 1) Next iCSum= 0 i = 1 Do While i <= 50 Sum = Sum + i / (2 * i - 1) i = i + 1 LoopDSum= 0 i = 1 Do While i <= 50 Sum = Sum + i / (2 * i - 1) Loop18對(duì)稱字符串的特征

9、是從左到右讀和從右到左讀完全一樣的。如“abba”是對(duì)稱的，“abcba”也是對(duì)稱的。判斷字符串是否對(duì)稱的VB程序段如下:Dim n As Integer, i As Integer, j As Integer, k As IntegerDim s As String, c1 As String, c2 As Strings = Text1.Textn=Len(s)k=0:j=nFor i = 1 To n/2Next iIf k = 0 Then Label1.Caption ="對(duì)稱" Else Label1.Caption= "不對(duì)稱"方框中的代碼

10、由以下三部分組成： j = j - 1 If c1<>c2 Then k = k + 1 c1= Mid(s,i,1) : c2 = Mid(s,j,1)代碼順序正確的選項(xiàng)是ABCD19某數(shù)列前三項(xiàng)分別為：a1 = 2、a2 = 3、a3 = 4，以后每項(xiàng)都滿足：ak = ak-3 + ak-1 （k>3）,如果用數(shù)組a存儲(chǔ)該數(shù)列的前10項(xiàng)，請(qǐng)你完善該程序段，并輸出結(jié)果（ ）Dim a(10) As Integer, k As Integer a(1) = 2 : a(2) = 3 : a(3) = 4 For k = _ To 10 a(k) = a(k - 3) + a(

11、k - 1)Next kPrint a(10)A4 60B3 41C5 11D4 1120以下VB程序的功能是：計(jì)算表達(dá)式1×2×3×4×5×6×7×8×9×10的值，并在文本框Text1中輸出結(jié)果。為了實(shí)現(xiàn)這一功能，下面程序段劃線處應(yīng)填入（ ）Private Sub Command1_Click()Dim i As Integer,sum As Long_For i = 1 To 10 sum = sum * iNext iText1.Text=Str(sum)End SubAi=0Bi=1Csum=0

12、Dsum=1二、綜合題（本大題共10小題，每小題4分，共40分）21 表達(dá)式表述與其計(jì)算（共4分）（1）計(jì)算9 + 13 5 * 11 / 4 Mod 5的值：（2分）（2），該VB表達(dá)式修正為：（2分）22下列VB程序運(yùn)行時(shí)，在文本框Text1中輸入“Basic”，單擊命令按鈕Command1后，文本框Text2中顯示的容是。（4分）Private Sub Command1_Click() Dim i As Integer, n As Integer Dim s1 As String, s2 As String, c As String s1 = Text1.Text s2 = "

13、" n = Len(s1) For i = 1 To n c = Mid(s1, i, 1) s2 = c + s2 Next i Text2.Text = s2End Sub23為使左、右框的VB程序段能實(shí)現(xiàn)一樣的功能：（共4分）Private Sub Command1_Click() Dim i As Integer, s As Long s = 0 For i = 1 To 50 s = s + 2 * i - 1 Next i Text1.Text = Str(s)End SubPrivate Sub Command1_Click() s = 0: t = 1 Do Whil

14、e _'（2分） s = s + t t = _ '（2分） Loop Text1.Text = Str(s)End Sub右框劃線處的容可以是、。24有VB程序段如下：（4分）Dim i As Integer, j As Integer, k As String, n As Integern = 3 List1. Clear For i = 1 To nk =""For j = 2 * i - 1 To 1 Step -2k = k + " * "Next jList1. AddItem k Next i該程序段運(yùn)行后，請(qǐng)?jiān)谙旅娣娇驅(qū)懗?/p>

15、列表框List1中顯示的容。25有VB程序段如下：（4分） Dim a(1 To 10) As IntegerDim k As Integer, i As Integer, c As Integer a(1) = 2: a(2) = 11: a(3) = 7: a(4) = 14: a(5) = 25 c = 0 For i = 6 To 10 If a(i - 3) + a(i - 2) <= a(i - 1) * 2 Then c = c + 1 a(i) = (a(i - 3) + a(i - 1) 2 Next i Text1.Text = Str(a(10) & &qu

16、ot; ：" & Str(c)該程序段運(yùn)行后，請(qǐng)?jiān)谙旅娣娇驅(qū)懗鑫谋究騎ext1中顯示的容。（4分）26下面程序的功能是：找出n以的被3整除同時(shí)被5整除的奇數(shù)，將符合條件的這些整數(shù)累加到sum中，在文本框Text1中輸入n的值（n為正整數(shù)），輸出sum結(jié)果。（共4分）Private Sub Command1_Click() Dim sum As Long, i As Integer, n As Integer sum = 0 n = Val(Text1.Text)For i = 1 To n _ '（2分）If _ '（2分） Next iPrint sumEn

17、d Sub27一個(gè)十進(jìn)制整數(shù)的二進(jìn)制表示中，如果數(shù)字“1”的個(gè)數(shù)多于數(shù)字“0”的個(gè)數(shù)，則稱該整數(shù)為A類數(shù)。如十進(jìn)制整數(shù)26的二進(jìn)制表示為11010，26是一個(gè)A類數(shù)。下列VB程序的功能是：統(tǒng)計(jì)前1000個(gè)自然數(shù)中A類數(shù)的個(gè)數(shù)，并在文本框中輸出。請(qǐng)?jiān)趧澗€處填入合適代碼。（共4分）Private Sub Command1_Click() Dim i As Integer, n As Integer Dim s As Integer, t As Integer, k As Integer s = 0 For i = 1 To 1000 n = i t = 0 k = 0 Do While n >

18、; 0 If n Mod 2 = 1 Then t = t + 1 Else k = '（2分） n = n 2 Loop If Then s = s + 1 '（2分） Next i Text1.Text = Str(s)End Sub28. 有VB程序段，Command1的事件處理過程如下（4分） Private Sub Command1_Click()Dim s As Integer, i As Integer ,n As Integers=0n=Val（Text1.Text）For i 5 To 1 Step -2 s= s+nNext iText1.Text= Str

19、(s）End Sub程序運(yùn)行時(shí)在文本框Text1中輸入7，連續(xù)單擊兩次Command1按鈕后。在文本框Text1中的容為（4分）29. 有VB程序段如下：（4分）Private Sub Command1_Click()Dim i As Integer , a As Integer, b As Integera=0: b=0For i 0 To 350 Step 3If i Mod 3=0 Thena= a+ib= b+1End IfNext iLabel1.Caption= Str(a） Label2.Caption= Str(b）End Sub程序運(yùn)行時(shí)，單擊按鈕Command1后，在標(biāo)簽L

20、abel1中顯示的容是，（2分）Label2中顯示的容是（2分）30二進(jìn)制轉(zhuǎn)換為十進(jìn)制可采用按權(quán)展開相加法：如：(1101)2=1×23+1×22+0×21+1×20=(13)10現(xiàn)用VB編寫一個(gè)轉(zhuǎn)換程序，功能如下：在文本框Text1中輸入二進(jìn)制編碼，單擊“轉(zhuǎn)換”按鈕Command1，程序?qū)淖蟮接乙来稳〕龆M(jìn)制數(shù)字字符，同時(shí)將該字符轉(zhuǎn)換為數(shù)值，并乘以相應(yīng)的權(quán)值后累加求和，最后在標(biāo)簽框Label1中輸出轉(zhuǎn)換后的十進(jìn)制數(shù)值。程序運(yùn)行效果如右圖所示。（共4分）Private Sub Command1_Click() Dim code2 As String &

21、#39;存放二進(jìn)制 Dim code10 As Long '存放十進(jìn)制 Dim changdu As Integer, bit As Integer, i As Integer code2 = Text1.Text code10 = 0 changdu = '（2分） For i = 1 To changdu bit = '（2分） code10 = code10 + bit * Val(Mid(code2, i, 1) Next i Label1.Caption = Str(code10)End SubVB模塊基礎(chǔ)檢測(cè)答案參考（高一）一、選擇題（本大題共20小題，每小題3分，共60分）每小題4個(gè)選項(xiàng)中只