2019年1月自考07759visualbasic程序设计试题及答案含解析

程序设计年月真题

07759VisualBasic20191

1、【单选题】InputBox（）函数的返回类型是（）

整型

对象

A:

数字型

B:

字符串

C:

答D:案：D

解析：inputbox函数返回值的类型是“字符串”。InputBox函数在一对话框中显示提示,

等待用户输入正文或按下按钮,并返回包含文本框内容的String。所以其返回类型为字符

串类型。

2、【单选题】下列关键字中，不能定义变量的是（）

Redim

Declare

A:

Static

B:

Public

C:

答D:案：B

3、【单选题】用八进制表示VisualBasic的整型常数时，前面要加上的符号是（）

H

&

A:

B

B:

D

C:

答D:案：B

4、【单选题】表达式Int(6.7)的结果是（）

-1

0

A:

5

B:

6

C:

答D:案：D

解析：表达式`Int(6.7)`的结果是6。`Int`函数是VisualBasic中的一个数学函数，用于

返回一个数的整数部分。当`Int`函数应用于一个正数时，它会返回小于或等于该数的最

大整数。当`Int`函数应用于一个负数时，它会返回大于或等于该数的最小整数。

5、【单选题】下列语句中，可以用来在列表框Listl中插入一行文本的是（）

Listl.Cls

Listl.Addltem

A:

Listl.RemoveItem

B:

Listl.ClearAll

C:

答D:案：B

6、【单选题】要使输入到文本框中的字符显示“*”号，应该设置（）属性。

Text

Enabled

A:

Max.Length

B:

PassWordChar

C:

答D:案：D

7、【单选题】VB的全局变量可以用（）语句声明。

Public或Global

Public或Dim

A:

Static或Global

B:

Dim或Global

C:

答D:案：A

解析：VB的全局变量可以用`Public`或`Global`语句声明。`Public`语句用于在模块级别

声明公共变量，这些变量可以在整个项目中的任何模块中使用。例如：```Public

myGlobalVariableAsInteger````Global`语句也用于在模块级别声明全局变量，但是它

只能在标准模块中使用。例如：```GlobalmyGlobalVariableAsInteger```在实际使用

中，`Public`语句更常用，因为它可以在任何模块中使用。但是，如果您只需要在标准模

块中使用全局变量，则可以使用`Global`语句。

8、【单选题】滚动条分为（）

矩形滚动条和圆形滚动条

垂直滚动条和纵向滚动条

A:

横向滚动条和水平滚动条

B:

垂直滚动条和水平滚动条

C:

D:

答案：D

解析：滚动条分为垂直滚动条和水平滚动条两种。利用滚动条可使文档左右或上下移动,

确定显示范围,以方便查看文档的内容。

9、【单选题】过程定义SubMySub(ByValxAsInteger,ByRefyAsInteger),下列说

法正确的是（）

x是传地址参数，y是传值参数

y是传地址参数，x是传值参数

A:

x和y都是传值参数

B:

x和y都是传地址参数

C:

答D:案：B

10、【单选题】计时器控件Timer的计时间隔是由（）属性来设置的。

Enabled

Interval

A:

Timer

B:

Text

C:

答D:案：B

解析：计时器控件的常用属性有两个:一是Enabeld属性,表示计时器是否启用;二是

Interval属性,表示计时器Timer事件执行的时间间隔。

11、【单选题】VB最主要的两个特点是可视化界面设计和（）驱动的编程机制。

事件

任务

A:

键盘

B:

过程

C:

答D:案：A

解析：VB主要特点有两个,即可视化界面设计和事件驱动编程机制。visual是可视化的

意思。如果见到它,说明这个软件或程序是可视化的。它是面向对象的语言。(还有一种是

面向过程语言,比如C语言。)事件编程机制指的是在事件驱动应用程序中。代码不是按

预先的顺序执行,而是相应不同事件(比如,单击,双击,)而执行不同代码。

12、【单选题】在程序代码中可以使用（）方法设置焦点。

Tab

Setfocus

A:

B:

TabStop

TabStart

C:

答D:案：B

解析：SetFocus就是把当前焦点给某个对象，比如Me.SetFocus，则当前窗体或者焦点，

也就是他是激活窗体，Text1.SetFocus，则Text1获得焦点，这时候输入的内容将显示在

Text1中。

13、【单选题】下列数组定义中，元素个数最多的是（）

DimA(4,2)

DimA(3,3)

A:

DimA(-1To3,3)

B:

DimA(1To2,3)

C:

答D:案：C

14、【单选题】通用对话框CommonDialog控件，不能用于的是（）

调用Help文件

选择字体

A:

选择颜色

B:

选择文件夹

C:

答D:案：D

15、【单选题】文件指针的定位通过（）语句来实现。

Hide

Close

A:

Open

B:

Seek

C:

答D:案：D

解析：文件指针的定位可以通过`Seek`语句来实现。`Seek`语句是VisualBasic中的一

个文件输入/输出函数，用于在文件中定位文件指针的位置。

16、【单选题】下列内部函数中，（）不属于日期和时间函数。

Day

Now

A:

Cos

B:

Time

C:

D:

答案：C

17、【判断题】全局变量_可以_在工程的每个模块、每个过程中使用。

正确

错误

A:

答B:案：A

18、【判断题】滚动条的Max属性必须_大于或等于_Min属性。

正确

错误

A:

答B:案：B

