高中信息技术会考一、单选题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. 关系表达式的值为。

A．数值B．字符串C．逻辑值D．逻辑表达式14. 下列控件中“文本框”是。

A. LabelB. TextBoxC. OptionButtonD. CommandButton15. 若改变一文本框中所显示文本的颜色，需改变此文本框的哪个属性？A. CaptionB. ForecolorC. BackcolorD. Text16. 在VB环境中，如果设计时将命令按钮的属性设置为False，则运行时该按钮从窗体上消失。

A．Default B．EnabledC．Visible D．DisabledPicture17.在VB环境中，修改对象的BackColor的属性值，则对象的将发生改变。

A. 文字颜色B. 背景色C. 前景色D. 边框颜色18.用VB工具箱中的哪个控件可以建立命令控制按钮 B 。

19.在VB应用程序中，修改控制代码，使Command1按钮显示“end”，正确的设置是。

A. Command1.Text=“end”B. Command1.Caption=“end”C. ＝endD. Command1.Caption=end20.在VB程序中，当变量H的值等于8时，执行“IF H>8 then R=10 else R=20”语句后，R值为。

A．5 B．10 C．20 D．10或2021．当a=123: b=Str(a)，则A．a和b均是字符型变量B．a是字符型变量，b是数值型变量C．a是数值型变量，b是字符型变量D．a和b均是数值型变量22.用循环结构解决问题时，如果循环的次数已知，通常采用；当循环的次数未知，需要靠判断条件是否成立来决定循环的执行和退出时，通常采用。

A．For…Next循环、Do…Loop循环B．Do…Loop循环、For…Next循环C．Do…Next循环、For…Loop循环23. 函数的作用是建立一个输入对话框。

A．MsgBox() B．InputBox() C．RGB() D．Print24．A=5，B=8，则（B-A）*Rnd+A的结果是介于_______之间的实数。

A. [5，8]B.（5，8）C.[5，8）D.（3，5）25．For i=1 to 10 Step 2…… ‘循环体中循环变量的值保持不变。

Next i在程序运行时循环体将被执行_________几次。

A.3次B.4次C.5次D.6次26．执行后将会清空文本框Text1中文本的语句是___________。

A. Text1.ClearB. Text1.SelText= " "C. Text1.text= " "D. Text1.SelText.Clear27．在机场托运行李，每人免费25千克，超过25千克不到50千克，则超出部分按每千克10元收费，如果超过50千克，则超过部分按每千克20元收费。

这种计费程序最适合用到的程序结构是A.循环B.赋值C.分支D. 顺序28．下面是一段循环结构的程序段：s=0x=2Dos=s+1x=x+3Loop Until (x>=12)该程序段运行后，循环体的执行次数是A.1B.2C.3D. 4二、多选题1．在VB应用程序设计中，以下说法正确的是：A．对象包括窗体和控件B．属性用来描述和确定对象的特征信息C．事件是指用户操作引发或由系统引发，能被对象所识别并做出响应的动作D．方法是指程序设计的方法2．在VB应用程序设计中，以下说法正确的是：A．要显示不想让用户修改的文本时，应该使用Label控件B．要显示可以让用户编辑的文本时，应该使用TextBox控件C．鼠标单击可以用Click事件D．要想画图形，只能在窗体中实现3．在VB编程中，如果需要返回鼠标的当前位置时，应该使用或事件。

A．Click B．MouseDown C．Change D．MouseMove4．下列字符串中，不能作为变量名使用的有：A．End B．a1 C．xx D．Sub5．在VB应用程序设计中，以下说法正确的是：A．Abs( )是转换英文大小写的函数B．MsgBox( ) 是消息函数C．RGB( )是颜色函数D．Sqr( )是求平方根函数6．VB简单应用程序的设计步骤为：A．设计图形用户界面B．设置对象属性C．编写对象事件过程及通用过程代码D．运行调试程序并保存工程7．在VB程序设计中，Dim语句的功能为：A．使系统能够按声明进行语法检查，有利于程序的调试、运行B．合理分配内存C．定义变量的作用范围D．增强程序的可读性三、读程序运行结果1. 下列程序运行后，变量s= C 。

Dim a,b,c,s As Integera=9b=41c=2*(a+b)s=a*cA．100 B．50 C．900 D．3002. 下列程序运行后，变量x= D 。

Dim n,x As Integern=5Private Sub Form_Load()x=1For i=1 To nx=x*iNext iEnd SubA．5 B．15 C．24 D．120 3. 下列程序运行后，变量k= C 。

Dim k As IntegerPrivate Sub Command1_Click()k=0For i=7 To 100 Step 7k=k+1Next iEnd SubA．0 B．7 C．14 D．154. 下列程序的结果是：___S=6___ Private Sub From_Activate()S=1For I=1 to 3 Step 1S=S*INext IPrint “S=”;SEnd Sub5. 下列程序的结果是：I=2I=4Private Sub Form_activate()For I=1 to 4 Step 1If I Mod 2=0 thenPrint ”I=”;IEnd ifNext IEnd Sub6. 阅读以下程序Private Sub Command1_Click()Print “* * Hi ,”Print “how are you * *”End Sub当程序执行时，单击Command1后，输出结果是* * Hi ,how are you * *7. 阅读以下程序段Private Sub Command1_Click()For R =100 to 520 step 100b1 = 255 * Rndb2 = 255 * Rndb3 = 255 * RndPicture2.Circle(1000,1000), R,RGB(b1,b2,b3)Next REnd Sub当程序执行时，单击command1后，将在（何处）__ Picture2___显示__5__个颜色_ 不同_（填相同或不同）的同心圆。

8. 阅读以下程序段Private Sub Command1_Click()S = 1For a =3 to 12 step 4S = S + 2Next aPrint “S = ”；SEnd Sub当程序执行后，S的值是__7__，a的值是__15__。

9. 以下是求任意圆面积的程序Private Sub Command1_Click()R = InputBox("请输入圆的半径","数据输入",16)print “S=”；3.14*R*REnd Sub在程序执行过程中单击Command1时，出现了右图所示的窗口，请根据如图所示信息，在空白处补充对应的程序语句。

10. 以下是求计算8阶乘的程序，请将该程序补充完整Private Sub Command1_Click()S = ___1___For k= __1_ to _8__ step _1___s=s*k__Next kEnd Sub11．Private Sub Form_Activate ()Line(1000,1000)-(2000,1000)Line(2000,1000)-(2000,2000)Line(2000,2000)-(1000,2000)Line(1000,2000)-(1000,1000)Circle(1500,1500),500End Sub 运行结果：12.阅读程序代码并填空。

Private Sub Command1_Click()Dim a, b As Integera = InputBox("a=", "输入")b = InputBox("b=", "输入")If a > b ThenPrint aElse: Print bEnd IfEnd Sub(1)程序的基本结构包括顺序结构、分支结构和循环结构，本程序主要使用的是__分支__ 结构。