VB模拟试题.docx
- 文档编号:27003163
- 上传时间:2023-06-25
- 格式:DOCX
- 页数:20
- 大小:20.33KB
VB模拟试题.docx
《VB模拟试题.docx》由会员分享,可在线阅读,更多相关《VB模拟试题.docx(20页珍藏版)》请在冰豆网上搜索。
VB模拟试题
2006年VB模拟试题(复习用)
一、选择题(每题2分,共30题)
(01)以下说法正确的是:
_____。
A)属性的一般格式为:
对象名_属性名称
B)属性是对象的特性,所有的对象都有相同的属性
C)属性值的设置只可以在属性窗口中设置
D)对象是有特殊属性和行为方法的实体
(02)设a=5,b=4,c=3,d=2,下列表达式的值是
3>2*bora=candb<>corc>d
A)1
B)True
C)False
D)2
(03)语句5\4*6/3Mod2的输出结果是()
A)0
B)1
C)2
D)3
(04)给变量x赋值一个10到99之间的随机整数的表达式为:
________
A)x=rnd*99
B)x=rnd*90+10
C)x=int(rnd*90)+10
D)x=round(rnd*90)*10
(05)有如下程序:
PrivateSubForm_Click()
DimaAsInteger,bAsInteger,cAsInteger
a=3:
b=2:
c=1
a=b:
b=c:
c=a
Printa;b;c
EndSub
运行之后结果是:
A)212
B)321
C)213
D)323
(06)下列程序执行的结果为:
_____。
X=8:
Y=1:
Z=0
Print"A(";X+Z*Y;")"
A)A(8)说明:
紧凑输出格式
B)"A("8")"
C)A(8+1*0)
D)A(8)说明:
标准输出格式
(07)在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
PrivateSubCommand1_Click()
x=InputBox("Input")
SelectCasex
Case1,3
Print"分支1"
CaseIs>4
Print"分支2"
CaseElse
Print"Else分支"
EndSelect
EndSub
程序运行后,如果在输入对话框中输入2,则窗体上显示的是
A)分支1
B)分支2
C)Else分支
D)程序出错
(08)在窗体上画一个名称为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)
(09)以下能够正确计算n!
的程序是
程序1
PrivateSubCommand1_Click()
n=5:
x=1
Do
x=x*i
i=i+1
LoopWhilei Printx EndSub 程序2 PrivateSubCommand1_Click() n=5: x=1: i=1 Do x=x*i i=i+1 LoopWhilei Printx EndSub 程序3 PrivateSubCommand1_Click() n=5: x=1: i=1 Do x=x*i i=i+1 LoopWhilei<=n Printx EndSub 程序4 PrivateSubCommand1_Click() n=5: x=1: i=1 Do x=x*i i=i+1 LoopWhilei>n Printx EndSub A)程序1 B)程序2 C)程序3 D)程序4 (10)在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程: PrivateSubCommand1_Click() a=12345 PrintFormat$(a,"000.00") EndSub 程序运行后,单击命令按钮,窗体上显示的是 A)123.45 B)12345.00 C)12345 D)00123.45 (11)执行以下程序段 a$="abbacddcba" Fori=6To2Step-2 X=Mid(a,i,i) Y=Left(a,i) z=Right(a,i) z=UCase(X&Y&z)'UCase()为把小写字母变成大写字母 Nexti Printz 输出结果为 A)AAA B)BBABBA C)ABBABA D)AABAAB (12)执行完下面的三重循环之后 Fori=1to2 Forj=1to2 a=0 Fork=1to2 a=a+1 nextk nextj nexti a的值是: A)2 B)5 C)7 D)9 (13)要从DoWhile…Loop循环中跳出循环,要使用的语句是: A)Exit B)ExitLoop C)ExitDo D)ExitWhile (14)假定一个工程由一个窗体文件Form1和两个标准模块文件Model1及Model2组成。 Model1代码如下: PublicxAsInteger PublicyAsInteger SubS1() x=1 S2 EndSub SubS2() y=10 Form1.Show EndSub Model2的代码如下: SubMain() S1 EndSub 其中SubMain被设置为启动过程。 程序运行后,各模块的执行顺序是 A)Form1→Model1→Model2 B)Model1→Model2→Form1 C)Model2→Model1→Form1 D)Model2→Form1→Model1 (15)单击命令按钮时,下列程序代码的执行结果为_____。 DimaAsInteger,bAsInteger,cAsInteger PrivateSubCommand1_Click() a=5: b=8: c=9 CallProc1(a,b) Print"a=";a;"b=";b;"c=";c CallProc2(a,b) Print"a=";a;"b=";b;"c=";c EndSub PublicSubProc1(xAsInteger,yAsInteger) DimcAsInteger x=2*x: y=y+2: c=x+y EndSub PublicSubProc2(ByvalxAsInteger,ByvalyAsInteger) x=2*x: y=y+2: c=x+y EndSub A) a=10b=10c=20 a=10b=10c=9 B) a=10b=10c=20 a=20b=12c=32 C) a=10b=10c=9 a=10b=10c=32 D) a=10b=10c=9 a=20b=12c=32 (16)在窗体上画一个命令按钮(其NAME属性为Command1),然后编写如下代码: PrivateSubCommand1_Click() Dima s=0 a=Array(1,2,3,4) j=1 Fori=3To0Step-1 s=s+a(i)*j j=j*10 Nexti Prints EndSub 运行上面的程序,单击命令按钮,其输出结果是 A)4321 B)1234 C)34 D)12 (17)通常是利用_____属性来获得选项按钮OptionButton输入的数据。 A)Caption B)Text C)Name D)Value (18)为了使某个已设置控件可见,应该_____ A)将控件的Visible属性设置为False B)将控件的Visible性设置为True C)将控件的Enabled属性设置为False D)将控件的Enabled属性设置为True (19)如何"锁定"文本框中的内容? A)把它的Enabled设置为TRUE B)把它的Enabled设置为TRUE C)把它的Locked设置为TRUE D)把它的Locked设置为FALSE (20)在窗体上画一个名称为List1的列表框,为了对列表框中的每个项目都能进行处理,应使用的循环语句为() A)Fori=0ToList1.ListCount-1……Next B)Fori=0ToListCount-1……Next C)Fori=1ToList1.listCount……Next D)Fori=1ToListCount……Next (21)以下定义数组或给数组元素赋值的语句中,正确的是() A)DimaAsVariant a=Array(1,2,3,4,5) B)Dima(10)AsInteger a=Array(1,2,3,4,5) C)Dima%(10) a (1)="ABCDE" D)Dima(3)AsInteger,b(3)AsInteger a(0)=0 b=a (22)Label控件的默认属性是: _____ A)Enabled B)Caption C)Name D)Font (23)以下能判断是否到达文件尾的函数是: ______ A)BOF B)LOC C)LOF D)EOF (24)在菜单编辑器中,若想将某一字符设置为该菜单项的访问键,可以在该字符前面加上一个"&"字符,这在菜单的_____属性里设置。 A)Caption B)Name C)Checked D)Index (25)在窗体上布置两个文本框和两个命令按钮,编写如下程序,选项中关于此段程序的正确说法是_____。 PrivateSubCommand1_Click() DimbAsInteger b=b+1 Text1.Text=b EndSub PrivateSubCommand2_Click() StaticbAsInteger b=b+1 Text2.Text=b EndSub A)命令按钮1的事件过程中的b是局部变量,过程调用每单击一次其值加1 B)命令按钮2的事件过程中的b是静态变量,过程每次调用都重新初始化 C)命令按钮1的事件过程中的b是局部变量,过程每次调用都重新初始化 D)命令按钮2的事件过程中的b是非静态变量,过程每次调用都重新初始化 (26)将窗体的_____属性设置为False后,运行时窗体上的按钮、文本框等控件就不会对用户的操作做出响应。 A)Visible B)ControlBox C)WindowsShow D)Enabled (27)以下控件可作为其它控件容器的是_____。 A)Image B)Data C)ListBox D)Frame (28)在窗体上画一个名称为List1的列表框,一个名称为Label1的标签。 列表框中显示若干城市的名称。 当单击列表框中的某个城市名时,在标签中显示选中城市的名称。 下列能正确实现上述功能的程序是 APrivateSubList1_Click() Label1.Caption=List1.ListIndex EndSub BPrivateSubList1_Chilk() Label1.Name=List1.ListIndex EndSub CPrivateSubList1_click() Label1.Name=List1.Text EndSub DPrivateSubList1_Click() Label1.Caption=List1.Text EndSub (29)下面不是Windows系统中的“通用对话框CommonDialog”的是: A)消息对话框 B)保存对话框 C)打印对话框 D)帮助对话框 (30)以下对常用绘图方法的描述错误的是_____。 A)Cls方法用于清除运行时Form或PictureBox所生成的图形和Print输出 B)Point方法用于在指定位置绘制指定颜色的点 C)Line方法用于画线、矩形或填充框 D)Circle方法用于画圆、椭圆或圆弧 二、改错(填空)题(每题8分,共4题) 第1题: 以下程序的功能是: 单击窗体时,弹出输入对话框,用户不断从键盘上输入学生的考试分数,当输入负数时结束输入,然后输出其中的最高分数和最低分数。 程序中有两处错误,均在/*****found******/下面,请把问号去掉,将其改正,不要改动其余部分。 PrivateSubForm_Click() DimxAsSingle,amaxAsSingle,aminAsSingle x=InputBox("请输入一个分数") amax=x: amin=x '*********************FOUND************************** DoWhilex>=? Ifx>amaxThen amax=x EndIf '*********************FOUND************************** Ifx Then amin=x EndIf x=InputBox("请输入一个分数") Loop Print"Max=";amax,"Min=";amin EndSub 第2题: 该程序的功能为: 有一个二维整型数组a(1to10,1to10),要求将该数组中主对角线以上的数组元素都变为原来的2倍,主对角线以下的元素都变为原来的相反数,主对角线的数组元素都设为0.注意: 主对角线指从左上角到右下角的对角线.如下面数组中用0表示的为主对角线. 01111 10111 11011 11101 11110 程序中有2处错误,在/*****found******/下面,请把问号去掉,将其改正,不要改动其余部分。 程序如下: PrivateSubCommand1_Click() Dima(1To10,1To10)AsInteger DimiAsInteger,jAsInteger '下面的语句是给数组a赋予初值 Fori=1To10 Forj=1To10 a(i,j)=i*j Nextj Nexti Fori=1To10 Forj=1To10 '*********************FOUND************************** If? Then a(i,j)=-a(i,j) ElseIfi a(i,j)=a(i,j)*2 Else '*********************FOUND************************** a(i,j)=? EndIf Nextj Nexti EndSub 第3题 在窗体上有一个标签(Label1)、一个计时器(Timer1)和二个命令按钮(名称分别为Command1和Command2)。 如果单击“开始”命令按钮,则可使标签每隔0.2秒闪烁一次;如果单击“停止”命令按钮,则标签停止闪烁。 程序中有三处错误,均在/*****found******/下面,请把问号去掉,将其改正,不要改动其余部分。 PrivateSubForm_Load() Timer1.Enabled=False '*********************FOUND************************** Timer1.? =200 '注意: 上行程序代码表示标签每隔0.2秒闪烁一次 Label1.Caption="注意! " Command1.Caption="开始" Command2.Caption="停止" EndSub PrivateSubCommand1_Click() Timer1.Enabled=TRUE EndSub PrivateSubCommand2_Click() '*********************FOUND************************** Timer1.Enabled=? '上行程序代码表示停止闪烁 EndSub '*********************FOUND************************** PrivateSubTimer1_? () Label1.Visible=NotLabel1.Visible EndSub 第4题 该程序的功能为: 将下列10个数1,5,4,3,6,7,9,0,8,2存放到一个数组中,单击“排序”命令按钮(Command1),使数字序列以从大到小顺序打印出来。 程序中有两处错误,均在*******found*******下面,请把问号去掉,将其改正,不要改动其余部分。 程序如下: PrivateSubCommand1_Click() DimiAsInteger,jAsInteger Dima(1To10)AsInteger,bAsString a (1)=1: a (2)=5: a(3)=4: a(4)=3: a(5)=6: a(6)=7 a(7)=9: a(8)=0: a(9)=8: a(10)=2 b="数字序列倒序为: " Fori=1To10 '*********************FOUND************************** Forj=1To? step1
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 模拟 试题