重庆计算机二级vb试题Word格式文档下载.docx
- 文档编号:19623739
- 上传时间:2023-01-08
- 格式:DOCX
- 页数:13
- 大小:94.58KB
重庆计算机二级vb试题Word格式文档下载.docx
《重庆计算机二级vb试题Word格式文档下载.docx》由会员分享,可在线阅读,更多相关《重庆计算机二级vb试题Word格式文档下载.docx(13页珍藏版)》请在冰豆网上搜索。
9.下列程序执行后,窗体上输出的计算结果是(c)。
PrivateSubCommand1_Click()
DimaAsString,bAsInteger
a=21:
b=35:
c=a+b
Printc
EndSub
(A)21(B)35(C)56(D)2135
10.要求每0.5秒触发一次Timer事件,定时器Timer1的Interval属性应被设置为(a)。
(A)0.5 (B)5 (C)50(D)500
11.VB程序调试期间,若程序陷入死循环,可以中断循环,终止程序运行的按键是(c)。
(A)Esc(B)Pause(C)Ctrl+End(D)Ctrl+Break
12.下列关于数组定义的语句中,概念正确的语句是(b)。
(A)一维数组的下标只能从0或1开始。
(B)使用语句Dima(-10,10)AsDouble,可以定义一个拥有21个元素的数组。
(C)使用语句Dima(n)AsInteger,可以定义一个拥有n个元素的数组。
(D)使用语句OptionBase0:
Dimb(4,6)AsSingle定义的数组b拥有24个元素。
13.下列函数表达式中,返回值最大的是(a)。
(A)Len("
d:
\background.jpg"
)
(B)Val("
(C)Month(now)
(D)WeekDay(now)
14.将焦点移到某个名为Object的控件,所使用的方法是(d)。
(A)Object.SetFocus
(B)Object.Visible
(C)Object.Refresh
(D)Object.GetFocus
15.与VB符号常量vbCrLf等价的表达式是(c)。
(A)Chr(13)(B)Chr(10)
(C)Chr(13)+Chr(10)(D)Chr(10)+Chr(13)
16.单选按钮OptionButton的Value属性的数据类型是(a)。
(A)布尔型(Boolean)(B)单精度型(Single)
(C)整型(Integer)(D)字符串型(String)
17.下列程序运行后,单击命令按钮Command1,则在窗体上显示的内容是(b)。
OptionBase0
DimweekAsVariant
week=Array("
星期一"
"
星期二"
星期三"
星期四"
星期五"
星期六"
星期日"
Printweek(3)
(A)星期二
(B)星期三
(C)星期四
(D)星期五
18.在VB程序设计阶段,当双击窗体上的某个控件时,所打开的窗口是(
c)。
(A)工程资源管理器窗口
(B)工具箱窗口
(C)代码窗口
(D)属性窗口
19.下述程序段的功能是(c)。
PrivateSubForm_KeyPress(KeyAsciiAsInteger)
c=KeyAscii
Ifc>
=97Andc<
=122ThenPrintChr(c)
(A)在窗体上显示键盘输入的可见字符
(B)在窗体上显示键盘输入的数字和标点符号
(C)在窗体上显示键盘输入的小写字母
(D)在窗体上显示键盘输入的大写字母
20.在VB程序运行期间改变窗体的大小,将触发的事件是(cc)。
(A)Deactivate
(B)LinkOpen
(C)Resize
(D)Terminate
21.复选框控件(CheckBox)被选中时,图标形式为
,此时Check1.Value的属性值是(c)。
(A)3
(B)2
(C)1
(D)0
22.在窗体上绘图时,为了坐标定位计算方便,希望将窗体工作区左上角的坐标设置为(-5,3),窗体工作区右下角的坐标设置为(5,-3)。
能实现此功能的语句是(a)。
(A)Me.Scale(5,-3)–(-5,3)(B)Me.Scale(-5,-3)–(5,3)
(C)Me.Scale(-5,3)–(5,-3)(D)Me.Scale(-5,-3)–(5,-3)
23.在下图所示程序中,为“打开文件”菜单选项mnFileOpen设置快捷键(又称为热键),应设置属性mnFileOpen.Caption=(b)。
(A)"
打开文件(&
O)"
(B)"
打开文件(@O)"
(C)"
打开文件(*O)"
(D)"
打开文件(#O)"
24.在VB程序中,使用Append方式打开一个数据文件后,文件指针指向的是(c)。
(A)文件头
(B)文件尾
(C)文件中的一个随机位置
(D)文件中由用户特别指定的一个位置
25.能在窗体上绘出下图所示折线图形的程序段是(d)。
(A)
PrivateSubForm_Click()
d=3.14159/180
X1=Me.ScaleWidth/4
Y1=Me.ScaleHeight/4
PSet(X1,Y1)
Fori=0To360Step20
X2=400*Cos(i*d)
Y2=400*Sin(i*d)
Line-Step(X1,Y1)
Nexti
(B)
Fori=0To360Step40
(C)
Line-Step(X2,Y2)
(D)
二、多项选择题(每小题1分,共5分)
1.下列语句可将图片框Picture1的背景颜色设为红色的有(bcd)。
。
(A)Picture1.Backcolor=Red(B)Picture1.Backcolor=vbRed
(C)Picture1.Backcolor=RGB(255,0,0)(D)Picture1.Backcolor=&
HFF0000
(E)Picture1.Backcolor=&
HFF
2.在VB集成开发环境中,若非经过特别引用,否则在默认状态下不可能出现在工具箱中的控件是(bcde)。
(B)
(C)
(D)
(E)
3.下列方法中,能在图片框(PictureBox)上调用执行的包括(acd)。
(A)Print
(B)Cls
(C)Hide
(D)Show
(E)Line
4.下列计量单位中,可以用来确定窗体和其它控件大小的有(abe)。
(A)Twip
(B)Point
(C)Pixel
(D)Character
(E)Inch
5.可以将双精度类型变量X(X>
0)中的数值精确到小数点后面2位数的函数表达式有(abd)。
(A)Round(x,2)
(B)Int(100*x+0.5)/100
(C)Fix(100*x+0.5)/100
(D)Int(x+0.5)
(E)Fix(x+0.5)
三、判断分析题(每小题1分,共10分)
1.ExitFor语句可以退出所有类型的循环结构。
2.程序中语句position=InStr(str1,"
and"
)执行过后,若字符串变量str1中不包含子串"
,则position的值为0。
3.在程序运行期间,如果将定时器(Timer)的Index属性设置为0,可以使定时器停止暂时关闭。
4.语句x=Rnd–Rnd执行之后,变量x的值必定为0。
5.如果变量n为大于1的整数,下列语句执行结束之后,变量i的值为n。
Fori=1Ton
Printi
Nexti
6.VisualBasic程序源代码允许在一行上书写多个语句,只要用冒号(“:
”)将这些语句分隔开来即可。
7.如果设置标签控件(Label1)的属性Label1.AutoSize=True,则程序运行期间Label1的宽度会随着Label1.Caption属性赋予的字符数目而自动改变。
8.程序设计时在同一框架(Frame)中画出的多个单选按钮控件(OptionButton),程序运行期间最多只允许其中之一被选中。
9.在程序设计阶段设置了窗体的Font属性之后,添加到窗体上的任何控件都将自动继承窗体的Font属性。
10.在VisualBasic算术表达式中,“\”运算符与”*”、”/”运算符具有相同的优先级。
四、程序填空题(每空2分,共20分)
1.下面程序的功能是:
计算x的符号值
x=Val(InputBox("
请输入x的值:
"
))
Ifx>
0Then
y=1
①x=0Then
y=0
②
y=-1
EndIf
Printx&
的符号值="
&
y
2.程序希望实现的功能是:
产生20个取值范围在[500,800]之间,并且能被5整除的随机整数,每10个数排成一行,在窗体上显示输出。
n=0
DoWhilen<
20
x=Int(Rnd*301+500)
If③=0Then
n=n+1
Printx;
If④=0ThenPrint
Loop
3.下列程序运行后,希望实现的功能是:
生成如图格式的5×
5方阵。
Fori=1To5
Forj=1To5
Picture1.Print⑤(i>
=j,"
*"
@"
);
Nextj
Picture1.⑥
4.下列程序拟用于统计指定的字符串在文本框Text2内输入短文中出现的次数,并将统计结果显示在窗体右上角的标签控件Label1中。
s1=Text2.Text'
输入短文
s2=Text1.Text'
输入指定的查找字符串
start=1
Count1=0
Fori=1To⑦
x=InStr(start,s1,s2)
Count1=Count1+1
start=x+⑧
Else
ExitFor
Label1.Caption=Count1
5.单击图片框Picture1中的任何位置,便以该位置为圆心,画出一个半径为300并填充蓝色的圆;
单击窗体时,则清除Picture1中绘画的所有内容。
Picture1.⑨
PrivateSubPicture1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
Picture1.FillStyle=0
Picture1.⑩=vbBlue
Picture1.Circle(X,Y),300
五、阅读分析程序,并选择答案(每小题4分,共20分)
1.运行下述程序,单击窗体之后,窗体上显示的结果为()。
DimaAsVariant
a=Array(37,49,82,66,71,23,18,40)
Fori=1ToUBound(a)Step2
s=s+a(i)
Next
Prints
(A)178
(B)208
(C)349
(D)386
2.下面的程序运行后,单击窗体,窗体上输出的结果是()。
i=1
s=1
DoWhiles<
30
s=s*i
i=i+1
(A)24
(B)30
(C)60
(D)120
3.运行下列程序,单击窗体,在窗口上显示的结果为()。
DimX,Y
X=7
Y=9
PrintY=X+2
(A)4
(B)5
(C)True
(D)False
4.下述程序启动行行之后,图片框Picture1中显示的内容是()。
DimiAsLong
PrivateSubForm_Load()
Timer1.Enabled=True
Timer1.Interval=20
Picture1.FillColor=vbRed
Picture1.ForeColor=vbRed
PrivateSubTimer1_Timer()
Picture1.Cls
x=Picture1.ScaleWidth\2
y=Picture1.ScaleHeight-i+500
Ify<
Timer1.Enabled=False
Picture1.Print"
游戏结束"
Picture1.Circle(x,y),500
i=i+10
(A)一个圆形从Picture1的右边出现,逐渐右移到Picture1的左边。
(B)一个圆形从Picture1的顶边出现,逐渐下移到Picture1的底部边缘。
(C)一个圆形从Picture1的左边出现,逐渐右移到Picture1的右边。
(D)一个圆形从Picture1的底边出现,逐渐上移到Picture1的顶部边缘。
5.启动运行下述程序,单击窗体,在窗体上输出的结果是():
a=0
Fork=1To15
Ifk<
=20Thena=2*k+100
=30Thena=k+10
Nextk
Printk;
a
(A)1525
(B)15230
(C)1625
(D)16230
六、程序设计题(每小题10分,共20分)
1.在同学会上,班长提议每人与其他同学只碰杯一次,已知碰杯声为903次,编写程序计算出席同学会的人数。
2.学生各门课程考试成绩如下表所示,所有成绩数据保存在文件“e:
\score.txt”中。
编写程序,使之能打开成绩数据文件,并查找最好的成绩出现在哪门课程,由哪位学生获得,然后将查找结果显示在窗体上。
下面已经给出了部分代码,请考生自行编写省略号位置缺失的代码(答题纸上不要抄写已给出的代码)。
计算机
高数
物理
外语
苏玉娟
78
88
87
75
何大伟
67
80
98
69
郑晓明
92
60
95
91
陈宝山
85
53
84
82
杜振伟
90
89
77
刘志刚
79
83
student=Array("
苏玉娟"
何大伟"
郑晓明"
陈宝山"
杜振伟"
刘志刚"
subject=Array("
计算机"
高数"
物理"
外语"
Dimscore(6,4)AsInteger
i=0
Open"
e:
\score.txt"
ForInputAs#1
DoWhileNotEOF
(1)
Input#1,score(i,0),score(i,1),score(i,2),score(i,3)
Loop
Close
Max=0
……
Print"
最好成绩由"
student(x);
在"
subject(y);
课程中获得,"
Max;
分"
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 重庆 计算机 二级 vb 试题
![提示](https://static.bdocx.com/images/bang_tan.gif)