2024年4月自考07759visual basic程序设计试题

机密考试结束前

★

年月高等教育自学考试

20244

VisualBasic程序设计试题

课程代码:07759

请考生按规定用笔将所有试题的答案涂、写在答题纸上。

1.

答题前,考生务必将自己的考试课程名称、姓名、准考证号用黑色字迹的签字笔或钢笔

2.

填写在答题纸规定的位置上。

选择题部分

注意事项:

每小题选出答案后用铅笔把答题纸上对应题目的答案标号涂黑如需改动用橡皮

,2B。,

擦干净后再选涂其他答案标号不能答在试题卷上

,。。

一、单项选择题:本大题共10小题,每小题2分,共20分。在每小题列出的备选项中只有一项

是最符合题目要求的,请将其选出。

不属于特点的是

1.VisualBasic

∙∙∙

事件驱动的编程机制

A.

结构化的程序设计语言

B.

采用面向对象的可视化编程

C.

只能操作等小型数据库

D.MicrosoftAccess

程序运行时不能触发文本框事件的是

2.,Change

∙∙

用鼠标双击文本框文本框中删除一个字符

A.B.

文本框中输入一个字符为文本框的属性设置新值

C.D.Text

以下字符串表达式中执行结果出错的是

3.

∙∙

A."ab"&123B."12"+TrueC."ab"+123D."12"&True

若执行语句则

4.“x=1/0”,

提示编译错误提示运行时错误

A.B.

提示逻辑错误结果为

C.D.0

能正确匹配范围内整数的语句是

5.100~200case

A.case100to200B.caseis>99AndIs<201

C.case99<is<201D.case99to201

程序设计试题第页共页

07759#VisualBasic1(8)

条件型循环语句是指

6.

语句和语句

A.For…NextDo…Loop

和语句

B.While…WendDo…Loop

语句和语句

C.For…NextWhile…Wend

语句和语句

D.For…Next、While…WendDo…Loop

若有以下语句

7.:

Dima,bAsString,c(4),d()AsInteger

则正确使用函数的语句是

Array

A.a=Array(1,2,3,4)

B.c=Array(1,2,3,4)

C.d=Array(1,2,3,4)

D.b=Array("Jan","Feb","Mar","Apr")

与等效的语句是

8.CommonDialog1.ShowPrint

A.CommonDialog1.Action=2B.CommonDialog1.Action=3

C.CommonDialog1.Action=4D.CommonDialog1.Action=5

返回文件大小的函数是

9.

A.EOFB.LOFC.CloseD.FreeFile

方法中动作参数如果省略则默认值为

10.Drag“”,

A.3B.2C.1D.0

二、判断题:本大题共10小题,每小题1分,共10分。判断下列各题,在答题纸相应位置正确

的涂“A”,错误的涂“B”。

专业版增加了工具

11.VisualBasic6.0BackOffice。

对象是类的抽象化是创建类的模板

12.,。

十六进制长整型以引导以结尾

13.&H,&。

严格意义上说和函数也是输出项因为它们可以出现在方法后的任意输出

14.,TabSpc,Print

项位置

。

在中除了窗体和图片框可以作为容器外还有框架控件

15.VisualBasic,,。

定时器只有一个事件

16.Timer。

根据数组下标个数的不同可分为静态数组和动态数组

17.,。

若将菜单项设置为分隔线则它没有事件

18.,Click。

二进制文件应使用语句的方式打开

19.OpenRandom。

命令按钮的属性设置为时不响应键的事件

20.CancelFalse,EscKeyDown。

程序设计试题第页共页

07759#VisualBasic2(8)

三、程序填空题:本大题共12小题,每空2分,共24分。

阅读下列各程序,根据程序说明在每小题提供的若干可选答案中挑选一个正确答案,请

将其选出并将“答题纸”的相应代码涂黑。错涂、多涂或未涂均无分。

程序说明窗体上已建立命令按钮标签和个文本框和

【】Command1、Label12(Text1

要实现在个文本框中输入任意个自然数点击时能够计算他们的最大

Text2)。22,Command1

公约数和最小公倍数并把结果显示在上

,Label1。

PrivateSubCommand1_Click()

Dimxx%,yy%,x%,y%,r%

xx=Val(Text1)

yy=Val(Text2)

Ifxx<yyThen

x=yy

y=xx

Else

(21)

y=yy

EndIf

r=xMody

DoWhiler<>(22)

x=y

(23)

r=(24)

Loop

最大公约数最小公倍数

Label1=":"&y&",:"&(25)

EndSub

供选择的答案

【】

21.A.x=yyB.x=xxC.xx=xD.yy=x

22.A.-1B.0C.1D.True

23.A.yy=rB.yy=xC.y=xD.y=r

24.A.yyModxxB.xxModyyC.xModyD.yModx

25.A.xx∗yy/yB.xx∗y/yyC.x∗yy/yD.x∗y/yy

程序设计试题第页共页

07759#VisualBasic3(8)

程序说明窗体上已建立命令按钮点击它之后随机生成一个行列的二

【】Command1,45

维数组元素取值为小于的两位正整数在窗体上显示数组元素所有元素之和最大值元

,30,、、

素及其对应的行号和列号

。

OptionBase1

PrivateSubCommand1_Click()

Dima(4,5)AsInteger

Fori=1To4

Forj=1To5

a(i,j)=Int(Rnd∗20+10)

Printa(i,j);

Nextj

Print

Nexti

row=1

col=1

