资源简介 登录二一教育在线组卷平台 助您教考全无忧内蒙古自治区巴彦淖尔市临河区第三高级中学2022届高三上学期信息技术期中考试(计算机班)VB试卷一、单项选择题(每小题2分,共40分)1.(2021高三上·临河期中)以下能在窗体Form1的标题栏中显示“VisualBasic窗体"的语句是( )。A.Form1.Name ="VisualBasic窗体" B.Form1.Title="VisualBasic窗体"C.Form1.Caption="VisualBasic窗体" D.Form1.Text="VisualBasic窗体”【答案】C【知识点】类、对象、属性、方法、事件和事件处理的概念及应用2.(2021高三上·临河期中)在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click( )Move 500,500End Sub程序运行后,单击命令按钮,执行的操作为( )。A.命令按钮移动到距窗体左边界、上边界各500的位置B.窗体移动到距屏幕左边界、上边界各 500的位置C.命令按钮向左、上方向各移动500D.窗体向左、上方向各移动500【答案】B【知识点】类、对象、属性、方法、事件和事件处理的概念及应用3.(2021高三上·临河期中)在窗体上有若干控件,其中有一个名称为Text1的文本框。影响Text1的Tab顺序的属性是( )。A.TabStop B.Enabled C.Visible D.Tabindex【答案】D【知识点】类、对象、属性、方法、事件和事件处理的概念及应用4.(2021高三上·临河期中)在窗体上画一个名称为List1的列表框,为了对列表框中的每个项目都能进行处理,应使用的循环语句为( )。A.For i=0 To List1.ListCount-1.....NextB.For i=0 To ListCount-1.....NextC.For i=1 To List1.listCount.....NextD.For i=1 To ListCount.....Next【答案】A【知识点】循环结构语句及程序实现5.(2021高三上·临河期中)以下Case语句中错误的是( )A.Case 0 To10 B.Case is>10C.Case is>10 And is<50 D.Case 3,5, is>10【答案】C【知识点】分支结构语句及程序实现6.(2021高三上·临河期中)以下关于图片框控件的说法中,错误的是( )A.可以通过Print方法在图片框中输出文本B.清空图片框控件中图形的方法之一是加载一个空图形C.图片框控件可以作为容器使用D.用Stretch属性可以自动调整图片框中图形的大小【答案】D【知识点】程序设计工具及编程环境7.(2021高三上·临河期中)执行语句s=Len(Mid("VisualBasic",1,6,)后,s的值是( )。A.Visual B.Basic C.6 D.11【答案】C【知识点】常用标准函数8.(2021高三上·临河期中)当一个复选框被选中时,它的Value属性的值是( )A.3 B.2 C.1 D.0【答案】C【知识点】类、对象、属性、方法、事件和事件处理的概念及应用9.(2021高三上·临河期中)以下关于函数过程的叙述中,正确的是( )A.函数过程形参的类型与函数返回值的类型没有关系B.在函数过程中,过程的返回值可以有多个C.当数组作为函数过程的参数时,既能以传值方式传递,也能以传址方式传递D.如果不指明函数过程参数的类型,则该参数没有数据类型【答案】A【知识点】过程与自定义函数10.(2021高三上·临河期中)确定一个控件在窗体上的位置的属性是( )A.Width和Height B.Width 或HeightC.Top和Left D.Top或Left【答案】C【知识点】类、对象、属性、方法、事件和事件处理的概念及应用11.(2021高三上·临河期中)在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程Private Sub Command1 _Click()Text1.Text = "Visual"Me.Text1= "Basic"Text1 = "Program"End Sub程序运行后,如果单击命令按钮,则在文本框中显示的是( )A.Visual B.Basic C.Program D.出错【答案】C【知识点】类、对象、属性、方法、事件和事件处理的概念及应用;顺序结构及程序实现12.(2021高三上·临河期中)以下关系表达式中,其值为False 的是( )A."ABC">"AbC" B."the"<>"they"C."VISUAL"=UCase("Visual") D."Integer">"Int"【答案】A【知识点】运算符、基本运算与表达式13.(2021高三上·临河期中)语句Print 5/4*6\5 Mod 2的输出结果是( )A.0 B.1 C.2 D.3【答案】B【知识点】运算符、基本运算与表达式14.(2021高三上·临河期中)在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为Text1、Label1和Command1,然后编写如下两个事件过程:Private Sub Command1_Click( )strText = InputBox("请输入")Text1.Text = strTextEnd SubPrivate Sub Text1_Change()Label1.Caption = Right(Trim(Text1.Text), 3)End Sub程序运行后,单击命令按钮,如果在输入对话框中输入abcdef,则在标签中显示的内容是( )A.空 B.abedef C.abc D.def【答案】D【知识点】类、对象、属性、方法、事件和事件处理的概念及应用15.(2021高三上·临河期中)在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_ Click()x=-5If Sgn(x) Theny= Sgn(x^2)Elsey= Sgn(x)End IfPrint yEnd Sub程序运行后,单击命令按钮,窗体上显示的是( )A.-5 B.25 C. 1 D.-1【答案】C【知识点】分支结构语句及程序实现16.(2021高三上·临河期中)在窗体上画一个命令按钮(其NAME属性为Command1),然后编写如下代码Option Base 1Private Sub Command1_Click()Dim as= 0a= Array(1,2,3,4)j=1For i= 4 To 1 Step -1s=s+a(i)*jj=j* 10Next iPrint sEnd Sub运行上面的程序,单击命令按钮,其输出结果是( )A.4321 B.1234 C.34 D.12【答案】B【知识点】循环结构语句及程序实现17.(2021高三上·临河期中)在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写如下事件过程:Private Sub Command1_Click()n = Val(Text1.Text)For i=2 To nFor j= 2 To sqr(i)If i Mod j=0 Then Exit ForNext jIf j>Sqr(i) Then Print iNext iEnd Sub该事件过程的功能是( )A.输出n以内的奇数 B.输出n以内的偶数C.输出n以内的素数 D.输出n以内能被j整除的数【答案】C【知识点】分支结构语句及程序实现;循环结构语句及程序实现18.(2021高三上·临河期中)在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编如事件过程:Private Sub Command1_Click()Dim array1(10, 10) As integerDim i As integer, j As integerFor i= 1 To 4For j= 2 To 5Array1(i, j)=i+jNext jNext iText1.Text = array1(2, 5) + array1(3, 4)End Sub程序运行后,单击命令按钮,在文本框中显示的值是( )A.15 B.14 C.13 D.12【答案】B【知识点】循环结构语句及程序实现19.(2021高三上·临河期中)以下程序的运行结果是( )Private Sub Form_Click( )a= 1: b= 1Print"A="; a; "B="; bCall mult(a, b)Print"A=";a; "B=";bEnd SubSub mult(x, y)x=2* xy=3*yEnd SubA.A=1 B=1A=1 B=1B.A=1 B=1A=1 B=3C.A=1 B=1A=2 B=3D.A=1 B=1A=2 B=1【答案】C【知识点】常量、变量及变量的赋值;顺序结构及程序实现20.(2021高三上·临河期中)在VB中设计程序时,能自动被检查出来的错误是( )A.语法错误 B.语法错误和逻辑错误C.运行错误 D.逻辑错误【答案】A【知识点】程序的调试及运行二、填空题(每空1分,共10分)21.(2021高三上·临河期中)产生一个[20,50]范围内的随机数的表达式是 。【答案】Int(31*rnd + 20)【知识点】运算符、基本运算与表达式22.(2021高三上·临河期中)VB中的变量如果没有显示声明其数据类型,则默认为 。【答案】变体型【知识点】常量、变量及变量的赋值23.(2021高三上·临河期中)Visual Basic提供了结构化程序设计的三种基本结构,三种基本结构是 、 和 。【答案】顺序结构;选择结构;循环结构【知识点】算法的控制结构24.(2021高三上·临河期中)根据数组中元素的个数是否可以变化,数组分为 数组和 数组。【答案】静态;动态【知识点】常见数据类型、数组25.(2021高三上·临河期中)如果列表框的ListCount属性为20,则列表框的最后一项的Listindex值为 。【答案】19【知识点】类、对象、属性、方法、事件和事件处理的概念及应用26.(2021高三上·临河期中)在过程调用中,参数的传递可分为 传递和 传递两种方式。【答案】按值;按址【知识点】过程与自定义函数三、程序填空题(每空2分,共50分)27.(2021高三上·临河期中)下面过程max()用于求3个数中的最大值,利用这个过程求5个数中的最大值,请填空。PrivateSub Command1_Click( )Print “5个数34、124、68、73、352的最大值是:”Max1 = max(34,124,68)Max1 = Print Max1EndSubPublicFunction max(ByVal a%,ByVal b%,ByVal c%)If ThenM = aElseM = bEnd IfIf ThenMax = mElse End IfEndFunction【答案】max(max1,73,352);a>b;m>c;Max = C【知识点】分支结构语句及程序实现;常用标准函数28.(2021高三上·临河期中)窗体上有一个图片框Picture1,两个命令按钮Command1和Command2,如图所示。当单击命令按钮Command1时,在图片框中画出正弦函数,当单击命令按钮Command2时,清空图片框中的图像,请填空。Private Sub Command1_Click()Picture1.Scale (-6, 6)-(6, -6)Picture1.DrawWidth = 5For i = -6 To 6 Step 0.0001Picture1. (i, ) End SubPrivate Sub Command2_Click()Picture1. End Sub【答案】Pset;Sin(i);Next i;Cls【知识点】类、对象、属性、方法、事件和事件处理的概念及应用;循环结构语句及程序实现29.(2021高三上·临河期中)编写事件过程并满足以下要求:单击命令按钮1,产生50个[50, 300]随机整数并显示在列表框1中,单击命令按钮2,在列表框2中显示上述随机整数中的所有大于100的数,并在列表框1中删除该数。如图所示。PrivateSub Command1_ Click( )RandomizeFor i= 1 To 50x = List1. Next iEndSubPrivateSub Command2 _Click( )For i= To 0 step -1If ThenList2.AddItem List1. Next iEndSub【答案】int(Rnd*251+50);addItemx;List1.ListCount-1;List1.List(i)>100;List1.List(i);RemoveItem i;End If【知识点】类、对象、属性、方法、事件和事件处理的概念及应用;循环结构语句及程序实现30.(2021高三上·临河期中)以下程序suixian可以判断某个数字是否为水仙花数,所谓“水仙花数”是指一个3位数,其各个数字立方和等于该数本身。PrivateSub Command1_Click( )Dim i As IntegerFor i = 100 to 999 Next iEndSubPublicSub suixian(x As Integer)Dim i%,j%,k%i = j = (x -i * 100)\10k = If Then Print xEndSub【答案】Call suixian(i);x\100;x mod 10;i^3 + j^3 +k^3 = x【知识点】运算符、基本运算与表达式;循环结构语句及程序实现31.(2021高三上·临河期中)用随机数产生50个[10,100]不重复的正整数放入数组,从小到大排序,每行输出10个数。PrivateSub Command1Click()Dim a(1 To 50) As Integer, i%, j%, t%, p%,n%, x%n=0RandomizeDo While n<50x= For i= 1 To nIf Then Exit ForNext iIf i> n Then a(n)=xEnd IfLoopFor i= 1 To 49 For j=i+ 1 To 50If a(p)> a(j) Then Next jt= a(p): a(p) = a(i): a(i)=tNext iFor i= I To 50Print a(i);if Then PrintNext iEndSub【答案】int(Rnd*91+10);x = a(n);n = n +1;p = i;p = j;i mod 10【知识点】排序算法及程序实现;常用标准函数二一教育在线组卷平台(zujuan.21cnjy.com)自动生成 1 / 1登录二一教育在线组卷平台 助您教考全无忧内蒙古自治区巴彦淖尔市临河区第三高级中学2022届高三上学期信息技术期中考试(计算机班)VB试卷一、单项选择题(每小题2分,共40分)1.(2021高三上·临河期中)以下能在窗体Form1的标题栏中显示“VisualBasic窗体"的语句是( )。A.Form1.Name ="VisualBasic窗体" B.Form1.Title="VisualBasic窗体"C.Form1.Caption="VisualBasic窗体" D.Form1.Text="VisualBasic窗体”2.(2021高三上·临河期中)在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click( )Move 500,500End Sub程序运行后,单击命令按钮,执行的操作为( )。A.命令按钮移动到距窗体左边界、上边界各500的位置B.窗体移动到距屏幕左边界、上边界各 500的位置C.命令按钮向左、上方向各移动500D.窗体向左、上方向各移动5003.(2021高三上·临河期中)在窗体上有若干控件,其中有一个名称为Text1的文本框。影响Text1的Tab顺序的属性是( )。A.TabStop B.Enabled C.Visible D.Tabindex4.(2021高三上·临河期中)在窗体上画一个名称为List1的列表框,为了对列表框中的每个项目都能进行处理,应使用的循环语句为( )。A.For i=0 To List1.ListCount-1.....NextB.For i=0 To ListCount-1.....NextC.For i=1 To List1.listCount.....NextD.For i=1 To ListCount.....Next5.(2021高三上·临河期中)以下Case语句中错误的是( )A.Case 0 To10 B.Case is>10C.Case is>10 And is<50 D.Case 3,5, is>106.(2021高三上·临河期中)以下关于图片框控件的说法中,错误的是( )A.可以通过Print方法在图片框中输出文本B.清空图片框控件中图形的方法之一是加载一个空图形C.图片框控件可以作为容器使用D.用Stretch属性可以自动调整图片框中图形的大小7.(2021高三上·临河期中)执行语句s=Len(Mid("VisualBasic",1,6,)后,s的值是( )。A.Visual B.Basic C.6 D.118.(2021高三上·临河期中)当一个复选框被选中时,它的Value属性的值是( )A.3 B.2 C.1 D.09.(2021高三上·临河期中)以下关于函数过程的叙述中,正确的是( )A.函数过程形参的类型与函数返回值的类型没有关系B.在函数过程中,过程的返回值可以有多个C.当数组作为函数过程的参数时,既能以传值方式传递,也能以传址方式传递D.如果不指明函数过程参数的类型,则该参数没有数据类型10.(2021高三上·临河期中)确定一个控件在窗体上的位置的属性是( )A.Width和Height B.Width 或HeightC.Top和Left D.Top或Left11.(2021高三上·临河期中)在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程Private Sub Command1 _Click()Text1.Text = "Visual"Me.Text1= "Basic"Text1 = "Program"End Sub程序运行后,如果单击命令按钮,则在文本框中显示的是( )A.Visual B.Basic C.Program D.出错12.(2021高三上·临河期中)以下关系表达式中,其值为False 的是( )A."ABC">"AbC" B."the"<>"they"C."VISUAL"=UCase("Visual") D."Integer">"Int"13.(2021高三上·临河期中)语句Print 5/4*6\5 Mod 2的输出结果是( )A.0 B.1 C.2 D.314.(2021高三上·临河期中)在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为Text1、Label1和Command1,然后编写如下两个事件过程:Private Sub Command1_Click( )strText = InputBox("请输入")Text1.Text = strTextEnd SubPrivate Sub Text1_Change()Label1.Caption = Right(Trim(Text1.Text), 3)End Sub程序运行后,单击命令按钮,如果在输入对话框中输入abcdef,则在标签中显示的内容是( )A.空 B.abedef C.abc D.def15.(2021高三上·临河期中)在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_ Click()x=-5If Sgn(x) Theny= Sgn(x^2)Elsey= Sgn(x)End IfPrint yEnd Sub程序运行后,单击命令按钮,窗体上显示的是( )A.-5 B.25 C. 1 D.-116.(2021高三上·临河期中)在窗体上画一个命令按钮(其NAME属性为Command1),然后编写如下代码Option Base 1Private Sub Command1_Click()Dim as= 0a= Array(1,2,3,4)j=1For i= 4 To 1 Step -1s=s+a(i)*jj=j* 10Next iPrint sEnd Sub运行上面的程序,单击命令按钮,其输出结果是( )A.4321 B.1234 C.34 D.1217.(2021高三上·临河期中)在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写如下事件过程:Private Sub Command1_Click()n = Val(Text1.Text)For i=2 To nFor j= 2 To sqr(i)If i Mod j=0 Then Exit ForNext jIf j>Sqr(i) Then Print iNext iEnd Sub该事件过程的功能是( )A.输出n以内的奇数 B.输出n以内的偶数C.输出n以内的素数 D.输出n以内能被j整除的数18.(2021高三上·临河期中)在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编如事件过程:Private Sub Command1_Click()Dim array1(10, 10) As integerDim i As integer, j As integerFor i= 1 To 4For j= 2 To 5Array1(i, j)=i+jNext jNext iText1.Text = array1(2, 5) + array1(3, 4)End Sub程序运行后,单击命令按钮,在文本框中显示的值是( )A.15 B.14 C.13 D.1219.(2021高三上·临河期中)以下程序的运行结果是( )Private Sub Form_Click( )a= 1: b= 1Print"A="; a; "B="; bCall mult(a, b)Print"A=";a; "B=";bEnd SubSub mult(x, y)x=2* xy=3*yEnd SubA.A=1 B=1A=1 B=1B.A=1 B=1A=1 B=3C.A=1 B=1A=2 B=3D.A=1 B=1A=2 B=120.(2021高三上·临河期中)在VB中设计程序时,能自动被检查出来的错误是( )A.语法错误 B.语法错误和逻辑错误C.运行错误 D.逻辑错误二、填空题(每空1分,共10分)21.(2021高三上·临河期中)产生一个[20,50]范围内的随机数的表达式是 。22.(2021高三上·临河期中)VB中的变量如果没有显示声明其数据类型,则默认为 。23.(2021高三上·临河期中)Visual Basic提供了结构化程序设计的三种基本结构,三种基本结构是 、 和 。24.(2021高三上·临河期中)根据数组中元素的个数是否可以变化,数组分为 数组和 数组。25.(2021高三上·临河期中)如果列表框的ListCount属性为20,则列表框的最后一项的Listindex值为 。26.(2021高三上·临河期中)在过程调用中,参数的传递可分为 传递和 传递两种方式。三、程序填空题(每空2分,共50分)27.(2021高三上·临河期中)下面过程max()用于求3个数中的最大值,利用这个过程求5个数中的最大值,请填空。PrivateSub Command1_Click( )Print “5个数34、124、68、73、352的最大值是:”Max1 = max(34,124,68)Max1 = Print Max1EndSubPublicFunction max(ByVal a%,ByVal b%,ByVal c%)If ThenM = aElseM = bEnd IfIf ThenMax = mElse End IfEndFunction28.(2021高三上·临河期中)窗体上有一个图片框Picture1,两个命令按钮Command1和Command2,如图所示。当单击命令按钮Command1时,在图片框中画出正弦函数,当单击命令按钮Command2时,清空图片框中的图像,请填空。Private Sub Command1_Click()Picture1.Scale (-6, 6)-(6, -6)Picture1.DrawWidth = 5For i = -6 To 6 Step 0.0001Picture1. (i, ) End SubPrivate Sub Command2_Click()Picture1. End Sub29.(2021高三上·临河期中)编写事件过程并满足以下要求:单击命令按钮1,产生50个[50, 300]随机整数并显示在列表框1中,单击命令按钮2,在列表框2中显示上述随机整数中的所有大于100的数,并在列表框1中删除该数。如图所示。PrivateSub Command1_ Click( )RandomizeFor i= 1 To 50x = List1. Next iEndSubPrivateSub Command2 _Click( )For i= To 0 step -1If ThenList2.AddItem List1. Next iEndSub30.(2021高三上·临河期中)以下程序suixian可以判断某个数字是否为水仙花数,所谓“水仙花数”是指一个3位数,其各个数字立方和等于该数本身。PrivateSub Command1_Click( )Dim i As IntegerFor i = 100 to 999 Next iEndSubPublicSub suixian(x As Integer)Dim i%,j%,k%i = j = (x -i * 100)\10k = If Then Print xEndSub31.(2021高三上·临河期中)用随机数产生50个[10,100]不重复的正整数放入数组,从小到大排序,每行输出10个数。PrivateSub Command1Click()Dim a(1 To 50) As Integer, i%, j%, t%, p%,n%, x%n=0RandomizeDo While n<50x= For i= 1 To nIf Then Exit ForNext iIf i> n Then a(n)=xEnd IfLoopFor i= 1 To 49 For j=i+ 1 To 50If a(p)> a(j) Then Next jt= a(p): a(p) = a(i): a(i)=tNext iFor i= I To 50Print a(i);if Then PrintNext iEndSub答案解析部分1.【答案】C【知识点】类、对象、属性、方法、事件和事件处理的概念及应用2.【答案】B【知识点】类、对象、属性、方法、事件和事件处理的概念及应用3.【答案】D【知识点】类、对象、属性、方法、事件和事件处理的概念及应用4.【答案】A【知识点】循环结构语句及程序实现5.【答案】C【知识点】分支结构语句及程序实现6.【答案】D【知识点】程序设计工具及编程环境7.【答案】C【知识点】常用标准函数8.【答案】C【知识点】类、对象、属性、方法、事件和事件处理的概念及应用9.【答案】A【知识点】过程与自定义函数10.【答案】C【知识点】类、对象、属性、方法、事件和事件处理的概念及应用11.【答案】C【知识点】类、对象、属性、方法、事件和事件处理的概念及应用;顺序结构及程序实现12.【答案】A【知识点】运算符、基本运算与表达式13.【答案】B【知识点】运算符、基本运算与表达式14.【答案】D【知识点】类、对象、属性、方法、事件和事件处理的概念及应用15.【答案】C【知识点】分支结构语句及程序实现16.【答案】B【知识点】循环结构语句及程序实现17.【答案】C【知识点】分支结构语句及程序实现;循环结构语句及程序实现18.【答案】B【知识点】循环结构语句及程序实现19.【答案】C【知识点】常量、变量及变量的赋值;顺序结构及程序实现20.【答案】A【知识点】程序的调试及运行21.【答案】Int(31*rnd + 20)【知识点】运算符、基本运算与表达式22.【答案】变体型【知识点】常量、变量及变量的赋值23.【答案】顺序结构;选择结构;循环结构【知识点】算法的控制结构24.【答案】静态;动态【知识点】常见数据类型、数组25.【答案】19【知识点】类、对象、属性、方法、事件和事件处理的概念及应用26.【答案】按值;按址【知识点】过程与自定义函数27.【答案】max(max1,73,352);a>b;m>c;Max = C【知识点】分支结构语句及程序实现;常用标准函数28.【答案】Pset;Sin(i);Next i;Cls【知识点】类、对象、属性、方法、事件和事件处理的概念及应用;循环结构语句及程序实现29.【答案】int(Rnd*251+50);addItemx;List1.ListCount-1;List1.List(i)>100;List1.List(i);RemoveItem i;End If【知识点】类、对象、属性、方法、事件和事件处理的概念及应用;循环结构语句及程序实现30.【答案】Call suixian(i);x\100;x mod 10;i^3 + j^3 +k^3 = x【知识点】运算符、基本运算与表达式;循环结构语句及程序实现31.【答案】int(Rnd*91+10);x = a(n);n = n +1;p = i;p = j;i mod 10【知识点】排序算法及程序实现;常用标准函数二一教育在线组卷平台(zujuan.21cnjy.com)自动生成 1 / 1 展开更多...... 收起↑ 资源列表 内蒙古自治区巴彦淖尔市临河区第三高级中学2022届高三上学期信息技术期中考试(计算机班)VB试卷(学生版).docx 内蒙古自治区巴彦淖尔市临河区第三高级中学2022届高三上学期信息技术期中考试(计算机班)VB试卷(教师版).docx