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

非选择题部分

注意事项:

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

,。

五、程序设计题:本大题共2小题,每小题13分,共26分。

给定一组数据存放在数组中使用顺序查找法在该数组中查找某个任意给定

43.a(1)~a(n),,

的数要求

x。:

用自定义函数实现分

(1)Find(7)。

在事件过程中编写调用函数的方法以数组为例

(2)Form_ClickFind,Array(1,9,7,9,6,2)

分

(6)。

程序设计试题

07759#VisualBasic7(8)

编程实现将输入的学生成绩信息保存到盘根目录下的文件中窗体上已建立一

44.DSS.txt。

个保存命令按钮个文本框依次存放对应学生的学号姓名和

“”Command1,5Text1~Text5、

三门课程的成绩高等数学大学物理和计算机自定义类型定义如下

(、)。Student:

PrivateTypeStudent

noAsString∗6

nameAsString∗8

高等数学成绩

sc1AsInteger′

大学物理成绩

sc2AsInteger′

计算机成绩

sc3AsInteger′

EndType

程序设计试题

07759#VisualBasic8(8)

2026年4月高等教育自学考试

《VisualBasic程序设计试题》参考答案

课程代码：07759

一、单项选择题（共10小题，每小题2分，共20分）

题号答案解析

VB6.0版本包括：学习版、专

1C.个人版

业版、企业版

Cls是清除窗体内容，不触发

2D.执行Form1.Cls语句

Unload事件

33000在Integer范围内

3C.33000（-32768~32767），不是长整

型

Format(1234567,"#,##0")结

4A.1,234,567

果带千位分隔符

CheckBox的Value属性：0

5C.2

未选中，1选中，2灰色

D.For后面的循环变量名必

6须与Next后面的循环变量必须一致，否则语法错误

名一致

m是变量，不能作为数组下

7D.Dimw(m)AsInteger

标

显示删除线、下划线检查框

8C.cdlCFFeetcs

和颜色组合框的Flags值

9B.OutputOutput模式覆盖写入

Tab、Enter等字符键可触发

10A.Tab

KeyPress事件

二、判断题（共10小题，每小题1分，共10分）

（A=正确，B=错误）

题号判断答案解析

设计程序界面就是

11A正确

在窗体上添加控件

单击鼠标发生Click、

12MouseDown、A正确

MouseUp事件

标识符长度允许300

13A正确

个字符

赋值号左侧可以是

14B左侧只能是变量

变量、常量或表达式

双击工具箱控件图

15标添加到框架内，控A正确

件未被约束

一般用Change事件Scroll事件获得实时

16B

获得滚动条最终值变化值

按大小是否固定分按维数分，不是按是

17B

一维、二维和多维否固定

VB菜单分为下拉菜分为下拉菜单和弹

18B

单和上拉菜单出式菜单

文件号是访问缓冲

19A正确

区的编号

DragMode设置为1

20A正确

时可用Drag方法

三、程序填空题（共12小题，每小题2分，共24分）

说明：程序填空部分原题第21~32题的选项未在PDF中完整显示（后续页面为乱码），无

法给出具体选择答案。建议根据程序逻辑从已学知识推断。

程序逻辑分析（三个数从大到小排序）：

1.从Text1、Text2、Text3读取三个整数

2.使用条件判断或中间变量交换，使最大值放Text1，中间值放Text2，最小值放Text3

3.典型实现方式：

Ifa<bThent=a:a=b:b=tIfa<cThent=a:a=c:c=tIfb<cThent=b:b=c:c=tText1.Text=

a:Text2.Text=b:Text3.Text=c

四、程序阅读题（共10小题，每小题2分，共20分）

第33~36题（第一段程序）

题号答案解析

输入33，cj=33，<60→不及

33D.不及格

格

第一次单击后Label3="不及

34A.优格"，第二次cj=33×3=99→

≥90→优

35D.输入的成绩无效输入123，>100→显示无效

36A.err输入-100，<0→Text1="err"

第37~39题（第二段程序）

题号答案解析

鼠标中键Button=4→s="x"+

Shift=Ctr