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

1、学习必备欢迎下载初中信息技术教师程序设计（VB）竞赛试题一、选择题：1、要想改变一个窗体的标题内容，则应设置以下哪个属性的值_ 。A 、NameB、FontNameC、 CaptionD、 Text2、.在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1 、Label1 和 Command1,然后编写如下两个事件过程：Private Sub Command1_Click()strText=InputBox(" 请输入 ")Text1.Text=strTextEnd SubPrivate Sub Text1_Change()Label1.Caption=Ri

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

3、示一次当前的时间。程序为：Private Sub Timer1_ _()TxtTime.text=TimeEnd Sub在下划线上应填入的内容是_A 、EnabledB、VisbleC 、IntervalD、Timer6、在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Commandl_Click()For i=1 To 4x=4For j=1 To 3x=3For k=1 To 2x=x+6Next kNext jNext iPrint xEnd Sub学习必备欢迎下载程序运行后，单击命令按钮，输出结果是_ 。A 、7B、15C、157D、 5387、单击命令按钮时，下

4、列程序代码的执行结果为_ 。Public Sub Procl(n 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 65B、 23 658、表达式23/5.8 ，235.8C、3 60 ，23 mod 5.8D、0 65的运算结果分别是_A 、3 ，3.9655 ， 3B、3.9655 ， 3 ，5C、4，4 ，5D 、3.9655，4，3

5、9、为了给三个变量x、 y、 z 赋初值1，下面赋值语句正确的是_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 singleA

6、、80B、 120C、 13213 、下列程序段执行后，i 的输出值是 _Dim y as integerFor i=1 to 10 step 2y =y+2，则数组占用内存空间的字节数是D、160_next iprint iA、25B、 1014 、下列程序段运行结果是Private Sub Form_click()x=5m=1n=1doC、 11_D 、因为y 初值不知道，所以不进行循环，i 值不确定m=m*nn=n+1Loop Until n>5Print x2+m/3End subA、25B、 45C、 55D、65学习必备欢迎下载15 、执行如下程序段时，从键盘输入-5 ，输出

7、的结果是_x=-5s=Val(Inputbox( “请输入 s 的值： ”)select Case sCase Is>0y=x+1Case Is=0y=x+2Case Elsey=x+3End SelectPrint x;yA、-5 -2B、 -5 -4C、 -5-3D、-5 -516 、下列程序段的执行结果为_ 。A=0:B=1A=A+B:B=B+A:Print A;BA=A+B:B=B+A:Print A;BA、1235B、1 13 5C、13 34D、12 3417 、. 窗体中有如下代码Private Sub Command1_Click()x = 0For k = 3 To 5

8、GoSub abs = s + xNext kPrint sExit Subab: x = x + 2ReturnEnd Sub运行后单击COMMAND1按钮，输出的结果是_ 。A 、3B、 12C 、6D、 918 、InputBox函数返回值的类型为_ 。A 、数值B 、字符串C 、变体D、数值或字符串（视输入的数据而定）19 、以下叙述错误的是_A 、在工程资源管理窗口中只能包含一个工程文件及属于该工程的其他文件B 、以 .BAS 为扩展名的文件是标准模块文件C、窗体文件包含该窗体及其控件的属性D、一个工程中可以含有多个标准模块文件20 、窗体中有一个命令按钮，窗体运行，单击一次命令按钮

9、之后，下列程序代码的执行结果为_ 。Public Sub Proc(a() As Integer)Static i As IntegerDo学习必备欢迎下载a(i) = a(i) + a(i + 1)i = i + 1Loop 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:

10、Print x(i);: Next iEnd SubA、34756B、12345C、3579521 、假定已定义了一个过程Sub Add(a As Single,b As Single)A 、Add 12,5B 、 Call(2*x,Add(1.57)C、 Call Add x,yD、12357，则正确的调用语句是D、 Call Add(12,12,x)_ 。22 、以下叙述错误的是_A 、Visual Basic是事件驱动型可视化编程工具B 、Visual Basic应用程序不具有明显的开始和结束语句C、 Visual Basic 工具箱中的所有控件都具有宽度（ Width) 和高度 (He

11、ight) 属性D、 Visual Basic 中控件的某些属性只能在运行时设置23 、在窗体上画1 个命令按钮，其名称为Command1 ，然后编写如下程序：Private Sub Command1_Click()Dim a(10)As IntegerDim x As IntegerFor i=1 To 10a(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&qu

12、ot;方法 " 的概念错误的是 _A)方法是对象的一部分B) 方法是预先定义好的操作C)方法是对事件的响应D) 方法用于完成某些特定的功能25 、单击命令按钮时，下列程序的执行结果为_Private Sub Command1_Click()Dim x As Integer, y As Integerx=12:y=32Call Proc(x,y)Print x; yEnd Sub学习必备欢迎下载Public Sub Proc(n As Integer, ByVal m As Integer)n=n Mod 10m=m Mod 10End SubA)1232B)232C)2326 、一个

13、工程必须包含的文件的类型是A) *.vbp *.frm *.frxB) *.vbp *.cls *.basD)123_C) *.bas *.ocx *.resD) *.frm *.cls *.bas27 、有如下事件过程：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)

