浙江省信息技术学考VB模块基础检测(附参考答案)

1、说明：信息技术选考书本算法与程序设计，是当前VB程序模块内容及难度的拓展VB模块基础检测（高一） 班级 姓名 分数 一、选择题（本大题共20小题，每小题3分，共60分）每小题4个选项中只有一个符合题目要求，不选、错选、多选均不得分。请将选项直接写在各小题相应位置。1某算法的自然语言描述与流程图表示分别如下：第1步：输入一个实数x第2步：判断x与0的大小关系，若x0，则y=x2-1，否则y=2x-1第3步：输出y第4步：结束则流程图中空白处理框和处应填入的是（ ）A y x2 1 x 2x 1B y x2 1 y 2x 1C y 2x 1 y x2 1D x x2 1 y 2x 12字符串变量a

2、的值为“Hello,world!”，下列VB表达式的值是“world”的是（ ）ALen(a)BMid(a, 6, 5)CMid(a, 7, 4)DMid(a, 7, 5)3产生-20，20 范围内某一随机整数的表达式是（ ）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执行后，下列说法正确的是（ ）A执行了语句a = a - 2B先执行a = a - 2，再执行c = b

3、 + 1C执行了语句b = b + 1D先执行b = b + 1，再执行a = a - 25数学表达式1 b 100写成VB表达式，正确的是（ ）A1 <= b <= 100B1 b 100C1 <= b And b <= 100D1 <= b Or b <= 100第6题图6在VB代码编辑窗口中，输入了“List1.”后出现了如第6题图所示的信息，其中的“Clear”是List1的（ ）A属性名B事件名C对象名D方法7在VB数组说明语句Dim a(11) As Single中，数组a的元素个数是（ ）A0B12C1D118下列VB表达式的值等于100的是（

4、 ）AVal("96") + 4 BLen("40") + 60 CSqr(81) + 19 DStr(20) + "80"9若x为正整数，同时能被5整除，则下列VB表达式的值一定为真的是（ ）Ax / 5 = 0Bx Mod 5 = 0 CInt(x 5) = 0 D5 Mod x = 010若x、y都是正整数，且关系表达式x y = 1为真，则下列VB表达式值一定为真的是（ ）Ax Mod y = 0Bx < yCx * y Mod 2 = 0Dx >= y And x < 2 * y第11题图11有如下VB程序

5、段： 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 = Sqr(y) Next i 调试时出现如第11题图所示的错误提示，产生此错误的语句是（ ）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该程序段执行后，变量m中存储的是（ ）Aa(1)至a(10)中

6、的最大值Ba(1)至a(10)中的最小值Ca(2)至a(10)中的最大值Da(2)至a(10)中的最小值13某VB程序段如下： Dim a(1 To 20) As Integer Dim i As Integer a(1) = 1 For i = 1 To 20 a(i) = a(i - 1) * i Next i运行该程序段，首先会出现的错误提示为（ ）A下标越界B子程序或函数未定义C要求对象D溢出14已知文本框对象Text1的Text属性值发生改变时，会驱动下面事件处理过程 Private Sub Text1_Change() If Val(Text1.Text) < 500 The

7、n Text1.Text = Text1.Text + "2" End Sub开始时，在Text1中输入6，Text1最后显示值是（ ）A622B2222C62D22615. 某VB程序的代码如下：Private Sub Command1_Click() a=Val(Text1.Text) b=Val(Text2.Text) s=a*b Label1.Cap=Str(s) End Sub运行程序，单击命令按钮Command1后弹出图中所示出错信息提示，引起该错误的语句是（ ）A a=Val(Text1.Text) Bb=Val(Text2.Text) Cs=a*b DLab

8、el1.Cap=Str(s)16. 下列V B表达式中，值为字符串型的是 ( )str(x) Text1.text Label1.Height Chr(x) Asc(x)A BC D17下列能计算Sum = 1 + 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 +

9、 i / (2 * i - 1) i = i + 1 LoopDSum= 0 i = 1 Do While i <= 50 Sum = Sum + i / (2 * i - 1) Loop18对称字符串的特征是从左到右读和从右到左读完全一样的。如“abba”是对称的，“abcba”也是对称的。判断字符串是否对称的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=n

