高中信息技术-VB排序算法与程序实现-浏览题阅览题-会考复习题
高中信息技术-VB枚举算法与程序实现-浏览题阅览题-会考复习题
高中信息技术VB枚举算法与程序实现浏览题阅览题会考复习题学校:___________姓名：___________班级：___________考号：___________一、选择题1．使用枚举法解决问题，在列举问题的可能解的过程中（）A．可以遗漏，但不应重复B．不能遗漏，也不应重复。
C．可以重复，但不应遗漏。
可以遗漏，也可以重复。
【答案】B【解析】2．有如下VB程序段m=a(1)For i=2 to 100If a(i) > m then m=a(i)Next i该程序段执行后，变量m中存储的是( )A．累加值B．计数值C．a(1)至a(100)中的最大值D．最小值【答案】C【解析】3．读程序，写出下列程序的输出结果55、s = 1For j = 100 To -100 Step -1s = s * jNext jMsgBox (s)上述程序段中s = s*j 的执行次数是( )【答案】D【解析】4．统计1～1 000间个位数是4，且能被9整除的数共有多少个，可以采用的算法是( ) A．查找算法B．枚举算法C．解析算法D．排序算法【答案】B【解析】5．在游戏中经常有开数字密码锁得场景，已知一个6位数的密码锁，正确的数字顺序组合是由下面一组数字426815经过两次冒泡排序得到，请问开锁的正确数字组合可能是（）。
A．864251 B．842651 C．126845 D．124685【答案】A【解析】6．某食品连锁店5位顾客贵宾消费卡的积分依次为810，512，613，700，900。
采用选择排序算法对其排序，若完成第一遍时的结果为：512，810，613，700，900，则完成第二遍的结果是( )A．512，613，700，900，810B．512，810，613，900，700C．512，900，613，700，810D．512，613，810，700，900【答案】D【解析】7．模拟剪刀石头布的游戏，骰子是一个正六面体，用1~3这3个数分别代表剪刀、石头、布这三种情况，使用RND随机函数可以表示为（）A．INT（RND（3）+1）B．INT（RND*2+1）C．INT（RND（2）+1）D．INT（RND*3+1）【答案】D【解析】8．三个正整数a、b、c满足等式a2+b2=c2，a、b、c称为“勾股数”，求出100以内所A．枚举算法B．解析算法C．冒泡排序D．顺序查找【答案】A【解析】9．有如下VB程序:Dim i As Integer, j As Integer, k As string, n As Integern = 3List1.ClearFor i=1 To nk =″″For j=1 To ik = k+″*″Next jList1.AddItem kNext i该程序运行后, 在列表框List中显示的是( )A．B．C．D．【答案】A【解析】10．关于枚举算法的说法错误的是( )A．一般是通过循环中嵌套分支结构来实现的。
高中会考信息技术vb试题及答案
高中会考信息技术vb试题及答案1. 单选题：在VB中，下面哪个关键字用于声明变量？A. DimB. SubC. FunctionD. End答案：A2. 判断题：VB中的所有变量都必须在使用前声明。
答案：正确3. 填空题：在VB中，使用_________语句可以结束程序的执行。
答案：End4. 简答题：请描述VB中事件驱动编程的概念。
答案：事件驱动编程是一种编程范式，其中程序的执行流程由外部事件（如用户输入、系统消息等）触发。
在VB中，程序通常在响应事件（如按钮点击、鼠标移动等）时执行代码，而不是按照预先定义的顺序执行。
5. 编程题：编写一个VB程序，实现输入两个整数，输出它们的和。
答案：```vbDim num1 As IntegerDim num2 As IntegerDim sum As Integernum1 = Val(InputBox("请输入第一个整数："))num2 = Val(InputBox("请输入第二个整数："))sum = num1 + num2MsgBox "两个数的和为：" & sum```6. 多选题：在VB中，以下哪些控件可以用于显示文本？A. LabelB. TextBoxC. ComboBoxD. CommandButton答案：A、B7. 填空题：在VB中，使用_________函数可以将字符串转换为整数。
答案：Val8. 简答题：请解释VB中的数组是什么，并给出一个创建数组的示例。
答案：数组是一组相同数据类型的元素的集合，它们在内存中连续存储。
数组可以用于存储和处理多个数据项。
创建数组的示例：```vbDim numbers(4) As Integernumbers(0) = 10numbers(1) = 20numbers(2) = 30numbers(3) = 40numbers(4) = 50```9. 编程题：编写一个VB程序，实现输入一个字符串，然后输出该字符串的逆序。
高中信息技术 VB赋值语句 浏览题阅览题 会考复习题
高中信息技术VB赋值语句浏览题阅览题会考复习题学校:___________姓名：___________班级：___________考号：___________一、选择题1．数组排序。
点击“产生随机数”按钮，让计算机随机产生10个整数，并对这10个整数进行标号，再点击“排序”按钮，对这10个整数进行从大到小排序。
如图所示。
程序代码如下：Dim a(1 To 10) As IntegerDim i, j, k, kt As IntegerPrivate Sub Command1_Click()List1.Clear'清除列表框数据For i ＝1 To 10Randomize'随机数初始化a(i) ＝Int(Rnd() * 1000)List1.AddItem Str(i) ＋”＝” ＋Str(a(i))Next iCommand2.Enabled ＝True'激活排序按钮End SubPrivate Sub Command2_Click()For i ＝1 To 9k ＝iFor j ＝____①____To 10If a(j) > a(k) Then k ＝jNext jIf i <> k Then__②____End IfNext iList2.ClearFor i ＝1 To 10List2.AddItem Str(i) ＋” ＝” ＋Str(a(i))Next iEnd Sub请在①、②划线处填入合适的语句或表达式，把程序补充完整：程序中①划线处应填入__________________；程序中②划线处应填入__________________。
【答案】①I+1；②t=a（k）:a(k)=a(i):a(i)=t【解析】2．执行VB语句s=Mid("abcdefgh",2,3)+chr(66)后，变量s的值为( ) A．"cdB" B．"bcd65" C．"cdA" D．"bcdB"【答案】D【解析】3．在ＶＢ中，有如下程序段，该程序段执行后，变量x的值是x=0for i=1 to 5x=x+i-1next iA．0 B．5 C．15 D．10【答案】D【解析】4．某VB程序功能：输入正整数n,单击命令按钮Command1后，则会衍生出一串有规律的数字，形式为“1 2 3…n-1 n n-1…3 2 1 ”。
高中信息技术VB会考上机程序题汇总
信息技术（选修）☆输入2个数，实现2个数的互换：a=text1.textb=text2.textt=aa=bb=ttext3.text=atext4.text=b☆输入秒数，输出时分秒：a=text1.texth=a\3600 …计算小时部分m=(a-3600*h) \60 或m=(a mod 3600) \60…计算分钟部分s=a mod 60 …计算秒部分text2.text=h & “小时” & m & “分” & m & “秒”☆输入一个年份，判断是否是闰年：Y=text1.textIf (y mod 4=0 and y mod 100<>0 ) or y mod 400=0 thenText2.text=”是闰年”ElseText2.text=”非闰年”End if☆求S=1+2+3+……+NN=text1.textS=0For i=1 To NS=S+iNext iPrint “S=”;S☆求S=1+3+5+……+(2*N -1 )N=text1.textS=0For i=1 To (2*N -1) step 2S=S+iNext iPrint “S=”;S 程序题汇总☆求S=1-2+3-4……+NN=text1.textS=0For i=1 To NS=S+I *（-1）^ ( i+1 )Next iPrint “S=”;S☆求S=1+1/2+1/3+……+1/NN=text1.textS=0For i=1 To NS=S+ 1/ iNext iPrint “S=”;S☆求S=1/2+2/3+3/4……+N/(N+1)N=text1.textS=0For i=1 To NS=S+ i/ (i+1)Next iPrint “S=”;S☆输入三角形三边，判断能否构成三角形，如可以则输出面积，否则输出“不能构成三角形“，设三边是a,b,c，q=(a+b+c)/2，则面积s=sqr （q*(q-a)(q-b)(q-c)）：a=text1.textb=text2.textc=text3.textq=(a+b+c)/2if (a+b)>c and (b+c)>a and (a+c)>b thens=sqr（q*(q-a)(q-b)(q-c)）text4.text = “三角形面积是” & selsetext4.text = “不能构成三角形”end if☆统计100以内能被3整除的数的个数：Dim n as integern=0For i=1 to 100If i mod 3 = 0 thenn=n+1 …n当作计数器，符合条件就+1 end ifnext iprint n☆输入5个数，输出其中的最大值：Max=inputbox(“输入一个数”)For i=1 to 4x=inputbox(“输入一个数”)If max<x thenMax=xEnd ifNext i☆输出以下图形：***************For i=1 To 5‘控制行for j=1 to i‘控制列Print “ * ” ;Next jPrint …换行Next i☆输出九九乘法表：For i=1 To 9 ‘控制行for j=1 to i‘控制列Print i & “×” & j & “ = ” & i*j & “” ; Next jPrint …换行Next i ☆输入一个学生的成绩，判断其优（80以上），良（60-80），不及格：Score=Text1.textIf score>=80 thenPrint “优”Elseif score<60 thenPrint “良”ElsePrint “不及格”End ifEnd if☆求5*6*…*25的积Dim I As IntegerDim S As DoubleS = 1For I = 5 to 25 Step 1S = S * INext IPrint "求5*6*…*25的积："; S☆求1011910897867564534232+++++++++的值。
高中信息技术 VB循环语句 浏览题阅览题 会考复习题
高中信息技术VB循环语句浏览题阅览题会考复习题学校:___________姓名：___________班级：___________考号：___________一、选择题1．下列程序运行后的运行结果为▁▁▁。
X=8：Y=X：Z=10IF X<=Y THENPRINT X；Y；ELSEIF Z>=X THENPRINT ZEND IFEND IFA．10 8B．8 8C．10 10D．8 10【答案】B【解析】2．数组排序。
点击“产生随机数”按钮，让计算机随机产生10个整数，并对这10个整数进行标号，再点击“排序”按钮，对这10个整数进行从大到小排序。
如图所示。
程序代码如下：Dim a(1 To 10) As IntegerDim i, j, k, kt As IntegerPrivate Sub Command1_Click()List1.Clear'清除列表框数据For i ＝1 To 10Randomize'随机数初始化a(i) ＝Int(Rnd() * 1000)List1.AddItem Str(i) ＋”＝” ＋Str(a(i))Next iCommand2.Enabled ＝True'激活排序按钮End SubPrivate Sub Command2_Click()For i ＝1 To 9k ＝iFor j ＝____①____To 10If a(j) > a(k) Then k ＝jNext jIf i <> k Then__②____End IfNext iList2.ClearFor i ＝1 To 10List2.AddItem Str(i) ＋” ＝” ＋Str(a(i))Next iEnd Sub请在①、②划线处填入合适的语句或表达式，把程序补充完整：程序中①划线处应填入__________________；程序中②划线处应填入__________________。
高中信息技术-VB查找算法与程序实现-浏览题阅览题-会考复习题
高中信息技术 VB 查找算法与程序实现 浏览题阅览题 会考复习题学校: ___________ 姓名： ___________ 班级： ___________ 考号： ___________数是:【答案】C【解析】查找几次可以找到目标值（C . 3 1 【答案】C 【解析】3.已知有一组数据 2, 3, 6, 9, 10, 17, 22, 25排列，若要对分查找数值 22,需要查找3次, 这3次查找中依次找到的数据是（ ）。
A. 10 17 22 B . 9 10 22 C.10 25 22【答案】D 【解析】4 .定义变量s 表示团购价，则在窗口上显示团购价的语句应该是？（）【答案】A 【解析】评卷人得分选择题3、 6、7、 10、 12、 16、25、30、75中找到数据 10的查找次 A 、2 B 、3 C 、4 D 、72 .有一组数据为 “2 3、5、5、7、 7、8”，利用顺序查找和对分查找查找 5时，则分别A . 3无法使用对分查找B . 4无法使用对分查找D . 4D . 917 22A 、Iabel4.caption=str(s) C 、s=str(label4.caption)B 、label4.text=val(s) D 、s=val(label4.caption)1 .用对分查找法从数列5 •读程序，写出下列程序的输出结果（共6题，每题只有一个正确答案，每题2分，共12分）s = 1For j =" 10" To -10 Step -2s =" s" * jNext jMsgBox （s）上述程序段中s =" s*j"的执行次数是（）A. 20B. 10C. 11D. 21【答案】D【解析】6 .关于对分查找和顺序查找算法的叙述，正确的是（）。
A. 顺序查找需要排序，效率低；对分查找不需要排序，效率高。
B. 顺序查找不需要排序，效率低；对分查找需要排序，效率高。
高中信息技术会考VB算法部分的填空题(2)
高中信息技术会考VB算法部分的填空题（1）算法与程序设计题（第一套）四、程序设计题（本题有4 小题，第1－3 小题，每小题4 分，第4 小题6 分，共18 分）1.有如下Visual Basic 程序段：a = 30b = 20a = b该程序段运行后，变量a 的值为___ _____。
2.有如下Visual Basic 程序段：Dim a As Single, py As Stringa=Val(Text1.Text)If a>0 Then py="正数"If a=0 Then py="零"If a<0 Then py= "负数"Label1.Caption=py在文本框Text1 中输入100，则在Label1 标签上显示的是。
3. 以下Visual Basic 程序的功能是：计算表达式1×2×3×4×5×6×7×8×9×10 的值，并在文本框Text1 中输出结果。
为了实现这一功能，程序中划线处的语句应更正为___________ __。
Private Sub Command1_Click()Dim i As Integer,sum As Long sum = 0For i = 1 To 10sum = sum * iNext iText1.Text=Str(sum)End Sub4.从改革开放以来，浙江省农村家庭的可支配收入逐年增加，近几年每年增长率在9%左右。
小明一家今年的可支配收入是32000 元，按现在的增长率9%计算，小明家几年后可支配收入将达到50000 元？解决此问题的流程图如VB-1 所示。
根据流程图VB-1 编写的Visual Basic 程序如下，在①和②划线处，填入合适的语句或表达式，把程序补充完整。
高中信息技术学业水平考试VB程序复习题
2016年高中信息技术学业水平考试VB程序复习题一、顺序结构程序1.启动VB，打开工程文件“c:\MyExam\VB91.vbp”，完成如下算法设计: [12 分]2013年6月，小李同学参加了一场考试，其中有一道题目是：已知长方体的长为8，宽为5，高为23，求长方体的体积V，小李同学编写出了如下的不完整程序。
请将程序缺失部分“___”补充完整，并将“___”字符删除，正确运行程序后，保存文件并退出VB。
Function func( )Dim A As SingleDim B As SingleDim H As SingleDim V As SingleA=8:B=5:H=23V=________func=”长方体的体积V=” & VEnd Function2. 已知圆柱的底面半径R为6，高H为11，下列程序的功能是计算圆柱的体积V （∏的值取3.14）。
请将程序缺失部分“___”补充完整。
Function func( )Dim R As Single,H As Single,V As Single R=6H=11V=________func=”圆柱体的体积V=” & VEnd Function3.已知圆的半径r是3，计算圆的面积s（∏的值取3.14），小李同学编写出了如下的不完整程序。
请将程序缺失部分“___”补充完整。
Function func( )Dim r As SingleDim s As Singler=3s=________func=”圆的面积s=” & sEnd Function4. 2013年6月，小李同学参加了一场考试，其中有一道题目是：已知变量a的值为1，变量b的值为2，交换变量a、b的值。
小李同学编写出了如下的不完整程序。
请将程序缺失部分“___”补充完整。
Function func( )Dim a As Integer,b As IntegerDim t As Integera=1:b=2t=a:a=bb=________func=”a=” & a & ”b=” & bEnd Function5. 已知变量x的值是4698，下列程序的功能是求x的各位数字之和s，其中a存放的是千位数字，b存放的是百位数字，c存放的是十位数字，d存放的是个位数字。
高中会考vb试题及答案
高中会考vb试题及答案高中会考VB试题及答案一、选择题（每题2分，共20分）1. 在Visual Basic中，以下哪个是正确的变量声明方式？A. Dim xB. Dim x As IntegerC. Dim x = 10D. Dim x As Integer = 10答案：B2. 下列哪个是Visual Basic中的循环结构？A. IfB. ForC. Select CaseD. Sub答案：B3. Visual Basic中的“End”语句用于结束什么？A. 程序B. 过程C. 循环D. 条件答案：B4. 在Visual Basic中，以下哪个不是内置的控件？A. LabelB. TextBoxC. ButtonD. Slider答案：D5. 下列哪个是Visual Basic中的数组声明方式？A. Dim arr(5) As IntegerB. Dim arr As Integer = 5C. Dim arr = New Integer(5)D. Dim arr As Integer(5)答案：A6. 在Visual Basic中，以下哪个是正确的条件语句？A. If x > 10 ThenB. If x > 10C. If x > 10D. If x > 10 End If答案：A7. Visual Basic中，以下哪个是正确的函数调用？A. Call Print("Hello World")B. Print "Hello World"C. Call Print("Hello World")D. Print("Hello World")答案：D8. 下列哪个是Visual Basic中的事件？A. ClickB. EventC. FunctionD. Procedure答案：A9. 在Visual Basic中，以下哪个是正确的类声明方式？A. Class MyClassB. Dim MyClassC. Sub MyClassD. Function MyClass答案：A10. 下列哪个是Visual Basic中的错误处理语句？A. TryB. CatchC. FinallyD. All of the above答案：D二、填空题（每空2分，共20分）1. 在Visual Basic中，使用________来定义一个类。
高中信息技术-VB枚举算法与程序实现-浏览题阅览题-会考复习题
End If
Next j
Next i
For i= 1To n
list2.AddItem Str(a(i))
Next I
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii= 13Then
n=n+ 1
1密码是六位数字，前面两位为31;
2最后两位数字相同；
3能被16和46整除。
程序界面如图所示，单击 帮助找回密码”按钮(Command"后，可能的密码显示在列表
框List1中。
口找密码□回O
f帮助找Mi密码i
I叩锻的密码有 暑|纳to
315744
31H6J1K
解决此问题的相应程序如下：
Private Sub Command1_Click()
Next i
该程序段执行后，变量m中存储的是()
A.累加值B.计数值C. a(1)至a(100)中的最大值D.最小值
【答案】C
【解析】
3.读程序，写出下列程序的输出结果
55、s= 1
For j= 100To -100 Step -1
s = s * j
Next j
MsgBox (s)
上述程序段中
s = s*j的执行次数是(
当误的是
(
)
A.—般是通过循环中嵌套分支结构来实现的。
B.循环结构用来 枚举”分支结构用于 检验”
C.列举所有可能解的范围时，可以扩大但不能缩小，以防漏解。
D.采用枚举法时，也可能找不到符合条件的解。
【答案】C
【解析】
山东高中信息技术学业水平测试VB算法真题
算法历年考试真题（一定保存好，千万不能丢）一、选择题1、流程图是描述（）的常用方式。
A、程序B、算法C、数据结构D、计算规则2、下面不属于算法描述方式的是（）。
A、自然语言B、伪代码C、流程图D、机器语言3、以下运算符中运算优先级最高的是（）。
A、+B、^C、>=D、*4、某程序中三个连续语句如下：a=1b=2c=b+a它属于（）A、顺序结构B、选择结构C、循环结构D、以上三种都不是5、穷举法的适用范围是（）A、一切问题B、解的个数极多的问题C、解的个数有限且可一一列举D、不适合设计算法6、在现实生活中，人工解题的过程一般分为（）A、理解分析问题→寻找解题方法→用工具计算→验证结果B、寻找解题方法→理解分析问题→用工具计算→验证结果C、用工具计算→验证结果→寻找解题方法→理解分析问题D、用工具计算→验证结果→理解分析问题→寻找解题方法7、下列关于算法的特征描述不正确的是（）A、有穷性：算法必须在有限步之内结束B、确定性：算法的每一步必须确切的定义C、输入：算法必须至少有一个输入D、输出：算法必须至少有一个输出8、下列哪一个不是用于程序设计的软件（）A、BASICB、C语言C、WordD、Pascal9、下列可以作为合作变量名的是（）A、a7B、7aC、a-3D、810、编程求1+2+3+........+1000的和，该题设计最适合使用的控制结构为（）。
A、顺序结构B、分支结构C、循环结构D、选择结构11、下列步骤不属于软件开发过程的是（）A、任务分析与系统设计B、软件的销售C、代码编写与测试D、软件测试与维护12．以下程序段运行时，语句k=k+1 执行的次数为（）次。
k=-10dok=k+1loop while k=0A. 9B. 10C. 11D. 1213．已知x=6, y=5, 则以下运算结果为True 的是（）A．Not(x>y) B. (x<5)or(y>6)C. (x>=6)And(y>=5)D. Not(x>4)14．模块化程序设计方法反映了结构化程序设计的（）基本思想。
高中信息VB试题
高中信息技术会考VB复习题一、单选题1. 计算机程序的三种结构是顺序结构、、选择结构。
A．模块结构B．循环结构C．多重循环结构D．IF块结构2.是指用户操作引发或由系统引发，能被对象所识别并做出响应的动作。
A．任务B．事件C．控件D．过程3. 在VB应用程序设计中，通常应对编写程序代码。
A．所有对象B．窗体C．Timer D．有事件的对象4. 在面向对象程序设计中，用来描述对象的特征信息。
A．事件B．方法C．代码D．属性5. 在VB编程中，如果需要返回鼠标的当前位置，或了解按下的是鼠标哪个键及需要配合键盘上的Shift、Ctrl、Alt键时，应该使用事件。
A．Click B．Change C．MouseDown D．KeyPress6. 的Visual Basic表达式是。
A．(-b+b^2-4ac)/2a B．(-b+sqr(b^2-4*a*c))/(2*a)C．(-b+sqr(b^2-4ac))/(2a) D．(-b+sqr(b^2-4ac))/2a7. 在VB系统中，代表内存单元，是命了名的存储空间。
A．变量B．常量C．函数D．字节8.语句用于声明变量，并定义变量的数据类型，给变量分配存储空间。
A．Sub B．Dim C．Call D．End9. 在VB程序设计语言中，语句的功能是使系统产生的随机数真正随机化。
A．Rnd B．Circle C．Randomize D．Dim10. 关系表达式的值为。
A．数值B．字符串C．逻辑值D．逻辑表达式11. 下列控件中“文本框”是。
A. LabelB. TextBoxC. OptionButtonD. CommandButton12. 若改变一文本框中所显示文本的颜色，需改变此文本框的哪个属性？A. CaptionB. ForecolorC. BackcolorD. Text13.在VB环境中，修改对象的BackColor的属性值，则对象的将发生改变。
vb高中会考试题及答案
vb高中会考试题及答案一、选择题（每题2分，共20分）1. 在Visual Basic中，以下哪个选项是正确的数据类型？A. IntegerB. StringC. DoubleD. All of the above答案：D2. 下列哪个选项不是Visual Basic中的控件？A. LabelB. TextBoxC. ButtonD. Excel答案：D3. 在Visual Basic中，哪个关键字用于声明一个过程？A. FunctionB. SubC. ClassD. Both A and B答案：D4. 在Visual Basic中，以下哪个选项是正确的循环结构？A. ForB. WhileC. DoD. All of the above答案：D5. Visual Basic中的哪个函数用于返回字符串的长度？A. LenB. LengthC. SizeD. Count答案：A6. 在Visual Basic中，以下哪个选项不是事件处理程序的正确写法？A. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickB. Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)C. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)D. Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 答案：B7. 在Visual Basic中，以下哪个选项是正确的数组声明方式？A. Dim myArray() As IntegerB. Dim myArray As Integer()C. Both A and BD. None of the above答案：C8. 在Visual Basic中，以下哪个关键字用于声明一个类？A. ClassB. StructureC. ModuleD. Interface答案：A9. Visual Basic中，哪个函数用于将字符串转换为大写？A. ToUpperB. UpperCaseC. ConvertToUpperD. ToUppercase答案：A10. 在Visual Basic中，以下哪个选项是正确的错误处理语句？A. On Error GoTo 0B. On Error Resume NextC. On Error Goto 0D. All of the above答案：D二、填空题（每题2分，共20分）1. 在Visual Basic中，使用________关键字可以声明一个变量。
高中信息技术-VB程序的调试-会考复习题
高中(gāozhōng)信息技术 VB程序(chéngxù)的调试会考(huìkǎo)复习题学校(xuéxiào):___________姓名(xìngmíng)：___________班级：___________考号：___________一、选择题1．数组排序。
点击“产生随机数”按钮，让计算机随机产生10个整数，并对这10个整数进行标号，再点击“排序”按钮，对这10个整数进行从大到小排序。
如图所示。
程序代码如下：Dim a(1 To 10) As IntegerDim i, j, k, kt As IntegerPrivate Sub Command1_Click()List1.Clear '清除列表框数据For i ＝ 1 To 10Randomize '随机数初始化a(i) ＝ Int(Rnd() * 1000)List1.AddItem Str(i) ＋”＝” ＋ Str(a(i))Next iCommand2.Enabled ＝ True'激活排序按钮End SubPrivate Sub Command2_Click()For i ＝ 1 To 9k ＝ iFor j ＝____①____To 10Next jIf i <> k Then__②____End IfNext iList2.ClearFor i ＝ 1 To 10List2.AddItem Str(i) ＋” ＝” ＋ Str(a(i))Next iEnd Sub请在①、②划线处填入合适的语句或表达式，把程序补充(bǔchōng)完整：程序(chéngxù)中①划线(huá xiàn)处应填入__________________；程序(chéngxù)中②划线(huá xiàn)处应填入__________________。
高中信息技术vb考试题及答案
高中信息技术vb考试题及答案一、选择题（每题2分，共40分）1. 在Visual Basic中，下列哪个关键字用于声明一个变量？A. FunctionB. DimC. SubD. Const答案：B2. Visual Basic中，哪个函数用于将字符串转换为大写？A. StrCompB. UCaseC. LCaseD. Mid答案：B3. 以下哪个控件用于在Visual Basic中显示文本，但不允许用户编辑？A. TextBoxB. LabelC. ComboBoxD. CheckBox答案：B4. 在Visual Basic中，哪个属性用于设置文本框（TextBox）的文本？A. CaptionB. TextD. Name答案：B5. 如果要在Visual Basic中创建一个按钮，应该使用哪个控件？A. TextBoxB. CommandButtonC. LabelD. CheckBox答案：B6. 在Visual Basic中，下列哪个循环结构用于重复执行代码块直到满足某个条件？A. ForB. WhileC. DoD. If答案：C7. Visual Basic中，下列哪个函数用于返回一个随机数？A. RandB. IntC. RndD. Sgn答案：C8. 在Visual Basic中，下列哪个属性用于设置或返回一个控件的可见性？A. VisibleB. EnabledC. Caption答案：A9. 以下哪个选项是Visual Basic中声明数组的正确方式？A. Dim numbers(5) As IntegerB. Dim numbers(5) IntegerC. Dim numbers As Integer(5)D. Dim numbers Integer(5)答案：A10. 在Visual Basic中，下列哪个事件用于处理用户点击按钮的事件？A. ClickB. DoubleClickC. MouseDownD. MouseUp答案：A11. Visual Basic中，哪个控件用于在用户界面中显示图像？A. PictureBoxB. ImageBoxC. LabelD. TextBox答案：A12. 在Visual Basic中，下列哪个属性用于设置或返回一个控件的背景颜色？A. BackColorB. ForeColorC. ColorD. Background答案：A13. 以下哪个选项是Visual Basic中声明函数的正确方式？A. Function MyFunction()B. Sub MyFunction()C. Procedure MyFunction()D. Method MyFunction()答案：A14. 在Visual Basic中，下列哪个控件用于允许用户从预定义的选项列表中选择一个选项？A. ComboBoxB. ListBoxC. CheckBoxD. RadioButton答案：A15. Visual Basic中，下列哪个关键字用于声明一个子程序？A. FunctionB. SubC. ProcedureD. Method答案：B16. 在Visual Basic中，下列哪个属性用于设置或返回一个控件的前景色？A. BackColorB. ForeColorC. ColorD. Background答案：B17. 以下哪个选项是Visual Basic中声明事件处理程序的正确方式？A. On ClickB. Handles ClickC. Event ClickD. Use Click答案：B18. Visual Basic中，哪个函数用于返回当前日期？A. NowB. DateC. TimeD. Today答案：D19. 在Visual Basic中，下列哪个属性用于设置或返回一个控件的宽度？A. WidthB. HeightC. SizeD. Dimension答案：A20. Visual Basic中，下列哪个关键字用于声明一个常量？A. FunctionB. DimC. ConstD. Sub答案：C二、填空题（每题2分，共20分）1. 在Visual Basic中，使用________关键字可以定义一个常量。
高中信息技术-VB程序的创建-浏览题阅览题-会考复习题精品
中学信息技术程序的创建会考复习题学校姓名：班级：考号：一、选择题1．能正确表达“a≤1或a≥5”的逻辑表达式是。
A、a<=1 或a>=5B、a<=1>=5C、a<=1 a>=5D、a<=1 a>=5【答案】C【解析】2．在的代码窗口中，语句1中的是（）A、属性值B、属性名C、对象名D、方法【答案】D【解析】3．以下属于操作系统的是（）B．C．D．【答案】A【解析】4．中窗体文件的扩展名为( )A． B． C． D．【答案】B【解析】5．在中，下列正确的变量名是（）A、 B、1 C、2a D、a*b【答案】B【解析】6．假如想在程序中反复运用一个数值3.14，为了避开在编写程序时反复输入这个数据，也为了一次能够修改程序中全部用到的这个数据的语句，可以采纳（）。
A、将这个数据声明为字符串型常量，用一个常量标识符代表它B、将这个数据声明为字符串型变量，用一个变量标识符代表它C、将这个数据声明为单精度型常量，用一个常量标识符代表它D、将这个数据声明为单精度型变量，用一个变量标识符代表它【答案】C【解析】7．在代码中，将多个语句合并在一行上的并行符是( )A．撇号（'） B．冒号（:） C．感叹号（!） D．问号（）【答案】B【解析】8．下列表达式值最大的是（）A．10 5 B．5 10 C．10 / 5 D．5 / 10【答案】B【解析】9．中窗体文件的扩展名为（）A． B． C． D．【答案】B【解析】10．在中，下列能产生一个[1，100]之间随机正整数的表达式是（）A． *100 B．1*99C． (*100) D．1(*100)【答案】D【解析】11．中窗体文件的扩展名是( )A． B． C． D．【答案】B【解析】12．下列多媒体创作工具中，属于以程序设计语言为基础的是（）A． B．C． D．【答案】D【解析】13．如下图所示，在工程设计中，要在吩咐按钮1中显示“确定”，则下列操作正确的是( )A．在属性值中输入“确定”B．在属性值中输入“确定”C．在属性值中输入“确定”D．在属性值中输入“确定”【答案】B【解析】14．在中，语句1"高一"中的是( )A．属性名 B．属性值 C．对象名 D．窗体名【答案】A【解析】15．在中，执行语句(((-70)))，则变量x的数据类型是（）A．实数型 B．字符型 C．整数型 D．逻辑型【答案】C【解析】16．在日常生活中，我们经常会遇到各种各样的问题，以下描述中最适合我们用计算机编程方法来处理的是（）。
高中信息技术算法与程序设计VB练习题
高中信息技术算法与程序设计（VB）练习题2004年8月20日作者：洪鼎文化中心浏览选项：大中小--> 颜色Black Red Yellow Pink Green Orange Purple Blue Beige Brown Teal Navy Maroon LimeGreen 本一、选择题：1.下列各组控件都具有Caption属性的是A.窗体、文本框B.标签、定时器C.窗体、标签D.文本框、定时器2.下列各组控件具有相同默认事件的是A.窗体、文本框B.标签、按钮C.窗体、标签D.文本框、按钮3.下列每个控件都具有的属性是B.CaptionC.FontD.Interval4.下列运算结果中，值最大的是A.34B.3/4C.4 mod 3D.3 mod 4 〖/表示除,表示整除,mod表示求余数〗5.以下哪个是合法的变量名A．Len B．Test@qw C．6cost_1 D．count2s6.在Visual Basic代码中，将多个语句合并在一行上的并行符是A. 撇号（'）B. 冒号（：）C. 感叹号（！）D. 问号（?）7.如果要求设置定时器时间间隔为0.5秒钟，那么它的Interval属性值应该是A．5000 B．500 C．50 D．58．下列控件中可设置滚动条是A.计时器 B．标签 C．文本框 D．按钮9．下面程序执行的结果是Private Sub Form_Click()A = "123":B = "456"C = Val(A) + Val(B) 〖val是把字符转化为数值的函数〗Print C 100End SubA.123B.3C.5D.57910．若要求从文本框中输入密码时在文本框中只显示#号，则应当在此文本框的属性窗口中设置A. Text属性值为"#" B．Caption属性值为"#"C．password属性值为空"#" D．Passwordchar属性值为"#"11．下列逻辑运算结果为"true"的是A.flase or not trueB.flase and not trueC. true or not trueD.true and not true12．下列控件中可用于接受用户输入文本，又可用于显示文本的是A．Label 控件 B. TextBox 控件C. Timer 控件D. CommandButton 控件13.以下程序段执行后，整型变量n 的值为year=2001n=year4+year400-year100A. 495B. 505C. 500D. 48514.下列关于CommandButton 控件的叙述正确的是A. CommandButton 控件的Caption 属性决定按钮上显示的内容B. 单击VB应用程序中的按钮，则系统激活按钮控件对应的Change 事件C. CommandButton 控件的name 属性决定按钮上显示的内容D. 以上都不对15.以下程序段执行后整型变量n 的值为n=0for i=1 to 20 step 5n=n+inext iA. 50B. 34C. 15D. 21016.一只漂亮的酒杯被摔碎了，则漂亮，酒杯，摔，碎了是A.对象，属性，事件，方法B. 对象，属性，方法，事件C.属性，对象，方法，事件D. 属性，对象，事件，方法〖对象的属性定义其外观、方法定义其行为、事件定义其与用户的交互〗17.如果要改变窗体的标题,需要设置窗体对象的属性。
高中信息技术-VB排序算法与程序实现-浏览题阅览题-会考复习题
高中信息技术ＶB排序算法与程序实现浏览题阅览题会考复习题学校:___________姓名:___________班级：___＿＿___＿__考号:_______＿___评卷人得分一、选择题(一)顺序查找数据:我们假定被查找的数据存储在有n个元素的数组变量d中,要寻找的一个特定的数据(这个数据称为查找键)已经存储在变量kｅy中。
下面是顺序查找算法的输入输出说明。
输入:查找键(设在变量keｙ中)。
被查找的数据(设在数组变量d中)。
输出:若找到,输出值为key的数据所在的数组元素的下标，记为i;若未找到,输出结果为提示字符串：＂找不到"。
当在n=8个元素的数组里顺序查找数据的示意图如下:找到情况未找到情况总结顺序查找数据结果判断条件：(1)、当找到时,肯定i＜＝＂8,＂n个数据时，肯定i<＝ｎ,i即为找到的数组元素下标，d(i)=ｋey；(２)、当"找不到＂时,ｉ＝9＞８了;n个数据时,当i=n+1时,表示"找不到"。
顺序查找的主程序段如下:PrivateＳｕｂ顺序查找＿Clｉck()n个数据放入d(1)到d(n)中Kｅy =" Val(Ｔexｔ１.Ｔext）:" i=1．‘变量Key从文本框Ｔext1取的数要查找的数；Ｄo Whiｌe ①ｉ="i" ＋1LoopＩｆi ＜=" n" ThｅnTeｘt2．Text= ＂在ｄ(＂+ Str(i）+ ")中" ‘例如在文本框Tｅxｔ2显示:“在d(6)中”ElｓeＴｅxt2.Tｅxt = ＂找不到"End IfEnd Suｂ上程序Ｄo Ｗhｉｌe的条件① 是( ）A．Kｅy<>d(i）B．i <= nC.Kｅｙ＜> d（ｉ) And i＜=ｎＤ．Key <> d(i）ｏr i ＜= n【答案】C【解析】2．用选择排序将七个数“2022、2017、2018、２014、2０２1、20１2、20１５”从小到大进行排序，则第二轮交换数据后的顺序是：Ａ、2022、2021、2018、201７、2014、20１2、201５Ｂ、20１2、２014、20１8、2０17、2021、20２2、2015C、2０１2、20１７、２01８、２01４、2０21、2022、2０15D、2022、2021、2０18、2014、20１７、２０１2、201５【答案】D【解析】3.关于对分查找和顺序查找算法的叙述，正确的是（)。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
高中信息技术VB排序算法与程序实现浏览题阅览题会考复习题学校:___________姓名：___________班级：___________考号：___________评卷人得分一、选择题（一）顺序查找数据：我们假定被查找的数据存储在有n个元素的数组变量d中，要寻找的一个特定的数据(这个数据称为查找键)已经存储在变量key中。
下面是顺序查找算法的输入输出说明。
输入：查找键(设在变量key中)。
被查找的数据(设在数组变量d中)。
输出：若找到，输出值为key的数据所在的数组元素的下标，记为i；若未找到，输出结果为提示字符串："找不到"。
当在n=8个元素的数组里顺序查找数据的示意图如下：找到情况未找到情况总结顺序查找数据结果判断条件：(1)、当找到时，肯定i<="8," n个数据时，肯定i<=n，i即为找到的数组元素下标，d(i)=key；(2)、当"找不到"时，i=9>8了；n个数据时，当i=n+1时，表示"找不到"。
顺序查找的主程序段如下：Private Sub 顺序查找_Click()n个数据放入d(1)到d(n)中Key =" Val(Text1.Text):" i =1．‘变量Key从文本框Text1取的数要查找的数；Do While ①LoopIf i <=" n" ThenText2.Text = "在d(" + Str(i) + ")中" ‘例如在文本框Text2显示：“在d(6)中”ElseText2.Text = "找不到"End IfEnd Sub上程序Do While的条件① 是（）A．Key <> d（i）B．i <= nC．Key <> d(i) And i <= nD．Key <> d(i) or i <= n【答案】C【解析】2．用选择排序将七个数“2022、2017、2018、2014、2021、2012、2015”从小到大进行排序，则第二轮交换数据后的顺序是：A、2022、2021、2018、2017、2014、2012、2015B、2012、2014、2018、2017、2021、2022、2015C、2012、2017、2018、2014、2021、2022、2015D、2022、2021、2018、2014、2017、2012、2015【答案】D【解析】3．关于对分查找和顺序查找算法的叙述，正确的是（）。
A．顺序查找需要排序，效率低；对分查找不需要排序，效率高。
B．顺序查找不需要排序，效率低；对分查找需要排序，效率高。
C．顺序查找不需要排序，效率高；对分查找需要排序，效率低。
D．顺序查找需要排序，效率高；对分查找不需要排序，效率低。
【解析】4．某数组有8个元素，依次为500、419、352、350、300、200、180、100，若采用顺序查找法在该数组中查找数据300，需要查找的次数是（）A．1 B．3 C．4 D．5【答案】D【解析】5．下面程序段用于求两数中的较大数（结果保存到变量maxn中），不正确的是（）A．maxn=xIf y>=maxn Then maxn=yB．If x>y Then maxn=x Else maxn=yC．maxn=xIf y>=x Then maxn=yD．If y>=x Then maxn=ymaxn=x【答案】D【解析】6．某超市面食区共有5种面食品种，其价格依次为6.20、4.5、5.5、2、3，若采用冒泡排序算法对其进行从小到大排序，则第二趟的排序结果是（）A、2 5.5 3 6.2 4.5B、2 3 6.2 4.5 5.5C、2 4.5 6.2 3 5.5D、2 3 5.5 4.5 6.2【答案】B【解析】7．某市组织了一次我心目中最喜爱的球队的评比活动，6个球队网上投票数为201、287、501、189、397、295，若采用冒泡排序算法对其进行从大到小排序，则第三遍加工后的结果是( )A ．501 397 295 287 201 189B ．501 397 201 287 295 189C ．501 397 295 201 189 287D ．501 397 295 201 287 189 【答案】D 【解析】8．在信息加工中，经常要对被处理的数据进行排序，在排序时经常要进行数据的交换。
下面有四个程序段：其中能正确地将x 和y 两个变量中的数据进行交换的程序段有（ ） A 、 1个 B 、2个 C 、3个 D 、4个 【答案】C 【解析】9．解决上问题所用的算法是:（ ）A 、枚举法B 、 解析法C 、 顺序查找D 、选择法 【答案】B 【解析】10．用选择排序将七个数“2022，2017，2018，2014，2021，2012，2015”从小到大进行排序，则第二轮交换数据后的顺序是（ ） A ．2022，2021，2018，2017，2014，2012，2015 B ．2012，2014，2018，2017，2021，2022，2015x = y y =x②x = x + y y= x －y③t = x x= y④x = x - y y= x+yC ．2012，2017，2018，2014，2021，2022，2015D ．2022，2021，2018，2014，2017，2012，2015 【答案】B【解析】本题意图考核考生考生选择排序算法执行过程的理解。
11．下表记录了6个数据的排序过程。
分析表中数据可知，该排序采用的算法与排序方式分别为（ ）A ．冒泡排序，升序B ．选择排序，升序C ．冒泡排序，降序D ．选择排序，降序 【答案】A 【解析】 二、填空题12．小王设计了一个程序来列举仁川亚运会的奖牌前三的国家。
下列VB 程序实现如下功能：单击命令按钮Command1后，在列表框List1中按奖牌数由多到少显示国家名称，如图。
请根据算法将下列程序补充完整。
Dim a(1 To 45) As StringDim b(1 To 45) As IntegerPrivate Sub Form_Load()a(1) = "中国"b(1) = 308‘45个代表团名称及奖牌数分别放在a(1)到a(45)及b(1)到b(45)中End SubPrivate Sub Command1_Click()Dim i As Integer,j As IntegerDim t As Integer,f As IntegerList1.ClearFor i = 1 To 3For j = ①To 2 Step -1If ②Thenf = a(j): a(j) = a(j - 1): a(j - 1) = ft = b(j): b(j) = b(j - 1): b(j - 1) = tEnd IfNext jNext iFor i = 1 To 3List1.AddItem "第" + Str(i) + "名" + a(i) + " 奖牌数" + Str(b(i))Next iEnd Sub【答案】（1）45（1分）（2）b(j - 1)> b(j)（1分）【解析】13．下列VB程序的功能是：程序运行时，单击命令按钮Commandl后，产生10个[1，999]范围内互不相同的随机整数，依次显示在列表框List1中，然后将它们按从小到大的顺序排序，排序结果显示在列表框List2中。
数组a用于存储产生的10个随机整数，函数f(x)用于判断随机整数x与已生成的整数是否有重复，若有重复则返回True，否则返回False。
（1）虚线框内程序段所采用的排序算法名称是。
（填：冒泡排序/选择排序）（2）在程序(1)和(2)划线处，填入适当的语句或表达式，把程序补充完整。
Dim a(1 To 10) As IntegerFunction f(x As Integer) As Boolean ′代码略End FunctionPrivate Sub Commandl_Click()Dim n As Integer ′n用于统计已经产生的随机整数个数Dim i As Integer.j As IntegerDim x As Integer.k As IntegerRandomize ′初始化Rnd函数n=0List1.Clear ′清除列表框中内容List2.ClearDo While n<10x=Int(Rnd*999)+1 ′产生[1，999]范围内的随机整数If Not f(x) Thenn=n+1a(n)=xList1.AddItem Str( （1）)End IfLoopFor i=1 To 9 ′进行排序For j=10 To i+1 （2）If a(j)<a(j-1) Thenk=a(j):a(j)=a(j-1):a(j-1)=kEnd IfNext jNext iFor i=1 To 10List2.AddItem Str(a(i))Next iEnd Sub【答案】（1）冒泡排序（2）a（n） Step-1【解析】14．某协会进行钓鱼比赛，最后有十人进入决赛，录入员编制了如下Visual Basic程序，功能是根据成绩进行排序，程序中数组a保存所有参赛者的成绩，数组b保存此成绩对应的姓名，第i位参赛者的成绩保存在a(i)中，姓名保存在b(i)中。
程序界面如图所示，左边列表框List1中显示原始数据(成绩和相应的姓名)，单击“排序”按钮(Command1)，排序后的结果按成绩从高到低显示在列表框List2中。
解决此问题的算法流程图如图所示，排序部分的程序段如下：Dim a (1 To 10) As SingleDim b (1 To 10) As StringPrivate Sub Command1_Click()Dim i As Integer，j As Integer，k As Integer，x As Single，y As StringFor i＝1 To 9k＝iFor j＝i＋1 To 10If ①________ Then k＝jNext jIf k＜＞i Thenx＝a(i)：a(i)＝a(k)：②________y＝b(i)：b(i)＝b(k)：b(k)＝yEnd IfNext iFor i＝i To 10List2.AddItem Str(a(i))＋“”＋b(i)Next iEnd SubPrivate Sub Form_Load()’此过程用于对数组a和数组b进行初始赋值，代码略End Sub(1)解决此问题的算法是________。