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

程序设计年月真题

07759VisualBasic20201

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

整型

布尔型

A:

双精度

B:

字符串

C:

答D:案：D

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

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

串类型。

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

Dim

Declare

A:

Redim

B:

Private

C:

答D:案：B

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

H

O

A:

h

B:

D

C:

答D:案：B

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

6

3

A:

0

B:

-1

C:

答D:案：B

解析：表达式`Int(3.5)`的结果是`3`。`Int`函数是VB语言中的一个取整函数，它会将

传入的参数向下取整到最接近的整数。因此，`Int(3.5)`会将`3.5`向下取整到`3`。

5、【单选题】下列语句中，可以清除列表框List1的全部内容的是（）

List1.ClearScreen

List1.Clear

A:

List1.Remove

B:

List1.ClearAll

C:

答D:案：B

解析：可以使用`List1.Clear`来清除列表框`List1`的全部内容。`Clear`是列表框控件

的一个方法，用于清除列表框中的所有项。当调用`List1.Clear`时，列表框中的所有项

都会被删除，列表框将变为空。

6、【单选题】要限制在文本框内输入的最大字符数，应该设置（）属性。

Text

Multiline

A:

MaxLength

B:

PassWordChar

C:

答D:案：C

解析：要限制在文本框内输入的最大字符数，应该设置`MaxLength`属性。`MaxLength`属

性是一个整数值，表示文本框中允许输入的最大字符数。当用户在文本框中输入字符时，

如果已经达到了`MaxLength`指定的最大字符数，那么后续的输入将被忽略。

7、【单选题】VB的变量可以分为（）

局部变量和全局变量

模块变量和全局变量

A:

局部变量和模块变量

B:

局部变量、模块变量和全局变量

C:

答D:案：D

解析：由作用域的不同，VB中的变量可分为局部变量、模块变量、全局变量。局部变量是

在过程内定义的变量，作用域为它所在的过程。

8、【单选题】要得到组合框内用户选择的内容，需要使用（）属性。

Caption

List

A:

B:

Style

Text

C:

答D:案：D

解析：要得到组合框内用户选择的内容，可以使用`Text`属性。`Text`属性是组合框控件

中用于显示当前选定项的文本。当用户选择了一个新的项时，`Text`属性会自动更新为新

选定项的文本。

9、【单选题】根据过程定义SubMySub(ByValxAsInteger，ByValyAsInteger)，下

列说法正确的是（）

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

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

A:

x和y都是传值参数

B:

x和y都是传地址参数

C:

答D:案：C

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

Value

Interval

A:

Time

B:

Text

C:

答D:案：B

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

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

11、【单选题】要获得计算机当前屏幕的分辨率，可以使用（）系统对象。

Mouse

App

A:

Printer

B:

Screen

C:

答D:案：D

解析：Screen对象中包含了有关计算机屏幕的信息,例如分辨率、宽度、高度等。

12、【单选题】决定窗体上Tab顺序的属性是（）

Tab

A:

TabIndex

TabStop

B:

TabStart

C:

答D:案：B

解析：决定窗体上Tab顺序的属性是`TabIndex`。`TabIndex`是一个整数值，用于指定控

件在Tab键顺序中的位置。当用户按下Tab键时，焦点会从当前控件移动到下一个

`TabIndex`值更大的控件上。

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

DimA(3,3)

DimA(2,3)

A:

DimA(1To2,4)

B:

DimA(1To2,3)

C:

答D:案：C

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

打印

保存文件

A:

选择颜色

B:

选择文件夹

C:

答D:案：D

15、【单选题】关闭随机文件，使用（）语句。

Hide

Close

A:

Open

B:

Kill

C:

答D:案：B

解析：关闭文件(close())当完成对文件的操作时,需要适当地关闭,以释放与该文件绑定

的资源,可以使用close()函数关闭文件。

16、【单选题】下列内部函数中（）是随机函数。

Randomize

Rnd

A:

Cos

B:

C:

Sgn

答D:案：B

17、【判断题】在不同的过程中_不可以_定义相同名字的局部变量。

正确

错误

A:

答B:案：B

解析：在不同的过程中可以定义相同名字的局部变量，它们之间没有任何关系。

18、【判断题】滚动条的Value属性表示滚动框在滚动条上的_当前位置_。

正确

错误

A:

答B:案：A

19、【判断题】Form1.PrintFormat(3.18，“0.0”)会在Form1上显示_3.2_。

正确

错误

A:

答B:案：A

解析：对

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

正确

错误

A:

答B:案：B

