《2023年初中信息技术教师程序设计试卷(最新版).pdf》由会员分享，可在线阅读，更多相关《2023年初中信息技术教师程序设计试卷(最新版).pdf（8页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、学习必备 欢迎下载 初中信息技术教师程序设计（VB）竞赛 试 题 一、选择题：1、要想改变一个窗体的标题内容，则应设置以下哪个属性的值_。A、Name B、FontName C、Caption D、Text 2、.在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为 Text1、Label1 和 Command1,然后编写如下两个事件过程：Private Sub Command1_Click()strText=InputBox(请输入)Text1.Text=strText End Sub Private Sub Text1_Change()Label1.Caption=Right(Tri
2、m(Text1.Text),3)End Sub 程序运行后，单击命令按钮，如果在输入对话框中输入 abcdef，则在标签中显示的内容是_ A、空 B、abcdef C、abc D、def 3、以下不属于 Visual Basic 系统的文件类型是_ A、.frm B、.bas C、.vbg D、.vbp 4、表达式 Str(Len(1234)+Str(5.9)的值为_。A、45.9 B、4 5.9 C、12345.9 D、1234 5.9 5、在窗体上有一个文本框控件，名称为为 TxtTime；一个计时器控件，名称为 Timer1，要求每一秒在文本框中显示一次当前的时间。程序为：Private
3、 Sub Timer1_ _()TxtTime.text=Time End Sub 在下划线上应填入的内容是_ A、Enabled B、Visble C、Interval D、Timer 6、在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Commandl_Click()For i=1 To 4 x=4 For j=1 To 3 x=3 For k=1 To 2 x=x+6 Next k Next j Next i Print x End Sub 学习必备 欢迎下载 程序运行后，单击命令按钮，输出结果是_。A、7 B、15 C、157 D、538 7、单击命令按钮时，下列
4、程序代码的执行结果为_。Public Sub Procl(n As Integer,ByVal m As Integer)n=n Mod 10 m=m10 End Sub Private Sub Command1_Click()Dim x As Integer,y As Integer x=23:y=65 Call Procl(x,y)Print x;y End Sub A、3 65 B、23 65 C、3 60 D、0 65 8、表达式 23/5.8，235.8，23 mod 5.8 的运算结果分别是_ A、3，3.9655，3 B、3.9655，3，5 C、4，4，5 D、3.9655，4
5、，3 9、为了给三个变量 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=1 10、用 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、使用下列语句：Dim x(1 to 10,3)As sin
6、gle，则数组占用内存空间的字节数是_ A、80 B、120 C、132 D、160 13、下列程序段执行后，i 的输出值是_ Dim y as integer For i=1 to 10 step 2 y=y+2 next i print i A、25 B、10 C、11 D、因为 y 初值不知道，所以不进行循环，i 值不确定 14、下列程序段运行结果是_ Private Sub Form_click()x=5 m=1 n=1 do m=m*n n=n+1 Loop Until n5 Print x2+m/3 End sub A、25 B、45 C、55 D、65 行后单击命令按钮如果在输入
7、对话框中输入则在标签中显示的内容是空划线上应填入的内容是在窗体上画一个命令按钮然后编写如下事件过程句正确的是用函数显示的对话框以下叙述正确的是该对话框有一个确定学习必备 欢迎下载 15、执行如下程序段时，从键盘输入-5，输出的结果是_ x=-5 s=Val(Inputbox(“请输入 s 的值：”)select Case s Case Is0 y=x+1 Case Is=0 y=x+2 Case Else y=x+3 End Select Print x;y A、-5 -2 B、-5 -4 C、-5 -3 D、-5 -5 16、下列程序段的执行结果为_。A=0:B=1 A=A+B:B=B+A:
8、Print A;B A=A+B:B=B+A:Print A;B A、1 2 3 5 B、1 1 3 5 C、1 3 3 4 D、1 2 3 4 17、.窗体中有如下代码 Private Sub Command1_Click()x=0 For k=3 To 5 GoSub ab s=s+x Next k Print s Exit Sub ab:x=x+2 Return End Sub 运行后单击 COMMAND1 按钮，输出的结果是_。A、3 B、12 C、6 D、9 18、InputBox 函数返回值的类型为_。A、数值 B、字符串 C、变体 D、数值或字符串（视输入的数据而定）19、以下叙述
9、错误的是_ A、在工程资源管理窗口中只能包含一个工程文件及属于该工程的其他文件 B、以.BAS 为扩展名的文件是标准模块文件 C、窗体文件包含该窗体及其控件的属性 D、一个工程中可以含有多个标准模块文件 20、窗体中有一个命令按钮，窗体运行，单击一次命令按钮之后，下列程序代码的执行结果为_。Public Sub Proc(a()As Integer)Static i As Integer Do 行后单击命令按钮如果在输入对话框中输入则在标签中显示的内容是空划线上应填入的内容是在窗体上画一个命令按钮然后编写如下事件过程句正确的是用函数显示的对话框以下叙述正确的是该对话框有一个确定学习必备 欢迎下
10、载 a(i)=a(i)+a(i+1)i=i+1 Loop While i =2 End Sub Private Sub Command1_Click()Dim m As Integer,i As Integer,x(10)As Integer For i=0 To 4:x(i)=i+1:Next i For i=0 To 2:Call Proc(x):Next i For i=0 To 4:Print x(i);:Next i End Sub A、3 4 7 5 6 B、1 2 3 4 5 C、3 5 7 9 5 D、1 2 3 5 7 21、假定已定义了一个过程 Sub Add(a As S
11、ingle,b As Single)，则正确的调用语句是_。A、Add 12,5 B、Call(2*x,Add(1.57)C、Call Add x,y D、Call Add(12,12,x)22、以下叙述错误的是_ A、Visual Basic 是事件驱动型可视化编程工具 B、Visual Basic 应用程序不具有明显的开始和结束语句 C、Visual Basic 工具箱中的所有控件都具有宽度（Width)和高度(Height)属性 D、Visual Basic 中控件的某些属性只能在运行时设置 23、在窗体上画 1 个命令按钮，其名称为 Command1，然后编写如下程序：Private
12、Sub Command1_Click()Dim a(10)As Integer Dim x As Integer For i=1 To 10 a(i)=8+i Next x=2 Print a(f(x)+x)End Sub Function f(x As Integer)x=x+3 f=x End Function 程序运行后，单击命令按钮，输出结果为_。A)12 B)15 C)17 D)18 24、关于 Visual Basic 方法的概念错误的是_ A)方法是对象的一部分 B)方法是预先定义好的操作 C)方法是对事件的响应 D)方法用于完成某些特定的功能 25、单击命令按钮时，下列程序的执
13、行结果为_ Private Sub Command1_Click()Dim x As Integer,y As Integer x=12:y=32 Call Proc(x,y)Print x;y End Sub 行后单击命令按钮如果在输入对话框中输入则在标签中显示的内容是空划线上应填入的内容是在窗体上画一个命令按钮然后编写如下事件过程句正确的是用函数显示的对话框以下叙述正确的是该对话框有一个确定学习必备 欢迎下载 Public Sub Proc(n As Integer,ByVal m As Integer)n=n Mod 10 m=m Mod 10 End Sub A)12 32 B)2 3
14、2 C)2 3 D)12 3 26、一个工程必须包含的文件的类型是_ A)*.vbp*.frm*.frx B)*.vbp*.cls*.bas C)*.bas*.ocx*.res D)*.frm*.cls*.bas 27、有如下事件过程：Private Sub Command1_Click()b=10 Do Until b=-1 a=InputBox(请输入 a 的值)a=Val(A)b=InputBox(请输入 b 的值)b=Val(b)a=a*b Loop Print a End Sub 程序运行后，依次输入数值 30，20，10，1，输出结果为_ A)6000 B)10 C)200 D)-
15、6000 28、VB 是一种面向对象的可视化程序设计工具，下列关于面向对象程序设计的描述，正确的是_ A）面向对象程序设计完全不同于结构化程序设计；B）对象的属性、方法和事件称为对象的三要素；C）VB 中的类就是一种变量 D）面向对象程序设计的三大特征是封装性、继承性和事件驱动 29、设有以下循环结构 Do 循环体 Loop While 则以下叙述中错误的是_ A、若“条件”是一个为 0 的常数，则一次也不执行循环体 B、“条件”可以是关系表达式、逻辑表达式或常数 C、循环体中可以使用 Exit Do 语句 D、如果“条件”总是为 True，则不停地执行循环体 30、在设计阶段，当双击窗体上的
16、某个控件时，所打开的窗口是_ A、工程资源管理器窗口 B、工具箱窗口 C、代码窗口 D、属性窗口 二、填空题：1、新建一个工程，内有两个窗体，窗体 Form1 上有一个命令按钮 Command1，单击该按钮，Form1 窗体消失，显示窗体 Form2，程序如下，试补充完整：Private Sub Command1_Click()_(1)_ Form2._(2)_ End Sub 2、若 A=20，B=80，C=70，D=30，则表达式 A+B160 Or(B+C200 And Not D60)的值是_。3、Visual Basic 应用程序中标准模块文件的扩展名是_。4、以下程序代码实现单击命
17、令按钮 Command1时形成并输出一个主对角线上元素值为-1，其他元素值为行后单击命令按钮如果在输入对话框中输入则在标签中显示的内容是空划线上应填入的内容是在窗体上画一个命令按钮然后编写如下事件过程句正确的是用函数显示的对话框以下叙述正确的是该对话框有一个确定学习必备 欢迎下载 0 的 6 6 阶方阵。Privae Sub Command1_Click()Dim A(6,6)For I=1 To 6 For J=1 To 6 If I=J Then _(1)_ Else _(2)_ End If Print A(I,J);Next J Print Next I End Sub 5、以下程序循
18、环的执行次数是_。a=0 Do While a=10 a=a+2 Loop 6、在窗体上画 1 个命令按钮，其名称为 Command1，然后编写如下事件过程：Private Sub Command1_Click()Dim arr(1 To 100）As Integer For i=1 To 100 arr(i)=Int(Rnd*1000)Next i Max=arr(1)Min=arr(1)For i=1 To 100 If _(1)_ Then Max=arr(i)End If If _(2)_ Then Min=arr(i)End If Next i PrintMax=；Max，Min=；
19、Min End Sub 程序运行后，单击命令按钮，将产生 100 个 1000 以内的随机整数，放入数组 arr 中，然后查找并输出这100 个数中的最大值 Max 和最小值 Min，请填空。7、执行以下程序段，并输入 1.23，则程序的输出结果应是：_ N=Str(InputBox(“请输入一个实数：”)P=InStr(N,”.”)Print Mid(N,P)行后单击命令按钮如果在输入对话框中输入则在标签中显示的内容是空划线上应填入的内容是在窗体上画一个命令按钮然后编写如下事件过程句正确的是用函数显示的对话框以下叙述正确的是该对话框有一个确定学习必备 欢迎下载 8、下述定义中的函数所计算的数
20、学表达式是 A(0)+A(1)*x+A(2)*x2+A(N-1)+A(N)*xN，请填空。FUNCTION Fun(A(),N,x)S=0 For k=N to 0 step-1 S=_ Next Fun=S END FUNCTION 9、下面的程序用“冒泡”法将数组 x 中的 10 个整数按升序排列，请将程序补充完整。Option Base 1 Private Sub Command1_Click()Dim a a=Array(678,45,324,528,439,387,87,875,273,823)For i=_(1)_ For j=_(2)_ If a(i)_(3)_ a(j)then
21、 a1=a(i)a(i)=a(j)a(j)=a1 End if Next j Next i For i=1 to 10 Print a(i)_(4)_ End Sub 10、计时器控件能有规律的以一定时间间隔触发_ 事件，并执行该事件过程中的程序代码。11、为了运行时把 d:pic文件夹下的图形文件 a.jpg 装入图片框架 Picture1，所使用的语句为_。12、在顺序表（6，10，16，18，25，28，30，48，50，52）中，用二分查找法查找关键码值 20，则需要进行关键码比较次数为_。三、编程题：1、在窗体上画一个标签（名称为 Label1）和一个计时器（名称为 Timer1），
22、请编写如下事件过程，使程序运行后，单击窗体，将在标签中显示当前时间，每隔 1 秒钟变换一次（见图）。Private Sub Form_Load()(1)End Sub Private Sub Form_Click()(2)End Sub 行后单击命令按钮如果在输入对话框中输入则在标签中显示的内容是空划线上应填入的内容是在窗体上画一个命令按钮然后编写如下事件过程句正确的是用函数显示的对话框以下叙述正确的是该对话框有一个确定学习必备 欢迎下载 Private Sub Timer1_Timer()(3)End Sub 2、编写程序，用于计算数学表达式 S=12-22+32-42+（N-1）2-N2
23、3、窗体上有一个输入编辑框（text1）、一个输出编辑框（text2）和一全命令按钮（command1），编程实现如下功能：在输入框中录入以空格为分隔标志的正整数，点击运行按钮，将找出其中的最大数并将其删除后，按原顺序输出在输出框中。提示：函数 InStr(start,string1,string2)功能：返回一字符串在另一字符串中最先出现的位置 InStr 函数的语法具有下面的参数：参数 说明 start 可选参数。为数值表达式，设置每次搜索的起点。如果省略，将从第一个字符的位置开始。string1 必要参数。接受搜索的字符串表达式。string2 必要参数。被搜索的字符串表达式。行后单击命令按钮如果在输入对话框中输入则在标签中显示的内容是空划线上应填入的内容是在窗体上画一个命令按钮然后编写如下事件过程句正确的是用函数显示的对话框以下叙述正确的是该对话框有一个确定