《浙江省信息技术学考VB模块基础检测(附参考答案).pdf》由会员分享，可在线阅读，更多相关《浙江省信息技术学考VB模块基础检测(附参考答案).pdf（8页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、最新资料推荐 1/81/81/8第 1 页 共 8 页 VB 模块基础检测（高一）班级 姓名 分数 一、选择题（本大题共 20 小题，每小题 3 分，共 60 分）每小题 4 个选项中只有一个符合题目要求，不选、错选、多选均不得分。请将选项直接写在各小题相应位置。1某算法的自然语言描述与流程图表示分别如下：则流程图中空白处理框和处应填入的是（）A y x2 1 x 2x 1 B y x2 1 y 2x 1 C y 2x 1 y x2 1 D x x2 1 y 2x 1 2字符串变量 a 的值为“Hello,world!”，下列 VB 表达式的值是“world”的是（）ALen(a)BMid(a
2、,6,5)CMid(a,7,4)DMid(a,7,5)3产生-20，20 范围内某一随机整数的表达式是（）AInt(Rnd*41)BInt(Rnd*41)-20 CInt(40*Rnd)-20 DInt(-40*Rnd)+20 4在 VB 中，若 a=4，b=3，语句 If a b Then a=a-2 Else b=b+1 执行后，下列说法正确的是（）A执行了语句 a=a-2 B先执行 a=a-2，再执行 c=b+1 C执行了语句 b=b+1 D先执行 b=b+1，再执行 a=a-2 5数学表达式 1 b 100 写成 VB 表达式，正确的是（）A1=b=100 B1 b 100 C1=b
3、And b=100 D1=b Or b=100 6在 VB 代码编辑窗口中，输入了“List1.”后出现了如第 6 题图所示的信息，其中的“Clear”是 List1 的（）A属性名 B事件名 C对象名 D方法 7 在 VB 数组说明语句 Dim a(11)As Single 中，数组 a 的元素个数是（）A0 B12 C1 D11 8下列 VB 表达式的值等于 100 的是（）AVal(96)+4 BLen(40)+60 CSqr(81)+19 DStr(20)+80 第 6 题图 第 1 步：输入一个实数 x 第 2 步：判断 x 与 0 的大小关系，若 x0，则 y=x2-1，否则 y=
4、2x-1 第 3 步：输出 y 第 4 步：结束 最新资料推荐 2/82/82/8第 2 页 共 8 页 9若 x 为正整数，同时能被 5 整除，则下列 VB 表达式的值一定为真的是（）Ax/5=0 Bx Mod 5=0 CInt(x 5)=0 D5 Mod x=0 10若 x、y 都是正整数，且关系表达式 x y=1 为真，则下列 VB 表达式值一定为真的是（）Ax Mod y=0 Bx=y And x a(i)Then m=a(i)Next i 该程序段执行后，变量 m 中存储的是（）Aa(1)至 a(10)中的最大值 Ba(1)至 a(10)中的最小值 Ca(2)至 a(10)中的最大值
5、 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 Then Text1.Text=Text1.Text+2 End Sub 开始时，在 Te
6、xt1 中输入 6，Text1 最后显示值是（）A622 B2222 C62 D226 第 11 题图 最新资料推荐 3/83/83/8第 3 页 共 8 页 15.某 VB 程序的代码如下：Private Sub Command1_Click()a=Val(Text1.Text)b=Val(Text2.Text)s=a*b Label1.Cap=Str(s)End Sub 运行程序，单击命令按钮 Command1 后弹出图中所示出错信息提示，引起该错误的语句是（）Aa=Val(Text1.Text)Bb=Val(Text2.Text)Cs=a*b DLabel1.Cap=Str(s)16.下
7、列 V B 表达式中，值为字符串型的是()str(x)Text1.text Label1.Height Chr(x)Asc(x)A B C D 17下列能计算 Sum=1+2/3+3/5+50/99 的 VB 程序段是（）ASum=1 For i=1 To 49 Sum=Sum+i/(2*i-1)Next i BSum=0 For i=1 To 99 Sum=i/(2*i-1)Next i CSum=0 i=1 Do While i=50 Sum=Sum+i/(2*i-1)i=i+1 Loop DSum=0 i=1 Do While i=50 Sum=Sum+i/(2*i-1)Loop 18对
8、称字符串的特征是从左到右读和从右到左读完全一样的。如“abba”是对称的，“abcba”也是对称的。判断字符串是否对称的 VB 程序段如下:Dim n As Integer,i As Integer,j As Integer,k As Integer Dim s As String,c1 As String,c2 As String s=Text1.Text n=Len(s)k=0:j=n For i=1 To n/2 Next i If k=0 Then Label1.Caption=对称 Else Label1.Caption=不对称 方框中的代码由以下三部分组成：j=j-1 If c1
9、c2 Then k=k+1 c1=Mid(s,i,1):c2=Mid(s,j,1)代码顺序正确的选项是 A B C D 最新资料推荐 4/84/84/8第 4 页 共 8 页 19某数列前三项分别为：a1=2、a2=3、a3=4，以后每项都满足：ak=ak-3+ak-1（k3）,如果用数组 a 存储该数列的前 10 项，请你完善该程序段，并输出结果（）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 k Print a(10)A4 60 B3 41 C5 11 D
10、4 11 20以下 VB 程序的功能是：计算表达式 12345678910 的值，并在文本框 Text1 中输出结果。为了实现这一功能，下面程序段划线处应填入（）Private Sub Command1_Click()Dim i As Integer,sum As Long _ For i=1 To 10 sum=sum*i Next i Text1.Text=Str(sum)End Sub Ai=0 Bi=1 Csum=0 Dsum=1 二、综合题（本大题共 10 小题，每小题 4 分，共 40 分）21表达式表述及其计算（共 4 分）（1）计算 9+13 5*11/4 Mod 5 的值：（
11、2 分）（2）aacbsqrb2)*42(，该 VB 表达式修正为：（2 分）22下列 VB 程序运行时，在文本框 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=n=Len(s1)For i=1 To n c=Mid(s1,i,1)s2=c+s2 Next i Text2.Text=s2 En
12、d Sub 最新资料推荐 5/85/85/8第 5 页 共 8 页 23为使左、右框内的 VB 程序段能实现相同的功能：（共 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 Sub Private Sub Command1_Click()s=0:t=1 Do While _（2 分）s=s+t t=_ （2 分）Loop Text1.Text=Str(s)End Sub 右框内划线处的内容可以是 、。24有 VB
13、程序段如下：（4 分）Dim i As Integer,j As Integer,k As String,n As Integer n=3 List1.Clear For i=1 To n k=For j=2*i-1 To 1 Step-2 k=k+*Next j List1.AddItem k Next i 该程序段运行后，请在下面方框内写出列表框 List1 中显示的内容。25有 VB 程序段如下：（4 分）Dim a(1 To 10)As Integer Dim k As Integer,i As Integer,c As Integer a(1)=2:a(2)=11:a(3)=7:a(
14、4)=14:a(5)=25 c=0 For i=6 To 10 If a(i-3)+a(i-2)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 Sub 28.有 VB 程序段，Command1 的事件处理过程如下（4 分）Private Sub Command1_Click()Dim s As Integer,i As Integer,n As Integer s=0 n=Val（Text1.Text）For i 5 To 1 Step-2 s=s+n
15、 Next i Text1.Text=Str(s）End Sub 程序运行时在文本框 Text1 中输入 7，连续单击两次 Command1 按钮后。在文本框 Text1 中的内容为 （4 分）最新资料推荐 7/87/87/8第 7 页 共 8 页 29.有 VB 程序段如下：（4 分）Private Sub Command1_Click()Dim i As Integer,a As Integer,b As Integer a=0:b=0 For i 0 To 350 Step 3 If i Mod 3=0 Then a=a+i b=b+1 End If Next i Label1.Capt
16、ion=Str(a）Label2.Caption=Str(b）End Sub 程序运行时，单击按钮 Command1 后，在标签 Label1 中显示的内容是 ，（2 分）Label2 中显示的内容是 （2 分）30二进制转换为十进制可采用按权展开相加法：如：(1101)2=123+122+021+120=(13)10 现用 VB 编写一个转换程序，功能如下：在文本框 Text1 中输入二进制编码，单击“转换”按钮 Command1，程序将从左到右依次取出二进制数字字符，同时将该字符转换为数值，并乘以相应的权值后累加求和，最后在标签框 Label1 中输出转换后的十进制数值。程序运行效果如右图
17、所示。（共 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 最新资料推荐 8/88/88/8
18、第 8 页 共 8 页 VB 模块基础检测答案参考（高一）一、选择题（本大题共 20 小题，每小题 3 分，共 60 分）每小题 4 个选项中只有一个符合题目要求，不选、错选、多选均不得分。请将选项直接写在各小题相应位置。1 2 3 4 5 6 7 8 9 10 B D B A C D B A B D 11 12 13 14 15 16 17 18 19 20 D B A A D B C C A D 二、综合题（本大题共 10 小题，每小题 4 分，共 40 分）21.（1）9 （2）(-b+sqr(b2-4*a*c)/(2*a)没有其他不同答案，注意乘号写错不给分，分母括号没写不给分。22.cisaB 23.（1）t=99(或 t 0 And i Mod 15=0 Then sum=sum+i）（或 i Mod 2=1 And i Mod 3=0 And i Mod 5=0 Then sum=sum+i）（或 i Mod 2 0 And i Mod 3=0 And i Mod 5=0 Then sum=sum+i）27.（1）k=k+1 （2）t k（或 k t）28.63 29.（1）20358 （2）117 30.（1）len(code2)（2）2 (changdu-i)