21、【判断题】While循环语句先对条件进行测试，然后才决定是否执行循环体，只有条件

为_False_时，才执行循环体。

正确

错误

A:

答B:案：B

解析：错。True

22、【判断题】数组声明时，_必须_说明数组的数据类型。

正确

错误

A:

答B:案：B

解析：错。可以不/不必

23、【判断题】过程PrivateSubPrintOn(yAsInteger)_不可以_被其它模块调用。

正确

错误

A:

答B:案：A

解析：对

24、【判断题】可以使用通用对话框Commondialog的_Color方法_设置颜色。

正确

错误

A:

答B:案：A

解析：对

25、【判断题】写顺序文件时，用Print＃语句和Write＃语句，结果是_一样_的。

正确

错误

A:

答B:案：B

解析：错。不同/不一样

26、【判断题】框架Frame是一个_容器控件_，可以放置其它控件。

正确

错误

A:

答B:案：A

27、【问答题】书写VB表达式有什么要求?

答案：（1）乘号（*)不能省略，也不能用（?）来代替。（2）括号可以改变运算顺

序。在表达式样中只能使用圆括号，不能用方括号或花括号。（3）一般情况下，不允许

两个运算符相连，要用括号隔开。（4）表达式要在同一行书写，指数运算符（∧）表示

自乘，当A和（或）B不是单个常量或变量时，要用括号括起来。

28、【问答题】简述VB中标准模块和窗体模块的主要功能。

答案：标准模块主要用来进行全局变量声明、模块层声明及通用过程的建立、SubMain

过程的建立。窗体模块主要用来进行窗体层声明、通用过程的声明和事件过程的声明。

29、【问答题】窗体上有三个文本框(名字分别为Texta,Textb,Textc)和一个名为Labela

的标签。下列程序的功能是输入一元二次方程ax2+bx+c=0(a不为0)的3个系数a、b、c，在

标签上显示根的情况。PrivateSubCommandlClick()Dim

a!,b!,c!,delta!a=Val(TextA.Text):b=Val(TextB.Text):c=(1)____delta=(2)____If

delta>0ThenLabela.Caption=“有两个不相等的实根”ElseIfdelta=0

ThenLabela.Caption=“有两个相等的实根”Else(3)____=“没有实根”EndIfEndSub

窗体上有三个文本框(名字分别为Texta,Textb,Textc)和一个名为Labela的标签。下列程

序的功能是输入一元二次方程ax2+bx+c=0(a不为0)的3个系数a、b、c，在标签上显示根的

情况。

答案：（1）Textc.Text或Val(Textc.Text)（2）b*b-4*a*c（3）Labela.

Caption

30、【问答题】下面程序的功能是使用函数过程求

s=的值。PrivateSubCommand1_Click()Dimm%,

n%,p%,s#m=val(InputBox(“请输入m=”))n=val(InputBox(“请输入

n=”))p=val(InputBox(“请输入p=”))s=(1)____printsEndSubPrivateFunction

f(ByValx%)AsLongDimkAsInteger,sAsLongs=0Fork=1Toxs=(2)____Next

k(3)____EndFunction

下面程序的功能是使用函数过程求s

答案：（1）(f(m)*f(n))/f(p)（2）s+k（3）f=s或returns

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

DimnAsInteger,sAsIntegern=10s=0Dos=s+nn=n-1LoopWhile>0PrintsEnd

Sub

答案：55

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

AsIntegeri=0s=1Doi=i+1s=s*iLoopUntili>=4PrintsEndSub

答案：24

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

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

按钮Command1,然后编写如下事件过程:PrivateSubCommandl_Click()DimStrlAsString,

Str2AsStringStrl=InputBox(“请输入字符串”)Str2=Fun(Str1)PrintStr2EndSub程序

运行后,单击命令按钮,如果在输入对话框中输人字符串“abc589”,则单击“确定”按钮后在

窗体上的输出结果为____。程序运行后,单击命令按钮,如果在输入对话框中输人字符串

“abc589”,则单击“确定”按钮后在窗体上的输出结果为____。

答案：985cba

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

运行程序后,单击命令按钮,依次输入85,65,50后,文本框Text1最后显示的内容是____。

PrivateSubCommand1_Click()Dimi,jAsInteger,AsStrings=“”Forj=1To3i=

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

80Thens=“良好”Elses=“及格”EndIfNextText1.Text=sEndSub窗体上有一个命令

按钮(Command1)和一个文本框(Text1)，编写如下程序,当运行程序后,单击命令按钮,依次输

入85,65,50后,文本框Text1最后显示的内容是____。