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

该【初中信息技术教师程序设计试题 】是由【莫比乌斯】上传分享，文档一共【8】页，该文档可以免费在线阅读，需要了解更多关于【初中信息技术教师程序设计试题 】的内容，可以使用淘豆网的站内搜索功能，选择自己适合的文档，以下文字是截取该文章内的部分文字，如需要获得完整电子版，请下载此文档到您的设备，方便您编辑和打印。学****必备欢迎下载学****必备欢迎下载学****必备欢迎下载初中信息技术教师程序设计(VB)竞赛试题选择题:1、要想改变一个窗体的标题内容,则应设置以下哪个属性的值____。A、Name B、FontName C、Caption D、Text2、.在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为Text1、mand1,然后编写如下两个事件过程:mand1_Click()strText=InputBox("请输入")=strTextEndSubPrivateSubText1_Change()=Right(Trim(),3)EndSub程序运行后,单击命令按钮,如果在输入对话框中输入abcdef,则在标签中显示的内容是____A、空 B、abcdef C、abc D、def3、以下不属于VisualBasic系统的文件类型是____A、.frm B、.bas C、.vbg D、.vbp4、表达式Str(Len("1234"))+Str()的值为____。A、 B、 C、 D、、在窗体上有一个文本框控件,名称为为TxtTime;一个计时器控件,名称为Timer1,要求每一秒在文本框中显示一次当前的时间。程序为:PrivateSubTimer1______()=TimeEndSub在下划线上应填入的内容是____A、Enabled B、Visble C、Interval D、Timer6、在窗体上画一个命令按钮,然后编写如下事件过程:mandl_Click()Fori=1To4x=4Forj=1To3x=3Fork=1To2x=x+6NextkNextjNextiPrintxEndSub学****必备欢迎下载学****必备欢迎下载学****必备欢迎下载程序运行后,单击命令按钮,输出结果是____。A、7 B、15 C、157 D、5387、单击命令按钮时,下列程序代码的执行结果为____。PublicSubProcl(nAsInteger,ByValmAsInteger)n=nMod10m=m\10EndSubmand1_Click()DimxAsInteger,yAsIntegerx=23:y=65CallProcl(x,y)Printx;yEndSubA、365 B、2365 C、360 D、0658、表达式23/,23\,、3,,3 B、,3,5 C、4,4,5 D、,4,39、为了给三个变量x、y、z赋初值1,下面赋值语句正确的是____A、x=1:y=1:z=1 B、x=1,y=1,z=1 C、x=y=z=1 D、x,y,z=110、用msgbox函数显示的对话框,以下叙述正确的是____A、该对话框有一个“确定”按钮 B、该对话框有“是”、“否”二个按钮C、该对话框有“是”、“否”、“取消”三个按钮 D、可以通过选择参数得到以上不同的按钮组合11、表达式int(5*rnd+1)*int(5*rnd-1)的值范围是____A、[0,15] B、[-1,15] C、[-4,15] D、[-5,15]12、使用下列语句:Dimx(1to10,3)Assingle,则数组占用内存空间的字节数是____A、80 B、120 C、132 D、16013、下列程序段执行后,i的输出值是____Dimyasinteger Fori=1to10step2 y=y+2 nexti printiA、25 B、10 C、11 D、因为y初值不知道,所以不进行循环,i值不确定14、下列程序段运行结果是____PrivateSubForm_click() x=5 m=1 n=1 do m=m*n n=n+1 LoopUntiln>5 Printx^2+m/3EndsubA、25 B、45 C、55 D、65学****必备欢迎下载学****必备欢迎下载学****必备欢迎下载15、执行如下程序段时,从键盘输入-5,输出的结果是____ x=-5 s=Val(Inputbox(“请输入s的值:”)) selectCases CaseIs>0 y=x+1 CaseIs=0 y=x+2 CaseElse y=x+3 EndSelect Printx;yA、-5-2 B、-5-4 C、-5-3 D、-5-516、下列程序段的执行结果为____。A=0:B=1A=A+B:B=B+A:PrintA;BA=A+B:B=B+A:PrintA;BA、1235 B、1135 C、1334 D、123417、.窗体中有如下代码mand1_Click()x=0Fork=3To5GoSubabs=s+xNextkPrintsExitSubab:x=x+2ReturnEndSubMAND1按钮,输出的结果是____。A、3 B、12 C、6 D、918、InputBox函数返回值的类型为____。A、数值 B、字符串 C、变体 D、数值或字符串(视输入的数据而定)19、以下叙述错误的是____A、在工程资源管理窗口中只能包含一个工程文件及属于该工程的其他文件B、、窗体文件包含该窗体及其控件的属性D、一个工程中可以含有多个标准模块文件20、窗体中有一个命令按钮,窗体运行,单击一次命令按钮之后,下列程序代码的执行结果为____。PublicSubProc(a()AsInteger)StaticiAsIntegerDo学****必备欢迎下载学****必备欢迎下载学****必备欢迎下载a(i)=a(i)+a(i+1)i=i+1LoopWhilei<=2EndSubmand1_Click()DimmAsInteger,iAsInteger,x(10)AsIntegerFori=0To4:x(i)=i+1:NextiFori=0To2:CallProc(x):NextiFori=0To4:Printx(i);:NextiEndSubA、34756 B、12345 C、35795 D、1235721、假定已定义了一个过程SubAdd(aAsSingle,bAsSingle),则正确的调用语句是____。A、Add12,5 B、Call(2*x,Add()) C、CallAddx,y D、CallAdd(12,12,x)22、以下叙述错误的是____A、VisualBasic是事件驱动型可视化编程工具B、VisualBasic应用程序不具有明显的开始和结束语句C、VisualBasic工具箱中的所有控件都具有宽度(Width)和高度(Height)属性D、VisualBasic中控件的某些属性只能在运行时设置23、在窗体上画1个命令按钮,mand1,然后编写如下程序:mand1_Click()Dima(10)AsIntegerDimxAsIntegerFori=1To10a(i)=8+iNextx=2Printa(f(x)+x)EndSubFunctionf(xAsInteger)x=x+3f=xEndFunction程序运行后,单击命令按钮,输出结果为____。A)12 B)15 C)17 D)1824、关于VisualBasic"方法"的概念错误的是____A)方法是对象的一部分 B)方法是预先定义好的操作C)方法是对事件的响应 D)方法用于完成某些特定的功能25、单击命令按钮时,下列程序的执行结果为____ mand1_Click() DimxAsInteger,yAsInteger x=12:y=32 CallProc(x,y) Printx;y EndSub学****必备欢迎下载学****必备欢迎下载学****必备欢迎下载 PublicSubProc(nAsInteger,ByValmAsInteger) n=nMod10 m=mMod10 EndSubA)1232 B)232 C)23 D)12326、一个工程必须包含的文件的类型是____A)*.vbp*.frm*.frx B)*.vbp*.cls*.bas C)*.bas*.ocx*.res D)*.frm*.cls*.bas27、有如下事件过程:mand1_Click()b=10DoUntilb=-1a=InputBox("请输入a的值")a=Val(A)b=InputBox("请输入b的值")b=Val(b)a=a*bLoopPrintaEndSub程序运行后,依次输入数值30,20,10,-1,输出结果为____A)6000 B)-10 C)200 D)-600028、VB是一种面向对象的可视化程序设计工具,下列关于面向对象程序设计的描述,正确的是____A)面向对象程序设计完全不同于结构化程序设计;B)对象的属性、方法和事件称为对象的三要素;C)VB中的类就是一种变量 D)面向对象程序设计的三大特征是封装性、继承性和事件驱动29、设有以下循环结构Do循环体LoopWhile<条件>则以下叙述中错误的是____A、若“条件”是一个为0的常数,则一次也不执行循环体B、“条件”可以是关系表达式、逻辑表达式或常数C、循环体中可以使用ExitDo语句 D、如果“条件”总是为True,则不停地执行循环体30、在设计阶段,当双击窗体上的某个控件时,所打开的窗口是____A、工程资源管理器窗口 B、工具箱窗口 C、代码窗口 D、属性窗口填空题:1、新建一个工程,内有两个窗体,mand1,单击该按钮,Form1窗体消失,显示窗体Form2,程序如下,试补充完整:mand1_Click()_(1)(2)_EndSub2、若A=20,B=80,C=70,D=30,则表达式A+B>160Or(B+C>200AndNotD>60)的值是____。3、VisualBasic应用程序中标准模块文件的扩展名是______。4、mand1时形成并输出一个主对角线上元素值为-1,其他元素值为0的6×6阶方阵。学****必备欢迎下载学****必备欢迎下载学****必备欢迎下载mand1_Click()DimA(6,6)ForI=1To6ForJ=1To6IfI=JThen___(1)___Else___(2)___EndIfPrintA(I,J);NextJPrintNextIEndSub5、以下程序循环的执行次数是____。a=0DoWhilea<=10a=a+2Loop6、在窗体上画1个命令按钮,mand1,然后编写如下事件过程:mand1_Click()Dimarr(1To100)AsIntegerFori=1To100arr(i)=Int(Rnd*1000)NextiMax=arr(1)Min=arr(1)Fori=1To100If__(1)___ThenMax=arr(i)EndIfIf___(2)___ThenMin=arr(i)EndIfNextiPrint"Max=";Max,"Min=";MinEndSub程序运行后,单击命令按钮,将产生100个1000以内的随机整数,放入数组arr中,然后查找并输出这100个数中的最大值Max和最小值Min,请填空。7、执行以下程序段,,则程序的输出结果应是:________ N=Str(InputBox(“请输入一个实数:”)) P=InStr(N,”.”) PrintMid(N,P)学****必备欢迎下载学****必备欢迎下载学****必备欢迎下载8、下述定义中的函数所计算的数学表达式是A(0)+A(1)*x+A(2)*x^2+……+A(N-1)+A(N)*x^N,请填空。 FUNCTIONFun(A(),N,x)S=0 Fork=Nto0step-1 S=________ Next Fun=S ENDFUNCTION9、下面的程序用“冒泡”法将数组x中的10个整数按升序排列,请将程序补充完整。 OptionBase1 mand1_Click() Dima a=Array(678,45,324,528,439,387,87,875,273,823) Fori=___(1)___ Forj=____(2)__ Ifa(i)__(3)___a(j)then a1=a(i) a(i)=a(j) a(j)=a1 Endif Nextj Nexti Fori=1to10 Printa(i) ___(4)___EndSub10、计时器控件能有规律的以一定时间间隔触发____事件,并执行该事件过程中的程序代码。11、为了运行时把d:\,所使用的语句为____。12、在顺序表(6,10,16,18,25,28,30,48,50,52)中,用二分查找法查找关键码值20,则需要进行关键码比较次数为____。编程题:1、在窗体上画一个标签(名称为Label1)和一个计时器(名称为Timer1),请编写如下事件过程,使程序运行后,单击窗体,将在标签中显示当前时间,每隔1秒钟变换一次(见图)。PrivateSubForm_Load()(1)EndSubPrivateSubForm_Click()(2)EndSub学****必备欢迎下载学****必备欢迎下载学****必备欢迎下载PrivateSubTimer1_Timer()(3)EndSub2、编写程序,用于计算数学表达式S=12-22+32-42+…+(N-1)2-N23、窗体上有一个输入编辑框(text1)、一个输出编辑框(text2)mand1),编程实现如下功能:在输入框中录入以空格为分隔标志的正整数,点击运行按钮,将找出其中的最大数并将其删除后,按原顺序输出在输出框中。提示:函数InStr([start,]string1,string2)功能:返回一字符串在另一字符串中最先出现的位置InStr函数的语法具有下面的参数:参数说明start可选参数。为数值表达式,设置每次搜索的起点。如果省略,将从第一个字符的位置开始。string1必要参数。接受搜索的字符串表达式。string2必要参数。被搜索的字符串表达式。