Max=(26)

Fori=1To4

Forj=1To5

Sum=Sum+a(i,j)

If(27)>MaxThen

Max=a(i,j)

row=(28)

col=(29)

EndIf

Nextj

Nexti

元素和最大值行号列号

Print"="&Sum,"="&Max,"="&row&",="&col

EndSub

供选择的答案

【】

26.A.a(0,0)B.a(4,5)C.a(i,j)D.a(row,col)

程序设计试题第页共页

07759#VisualBasic4(8)

27.A.a(i,j)B.a(i,j+1)C.a(i+1,j)D.a(i+1,j+1)

28.A.iB.jC.MaxD.Sum

29.A.iB.jC.MaxD.Sum

程序说明窗体上已建立命令按钮图片框文本框当点击

【】Command1、Picture1、Text1。

时生成一维数组该数组大小由文本框输入并且各元素的值随机产生取值范围

Command1,,,,

在到之间把该一维数组中所有为负数的元素之和显示在图片框中

-5050,。

Functionsum%(b%())

Dimi%

Fori=LBound(b)To(30)

If(31)Then

sum=sum+b(i)

EndIf

Nexti

EndFunction

PrivateSubCommand1_Click()

Dima%(),s%,i%,n%

Randomize

n=Val(Text1)

ReDima(1Ton)

Fori=1Ton

a(i)=Int(Rnd∗100)-50

Picture1.Printa(i);

Nexti

Picture1.Print

s=(32)

数组中的所有值为负数的元素之和为

Picture1.Print":";s

EndSub

供选择的答案

【】

30.A.nB.Text1C.Len(b)D.UBound(b)

31.A.b(i)=0B.b(i)>0C.b(i)<0D.b(i)<>0

32.A.sum(b())B.sum(b(n))C.sum(a())D.sum(a(n))

程序设计试题第页共页

07759#VisualBasic5(8)

四、程序阅读题:本大题共10小题,每小题2分,共20分。

阅读下列各程序并回答问题,在每小题提供的若干可选答案中挑选一个正确答案,请将其

选出并将“答题纸”的相应代码涂黑。错涂、多涂或未涂均无分。

程序

【】

PrivateSubCommand1_Click()

DimchAsString∗1

ch=Mid(Text1,Text2,1)

SelectCasech

Case"a"To"z","A"To"Z"

是字母字符

MsgBox(ch+"")

Case"0"To"9"

是数字字符

MsgBox(ch+"")

CaseElse

是其他字符

MsgBox(ch+"")

EndSelect

EndSub

问题与供选择的答案

【】

程序开始运行时在文本框中输入四个字符在文本框中输入一个数

33.,Text1“go2!”,Text2

字然后单击命令按钮对话框中显示的内容是

“3”,Command1,MsgBox

是数字字符是字母字符

A.2B.g

是其他字符是字母字符

C.!D.o

程序开始运行时在文本框中输入四个字符在文本框中输入一个数

34.,Text1“go2!”,Text2

字然后单击命令按钮对话框中显示的内容是

“4”,Command1,MsgBox

是数字字符是其他字符

A.2B.!

是字母字符无法正常运行提示类型不匹配

C.gD.,

程序开始运行时在文本框中输入四个字符在文本框中输入一个数

35.,Text1“go2!”,Text2

字然后单击命令按钮对话框中显示的内容是

“5”,Command1,MsgBox

是数字字符是其他字符

A.2B.!

是其他字符无法正常运行提示类型不匹配

C.D.,

如果把程序中的改成程序运

36.“ch=Mid(Text1,Text2,1)”“ch=Mid(Text1,Text2,2)”,

行后在文本框中输入四个字符在文本框中输入一个数字然后

,Text1“go2!”,Text2“3”,

单击命令按钮对话框中显示的内容是

Command1,MsgBox

是数字字符是数字字符

A.2B.2!

是其他字符无法正常运行提示类型不匹配

C.2!D.,

程序设计试题第页共页

07759#VisualBasic6(8)

程序

【】

PublicpAsString

PublicqAsString

PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

SelectCaseButton

Case1

p=p&"m"

Case2

p=p&"n"

Case4

p="x"

EndSelect

SelectCaseShift

Case1

q="a"

Case2

q="b"

CaseElse

q=q+"c"

EndSelect

Text1.Text=p+q

EndSub

问题与供选择的答案

【】

程序开始运行时在窗体上按下鼠标左键则中的值是

37.,,Text1Text

A.mcB.ncC.xcD.c

程序开始运行时在窗体上按下鼠标右键同时按住键盘上键则中的值是

38.,Shift,Text1Text

A.mbB.nbC.maD.na

程序开始运行时若中的值是则可能的操作是

39.,Text1Text“xcc”,

按住键盘上键的同时按下鼠标左键和鼠标右键

A.Alt

按住键盘上键的同时再按下鼠标左键和鼠标右键

B.Ctrl

按住键盘上键的同时再按下鼠标中间键

C.Ctrl

鼠标中间键连续按了两次

D.

程序设计试题第页共页

07759#VisualBasic7(8)

程序

【】

PrivateSubCommand1_Click()

Cls

ConstPI=3.14159263

Scale(0,30)-(120,0)

Fori=1To21Step10

Circle(75,5+i),10,QBColor(12),-PI∗2/3,PI/4

Nexti

EndSub

问题与供选择的答案

【】

程序开始运行时单击命令按钮则窗体上绘制了

40.,Command1,

扇形圆椭圆带有