VB卷子.docx
- 文档编号:4351815
- 上传时间:2022-11-30
- 格式:DOCX
- 页数:15
- 大小:79.71KB
VB卷子.docx
《VB卷子.docx》由会员分享,可在线阅读,更多相关《VB卷子.docx(15页珍藏版)》请在冰豆网上搜索。
VB卷子
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。
(1)在Form1的窗体上建立一个主菜单,标题为"操作",名称为Op,该菜单有两个子菜单,其标题分别为"显示"和"清除",其名称分别为Dis和Clea,编写适当的事件过程。
程序运行后,如果单击"操作"菜单中的"显示"命令,则在窗体上显示"等级考试";如果单击"清除"命令,则清除窗体上显示的内容。
程序的运行情况如图所示。
*注意:
存盘时必须存放在考生文件夹下,工程文件名为sjt13.vbp,窗体文件名为sjt13.frm。
**********************************************************************
(2)在Form1的窗体上画一个标签,其名称为Lab1;再画一个列表框,其名为L1,通过属性窗口向列表框中添加若干个项目,每个项目的具体内容不限,编写适当的事件过程。
程序运行后,如果双击列表框中的任意一项,则把列表中的项目数在标签中显示出来。
程序的运行情况如图所示。
不准使用任何变量。
*注意:
存盘时必须存放在考生文件夹下,工程文件名为sjt14.vbp,窗体文件名为sjt14.frm。
第1小题
菜单的"标题"与"名称"属性:
菜单的"标题"是程序运行和设计过程中用户所看到的菜单项显示的文字信息;菜单的"名称"是菜单控件名,是该菜单项区别于其他菜单项以及其他控件的重要标识。
相当与一般控件的Name属性。
Cls方法
清除运行时窗体上或PictureBox中所生成的图形和文本。
解题方法:
新建一个名为Form1的窗体,执行"工具"菜单中的"菜单编辑器"命令,打开菜单编辑器。
在"标题"栏中输入"操作",在"名称"栏中输入"Op";点击"下一个"按钮,再点击编辑区的"→"按钮,在"标题"栏中输入"显示",在"名称"栏中输入"Dis";点击"下一个"按钮,在"标题"栏中输入"清除",在"名称"栏中输入"Clea"。
打开代码窗口,输入如下的代码:
PrivateSubClea_Click()
Cls
EndSub
PrivateSubDis_Click()
Print"等级考试"
EndSub
按要求保存文件即完成本题。
第2小题
列表框的ListCount属性
用来返回列表项的个数。
解题方法:
新建一个名为Form1的窗体,点击工具箱中的Label控件图标,然后在窗体上拖拉出一个标签控件,通过属性窗口设置其Name属性为"Lab1"。
点击工具箱中的ListBox控件图标,然后在窗体上拖拉出一个列表框,通过属性窗口设置其Name属性为"L1",通过设置List属性为列表框添加若干列表项。
打开代码窗口,输入如下的代码:
PrivateSubL1_DblClick()
Lab1.Caption=L1.ListCount
EndSub
按要求保存文件即完成本题。
第1小题
菜单的"标题"与"名称"属性:
菜单的"标题"是程序运行和设计过程中用户所看到的菜单项显示的文字信息;菜单的"名称"是菜单控件名,是该菜单项区别于其他菜单项以及其他控件的重要标识。
相当与一般控件的Name属性。
Cls方法
清除运行时窗体上或PictureBox中所生成的图形和文本。
解题方法:
新建一个名为Form1的窗体,执行"工具"菜单中的"菜单编辑器"命令,打开菜单编辑器。
在"标题"栏中输入"操作",在"名称"栏中输入"Op";点击"下一个"按钮,再点击编辑区的"→"按钮,在"标题"栏中输入"显示",在"名称"栏中输入"Dis";点击"下一个"按钮,在"标题"栏中输入"清除",在"名称"栏中输入"Clea"。
打开代码窗口,输入如下的代码:
PrivateSubClea_Click()
Cls
EndSub
PrivateSubDis_Click()
Print"等级考试"
EndSub
按要求保存文件即完成本题。
第2小题
列表框的ListCount属性
用来返回列表项的个数。
解题方法:
新建一个名为Form1的窗体,点击工具箱中的Label控件图标,然后在窗体上拖拉出一个标签控件,通过属性窗口设置其Name属性为"Lab1"。
点击工具箱中的ListBox控件图标,然后在窗体上拖拉出一个列表框,通过属性窗口设置其Name属性为"L1",通过设置List属性为列表框添加若干列表项。
打开代码窗口,输入如下的代码:
PrivateSubL1_DblClick()
Lab1.Caption=L1.ListCount
EndSub
按要求保存文件即完成本题。
1、菜单编辑器窗口分3个部分,即数据区、编辑区和菜单项显示区。
数据区用来输入或修改菜单项、设置属性;编辑区用来对输入的菜单项进行简单编辑,并可设置菜单的层次;单击相应的菜单在弹出的代码窗口中加入相应的代码。
2、CheckBox控件:
该控件可用来提供True/False或者Yes/No选项。
组中可以使用CheckBox控件显示多项选择,从而可选择其中的一项或多项。
也可以通过对Value属性编程设置CheckBox的值。
在考生文件夹下有工程文件wy36.vbp及窗体文件wy36.frm,该程序是不完整的,请在有?
号的地方填入正确内容,然后删除?
及所有注释符(即'号),但不能修改其它部分。
存盘时不得改变文件名和文件夹。
本题描述如下:
在名称为Form1的窗体上有三个Label控件和两个名称分别为COMSTART、COMEXIT,标题分别为"开始"、"退出"的命令按钮。
编写函数ITEM(A,N)其功能是由数字A组成的不多于N位数的整数,并利用该函数求8+88+888+8888的和,结果写入考生文件夹下的wy36.dat文件中。
执行完毕"开始"按钮变成"完成",且无效(变灰)。
在窗体上画一个命令按钮(其名称为Command1),然后编写如下事件过程:
PrivateSubCommand1_Click()
Dima(5,5)AsInteger
DimiAsInteger,jAsInteger
Fori=1To3
Forj=1To3
a(i,j)=(i-1)*3+j
Printa(i,j);
Nextj
Nexti
EndSub
程序运行后,单击命令按钮,在窗体上的输出结果是:
123
456
789
______。
设a=2,b=3,c=4,d=5,下列表达式的值是___false___。
Nota<=cOr4*c=b^2Andb<>a+c
现有如下程序:
PrivateSubCommand1_Click()
s=0
Fori=1To5
s=s+f(5+i)
Next
Prints
EndSub
PublicFunctionf(xAsInteger)
Ifx>=10Then
t=x+1
Else
t=x+2
EndIf
f=t
EndFunction
运行程序,则窗体上显示的是__49____。
在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:
PrivateSubCommand1_Click()
a=12345
PrintFormat$(a,"000.00")
EndSub
程序运行后,单击命令按钮,窗体上显示的是__12345.00____。
可以在窗体模块的通用声明段中声明__全局变量____。
确定一个控件在窗体上的位置的属性是_TOP和LEFT_____。
下列程序的执行结果为___I=7A=11___。
I=4
A=5
Do
I=I+1
A=A+2
LoopUntilI>=7
Print"I=";I
Print"A=";A
InputBox函数返回值的类型为____字符串__。
程序运行后,在窗体上单击鼠标,此时窗体不会接收到的事件是__LOAD____。
窗体上有Command1、Command2两个命令按钮。
现编写以下程序:
OptionBase0
Dima()AsInteger,mAsInteger
PrivateSubCommand1_Click()
m=InputBox("请输入一个正整数")
ReDima(m)
EndSub
PrivateSubCommand2_Click()
m=InputBox("请输入一个正整数")
ReDima(m)
EndSub
运行程序时,单击Command1后输入整数10,再单击Command2后输入整数5,则数组a中元素的个数是_6_____。
在窗体上画一个名称为Command1的命令按钮,然后编写如下通用过程和命令按钮的事件过程:
PrivateFunctionfun(ByValmAsInteger)
IfmMod2=0Then
fun=2
Else
fun=1
EndIf
EndFunction
PrivateSubCommand1_Click()
DimiAsInteger,sAsInteger
s=0
Fori=1To5
s=s+fun(i)
Next
Prints
EndSub
程序运行后,单击命令按钮,在窗体上显示是__7____。
为使计时器控件每隔5秒钟产生一个计时器事件(Timer事件),则应将其Interval属性值设置为___5000___。
在窗体上画一个名称为Command1的命令按钮,然后编写如下通用过程和命令按钮的事件过程:
PrivateFunctionf(mAsInteger)
IfmMod2=0Then
f=m
Else
f=1
EndIf
EndFunction
PrivateSubCommand1_Click()
DimiAsInteger
s=0
Fori=1To5
s=s+f(i)
Next
Prints
EndSub
S=9
窗体上有名称为Text1、Text2的2个文本框,有一个由3个单选按钮构成的控件数组Option1,如图1所示。
程序运行后,如果单击某个单选按钮,则执行Text1中的数值与该单选按钮所对应的运算(乘以1、10或100),并将结果显示在Text2中,如图2所示,为了实现上述功能,在程序中的问号(?
)处应填入的内容是______。
图1
图2
PrivateSubOption1_Click(IndexAsInteger)
IfText1.Text<>""Then
SelectCase?
Case0
Text2.Text=Val(Text1.Text)
Case1
Text2.Text=Val(Text1.Text)*10
Case2
Text2.Text=Val(Text1.Text)*100
EndSelect
EndIf
EndSub
?
=Index
设a="MicrosoftVisualBasic",则以下使变量b的值为"VisualBasic"的语句是___b=mid(a,10)___。
设a=5,b=6,c=7,d=8,则执行下列语句后,x的值为:
_20_____。
x=IIF((a>b)And(c 为了把焦点移到某个指定的控件,所使用的方法是_setfocus_____。 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程: PrivateSubCommand1_Click() Dimarray1(10,10)AsInteger Dimi,jAsInteger Fori=1To3 Forj=2To4 array1(i,j)=i+j Nextj Nexti Text1.Text=array1(2,3)+array1(3,4) EndSub 程序运行后,单击命令按钮,在文本框中显示的值是__12____。 阅读程序: OptionBase1 Dimarr()AsInteger PrivateSubForm_Click() DimiAsInteger,jAsInteger ReDimarr(3,2) Fori=1To3 Forj=1To2 arr(i,j)=i*2+j Nextj Nexti ReDimPreservearr(3,4) Forj=3To4 arr(3,j)=j+9 Nextj Printarr(3,2)+arr(3,4) EndSub 程序运行后,单击窗体,输出结果为____21__。 在窗体上有如下图所示的控件,各控件的名称与其标题相同,并有如下程序: PrivateSubForm_Load() Command2.Enabled=False Check1.Value=1 EndSub 刚运行程序时,看到的窗体外观是___看下图___。 有如下程序段: x=-5 s=InputBox("请输入s的值: ") SelectCases CaseIs>0 y=x+1 CaseIs=0 y=x+2 CaseElse y=x+3 EndSelect Printx;y 运行时,从键盘输入-5,输出的结果是_-5-2_____。 在窗体上画一个名称为Command1、标题为“计算”的命令按钮;画两个文本框,名称分别为Text1和Text2;然后画4个标签,名称分别为Label1、Label2、Label3和Label4,标题分别为“操作数1”、“操作数2”、“运算结果”和空白;再建立一个含有4个单选按钮的控件数组,名称为Option1,标题分别为“+”、“-”、“*”和“/”。 程序运行后,在Text1、Text2中输入两个数值,选中一个单选按钮后单击命令按钮,相应计算结果显示在Label4中,程序运行情况如图所示。 请在______处填入适当的内容,将程序补充完整。 PrivateSubCommand1_Click() Fori=0To3 If_option(i)_____=TrueThen opt=Option1(i).Caption EndIf Next SelectCase__opt____ Case"+" Result=Val(Text1.Text)+Val(Text2.Text) Case"-" Result=Val(Text1.Text)-Val(Text2.Text) Case"*" Result=Val(Text1.Text)*Val(Text2.Text) Case"/" Result=Val(Text1.Text)/Val(Text2.Text) EndSelect _label4.caption_____=Result EndSub 运行如下程序段: x=1 y=1 z=1 Forj=1To3 Fork=1To3 Ifj=1Then x=x+y+z ElseIfj=2Then x=2*x+2*y+2*z Else x=3*x+3*y+3*z EndIf Nextk Nextj x的值应是___2346___。 设有以下函数过程: Functionfun(mAsInteger)AsInteger DimkAsInteger,sumAsInteger sum=0 Fork=mTo1Step-2 sum=sum+k Nextk fun=sum EndFunction 若在程序中用语句s=fun(10)调用此函数,则s的值为30。 在窗体上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(其Name属性为Command1),然后编写如下事件过程: PrivateSubCommand1_Click() x=0 DoWhilex<50 x=(x+2)*(x+3) N=N+1 Loop Text1.Text=Str(N) Text2.Text=Str(x) EndSub 程序运行后,单击命令按钮,Text1中显示的值是___2___;Text2中显示的值是__72____。 在窗体上画一个命令按钮,然后编写如下事件过程: PrivateSubCommand1_Click() a=0 Fori=1To2 Forj=1To4 IfjMod2<>0Then a=a+1 EndIf a=a+1 Nextj Nexti Printa EndSub 12 属性窗口分为4个部分,这四个部分分别是__对象框____、属性显示方式、属性列表和对当前属性的简单解释 执行下列语句后,输出的结果是0、_abcdefghijk_____。 ( s$="ABCDEFGHIJK" printinstr(S$,"efg") printlcase$(S$) 在窗体上画1个名称为Command1的命令按钮和2个名称分别为Text1、Text2的文本框,如图所示,然后编写如下程序: FunctionFun(xAsInteger,ByValyAsInteger)AsInteger x=x+y Ifx<0Then Fun=x Else Fun=y EndIf EndFunction PrivateSubCommand1_Click() DimaAsInteger,bAsInteger a=-10: b=5 Text1.Text=Fun(a,b) Text2.Text=Fun(a,b) EndSub -55 程序执行结果S的值是__6____。 PrivateSubCommand1_Click() i=0 Do s=i+s i=i+1 LoopUntili>=4 Prints EndSub 由Array函数建立的数组的名字必须是___变体___类型。 在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程: PrivateSubCommand1_Click() a$="NationalComputerRankExamination" n=Len(a$) s=0 Fori=1Ton b$=Mid(a$,i,1) Ifb$="n"Then s=s+1 EndIf Nexti Prints EndSub 程序运行后,单击命令按钮,输出结果是__4____。 Len(字符串): 用来返回字符串中字符的个数。 Mid$(字符串,p,n): 从第p个字符开始,向后截取n个字符。 本题主要是统计字符串a中字符"n"出现的次数。 变量n为字符串a的长度34,For循环控制从字符串a的左边依次取出字符,每次取一个,判断是不是字符"n",如果是,则变量s的值加1。 在字符串a中字符"n"一共出现了4次,所以输出变量s的值为4。 执行下面的程序段后,变量S的值___9___。 S=5 Fori=2.6To4.9Step0.6 S=S+1 Nexti 弹出式菜单又名___快捷式菜单___。
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 卷子
![提示](https://static.bdocx.com/images/bang_tan.gif)