初中信息技术教师程序设计试题

1、初中信息技术教帅程序设计(VB竞赛、选择题:1、要想改变一个窗体的标题内容,那么应设置以下哪个属性的值A、NameB、FontNameC、CaptionD、TextA、EnabledB、VisbleC、IntervalD、Timer2、 .在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为Textl、Labell和Commandl,然后 编写如下两个事件过程：Private Sub Command1_Click()strText=InputBox("请输入")Text1.Text=strTextEnd SubPrivate Sub Text1_Change()Lab

2、el1.Caption=Right(Trim(Text1.Text),3)End Sub程序运行后,单击命令按钮,如果在输入对话框中输入abcdef,那么在标签中显示的内容是 A、空B、abcdefC、abcD、def3、以下不属于 Visual Basic系统的文件类型是 A、.frmB、.basC、.vbg D、.vbp4、表达式 Str(Len("1234)+Str(5.9) 的值为.A、45.9 B、4 5.9C、12345.9D、1234 5.95、 在窗体上有一个文本框控件,名称为为TxtTime ; 一个计时器控件,名称为 Timer1 ,要求每一秒在文 本框中显示一次

3、当前的时间.程序为：Private Sub Timer1()TxtTime.text=TimeEnd Sub在下划线上应填入的内容是在窗体上画一个命令按钮,然后编写如下事件过程6、在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Commandl_Click()For i=1 To 4 x=4For j=1 To 3 x=3For k=1 To 2 x=x+6Next kNext jNext iPrint x程序运行后,单击命令按钮,输出结果是 .A、 7 B、 15C、 157D、 5387、单击命令按钮时,以下程序代码的执行结果为 Public Sub Procl(n

4、As Integer,ByVal m As Integer)n=n Mod 10m=m10End SubPrivate Sub Command1_Click()Dim x As Integer,y As Integerx=23:y=65Call Procl(x,y)Print x;yEnd SubA、3 65 B、23 65 C、3 60 D、0 658、表达式 23/5.8 , 235.8 , 23 mod 5.8 的运算结果分别是 A、3 , 3.9655 , 3 B、3.9655 , 3, 5C、4, 4 , 5D、3.9655 , 4, 39、为了给三个变量 x、v、z赋初值1,下面赋

5、值语句正确的选项是 A、x=1:y=1:z=1B、x=1,y=1,z=1C、x=y=z=1D、x,y,z=110、用msgbox函数显示的对话框,以下表达正确的选项是 A、该对话框有一个“确定按钮B、该对话框有“是、“否二个按钮C、该对话框有“是、“否、“取消三个按钮D、可以通过选择参数得到以上不同的按钮组合11、 表达式 int(5*rnd+1)*int(5*rnd-1)的值范围是 A、0, 15B、-1, 15 C、-4 , 15D、-5 , 1512、 使用以下语句：Dim x(1 to 10,3) As single,那么数组占用内存空间的字节数是 A、 80B、 120C、 132D

6、、 16013、 以下程序段执行后,i的输出值是 Dim y as integerFor i=1 to 10 step 2y =y+2next iprint iA、25B、10C、11D、由于y初值不知道,所以不进行循环,i值不确定14、以下程序段运行结果是Private Sub Form_click()x=5m=1n=1dom=m*nn=n+1Loop Until n>5Print xA2+m/3End subA、25B、45C、55D、6515、 执行如下程序段时,从键盘输入-5,输出的结果是 x=-5s=Val(Inputbox(请输入 s 的值：) select Case sCa

7、se Is>0 y=x+1Case Is=0 y=x+2Case Else y=x+3End SelectPrint x;yA、-5 -2 B、-5 -4C、-5 -3 D、-5 -516、 以下程序段的执行结果为 .A=0:B=1A=A+B:B=B+A:Print A;BA=A+B:B=B+A:Print A;BA、1 23 5 B、1 1 3 5C、1 3 3 4D、1 2 3 417、.窗体中有如下代码Private Sub Command1_Click() x = 0For k = 3 To 5 GoSub ab s = s + x Next k Print s Exit Sub

8、 ab: x = x + 2 Return End Sub运行后单击COMMAND1按钮,输出的结果是.A、3B、12C、6D、918、InputBox函数返回值的类型为 .A、数值B、字符串C、变体D、数值或字符串(视输入的数据而定)19、以下表达错误的选项是A、在工程资源治理窗口中只能包含一个工程文件及属于该工程的其他文件B、以.BAS为扩展名的文件是标准模块文件C、窗体文件包含该窗体及其控件的属性D、一个工程中可以含有多个标准模块文件20、窗体中有一个命令按钮,窗体运行,单击一次命令按钮之后,以下程序代码的执行结果为 Public Sub Proc(a() As Integer)Stat

9、ic i As IntegerDoa(i) = a(i) + a(i + 1)Loop While i < =2End SubPrivate Sub Command1_Click()Dim m As Integer, i As Integer, x(10) As IntegerFor i = 0 To 4: x(i) = i + 1: Next iFor i = 0 To 2: Call Proc(x): Next iFor i = 0 To 4: Print x(i);: Next iEnd SubB、 1 2 34 5C、3 5 7 9 5D、1 2 35 7,那么正确的调用语句是2

10、1、假定已定义了一个过程Sub Add(a As Single,b As Single)A、Add 12,5 B、Call(2*x,Add(1.57)C、Call Add x,yD、Call Add(12,12,x)22、以下表达错误的选项是A、Visual BasicB、Visual Basic是事件驱动型可视化编程工具应用程序不具有明显的开始和结束语句C、Visual BasicD、Visual Basic工具箱中的所有控件都具有宽度(Width)和高度(Height)属性中控件的某些属性只能在运行时设置23、在窗体上画1个命令按钮,其名称为 Command1 ,然后编写如下程序:Priv

11、ate Sub Command1_Click()Dim a(10)As IntegerDim x As IntegerFor i=1 To 10 a(i)=8+iNextx=2Print a(f(x)+x)End SubFunction f(x As Integer)x=x+3f=xEnd Function程序运行后,单击命令按钮,输出结果为 .A) 12B) 15C) 17D) 1824、关于Visual Basic"方法的概念错误的选项是 A)方法是对象的一局部B)方法是预先定义好的操作C)方法是对事件的响应D)方法用于完成某些特定的功能25、单击命令按钮时,以下程序的执行结果为

12、 Private Sub Command1_Click()Dim x As Integer, y As Integerx=12:y=32Call Proc(x,y)Print x; yPublic Sub Proc(n As Integer, ByVal m As Integer)n=n Mod 10m=m Mod 10End SubA) 12 32 B) 2 32C) 2 3D) 12 326、一个工程必须包含的文件的类型是 A) *.vbp *.frm *.frx B) *.vbp *.cls *.bas C) *.bas *.ocx *.res D) *.frm *.cls *.bas2

