重庆计算机二级vb试题Word格式文档下载.docx

资源描述

重庆计算机二级vb试题Word格式文档下载.docx

《重庆计算机二级vb试题Word格式文档下载.docx》由会员分享，可在线阅读，更多相关《重庆计算机二级vb试题Word格式文档下载.docx（13页珍藏版）》请在冰豆网上搜索。

重庆计算机二级vb试题Word格式文档下载.docx

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（"

\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&

的符号值="

2．程序希望实现的功能是：

产生20个取值范围在[500，800]之间，并且能被5整除的随机整数，每10个数排成一行，在窗体上显示输出。

n=0

DoWhilen<

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）

Prints

（A）178

（B）208

（C）349

（D）386

2．下面的程序运行后，单击窗体，窗体上输出的结果是（）。

i=1

s=1

DoWhiles<

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）1525

（B）15230

（C）1625

（D）16230

六、程序设计题（每小题10分，共20分）

1．在同学会上，班长提议每人与其他同学只碰杯一次，已知碰杯声为903次，编写程序计算出席同学会的人数。

2．学生各门课程考试成绩如下表所示，所有成绩数据保存在文件“e:

\score.txt”中。

编写程序，使之能打开成绩数据文件，并查找最好的成绩出现在哪门课程，由哪位学生获得，然后将查找结果显示在窗体上。

下面已经给出了部分代码，请考生自行编写省略号位置缺失的代码（答题纸上不要抄写已给出的代码）。

计算机

高数

物理

外语

苏玉娟

何大伟

郑晓明

陈宝山

杜振伟

刘志刚

student=Array（"

苏玉娟"

何大伟"

郑晓明"

陈宝山"

杜振伟"

刘志刚"

subject=Array（"

计算机"

高数"

物理"

外语"

Dimscore（6,4）AsInteger

i=0

Open"

\score.txt"

ForInputAs#1

DoWhileNotEOF

（1）

Input#1,score（i,0）,score（i,1）,score（i,2）,score（i,3）

Loop

Max=0

……

Print"

最好成绩由"

student（x）;

在"

subject（y）;

课程中获得，"

Max;

分"

展开阅读全文