14、 6000B) 10C) 200D) -600028、VB是一种面向对象的可视化程序设计工具，下列关于面向对象程序设计的描述，正确的是_A ）面向对象程序设计完全不同于结构化程序设计；B）对象的属性、方法和事件称为对象的三要素；C） VB中的类就是一种变量D）面向对象程序设计的三大特征是封装性、继承性和事件驱动29 、设有以下循环结构Do循环体Loop While<条件 >则以下叙述中错误的是_A 、若 “条件 ”是一个为C、循环体中可以使用0 的常数，则一次也不执行循环体B 、 “条件 ”可以是关系表达式、逻辑表达式或常数Exit Do语句D、如果 “条件 ”总是为 True ，

15、则不停地执行循环体30 、在设计阶段，当双击窗体上的某个控件时，所打开的窗口是_A 、工程资源管理器窗口B、工具箱窗口C 、代码窗口D 、属性窗口二、填空题：1、新建一个工程，内有两个窗体，窗体Form1 上有一个命令按钮Command1 ，单击该按钮， 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 Basi

16、c应用程序中标准模块文件的扩展名是_ 。的值是 _ 。4、以下程序代码实现单击命令按钮Command1时形成并输出一个主对角线上元素值为-1 ，其他元素值为学习必备欢迎下载0 的 6×6 阶方阵。Privae Sub Command1_Click( )Dim A(6,6)For I=1 To 6For J=1 To 6If I=J Then_(1)_Else_(2)_End IfPrint A(I,J);Next JPrintNext IEnd Sub5、以下程序循环的执行次数是_ 。a=0Do While a<=10a=a+2Loop6、在窗体上画1 个命令按钮，其名称为Pr

17、ivate Sub Command1_Click()Dim arr(1 To 100 ）As IntegerFor i=1 To 100arr(i)=Int(Rnd*1000)Next iMax=arr(1)Min=arr(1)For i=1 To 100If _(1)_ ThenMax=arr(i)End IfIf _(2)_ ThenMin=arr(i)End IfNext iPrint"Max=" ； Max ， "Min=" ； MinEnd SubCommand1，然后编写如下事件过程：程序运行后，单击命令按钮，将产生100 个1000以内的随

18、机整数，放入数组arr中，然后查找并输出这100 个数中的最大值Max和最小值Min，请填空。7、执行以下程序段，并输入1.23 ，则程序的输出结果应是：_N=Str(InputBox(“请输入一个实数：”)P=InStr(N, ”.”)Print Mid(N,P)学习必备欢迎下载8、下述定义中的函数所计算的数学表达式是A(0)+A(1)*x+A(2)*x2+ +A(N-1)+A(N)*xN，请填空。FUNCTION Fun(A(),N,x)S=0For k=N to 0 step -1S=_NextFun=SEND FUNCTION9、 下面的程序用“冒泡”法将数组x 中的 10 个整数按升

19、序排列，请将程序补充完整。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) _(3)_ 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 ，所使用的语句为_