10、For i = 1 To n/2 Next iIf k = 0 Then Label1.Caption ="对称" Else Label1.Caption= "不对称"方框中的代码由以下三部分组成： j = j - 1 If c1 <> c2 Then k = k + 1 c1= Mid(s,i,1) : c2 = Mid(s,j,1)代码顺序正确的选项是ABCD19某数列前三项分别为：a1 = 2、a2 = 3、a3 = 4，以后每项都满足：ak = ak-3 + ak-1 （k>3）,如果用数组a存储该数列的前10项，请你完善该程序

11、段，并输出结果（ ）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(k - 1)Next kPrint a(10)A4 60B3 41C5 11D4 1120以下VB程序的功能是：计算表达式1×2×3×4×5×6×7×8×9×10的值，并在文本框Text1中输出结果。为了实现这一功能，下面程序段划线处应填入（ ）Private Sub Command1

12、_Click()Dim i As Integer,sum As Long_For i = 1 To 10 sum = sum * iNext iText1.Text=Str(sum)End SubAi=0Bi=1Csum=0Dsum=1二、综合题（本大题共10小题，每小题4分，共40分）21 表达式表述及其计算（共4分）（1）计算9 + 13 5 * 11 / 4 Mod 5的值： （2分）（2），该VB表达式修正为： （2分）22下列VB程序运行时，在文本框Text1中输入“Basic”，单击命令按钮Command1后，文本框Text2中显示的内容是 。（4分）Private Sub Com

13、mand1_Click() Dim i As Integer, n As Integer Dim s1 As String, s2 As String, c As String s1 = Text1.Text s2 = "" n = Len(s1) For i = 1 To n c = Mid(s1, i, 1) s2 = c + s2 Next i Text2.Text = s2End Sub23为使左、右框内的VB程序段能实现相同的功能：（共4分）Private Sub Command1_Click() Dim i As Integer, s As Long s = 0

14、 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 While _'（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

15、= 1 To nk =""For j = 2 * i - 1 To 1 Step -2k = k + " * "Next jList1. AddItem k Next i该程序段运行后，请在下面方框内写出列表框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

16、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) & " ：" & Str(c)该程序段运行后，请在下面方框内写出文本框Text1中显示的内容。（4分）26下面程序的功能是：找出n以内的被3整除同时被5整除的奇数，将符合条件的这些整数累加到sum中，在文本框Text1中输入n的值（n为正整数），输出sum结果。（共4分）Private Sub Command1_Click() Dim

17、 sum As Long, i As Integer, n As Integer sum = 0 n = Val(Text1.Text)For i = 1 To n _ '（2分） If _ '（2分） Next i Print sumEnd Sub27一个十进制整数的二进制表示中，如果数字“1”的个数多于数字“0”的个数，则称该整数为A类数。如十进制整数26的二进制表示为11010，26是一个A类数。下列VB程序的功能是：统计前1000个自然数中A类数的个数，并在文本框中输出。请在划线处填入合适代码。（共4分）Private Sub Command1_Click() Dim

18、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 > 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

19、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(s）End Sub程序运行时在文本框Text1中输入7，连续单击两次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

20、To 350 Step 3 If i Mod 3=0 Then a= a+i b= b+1 End IfNext iLabel1.Caption= Str(a） Label2.Caption= Str(b）End Sub程序运行时，单击按钮Command1后，在标签Label1中显示的内容是 ，（2分）Label2中显示的内容是 （2分）30二进制转换为十进制可采用按权展开相加法：如：(1101)2=1×23+1×22+0×21+1×20=(13)10现用VB编写一个转换程序，功能如下：在文本框Text1中输入二进制编码，单击“转换”按钮Command1

21、，程序将从左到右依次取出二进制数字字符，同时将该字符转换为数值，并乘以相应的权值后累加求和，最后在标签框Label1中输出转换后的十进制数值。程序运行效果如右图所示。（共4分）Private Sub Command1_Click() Dim code2 As String '存放二进制 Dim code10 As Long '存放十进制 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 Sub VB模块基础检测答案参考（高一）一、选择题（本大题共20小题，每小题3分，共60分）每小题