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

机密考试结束前

★

年月高等教育自学考试

20264

VisualBasic程序设计试题

课程代码:07759

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

1.

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

2.

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

选择题部分

注意事项:

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

,2B。,

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

,。。

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

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

不包括哪一个版本

1.VisualBasic6.0?

专业版∙∙∙学习版个人版企业版

A.B.C.D.

不能触发窗体事件的是

2.Unload

∙∙单击窗体的关闭按钮按下快捷键

A.B.Alt+F4

执行语句执行语句

C.UnloadMeD.Form1.Cls

不属于长整型的数是

3.

∙∙∙

A.123&B.-123C.33000D.-1234567

的结果是

4.Format(1234567,"#,##0")

A.1,234,567B.1,234567

C.1,235D.1,230

复选框要表示灰色状态则属性值应置为

5.(CheckBox)“”,Value

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

有关循环语句描述正确的是

6.For…Next

循环变量可以是字符串型

A.

步长可正可负也可以为零

B.,

如果步长省略不写则步长默认为

C.[step],-1

后面的循环变量名必须与后面的循环变量名一致

D.ForNext

程序设计试题

07759#VisualBasic1(8)

若有以下语句

7.:

DimmAsInteger

m=10

ConstNAsInteger=5

下列数组声明语句错误的是

∙∙

A.Dimx(N)AsIntegerB.Dimy(1To2∗3)AsInteger

C.Dimz(1.6To5.3)AsSingleD.Dimw(m)AsInteger

字体对话框若要显示删除线和下划线检查框以及颜色组合框则属性值为

8.“”,Flags

A.cdlCFScreenFontsB.cdlCFPrinterFonts

C.cdlCFEffectsD.cdlCFBoth

表示对顺序文件进行覆盖式写操作的访问模式是

9.

A.InputB.OutputC.AppendD.Random

按下哪一个键能触发事件

10.KeyPress?

A.TabB.AltC.ShiftD.Ctrl

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

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

中设计程序界面实际上就是根据程序运行要求在窗体上添加所需的对象

11.VisualBasic,

控件

。

单击鼠标时发生了和事件

12.Click、MouseDownMouseUp。

标识符长度允许达到个字符

13.300。

赋值号左侧可以是变量常量或表达式

14.、。

不能通过双击工具箱中控件图标的方法添加对象到框架内这样创建的对象是浮在框

15.,“”

架∙上∙的并没有被约束在框架内

,。

在编程时一般用事件获得滚动条变化后的最终值

16.,Change。

根据数组的大小是否固定可分为一维数组二维数组和多维数组

17.,、。

中菜单分为两种下拉菜单和上拉菜单

18.VisualBasic:。

文件号是系统为打开文件新开辟的访问缓冲区的编号

19.。

将窗体上按钮的属性设置为时可以使用方法控制拖放操作

20.DragMode1-Automatic,Drag。

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

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

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

程序说明窗体上已建立命令按钮和个文本框和要实现

【】Command13(Text1、Text2Text3)。

在个文本框中依次输入个整数点击时能够把输入的个整数从大到小排序

33,Command13

后依次显示在和中

Text1、Text2Text3。

程序设计试题

07759#VisualBasic2(8)

PrivateSubCommand1_Click()

Dimx%,y%,z%,t%

x=Val(Text1.Text)

y=Val(Text2.Text)

z=Val(Text3.Text)

Ifx<yThent=x:(21):(22)

Ifx<zThent=x:(23):(24)

Ify<zThent=y:(25):(26)

Text1=x:Text2=y:Text3=z

EndSub

供选择的答案

【】

21.A.x=yB.x=zC.y=zD.z=y

22.A.y=tB.z=tC.x=tD.t=y

23.A.z=yB.x=yC.y=zD.x=z

24.A.y=tB.z=tC.x=tD.t=y

25.A.z=yB.x=yC.y=zD.x=z

26.A.y=tB.z=tC.x=tD.t=y

程序说明窗体上已建立命令按钮点击它之后可随机生成一个矩阵显示在

【】Command1,4×4

窗体上并同时显示主对角线和副对角线各元素之和

,。

PrivateSubCommand1_Click()

Dima(1To4,1To4)AsInteger

Dimsum1AsInteger,sum2AsInteger

DimiAsInteger,jAsInteger

Fori=1To4

Forj=1To4

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

