高中信息技术-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部分)
高中信息技术会考一、单选题1. 计算机程序的三种结构是顺序结构、、选择结构。
A．模块结构B．循环结构C．多重循环结构D．IF块结构2. 是指用户操作引发或由系统引发，能被对象所识别并做出响应的动作。
A．任务B．事件C．控件D．过程3. 在VB中，窗口坐标系的原点在，x轴向右为正，y轴向下为正。
A．窗口左上角B．窗口右下角C．窗口正中间D．窗口右上角4. 在VB应用程序设计中，通常应对编写程序代码。
A．所有对象B．窗体C．Timer D．有事件的对象5. 在面向对象程序设计中，用来描述对象的特征信息。
A．事件B．方法C．代码D．属性6. 在VB编程中，如果需要返回鼠标的当前位置，或了解按下的是鼠标哪个键及需要配合键盘上的Shift、Ctrl、Alt键时，应该使用事件。
A．Click B．Change C．MouseDown D．KeyPress7. 在VB应用程序设计中，如果想让Timer控件每秒钟响应一次，应该将其Inerval属性设置为。
A．1 B．60 C．100 D．10008. 下列过程中，是程序开始运行时，窗体一加载就运行的程序段。
A．Form_Load B．Form_ClickC．Form_MouseDown D．Form_KeyPress9. 的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))/2a10. 在VB系统中，代表内存单元，是命了名的存储空间。
A．变量B．常量C．函数D．字节11. 语句用于声明变量，并定义变量的数据类型，给变量分配存储空间。
A．Sub B．Dim C．Call D．End12. 在VB程序设计语言中，语句的功能是使系统产生的随机数真正随机化。
A．Rnd B．Circle C．Randomize D．Dim13. 关系表达式的值为。
高中信息技术 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大题题库(由会考软件数据库内提取)含答案
Content----------------------------------------------下面代码运行后，文本框Text3中显示的内容是什么？----------------------------------------------Text1.Text = "信息"Text2.Text = "社会"Text3.text = text2+text1</Program>答案社会信息----------------------------------------------下面代码运行后，文本框Text1中显示的内容是什么？----------------------------------------------Text1.Text = "vb"Text2.Text = Text1.TextText1.Text = "程序设计"</Program>答案程序设计----------------------------------------------下面程序代码运行时，分别输入数值2和4，则输出结果什么？----------------------------------------------Dim a As IntegerDim b As Integer a = Val(InputBox("请输入a的值"))b = Val(InputBox("请输入b的值")) Print a * b</Program>答案8----------------------------------------------下面程序代码运行时，分别输入数值20和4，则输出结果什么？----------------------------------------------Dim a As IntegerDim b As Integer a = Val(InputBox("请输入a的值"))b = Val(InputBox("请输入b的值")) Print a / b</Program>答案5----------------------------------------------下面程序代码运行时，分别输入数值7和4，则输出结果什么？----------------------------------------------Dim a As IntegerDim b As Integer a = Val(InputBox("请输入a的值"))b = Val(InputBox("请输入b的值")) Print a \ b</Program>答案1----------------------------------------------下面程序代码运行时，分别输入数值23和4，则输出结果什么？----------------------------------------------Dim a As IntegerDim b As Integer a = Val(InputBox("请输入a的值"))b = Val(InputBox("请输入b的值")) Print a \ b</Program>答案5----------------------------------------------下面程序代码运行时，分别输入数值7和2，则输出结果什么？----------------------------------------------Dim a As IntegerDim b As Integer a = Val(InputBox("请输入a的值"))b = Val(InputBox("请输入b的值")) Print a ^ b</Program>答案49----------------------------------------------下面程序代码运行时，分别输入数值2和3，则输出结果什么？----------------------------------------------Dim a As IntegerDim b As Integer a = Val(InputBox("请输入a的值"))b = Val(InputBox("请输入b的值")) Print a ^ b答案8----------------------------------------------下面程序代码运行时，分别输入数值7和2，则输出结果什么？----------------------------------------------Dim a As IntegerDim b As Integer a = Val(InputBox("请输入a的值"))b = Val(InputBox("请输入b的值")) Print a \ b答案3----------------------------------------------下面代码运行后，文本框Text3中显示的内容是什么？----------------------------------------------Text1.Text = "北京"Text2.Text = "中国"Text3.text = text2+text1答案中国北京----------------------------------------------下面代码运行后，文本框Text3中显示的内容是什么？----------------------------------------------Text1.Text = "吉林"Text2.Text = "中国"答案中国吉林----------------------------------------------下面代码运行后，文本框Text3中显示的内容是什么？----------------------------------------------Text1.Text = "制造"Text2.Text = "中国"Text3.text = text2+text1答案中国制造----------------------------------------------下面代码运行后，文本框Text3中显示的内容是什么？----------------------------------------------Text1.Text = "北京"Text2.Text = "中国"Text3.text = text1+text2答案北京中国----------------------------------------------下面代码运行后，文本框Text3中显示的内容是什么？----------------------------------------------Text1.Text = "绿色"Text2.Text = "奥运"Text3.text = text2+text1答案奥运绿色----------------------------------------------下面代码运行后，文本框Text3中显示的内容是什么？----------------------------------------------Text1.Text = "大学"Text2.Text = "清华"答案清华大学----------------------------------------------下面代码运行后，文本框Text3中显示的内容是什么？----------------------------------------------Text1.Text = "北京"Text2.Text = "大学"Text3.text = text2+text1答案大学北京----------------------------------------------下面代码运行后，文本框Text3中显示的内容是什么？----------------------------------------------Text1.Text = "工作原理"Text2.Text = "计算机"Text3.text = text2+text1答案计算机工作原理----------------------------------------------下面代码运行后，文本框Text3中显示的内容是什么？----------------------------------------------Text1.Text = "系统"Text2.Text = "计算机"Text3.text = text2+text1答案计算机系统----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 100 To 89 Step -4s = s + iNext i答案3----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 25 To 70 Step 20s = s + iNext i答案3----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 10 To -10 Step -4if i>0 then s = s + iNext i答案3----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 10 To -10 Step -4if i<0 then s = s + iNext i答案3----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 10 To -20 Step -6if i>0 then s = s + iNext i答案2----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 0 To 10 Step 2if i<>0 then s = s + iNext i答案5----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 0 To 10 Step 2if i=0 then s = s + iNext i答案1----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 0 To 10 Step 2if i > 5 then s = s + iNext i答案3----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 0 To 10 Step 2if i< 8 then s = s + iNext i答案4----------------------------------------------当执行下面程序后，变量s的值是多少？----------------------------------------------Dim s As DoubleDim i As Double s = 15 For i = -0.6 To -1.9 Step -0.8s = s - 9Next i Print s答案-3----------------------------------------------当执行下面程序后，变量s的值是多少？----------------------------------------------Dim s As DoubleDim i As Double s = 100 For i = -0.6 To -1.9 Step -0.8s = s / 10Next i Print s答案1----------------------------------------------当执行下面程序后，变量s的值是多少？----------------------------------------------Dim s As DoubleDim i As Double s = 50 For i = -0.6 To -1.9 Step -1s = (s - 10) / 2Next i Print s答案5----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 0 To 10 Step 5if i< 18 then s = s + iNext i答案3----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 10 To -10 Step -4if i>3 then s = s + iNext i答案2----------------------------------------------下面程序代码运行时，分别输入数值2和4，则输出结果什么？----------------------------------------------Dim a As IntegerDim b As Integer a = Val(InputBox("请输入a的值"))b = Val(InputBox("请输入b的值")) Print a * b答案8----------------------------------------------执行下面的程序后，在对话框中输入整数14后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值"))y=1if (x-5)/3>3 then y=2 Print y答案1----------------------------------------------执行下面的程序后，在对话框中输入整数14后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值"))y=1if (x-5)/3<>3 then y=2 Print y答案1----------------------------------------------执行下面程序后，输出的结果是多少？----------------------------------------------Dim x As IntegerDim n As IntegerDim k As Integer n = 14 For k = 1 To n Step 7x = x + kNext k Print x答案9----------------------------------------------下面代码运行后，文本框Text2中显示的内容是什么？----------------------------------------------Text1.Text = "信息"Text2.Text = Text1.TextText1.Text = "社会"信息----------------------------------------------下面代码运行后，文本框Text2中显示的内容是什么？----------------------------------------------Text1.Text = "信息技术会考"Text2.Text = Text1.TextText1.Text = "高中"答案信息技术会考----------------------------------------------下面代码运行后，文本框Text1中显示的内容是什么？----------------------------------------------Text1.Text = "信息技术会考"Text2.Text = Text1.TextText1.Text = "高中"答案高中----------------------------------------------下面代码运行后，文本框Text1中显示的内容是什么？----------------------------------------------Text1.Text = "吉林省"Text2.Text = Text1.TextText1.Text = "普通高中"答案普通高中----------------------------------------------下面代码运行后，文本框Text2中显示的内容是什么？----------------------------------------------Text1.Text = "吉林省"Text2.Text = Text1.TextText1.Text = "普通高中"吉林省----------------------------------------------下面代码运行后，文本框Text2中显示的内容是什么？----------------------------------------------Text1.Text = "zhongguo"Text2.Text = Text1.TextText1.Text = "china"答案zhongguo----------------------------------------------下面代码运行后，文本框Text1中显示的内容是什么？----------------------------------------------Text1.Text = "zhongguo"Text2.Text = Text1.TextText1.Text = "china"答案china----------------------------------------------下面代码运行后，文本框Text1中显示的内容是什么？----------------------------------------------Text1.Text = "2008"Text2.Text = Text1.TextText1.Text = "北京奥运"答案北京奥运----------------------------------------------下面代码运行后，文本框Text2中显示的内容是什么？----------------------------------------------Text1.Text = "2008"Text2.Text = Text1.TextText1.Text = "北京奥运"2008----------------------------------------------下面代码运行后，文本框Text1中显示的内容是什么？----------------------------------------------Text1.Text = "信息"Text2.Text = Text1.TextText1.Text = "社会"答案社会----------------------------------------------下面程序代码运行时，分别输入数值23和45，则输出结果什么？----------------------------------------------Dim a As IntegerDim b As Integer a = Val(InputBox("请输入a的值"))b = Val(InputBox("请输入b的值")) Print a + b答案68----------------------------------------------下面程序代码运行时，分别输入数值15和6，则输出结果什么？----------------------------------------------Dim a As IntegerDim b As Integer a = Val(InputBox("请输入a的值"))b = Val(InputBox("请输入b的值")) Print a + b答案21----------------------------------------------下面程序代码运行时，分别输入数值230和405，则输出结果什么？----------------------------------------------Dim a As IntegerDim b As Integer a = Val(InputBox("请输入a的值"))b = Val(InputBox("请输入b的值")) Print a + b答案635----------------------------------------------下面程序代码运行时，分别输入数值-9和8，则输出结果什么？----------------------------------------------Dim a As IntegerDim b As Integer a = Val(InputBox("请输入a的值"))b = Val(InputBox("请输入b的值")) Print a + b答案-1----------------------------------------------下面程序代码运行时，分别输入数值-9和-9，则输出结果什么？----------------------------------------------Dim a As IntegerDim b As Integer a = Val(InputBox("请输入a的值"))b = Val(InputBox("请输入b的值")) Print a + b答案-18----------------------------------------------下面程序代码运行时，分别输入数值63和-45，则输出结果什么？----------------------------------------------Dim a As IntegerDim b As Integer a = Val(InputBox("请输入a的值"))b = Val(InputBox("请输入b的值")) Print a + b答案18----------------------------------------------下面程序代码运行时，分别输入数值-23和-45，则输出结果什么？----------------------------------------------Dim a As IntegerDim b As Integer a = Val(InputBox("请输入a的值"))b = Val(InputBox("请输入b的值")) Print a + b答案-68----------------------------------------------下面程序代码运行时，分别输入数值23和-45，则输出结果什么？----------------------------------------------Dim a As IntegerDim b As Integer a = Val(InputBox("请输入a的值"))b = Val(InputBox("请输入b的值")) Print a + b答案-22----------------------------------------------下面程序代码运行时，分别输入数值1234和4321，则输出结果什么？----------------------------------------------Dim a As IntegerDim b As Integer a = Val(InputBox("请输入a的值"))b = Val(InputBox("请输入b的值")) Print a + b答案5555----------------------------------------------下面程序代码运行时，分别输入数值12和43，则输出结果什么？----------------------------------------------Dim a As IntegerDim b As Integer a = Val(InputBox("请输入a的值"))b = Val(InputBox("请输入b的值")) Print a + b答案55----------------------------------------------下面程序代码运行时，分别输入数值19和40，则输出结果什么？----------------------------------------------Dim x As IntegerDim y As Integer x = Val(Text1.Text)y = Val(Text2.Text) Print x + y答案59----------------------------------------------下面程序代码运行时，分别输入数值79和8，则输出结果什么？----------------------------------------------Dim x As IntegerDim y As Integer x = Val(Text1.Text)y = Val(Text2.Text) Print x + y答案87----------------------------------------------下面程序代码运行时，分别输入数值50和50，则输出结果什么？----------------------------------------------Dim x As IntegerDim y As Integer x = Val(Text1.Text)y = Val(Text2.Text) Print x + y答案100----------------------------------------------下面程序代码运行时，分别输入数值7和8，则输出结果什么？----------------------------------------------Dim x As IntegerDim y As Integer x = Val(Text1.Text)y = Val(Text2.Text) Print x + y答案15----------------------------------------------下面程序代码运行时，分别输入数值123和456，则输出结果什么？----------------------------------------------Dim x As IntegerDim y As Integer x = Val(Text1.Text)y = Val(Text2.Text) Print x + y答案579----------------------------------------------下面程序代码运行时，分别输入数值79和-8，则输出结果什么？----------------------------------------------Dim x As IntegerDim y As Integer x = Val(Text1.Text)y = Val(Text2.Text) Print x + y答案71----------------------------------------------下面程序代码运行时，分别输入数值-15和-6，则输出结果什么？----------------------------------------------Dim x As IntegerDim y As Integer x = Val(Text1.Text)y = Val(Text2.Text) Print x + y答案-21----------------------------------------------执行下面的程序后，在对话框中输入整数12后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值"))y=1if (x-5)/9>1 then y=2 Print y答案1----------------------------------------------执行下面的程序后，在对话框中输入整数20后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值"))y=1if (x-5)/9>1 then y=2 Print y答案2----------------------------------------------执行下面的程序后，在对话框中输入整数16后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值"))y=1if (x-5)/3>3 then y=2 Print y答案2----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 1 To 10 Step 3s = s + iNext i答案4----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 3 To 20 Step 5s = s + iNext i答案4----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 26 To 40 Step 3s = s + iNext i答案5----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 1 To 10 Step 5s = s + iNext i答案2----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 10 To 1 Step -3s = s + iNext i答案4----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 9 To 19 Step 3s = s + iNext i答案4----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 20 To 10 Step -2s = s + iNext i答案6----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 99 To 120 Step 9s = s + iNext i答案3----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 1 To -10 Step -3s = s + iNext i答案4----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = -1 To -13 Step -3s = s + iNext i答案5----------------------------------------------执行下面的程序后，在对话框中输入整数12后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值"))y=10 if x>0 then y=x/3+9 Print y答案13----------------------------------------------执行下面的程序后，在对话框中输入整数8后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值"))y=10 if x-10>0 then y=x/3+9 Print y答案10----------------------------------------------执行下面的程序后，在对话框中输入整数24后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值"))y=10 if x-10>0 then y=x/3+9 Print y答案17----------------------------------------------执行下面的程序后，在对话框中输入整数10后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值"))y=10 if x-10<>0 then y=x/3+9 Print y答案10----------------------------------------------执行下面的程序后，在对话框中输入整数2后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值"))y=10 if x-10<0 then y=x^3 Print y答案8----------------------------------------------执行下面程序后，变量a的值是什么？----------------------------------------------Dim a As StringDim b As StringDim c As String a = "wine"b = "water"c = aa = bb = c答案water----------------------------------------------执行下面程序后，变量b的值果是什么？----------------------------------------------Dim a As StringDim b As StringDim c As String a = "wine"b = "water"c = aa = bb = c答案wine----------------------------------------------下面程序代码运行时，分别输入数值35和46，则输出结果什么？----------------------------------------------Dim a As IntegerDim b As Integer a = Val(InputBox("请输入a的值"))b = Val(InputBox("请输入b的值")) Print a + b答案81----------------------------------------------执行下面的程序后，在对话框中输入整数35后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值")) y=1 if x<>0 then y=2*x+x/5 Print y答案77----------------------------------------------执行下面的程序后，x的值为多少？----------------------------------------------Dim x As IntegerDim i As Integer x = 50 For i = 56 To 70 Step 8x = x + i \ 5Next i Print x答案73----------------------------------------------执行下面的程序后，x的值为多少？----------------------------------------------Dim x As IntegerDim i As Integer x = 50 For i = 1 To 10 Step 3x = x + i \ 5Next i Print x答案53----------------------------------------------执行下面的程序后，x的值为多少？----------------------------------------------Dim x As IntegerDim i As Integer x = 10 For i = 2 To 10 Step 3x = x + i \ 5Next i Print x答案12----------------------------------------------执行下面的程序后，x的值为多少？----------------------------------------------Dim x As IntegerDim i As Integer x = 50 For i = -1 To 10 Step 3 x = x + i \ 5Next i Print x答案52----------------------------------------------执行下面的程序后，x的值为多少？----------------------------------------------Dim x As IntegerDim i As Integer x = 50 For i = 0 To 10 Step 5 x = x + i / 5Next i Print x答案53----------------------------------------------执行下面的程序后，x的值为多少？----------------------------------------------Dim x As IntegerDim i As Integer x = 50 For i = 0 To 9 Step 3 x = x + i / 3Next i Print x答案56----------------------------------------------执行下面的程序后，x的值为多少？----------------------------------------------Dim x As IntegerDim i As Integer x = 50 For i = 1 To 10 Step 3 x = x + iNext i Print x答案72----------------------------------------------执行下面的程序后，x的值为多少？----------------------------------------------Dim x As IntegerDim i As Integer x = 15 For i = 1 To 10 Step 4 x = x + i \ 5Next i Print x答案17----------------------------------------------执行下面的程序后，x的值为多少？----------------------------------------------Dim x As IntegerDim i As Integer x = 50 For i = 1 To 5 Step 3 x = x + i * 2Next i Print x答案60----------------------------------------------执行下面的程序后，x的值为多少？----------------------------------------------Dim x As IntegerDim i As Integer x = 1 For i = 1 To 8 Step 3 x = x + i * 3Next i Print x答案37----------------------------------------------执行下面的程序后，x的值为多少？----------------------------------------------Dim x As IntegerDim i As Integer x = 1 For i = 1 To 10 Step 3 x = x + iNext i Print x答案23----------------------------------------------执行下面的程序后，x的值为多少？----------------------------------------------Dim x As IntegerDim i As Integer x = 50 For i = 10 To 20 Step 5 x = x + i - 5Next i Print x答案80----------------------------------------------执行下面的程序后，x的值为多少？----------------------------------------------Dim x As IntegerDim i As Integer For i = 1 To 10 Step 3x = x + i \ 5Next i Print x答案3----------------------------------------------执行下面的程序后，x的值为多少？----------------------------------------------Dim x As IntegerDim i As Integer For i = 10 To 20 Step 4x = x + i \ 5Next i Print x答案7----------------------------------------------执行下面的程序后，x的值为多少？----------------------------------------------Dim x As IntegerDim i As Integer For i = 18 To 10 Step -3x = x + i \ 5Next i Print x答案8----------------------------------------------执行下面的程序后，x的值为多少？----------------------------------------------Dim x As IntegerDim i As Integer For i = 5 To 10 Step 3x = x + i \ 5Next i Print x答案2----------------------------------------------执行下面的程序后，x的值为多少？----------------------------------------------Dim x As IntegerDim i As Integer For i = 10 To 1 Step -3x = x + i \ 5Next i Print x答案3----------------------------------------------执行下面的程序后，在对话框中输入整数1后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值")) y=1 if (x-5)/3>0 then y=2 Print y答案1----------------------------------------------执行下面的程序后，在对话框中输入整数1后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值"))y=1 if (x+5)/2>3 then y=2 Print y答案1----------------------------------------------执行下面的程序后，在对话框中输入整数8后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值"))y=10 if x/3>3 then y=20 Print y答案10----------------------------------------------执行下面的程序后，在对话框中输入整数15后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值"))y=111 if x/3>3 then y=222 Print y答案222----------------------------------------------执行下面的程序后，在对话框中输入整数12后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值")) y=1 if x<>0 then y=2 Print y答案2----------------------------------------------执行下面的程序后，在对话框中输入整数1后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值")) y=1 if x<0 then y=2 Print y答案1----------------------------------------------执行下面的程序后，在对话框中输入整数0后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值")) y=1 if x<>0 then y=2 Print y答案1----------------------------------------------执行下面的程序后，在对话框中输入整数-9后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值")) y=1 if x<0 then y=2 Print y答案2----------------------------------------------执行下面的程序后，在对话框中输入整数12后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值"))y=1 if x=0 then y=2 Print y答案1----------------------------------------------执行下面的程序后，在对话框中输入整数12后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值"))y=10 if x>0 then y=20 Print y答案20----------------------------------------------执行下面的程序后，在对话框中输入整数-12后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值"))y=12 if x<0 then y=-12 Print y答案-12----------------------------------------------执行下面的程序后，在对话框中输入整数12后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值"))y=1 if x<>0 then y=0 Print y。
高中信息技术浙教版选修1 VB桶排序专题复习
数组元素访问：数组名（下标）。
解题思路：
1. 实际问题模型：如某班技术成绩排序(范围确定，重复率高) 2. 将结构模型分解，串珠成链； 3. 以算法巩固语法（如常见函数，for/Do循环，字符串，数组）
For i = 1 To n b(i) = 0
Next i
s = Text1.Text
“装桶” a(i)= Int(Rnd * 10)
① b(a(i)) = b(a(i)) + 1 ’第a(i)号桶中小旗子数量加1
List1.AddItem CStr(a(i))
Next i
For i = 0 To 10
For j = 1 To ② b(i)’内循环是因为可能某个桶有多个重复数据
“数桶”
变式2：若统计大小写字母：
s = Text1.Text
用分支语句分别“装桶” 与“数桶”
For i = 1 To Len(s)“装桶”
ch = Mid(s, i, 1) a(Asc(ch) - 65) = a(Asc(ch) - 65) + 1
Next i
If ch >= "A" And ch <= "Z" Then
For i = 1 To n
For i = 1 To Len(s)
If b(i) > 0 Then
c = Mid(s, i, 1)
List1.AddItem ’输出
’数据处理
End If
Next i
Next
初始化：“洗桶” 处理：“装桶” 输出：“数桶”
三步走模型：“洗桶”、“装桶”、“数桶”
模型积累
List2.AddItem CStr(i)
高中信息技术 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请在①、②划线处填入合适的语句或表达式，把程序补充完整：程序中①划线处应填入__________________；程序中②划线处应填入__________________。
(word完整版)高中信息技术VB试题及答案介绍,推荐文档.docx
1．下面选项内不属于描述面向对象程序设计特征的名词是()A．继承性B．多态性C．连续性D．封装性2．VB中数据类型Boolean 表示布尔型，布尔型变量占( )字节。
A． 4B． 3C． 2D．13．表达式 Cint(13.2/2)的结果是()A． 6.5B． 6C． 7D．54．表达式 Len(String(6, "9"))的值是()A． 9B． 6C． 999999D．出错5．要在窗体上仅显示文字，选用( )控件最合适A． LABEL B． TEXTBOX C． COMMANDBUTTON．IMAGE6．从编写到运行一个完整的程序的流程是( )。
A．编译程序、运行程序B．编译程序、测试程序、运行程序C．编写程序、编译程序、运行程序D．需求分析、编译程序7．关于结构化程序设计的思想方法，下列选项中不属于其核心思想的是( )。
A．自顶向下B．逐步求精C．模块化D．可复用8．下列关于算法的特征描述不正确的是()A．有穷性：算法必须在有限步之内结束B．确定性：算法的每一步必须有确切的含义C．输入：算法至少有一个输入D．输出：算法至少有一个输出9．下面属于结构化程序设计的基本方法的是()A．筛选法B．递归法C．归纳法D．自顶向下10．在 VB中，表达式 Mid(" 程序设计 ",2,2)的结果是()A．程B．序C．序设D．出错11．以下不是描述算法的方法有()A．自然语言B．流程图C．伪代码D．E-R 图12．在 VB中，表达式Mid(" 程序设计 ",2) 的结果是 ()A．程序B．序C．序设计D．出错13．下列程序，当单击窗体时s的值是 ()Private Sub Form_Click()Dim s as booleana = 2:b = 3:c = 4:d = 5s = a > b And 2 * a > c Or c <= dPrint sEnd SubA． TRUE B． FALSE C． -1D．114．在 VB中，不能作为变量名的是( )A．中国B． STRING C． b_q D．a_b15．在 VB程序中，假定有以下循环结构,则正确的描述是()Do While 条件循环体LoopA．如果 " 条件 " 是一个为0 的常数，则一次循环体也不执行B．如果 " 条件 " 是一个为 0 的常数，则执行无穷次循环体C．如果 " 条件 " 是一个为 0 的常数，则至少执行一次循环体D．不论 " 条件 " 是否为 " 真" ，至少执行一次循环体16．以下哪个不是程序设计高级语言( ) [后面还有2个类似的题目，要了解每个选项]A． VC B． Pascal C．C++D． CSS17．在 VB程序中有以下程序段，语句Print "VB"的执行次数是()For i=1 To 3For j=3 To 1 Step -1Print "VB"Next jNext i VBA． 3B．4C．6D． 918．在 VB 中，表达式Cos(0) 的结果是 ()A． 0B．1C．约等于 3.14 D．出错19．在使用流程图描述算法中，表示变量的计算与赋值的符号框为()A．矩形框B．菱形框C．平行四边形框D．椭圆形框20．在 VB 中，以下关于变量定义错误的是()A． Dim a As Integer B．Public a As String C． Private a As Boolean D．21．在 VB 中，表达式 Sgn(-5.8) 的结果是 ()A． -5.8B．-5C．-6D．-122．已知 f(1)=1 ，f(2)=2，当 n≥ 3 时， f(n)= f(n-1)+f(n-2)，编程求 f(100)的值，应选择的A．解析法B．穷举法C．递归法D．冒泡排序法23．下面说法正确的是 ()A．算法 +数据结构 =程序设计 B ．算法就是程序 C ．数据结构就是程序D．24．穷举法的适用范围是( )A．一切问题B．解的个数极多的问题C．解的个数有限且可一一列举D．设计算法25．在 VB中，表达式 Log(100) 的结果是 ()A． 1B．2C．10D．以上都不是26．如果设计的程序需要播放 Mp3音乐或 avi 视频文件，可用控件()A． label B．textbox C．mediaplayer D．data27．表达式 Asc("A")的结果类型是 ( )A．数值型B．日期型C．布尔型D．字符型28．程序运行后，要按指定的时间间隔重复自动执行某段代码，可用控件( )A． Label B．textbox C．timer D．image29．如果设计的程序需要与数据库进行连接，可用控件()A． label B．textbox C．timer D．data30．在 VB程序中，下列哪个程序行是正确的()A． x-5=y B．a+b=c C．y=1:y=y+1D．i=5;i=i+1 31．在软件开发中有许多重要的环节，下列叙述中正确的是()A．软件维护只包括对程序代码的维护B．程序调试后一般不需要再测试C．软件测试应该由程序开发者来完成D．需求分析与程序设计、测试、维护是软件开发中32．如果把一个人当作对象，那么血型相当于这个对象的()A．属性B．方法C．事件D．过程33．算法是解决问题的步骤序列，正确的序列是()①分析问题；②提出问题；③设计算法A．②①③B．①②③C．①③②D．②③①34．不论多么复杂的程序，在程序设计中都可以归为( )等三种基本控制结构的组合。
高中会考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试题及答案
高中会考信息技术vb试题及答案高中会考信息技术VB试题及答案一、单项选择题（每题2分，共20分）1. 在Visual Basic中，以下哪个是合法的变量名？A. 2variableB. variable2C. 3variableD. variable-2答案：B2. Visual Basic中，以下哪个选项是正确的数据类型？A. IntegerB. RealC. StringD. All of the above答案：D3. 在Visual Basic中，以下哪个函数用于计算两个数的和？A. SumB. AddC. +D. Concatenate答案：C4. 如果变量x的值为5，以下哪个表达式的值是10？A. x + 5B. x * 2C. x / 2D. x - 5答案：B5. 在Visual Basic中，以下哪个选项是正确的循环结构？A. ForB. WhileC. DoD. All of the above答案：D6. 在Visual Basic中，以下哪个控件用于显示文本？A. LabelB. TextBoxC. ComboBoxD. CheckBox答案：A7. 在Visual Basic中，以下哪个事件用于响应鼠标单击？A. ClickB. DoubleClickC. MouseDownD. MouseUp答案：A8. 在Visual Basic中，以下哪个函数用于获取当前系统时间？A. NowB. DateC. TimeD. Today答案：A9. 在Visual Basic中，以下哪个选项是正确的逻辑运算符？A. AndB. OrC. NotD. All of the above答案：D10. 在Visual Basic中，以下哪个控件用于选择一个项目？A. ListBoxB. ComboBoxC. CheckBoxD. RadioButton答案：B二、填空题（每题2分，共20分）1. 在Visual Basic中，声明一个整型变量的关键字是________。
高中信息技术-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.关于对分查找和顺序查找算法的叙述，正确的是（)。
vb算法与程序设计复习题
"算法与程序设计"复习题一、选择题局部(100题)一章一节：了解计算机解决问题的过程1．用计算机解决问题时，首先应该确定程序"做什么.〞，然后再确定程序"如何做.〞请问"如何做.〞是属于用计算机解决问题的哪一个步骤.〔〕A、分析问题B、设计算法C、编写程序D、调试程序答案：B2.学校要举行运动会，请你设计一个能够对运发动分数自动排序的软件，如果要设计此软件，以下最好的方法和步骤是〔〕。
A、分析问题，编写程序，设计算法，调试程序B、设计算法，编写程序，提出问题，调试程序C、提出问题，设计算法，编写程序，调试程序D、设计算法，提出问题，编写程序，调试程序答案：C3．以下步骤不属于软件开发过程的是〔〕。
A、任务分析与系统设计B、软件的销售C、代码编写与测试D、软件测试与维护答案：B4．用计算机解决问题的步骤一般为〔〕①编写程序②设计算法③分析问题④调试程序。
A．①②③④ B．③④①② C．②③①④ D．③②①④答案：D5．以下描述中最适合用计算机编程来处理的是〔〕。
A、确定放学回家的路线B、计算某个同学期中考试各科成绩总分C、计算100以内的奇数平方和D、在因特网上查找自己喜欢的歌曲答案：C6．以下问题中最适合用计算机编程处理的是〔〕。
A、制定本学期的学习方案B、计算正方形的周长C、创作一首歌曲D、求1000以内的所有素数答案：D7．由"上车—掏钱—投币〞所描述的问题是〔〕。
A、无人售票车投币过程B、乘公交车过程C、上车过程D、下车过程答案：A一章二节：算法和算法描述8．下面说法正确的选项是〔〕。
A、算法+数据构造=程序B、算法就是程序C、数据构造就是程序D、算法包括数据构造答案：A9．算法描述可以有多种表达方法，下面哪些方法不可以描述"水仙花数问题〞的算法〔〕。
A.自然语言B.流程图C.伪代码D.机器语言答案：D10．下面关于算法的说法错误的选项是〔〕。
高中信息技术-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．在日常生活中，我们经常会遇到各种各样的问题，以下描述中最适合我们用计算机编程方法来处理的是（）。
高中信息技术算法与程序设计题库含答案
高中信息技术算法与程序设计题库含答案Revised at 2 pm on December 25, 2020.算法与程序设计会考题库算法与程序设计选择题2、下列属于字符型常量的是A、wordB、北京奥运会C、#2006-11-10#D、"1234"3、函数Abs(-9)返回的值是A、3B、4C、9D、-94、在VB语言中，下列正确的赋值语句是A、a + 4 = cB、a = 2 + cC、a + 4 = b – 5D、a / 2 = c * 35、以下程序段执行后，整型变量s的值为s = 1For i = 1 To 3s = s * iNext iA、0B、1C、3D、66、在VB语言中，下列合法的变量名是A、5566B、a-cC、ab&34D、x17、在VB语言中，表示“a大于5或小于0”的正确表达式是A、0 < a < 5B、a > 5 And a < 0C、a > 5 Or a < 0D、a > 0 And a < 58、代数式对应的VB表达式是A、a + b / cdB、(a + b) / c * dC、a + b / (c * d)D、(a + b) / (c * d)9、以下程序段执行后，整型变量a的值为a=2b=3b = b + aa = a * bA、3B、5C、6D、1010、代数式对应的VB表达式是A、a + b / c - dB、(a + b) / c – dC、a + b / (c - d)D、(a + b) / (c - d)11、在VB语言中，下列正确的赋值语句是A、a + b = cB、a = 9C、a + 2 = b – 3D、a / 2 = c12、在VB语言中，下列正确的赋值语句是A、5 = cB、3 a = 5 cC、-c = c – 3D、a=b+c13、下列属于整型常量的是A、2006B、一千零一C、"1997"D、16、下列属于整型常量的是A、123B、59999C、D、"45"17、函数Sqr(9)返回的值是A、1B、3C、4D、1618、代数式对应的VB表达式是A、a + b / 2 * cB、(a + b )/ 2 cC、a + b / (2 * c)D、(a + b) / (2 * c)19、下列逻辑表达式的值为“真”的是A、2 + 4 > 8B、3 + 12 > 15C、5 > 0 And 4 < 3D、10 / 5 < 320、以下程序段执行后，整型变量s的值为s = 0For i = 1 To 5s = s + 1Next iA、0B、1C、5D、1521、下列逻辑表达式的值为“真”的是A、3 < 8 – 6B、12 + 6 = 2 * 9C、12 - 5 < 5D、6 / 4 > 222、以下程序段执行后，整型变量s的值为s = 0For i = 1 To 3s = s + iNext iA、0B、1C、3D、623、下列属于整型常量的是A、1997B、一千零一夜C、"1997"D、ABC24、函数Abs(-4)返回的值是A、1B、2C、4D、-426、下列属于字符型常量的是A、1234B、abcdC、#abc123#D、"2008北京奥运会"27、设置窗体标题时，应改变窗体的A、Name属性B、Caption属性C、BackColor属性D、Font属性28、在VB语言中，下列合法的变量名是A、34abB、ab_cC、ab-34D、c\c29、以下程序段执行后，整型变量a的值为a=5b=8b=b+aa=a+bA、5B、8C、13D、1830、下列逻辑表达式的值为“假”的是A、3 + 5 > 10B、4 + 12 <> 15C、4 / 2 = 2D、5 < 2 * 331、若a = 8，b = 5，则运行Print a; "-"; b; "="; a - b的结果是A、a -b = 3B、8 - 5 = 3C、a - b = a – bD、332、函数Abs(5)返回的值是A、1B、5C、-5D、2533、下列逻辑表达式的值为“假”的是A、4 + 11 > 20B、3 + 5 > 7C、8 / 4 < 4D、5 > 3 And 3 > 234、若a = 4，b = 5，则运行Print a; "+"; b; "="; a + b的结果是A、a + b = 9B、4 + 5 = 9C、a + b = a + bD、935、在VB语言中，表示“a大于0小于12”的正确表达式是A、12 > a > 0B、a > 12 And a < 0C、a > 12 Or a < 0D、a > 0 And a < 1237、设置窗体背景颜色时，应改变窗体的A、Name属性B、Caption属性C、BackColor属性D、Font属性38、以下程序段执行后，整型变量a的值为a=3b=5b=b-aa=a+bA、2B、5C、8D、1139、在VB语言中，下列正确的赋值语句是A、a + 3 = cB、a = c – 9C、2 * a = 3 * bD、a + b / 2 = c40、在VB语言中，下列正确的赋值语句是A、a = a + 1B、3 * a = c - 5C、a + a = 2 * aD、a + 3 = b41、以下程序段执行后，整型变量a的值为a = 3b = 5b = b + aa = a + bA、3B、5C、11D、1342、在VB语言中，下列合法的变量名是A、22aaB、helloC、a*bD、a^243、在VB语言中，下列合法的变量名是A、aaB、a*bC、7abD、dim44、在VB语言中，下列合法的变量名是A、12aB、ab/cC、ab34D、(ab)45、以下程序段执行后，整型变量s的值为s = 0For i = 1 To 4s = s + iNext iA、0B、4C、5D、1046、以下程序段执行后，整型变量a的值为a=5b=8b = b - aa = a - bA、2B、3C、5D、848、函数Sqr(16)返回的值是A、1B、3C、4D、1649、以下程序段执行后，整型变量s的值为s = 0For i = 1 To 4s = s + 1Next iA、0B、1C、4D、5算法与程序设计操作题1、打开“考生目录VB\134”文件夹中的文件：“”进行以下操作后并保存。
vb高中会考试题及答案
vb高中会考试题及答案一、选择题（每题2分，共20分）1. 在VB中，以下哪个关键字用于声明变量？A. DimB. SubC. FunctionD. End答案：A2. 在VB中，以下哪个函数用于计算字符串的长度？A. LenB. MidC. LeftD. Right答案：A3. 在VB中，以下哪个控件用于显示文本信息？A. LabelB. TextBoxC. ComboBoxD. ListBox答案：A4. 在VB中，以下哪个事件用于响应按钮点击？A. ClickB. DoubleClickC. MouseDownD. MouseUp答案：A5. 在VB中，以下哪个循环结构用于在满足条件时重复执行代码块？A. Do...LoopB. For...NextC. While...WendD. If...Then答案：C6. 在VB中，以下哪个关键字用于定义函数？A. SubB. FunctionC. PropertyD. Event答案：B7. 在VB中，以下哪个关键字用于定义过程？A. FunctionB. SubD. Module答案：B8. 在VB中，以下哪个控件用于接收用户输入的文本？A. LabelB. TextBoxC. ComboBoxD. ListBox答案：B9. 在VB中，以下哪个事件用于响应文本框内容的改变？A. ChangeB. ClickC. DblClickD. KeyPress10. 在VB中，以下哪个函数用于将字符串转换为整数？A. ValB. StrC. IntD. CInt答案：D二、填空题（每题2分，共20分）1. 在VB中，声明一个整型变量i，可以使用关键字________。
答案：Dim2. 在VB中，将一个变量的值赋给另一个变量，可以使用运算符________。
答案：=3. 在VB中，使用________函数可以连接两个字符串。
答案：&4. 在VB中，使用________函数可以获取当前日期。
高中会考vb试题及答案
高中会考vb试题及答案高中会考VB试题及答案一、选择题（每题2分，共20分）1. 在VB中，以下哪个选项是正确的数据类型？A. IntegerB. DoubleC. StringD. All of the above答案：D2. VB中，以下哪个函数用于计算一个数的平方根？A. SqrB. PowC. AbsD. Log答案：A3. 在VB中，以下哪个选项是正确的循环结构？A. ForB. WhileC. DoD. All of the above答案：D4. VB中，以下哪个选项是正确的条件判断语句？A. IfB. SelectC. CaseD. All of the above答案：D5. 在VB中，以下哪个选项是正确的数组声明方式？A. Dim arr(10) As IntegerB. Dim arr() As Integer = New Integer(10)C. Both A and BD. None of the above答案：C6. VB中，以下哪个选项是正确的文件操作函数？A. OpenB. CloseC. Both A and BD. None of the above答案：C7. 在VB中，以下哪个选项是正确的窗体属性？A. CaptionB. TextC. Both A and BD. None of the above答案：C8. VB中，以下哪个选项是正确的事件处理？A. ClickB. DoubleClickC. Both A and BD. None of the above答案：C9. 在VB中，以下哪个选项是正确的控件？A. LabelB. TextBoxC. Both A and BD. None of the above答案：C10. VB中，以下哪个选项是正确的错误处理语句？A. On Error Resume NextB. On Error GoTo 0C. Both A and BD. None of the above答案：C二、填空题（每题2分，共20分）1. 在VB中，用于声明变量的关键字是________。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
高中信息技术VB排序算法与程序实现浏览题阅览题复习题学校: ___________ 姓名：___________ 班级： ___________ 考号：______（一）顺序查找数据：我们假定被查找的数据存储在有n个元素的数组变量d找的一个特定的数据（这个数据称为查找键）已经存储在变量key中。
下面是顺序查找算法的输入输出说明。
输入：查找键（设在变量key中）。
被查找的数据（设在数组变量d中）。
输出：若找到，输出值为key的数据所在的数组元素的下标，记为i; 若未找到，输出结果为提示字符串："找不到”。
找到情况未找到情况总结顺序查找数据结果判断条件：⑴、当找到时，肯定i<="8," n个数据时，肯定i<=n,i 即为找到的数组元素下标,⑵、当"找不到”时，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 ①i =" i" + 1Loop会考中，要寻d(i)=key;If 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、2015 C、2012、2017、2018、2014、2021、2022、2015D 、2022、2021、2018、2014、2017、2012、2015【答案】D【解析】3 .关于对分查找和顺序查找算法的叙述，正确的是（）。
A. 顺序查找需要排序，效率低；对分查找不需要排序，效率高。
B. 顺序查找不需要排序，效率低；对分查找需要排序，效率高。
C. 顺序查找不需要排序，效率高；对分查找需要排序，效率低。
D. 顺序查找需要排序，效率高；对分查找不需要排序，效率低。
【答案】B【解析】4 .某数组有8个元素，依次为500、4佃、352、350、300、200、180、100，若采用顺序查找法在该数组中查找数据300,需要查找的次数是（）A. 1B. 3C. 4D. 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.53 6.2 4.5B、23 6.2 4.5 5.5 C、2 4.5 6.23 5.5D 、23 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 = x + y ③ t = X ④ X = X- yx = yy= x- y x= y y= x+yy =xx和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, 2015B. 2012, 2014, 2018, 2017, 2021, 2022, 2015C. 2012, 2017, 2018, 2014, 2021, 2022, 2015D. 2022, 2021, 2018, 2014, 2017, 2012, 2015【答案】B【解析】本题意图考核考生考生选择排序算法执行过程的理解。
11.下表记录了6个数据的排序过程。
分析表中数据可知，该排序采用的算法与排序方式分别为（）A.冒泡排序，升序B.选择排序，升序C.冒泡排序，降序D.选择排序，降序【答案】A【解析】12 .小王设计了一个程序来列举仁川亚运会的奖牌前三的国家。
下列VB程序实现如下功能：单击命令按钮Commandl后，在列表框Listl中按奖牌数由多到少显示国家名称，如图。
r* -------------------------------------------------------------------------------------鬥仁川亚运会奖牌榜I IW奖牌数前三的国家耀计第话中国奨牌数308第2名韩国奖牌数260第3名日本奖牌数1的请根据算法将下列程序补充完整。
Dim a(1 To 45) As StringDim b(1 To 45) As IntegerPrivate Sub Form_Load()a(1)="中国"b(1) = 308‘ 4个代表团名称及奖牌数分别放在a(1倒a(45)及b(1)到b(45) 中End SubPrivate Sub Command1_Click()Dim i As Integer』As IntegerDim t As Integer』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,否则返回False1)虚线框内程序段所采用的排序算法名称是。
(填：冒泡排序/选择排序)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) Then k=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最后有十人进入决赛，录入员编制了如下 Visual Basic 程序, 程序中数组 a 保存所有参赛者的成绩， 数组b 保存此成绩对应的姓名，第i 位参赛者的成绩保存在a （i ）中，姓名保存在b （i ）中。
程序界面如图所示， 左边列表框Listl 中显示原始数据（成绩和相应的姓名），单击 排序 按钮（Commandl ）,排序后的结果按成绩从高到低显示在列表框List2中。
口决舍的免比空:Dim a (1 To 10) As Single Dim b (1 To 10) As String Private Sub Command1_Click()Dim i As Integer, j As Integer k As Integer x As Single y As String For i = 1 To 9For j = i + 1 To 10 If ① _______ Then k = j Next j If k v> i Thenx = a(i)： a(i)= a(k):② _________ y = b(i): b(i)= b(k)： b(k) = y End If Next i For i = i To 10List2.AddItem Str(a(i))+ “ ” + b(i)Next i End SubPrivate Sub Form_Load()【答案】（1）冒泡排序(2) a (n ) Step-114 .某协会进行钓鱼比赛, 功能是根据成绩进行排序,'此过程用于对数组 a 和数组b 进行初始赋值，代码略 End Sub1------------------j —j + L ~1 ~i-i+1I ______ ‘ I -------(1) 解决此问题的算法是 ________ 。