19、【判断题】Forml.PrintFormat(2.86,“O.0”)会在Forml上显示尘_2.9_。

正确

错误

A:

答B:案：A

解析：对

20、【判断题】文本框_支持_Click事件。

正确

错误

A:

答B:案：A

解析：对

21、【判断题】Do..LoopWhile语句中如果条件总是成立，Do循环_可能_陷入“死循

环”

正确

错误

A:

答B:案：A

解析：对

22、【判断题】定义数组时，_不可以_用ReDim语句来定义。

正确

错误

A:

答B:案：B

解析：错。可以

23、【判断题】在同一模块中，_允许_多个Sub过程和多个Function过程同名。

正确

错误

A:

答B:案：B

解析：错。不允许

24、【判断题】可以使用通用对话框CommonDialog的_ShowFont_方法来建立字体对话

框。

正确

错误

A:

答B:案：A

解析：对

25、【判断题】写顺序文件时，可以使用Print#语句和_Writeline_#语句。

正确

错误

A:

答B:案：B

解析：错。Write#

26、【判断题】对于框架而言，要把Enabled属性设置为压_False_.这样才能保证框架内

的对象是“活动”的。

正确

错误

A:

答B:案：B

解析：错。True

27、【问答题】表达式可能含有多种运算，请简述算术运算表达式的执行顺序。

答案：顺序：(1)指数（^）(2)取负（-）(3)乘（*）除（/）(4)整除（\）(5)取模

（Mod）(6)加（+）、减（-）(7)连接（&）

28、【问答题】什么是闲置循环?DoEvents语句有什么作用？

答案：（1）闲置循环就是当应用程序处于闲置状态时，用一个循环来执行其他操作。当

执行闲置循环时，将占用全部CPU时间，不允许执行其他事件过程，使系统处于无限循环

中，没有任何反应。（2）VisualBasic提供DoEvents语句，当执行闲置循环时，可以

用它把控制权交给周围环境使用，响应其他的事件任务，处理完毕后然后回到原来的程序

继续执行。

29、【问答题】从键盘上输入若干个学生的考试分数，统计并输出最高分数和最低分数，

当输入负数-1时结束输入，并输出结果。PrivateSubForm_Click()Dimx!,max!,

min!x=InputBox("Enterascore")max=xmin=xDoWhile(1)Ifx>max

Thenmax=xEndIfIfx<minThen（2）EndIfx=(3)LoopPrint"max

=";max,"min=";minEndSub从键盘上输入若干个学生的考试分数，统计并输出

最高分数和最低分数，当输入负数-1时结束输入，并输出结果。

答案：（1）x=-1；(2)min=x；(3)InputBox(“Enterascore”)

30、【问答题】如果一个数的因子之和等于这个数本身，则称这样的数为完全数。例如

28=1+2+4+7+14,因此28是一个完全数。下列程序找出1000以内的所有完全数之和。Sub

Main（）Dimi,j,sum,tAsIntegersum=1Fori=2To999(1)Forj=2Toi-1If

（2）Thent=t+jNextIf（3）Thensum=sum+iNextPrint“满足条件的数之和

为：”,sumEndSub如果一个数的因子之和等于这个数本身，则称这样的数为完全数。

例如28=1+2+4+7+14,因此28是一个完全数。下列程序找出1000以内的所有完全数之和。

答案：（1）t=1；(2)iModj=0；(3)t=i。

31、【问答题】下列程序单击窗体后，窗体的输出结果为＿。PrivateSubForm_Click()

DimnAsInteger,sAsIntegern=5s=ODos=s+n*(n-1)n=n-1LoopWhilen>0

PrintsEndSub

答案：40

32、【问答题】下列程序的执行结果s的值是＿PrivateSubCommandl_Click()Dimi,

sAsIntegeri=ODoi=i+1s=s+i*i*iLoopUntili>=4PrintsEndSub

答案：100

33、【问答题】假定有下列函数过程：FunctionFun(SAsString)AsStringDims1As

StringFori=1ToLen(S)s1=Mid(S,i,1)+s1NextiFun=s1EndFunction窗体上有一个

命令按钮Command1,然后编写如下事件过程：PrivateSubCommand1_Click（）Dim

Str1AsString,Str2AsStringStr1=inputbox(“请输入一个字符串”)Str2=Fun

(Str1)PrintStr2EndSub程序运行后，单击命令按钮，如果在输入对话框中输入字符串

“12abc34”,则单击“确定”按钮后在窗体上的输出结果为________。程序运行后，

单击命令按钮，如果在输入对话框中输入字符串“12abc34”,则单击“确定”按钮后在窗

体上的输出结果为________。

答案：43cba21

34、【问答题】窗体上有一个命令按钮(Commandl)和一个文本框(Textl),编写如下程

序，当运行程序后，单击命令按钮，依次输入89,76,59后，文本框Textl最后显示的内容

是PrivateSubCommandl_Click（）Dimi,jAsInteger,sAsStrings=“”Forj=1

To3i=InputBox(“请输入分数”)Ifi<60Thens=“不及格”Ifi>90Thens=

“优秀”Elseifi>80Thens=“良好”Elses=“及格”EndIfNextTextl.Text=sEnd

Sub窗体上有一个命令按钮(Commandl)和一个文本框(Textl),编写如下程序，当运行

程序后，单击命令按钮，依次输入89,76,59后，文本框Textl最后显示的内容是

答案：及格

35、【问答