13、7、有如下事件过程：Private Sub Command1_Click()b=10Do Until b=-1a=InputBox("请输入a的值")a=Val(A)b=InputBox("请输入b的值")b=Val(b)a=a * bLoopPrint aEnd Sub程序运行后,依次输入数值30 , 20 ,10, 一 1,输出结果为 A) 6000B) - 10 C) 200D) -600028、VB是一种面向对象的可视化程序设计工具,以下关于面向对象程序设计的描述,正确的选项是 A)面向对象程序设计完全不同于结构化程序设计；B)对象的属性、方法和

14、事件称为对象的三要素；C) VB中的类就是一种变量D)面向对象程序设计的三大特征是封装性、继承性和事件驱动29、设有以下循环结构Do循环体Loop While< 条件 >那么以下表达中错误的选项是A、假设条件是一个为0的常数,那么一次也不执行循环体B、条件可以是关系表达式、逻辑表达式或常数C、循环体中可以使用 Exit Do语句 D、如果 条件总是为True,那么不停地执行循环体30、在设计阶段,当双击窗体上的某个控件时,所翻开的窗口是 A、工程资源治理器窗口B、工具箱窗口 C、代码窗口D、属性窗口二、填空题：1、 新建一个工程,内有两个窗体,窗体 Form1上有一个命令按钮 Co

15、mmand1,单击该按钮,Form1窗体 消失,显示窗体Form2 ,程序如下,试补充完整：Private Sub Command1_Click()_(1_Form2. _(2)_End Sub2、假设 A=20 , B=80 , C=70 , D=30,那么表达式 A+B>160 Or (B+C>200 And Not D>60) 的值是.3、 Visual Basic应用程序中标准模块文件的扩展名是 .4、 以下程序代码实现单击命令按钮 Command1时形成并输出一个主对角线上元素值为-1 ,其他元素值为 0的6X6阶方阵.Privae Sub Command1_Cli

16、ck()Dim A(6,6)For I=1 To 6For J=1 To 6If I=J Then(1Else(2)End IfPrint A(I,J);Next JPrintNext IEnd Sub5、 以下程序循环的执行次数是 .a=0Do While a<=10a=a+2Loop6、 在窗体上画1个命令按钮,其名称为Command1 ,然后编写如下事件过程：Private Sub Command1_Click()Dim arr(1 To 100 ) As IntegerFor i=1 To 100arr(i)=Int(Rnd*1000)Next iMax=arr(1)Min=ar

17、r(1)For i=1 To 100If ThenMax=arr(i)End IfIf (2 ThenMin=arr(i)End IfNext iPrint"Max=" ； Max, "Min=" ； MinEnd Sub程序运行后,单击命令按钮,将产生 100个1000以内的随机整数,放入数组 arr中,然后查找并输出这 100个数中的最大值 Max和最小值 Min,请填空.7、 执行以下程序段,并输入1.23,那么程序的输出结果应是： N=Str(InputBox(请输入一个实数：)P=InStr(N, )Print Mid(N,P)8、 下述定义中

18、的函数所计算的数学表达式是A(0)+A(1)*x+A(2)*xA2+ +A(N-1)+A(N)*xAN ,请填空.FUNCTION Fun(A(),N,x)S=0For k=N to 0 step -1S=NextFun=SEND FUNCTION9、下面的程序用“冒泡法将数组 x中的10个整数按升序排列,请将程序补充完整.Option Base 1Private Sub Command1_Click()Dim aa=Array(678,45,324,528,439,387,87,875,273,823)For i=(1_For j=(2)If a(i) _( _ a(j) thena1=a(i)a(i)=a(j)a(j)=a1End ifNext jNext iFor i=1 to 10Print a(i)(4)End Sub10、 计时器控件能有规律的以一定时间间隔触发 事件,并执行该事件过程中的程序代码.11、 为了运行时把d:pic文件夹下的图形文件 a.jpg装入图片框架Picture1 ,所使用的语句为 .12、 在顺序