VB试题.docx
- 文档编号:3850136
- 上传时间:2023-05-06
- 格式:DOCX
- 页数:24
- 大小:24.38KB
VB试题.docx
《VB试题.docx》由会员分享,可在线阅读,更多相关《VB试题.docx(24页珍藏版)》请在冰点文库上搜索。
VB试题
VB复习题
一、选择题
下列各题A)、B)、C)、D)四个选项中,只有一个选项是正确的。
请将正确选项填涂在答题卡相应位置上,答在试卷上不得分。
(1)以下关于VisualBasic特点的叙述中,错误的是。
A)VisualBasic是采用事件驱动编程机制的语言
B)VisualBasic程序既可以编译运行,也可以解释运行
C)构成VisualBasic程序的多个过程没有固定的执行顺序
D)VisualBasic程序不是结构化程序,不具备结构化程序的三种基本结构
(2)设x=4,y=6,则以下不能在窗体上显示出“A=10”的语句是。
A)PrintA=x+yB)Print"A=";x+yC)Print"A="+Str(x+y)D)Print"A="&x+y
(3)以下叙述中,错误的是。
A)VisualBasic中允许不同对象使用相同名称的方法
B)VisualBasic中的对象具有自己的属性和方法
C)在VisualBasic中,对象所能响应的事件是由系统定义的
D)对象的任何属性既可以通过属性窗口设定,也可以通过程序语句设定
(4)设有如下语句:
Dima,bAsInteger
c="VB"
d=#5/20/2009#
以下关于这段代码的叙述中,错误的是。
A)a被定义为Integer类型变量B)b被定义为Integer类型变量
C)c中的数据是字符串D)d中的数据是日期类型
(5)以下能从字符串"VisualBasic"中直接取出子字符串"Basic"的函数是。
A)LeftB)MidC)StringD)Instr
(6)设a=5,b=4,c=3,d=2,下列表达式的值是。
a>b+1Orc A)TrueB)1C)–1D)0 (7)以下可以作为VisualBasic变量名的是。 A)A#AB)counstAC)3AD)? AA (8)以下叙述中,错误的是。 A)一个VisualBasic应用程序可以含有多个标准模块文件 B)一个VisualBasic工程可以含有多个窗体文件 C)标准模块文件可以属于某个指定的窗体文件 D)标准模块文件的扩展名是.bas (9)假定有如下的命令按钮(名称为Command1)事件过程: PrivateSubCommand1_Click() x=InputBox("输入: ","输入整数") MsgBox"输入的数据是: ”,,”输入数据: "+x EndSub 程序运行后,单击命令按钮,如果从键盘上输入整数9,则以下叙述中错误的是。 A)x的值是数值9B)输入对话框的标题是“输入整数” C)信息框的标题是“输入数据: 9”D)信息框中显示的是“输入的数据是: ” (10)在窗体上画1个命令按钮(名称为Command1)和1个文本框(名称为Text1),然 后编写如下事件过程: PrivateSubCommand1_Click() x=Val(Text1.Text) SelectCasex Case1,3 y=x*x CaseIs>=10,Is<=-10 y=x Case-10To10 y=-x EndSelect EndSub 程序运行后,在文本框中输入4,然后单击命令按钮,则以下叙述中正确的是。 A)执行y=x*xB)执行y=-xC)先执行y=x*x,再执行y=-xD)程序出错 (11)设有命令按钮Command1的单击事件过程,代码如下: PrivateSubCommand1_Click() Dima(10)AsInteger Fori=1To10 a(i)=Int(Rnd*100) Next ForEacharrItemIna IfarrItemMod4=0ThenPrintarrItem; IfarrItem>50ThenExitFor Next EndSub 对于该事件过程,以下叙述中错误的是。 A)a数组中的数据是10个100以内的整数 B)语句ForEacharrItemIna有语法错误 C)IfarrItemMod4=0……语句的功能是输出数组中能够被4整除的数 D)IfarrItem>50……语句的作用是当数组元素的值大于50时退出For循环 (12)设有命令按钮Command1的单击事件过程,代码如下: PrivateSubCommand1_Click() Dima(3,3)AsInteger Fori=1To3 Forj=1To3 a(i,j)=i*j+i Nextj Nexti Sum=0 Fori=1To3 Sum=Sum+a(i,4-i) Nexti PrintSum EndSub 运行程序,单击命令按钮,输出结果是。 A)20B)7C)16D)17 (13)在窗体上画1个名称为Command1的命令按钮,然后编写如下事件过程: PrivateSubCommand1_Click() a=0 Fori=1To2 Forj=1To4 IfjMod2<>0Then a=a-1 EndIf a=a+1 Nextj Nexti Printa EndSub 程序运行后,单击命令按钮,输出结果是。 A)0B)2C)3D)4 (14)窗体上有名称分别为Text1、Text2的2个文本框,有一个由3个单选按钮构成的控件数组Option1,如图1所示。 程序运行后,如果单击某个单选按钮,则执行Text1中的数值与该单选按钮所对应的运算(乘以1、10或100),并将结果显示在Text2中。 为了实现上述功能,在程序中的问号(? )处应填入的内容是。 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 A)IndexB)Option1.IndexC)Option1(Index)D)Option1(Index).Value (15)在窗体上画1个命令按钮,其名称为Command1,然后编写如下程序: PrivateSubCommand1_Click() Dima(10)AsInteger DimxAsInteger Fori=1To10 a(i)=8+i Next x=2 Printa(f(x)+x) EndSub Functionf(xAsInteger) x=x+3 f=x EndFunction 程序运行后,单击命令按钮,输出结果为。 A)12B)15C)17D)18 (16)以下关于过程的叙述中,错误的是。 A)事件过程是由某个事件触发而执行的过程B)函数过程的返回值可以有多个 C)可以在事件过程中调用通用过程D)不能在事件过程中定义函数过程 (17)在窗体上画3个标签、3个文本框(名称分别为Text1、Text2和Text3)和1个命令按钮(名称为Command1),外观如图所示。 编写如下程序: PrivateSubForm_Load() Text1.Text="" Text2.Text="" Text3.Text="" EndSub PrivateSubCommand1_Click() x=Val(Text1.Text) y=Val(Text2.Text) Text3.Text=f(x,y) EndSub Functionf(ByValxAsInteger,ByValyAsInteger) DoWhiley<>0 tmp=xMody x=y y=tmp Loop f=x EndFunction 运行程序,在Text1文本框中输入36,在Text2文本框中输入24,然后单击命令按钮,则在Text3文本框中显示的内容是。 A)4B)6C)8D)12 (18)在窗体上画1个文本框,其名称为Text1,然后编写如下过程: PrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger) PrintChr(KeyCode) EndSub PrivateSubText1_KeyUp(KeyCodeAsInteger,ShiftAsInteger) PrintChr(KeyCode+2) EndSub 程序运行后,把焦点移到文本框中,此时如果敲击“C”键,则输出结果为。 A)CB)CC)CD)C CDEF (19)为了使列表框中的项目呈多列显示,需要设置的属性为。 A)ColumnsB)StyleC)ListD)MultiSelect (20)如果列表框(List1)中只有一个项目被用户选定, 则执行Debug.PrintList1.Selected(List1.ListIndex)语句的结果是 A)在Debug窗口输出被选定的项目的索引值B)在Debug窗口输出True C)在窗体上输出被选定的项目的索引值D)在窗体上输出True (21)在窗体上画1个命令按钮,名称为Command1,然后编写如下程序: DimFlagAsBoolean PrivateSubCommand1_Click() DimintNumAsInteger intNum=InputBox("请输入: ") IfFlagThen Printf(intNum) EndIf EndSub Functionf(XAsInteger)AsInteger IfX<10Then Y=X Else Y=X+10 EndIf f=Y EndFunction PrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle) Flag=True EndSub 运行程序,首先单击窗体,然后单击命令按钮,在输入对话框中输入5,则程序的输出结果为。 A)0B)5C)15D)无任何输出 (22)在菜单编辑器中建立1个名称为Menu0的菜单项,将其“可见”属性设置为False,并建立其若干子菜单,然后编写如下过程: PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle) IfButton=1Then PopupMenuMenu0 EndIf EndSub 则以下叙述中错误的是。 A)该过程的作用是弹出一个菜单B)单击鼠标右键时弹出菜单 C)Menu0是在菜单编辑器中定义的弹出菜单的名称D)参数X、Y指明鼠标当前位置的坐标 (24)设有以下职工的记录类型(由职工号、姓名、工资(基本工资,绩效工资,奖金))定义和数组声明,则要表示第2个职工的绩效工资和该职工的姓名,正确的是 Typeworker noAsInteger nameAsString*10 salary(1to3)AsSingle EndType Dimw10(1To10)Asworker A)w10 (2).salary (2),w10 (2).nameB)w10 (2).salary,w10 (2).name C)w2.salary (2),w2.nameD)Withw10 (2) .salary .name EndWith (25)现有一名为StatusBar1的状态栏,共有3个窗格,现要在最后增加一个窗格,用于显示 系统的当前大小写状态,以下实现方法中,正确的是 A)StatusBar1.Panels.Add4,,,sbrCaps B)StatusBar1.Add4,"curCaps",,4 C)StatusBar1.Panels.Add4,"cur",sbrCaps D)StatusBar1.Add4,,sbrCaps (27)指令“Circle(500,500),250,,,,0.6”将绘制 A)画圆B)椭圆C)圆弧D)扇形 (28)在窗体(名称为Form1)上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写一个事件过程。 程序运行以后,如果在文本框中输入一个字符,则把命令按钮的标题设置为“计算机等级考试”。 以下能实现上述操作的事件过程是: A)PrivateSubText1_Change() Command1.Caption=”计算机等级考试” EndSub B)PrivateSubCommand1_Click() Caption=”计算机等级考试” EndSub C)PrivateSubForm1_Click() Text1.Caption=”计算机等级考试” EndSub D)PrivateSubCommand1_Click() Text1.Text=”计算机等级考试” EndSub (29)设a=5,b=4,c=3,d=2,下列表达式的值是 3>2*bOra=cAndb<>cOrc>d A)1 B)True C)False D)2 (30)设a=”MicrosoftVisualBasic”,则以下使变量b的值为”VisualBasic”的语句是 A)b=Left(a,10) B)b=Mid(a,10) C)b=Right(a,10)D)b=Mid(a,11,10) (31)为了使命令按钮(名称为Command1)右移200,应使用的语句是 A)Command1.Move-200 B)Command1.Move200 C)Command1.Left=Command1.Left+200 D)Command1.Left=Command1.Left-200 (32)在窗体上画一个文本框和一个计时器控件,名称分别为Text1和Timer1,在属性窗口中把计时器的Interval属性设置为1000,Enabled属性设置为False,程序运行后,如果单击命令按钮,则每隔一秒钟在文本框中显示一次当前的时间。 以下是实现上述操作的程序: PrivateSubCommand1_Click() Timer1._________ EndSub PrivateSubTimer1_Timer() Text1.Text=Time EndSub 在______处应填入的内容是 A)Enabled=True B)Enabled=False C)Visible=True D)Visible=False (33)假定在图片框Picture1中装入了一个图形,为了清除该图形(不删除图片框),应采用的正确方法是: A)选择图片框,然后按Del键 B)执行语句Picture1.Picture=LoadPicture(“”) C)执行语句Picture1.Picture=””D)选择图片框,选择Picture属性,然后按回车键 (34)在窗体上画一个List1的列表框,一个名称为Label1的标签,列表框中显示若干个项目,当单击列表框中的某个项目时,在标签中显示被选中的项目的名称,下列能正确实现上述操作的程序是 A)PrivateSubList1_Click() Label1.Caption=List1.ListIndex EndSub B)PrivateSubList1_Click() Label1.Name=List1.ListIndex EndSub C)PrivateSubList1_Click() Label1.Name=List1.Text EndSub D)PrivateSubList1_Click() Label1.Caption=List1.Text EndSub (35)在窗体上画一个命令按钮,名称为Command1,然后编写如下事件过程: PrivateSubCommand1_Click() DimiAsInteger,xAsInteger Fori=1To6 Ifi=1Thenx=i Ifi<=4Then x=x+1 Else x=x+2 EndIf Nexti Printx EndSub 程序运行后,单击命令按钮,其输出结果为 A)9 B)6 C)12 D)15 (36)在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: PrivateSubCommand1_Click() c="ABCD" Forn=1To4 Print_________ Next EndSub 程序运行后,单击命令按钮,要求在窗体上显示如下内容: D CD BCD ABCD 则在________处应填入的内容为 A)Left(c,n) B)Right(c,n) C)Mid(c,n,1) D)Mid(c,n,n) (37)执行以下程序段 DimxAsInteger,iAsInteger x=0 Fori=20To1Step-2 x=x+i\5 NextI 后,x的值为 A)16 B)17 C)18 D)19 (38)在VisualBasic工程中,可以作为启动对象的程序是 A)任何窗体或标准模块 B)任何窗体或过程 C)SubMain过程或其他任何模块 D)SubMain过程或任何窗体 (39)假定建立了一个名为Command1的命令按钮数组,则以下说法中错误的是 A)数组中每个命令按钮的名称(名称属性)均为Command1 B)数组中每个命令按钮的标题(Caption属性)都一样 C)数组中所有命令按钮可以使用同一个时间过程 D)用名称Command1(下标)可以访问数组中的每个命令按钮 (40)把窗体的KeyPreview属性设置为True,然后编写如下事件过程: PrivateSubForm_KeyPress(KeyAsciiAsInteger) DimchAsString ch=Chr(KeyAscii) KeyAscii=Asc(UCase(ch)) PrintChr(KeyAscii+2) EndSub 程序运行后,按键盘上的”A”键,则在窗体上显示的内容是 A)A B)B C)C D)D (41)在窗体上画一个命令按钮和一个文本框,名称分别为Command1和Text1,然后编写如下程序: PrivateSubCommand1_Click() a=InputBox("请输入日期(1~31)") t="旅游景点: "_ &IIf(a>0Anda<=10,"长城","")_ &IIf(a>10Anda<=20,"故宫","")_ &IIf(a>20Anda<=30,"颐和园","") Text1.Text=t EndSub 程序运行后,如果从键盘输入16,则在文本框中显示的内容是: A)旅游景点: 长城故宫 B)旅游景点: 长城颐和园 C)旅游景点: 颐和园 D)旅游景点: 故宫 (42)在窗体上画一个名称为Label1的标签,然后编写如下事件过程: PrivateSubForm_Click() Dimarr(10,10)AsInteger DimiAsInteger,jAsInteger Fori=2To4 Forj=2To4 arr(i,j)=i*j Nextj Nexti Label1.Caption=Str(arr(2,2)+arr(3,3)) EndSub 程序运行后,单击窗体,在标签中显示的内容是 A)12B)13C)14D)15 (43)在窗体上画一个名称为Comamnd1的命令按钮,然后编写如下通用过程和命令按钮的事件过程: 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 程序运行后,单击命令按钮,则窗体上显示的是: A)6B)7C)8D)9 (44)阅读程序: 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
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 试题