PrintTab(4∗(j-1));(27);

Nextj

Nexti

sum1=0

sum2=0

Fori=1To4

sum1=sum1+(28)

程序设计试题

07759#VisualBasic3(8)

sum2=sum2+(29)

Nexti

Print

主对角线之和

Print"="&sum1

副对角线之和

Print"="&sum2

EndSub

供选择的答案

【】

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

28.A.a(i,j)B.a(j,i)C.a(i,i)D.a(j,j)

29.A.a(j,j)B.a(i,i)C.a(j,5-j)D.a(i,5-i)

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

【】Command1,1100

正整数判断输出该数是否为素数

,。

PrivateSubCommand1_Click()

DimnAsInteger

n=Int(Rnd∗100+1)

i=2

flag=(30)

Whilei<n-1And(31)

IfnModi=0Then

flag=0

Else

(32)

EndIf

Wend

Ifflag=0Then

不是素数

Printn;""

Else

是素数

Printn;""

EndIf

EndSub

供选择的答案

【】

30.A.nB.iC.0D.1

31.A.flag=0B.flag=1C.flag=nD.flag=i

32.A.flag=1B.flag=nC.i=i+2D.i=i+1

程序设计试题

07759#VisualBasic4(8)

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

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

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

程序

【】

PrivateSubCommand1_Click()

v=Label3.Caption

不及格优

cj=If(v=""Orv="",Val(Text1)∗3,Val(Text1))

Ifcj<0Orcj>100Then

Text1.Text="err"

输入的成绩无效

Label3.Caption=""

ElseIfcj>=90Then

优

Label3.Caption=""

ElseIfcj>=80Then

良

Label3.Caption=""

ElseIfcj>=70Then

中

Label3.Caption=""

ElseIfcj>=60Then

及格

Label3.Caption=""

Else

不及格

Label3.Caption=""

EndIf

EndSub

问题与供选择的答案

【】

程序开始运行时在文本框中输入后单击命令按钮则

33.,Text1“33”Command1,Label3.

的值为

Caption

优良及格不及格

A.B.C.D.

程序开始运行时在文本框中输入后单击两次命令按钮则

34.,Text1“33”Command1,Label3.

的值为

Caption

优良及格不及格

A.B.C.D.

程序开始运行时在文本框中输入后单击命令按钮则

35.,Text1“123”Command1,Label3.

的值为

Caption

优良

A.B.

不及格输入的成绩无效

C.D.

程序设计试题

07759#VisualBasic5(8)

程序开始运行时在文本框中输入负数后单击命令按钮则

36.,Text1“-100”Command1,Text1

的值为

A.errB.-100

不及格程序报错无法运行

C.D.,

程序

【】

PublicsAsString

PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

SelectCaseButton

Case1

s=s&"1"

Case2

=

ss&"2"

Case4

=

s"x"

EndSelect

SelectCaseShift

Case1

=

s"a"

Case2

=

s"b"

Case3

=

s"c"

Case4

=

s"d"

CaseElse

=+

ss"e"

EndSelect

=

Text1.Texts

EndSub

问题与供选择的答案

【】

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

37.,Ctrl,Text1Text

值是

A.aB.bC.dD.xe

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

38.,,Text1Text

A.aB.bC.12D.1e2e

程序设计试题

07759#VisualBasic6(8)

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

39.,Text1Text“c”,

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

A.CtrlAlt,

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

B.ShiftAlt,

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

C.ShiftCtrl,

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

D.Shift、CtrlAlt,

程序

【】

PrivateSubCommand1_Click()

Cls

ConstPI=3.14159263

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

Circle(45,15),10,,-2∗PI,-PI/2

Line(0,30)-(120,0),QBColor(15)

EndSub

问题与供选择的答案

【】

程序开始运行时单击命令按钮则窗体上绘制了一条线段和一个

40.,Command1,

扇形圆椭圆带有半径的圆弧

A.B.C.D.

程序开始运行时单击命令按钮则窗体上绘制的线段颜色是

41.,Command1,

黑色亮白色亮红色亮黄色

A.B.C.D.

程序开始运行时单击命令按钮后的值为

42.,Command1CurrentX

A.150B.120C.30D.0

非选择题部分

注意事项:

用黑色字迹的签字笔或钢笔将答案写在答题纸上不能答在试题卷上

,