大学VB考试题

'------------------------------------------------ '【程序改错】

'------------------------------------------------

'题目:程序功能为求解一元二次方程的实根，请修正程序中错误。

'------------------------------------------------ Option Explicit

Private Sub Form_Load()

Dim a!, b!, c!, root1#, root2#, work As Double a = Val(InputBox(\请输入系数a的值\ b = Val(InputBox(\请输入系数b的值\ c = Val(InputBox(\请输入系数c的值\ '**********FOUND********** work = b * 2 - 4 * a * c

If work >= 0 And a <> 0 Then

'**********FOUND********** root1 = (Sqr(work)) / (2 * a)

'**********FOUND********** root2 = (Sqr(work)) / (2 * a)

Debug.Print \有二个实根\Str$(root2) Else

Debug.Print \无实根!\

End If End Sub 答案：

1). work = b ^ 2 - 4 * a * c 或 work = b *b - 4 * a * c 2). root1 = (-b + Sqr(work)) / (2 * a) 或 root1 = ( Sqr(work) -b ) / (2 * a) 或 root1 = (-b + Sqr(work)) / ( a*2) 或 root1 = ( Sqr(work) -b ) / ( a*2)

3). root2 = (-b - Sqr(work)) / (2 * a) 或 root2 = (- Sqr(work) - b) / (2 * a) 或 root2 = (-b - Sqr(work)) / ( a*2) 或 root2 = (- Sqr(work) - b) / (a*2) 第2题 （10.0分） 题号:460

'------------------------------------------------

'【程序改错】

'------------------------------------------------ '题目：已知C的公式表示如下:

' n! ' C=------------------ ' (n-m)!*m!

'函数过程fac( )求k！函数,在Fomr_Click事件中完成运算，

'请修正程序中错误。

'------------------------------------------------ Option Explicit

Private Function fac(k As Integer) As Single Dim x As Single, j As Integer '**********FOUND********** x = 0

For j = 1 To k

'**********FOUND********** x = x ^ j Next j fac = x End Function

Private Sub Form_Click() Dim C As Single

Dim m As Integer, n As Integer m = Val(InputBox(\请输入一个整数(m)：\ n = Val(InputBox(\请输入一个整数(n)：\ '**********FOUND********** C = fac(n) / fac(n - m) * fac(m) Print \End Sub 答案：

1). x=1

2). x=x*j 或 x=j*x

3). C = fac(n) / fac(n - m) / fac(m) 或 C = fac(n) / (fac(n - m) * fac(m)) 或 C = fac(n) / ( fac(n - m) * fac(m) )

━━━━━━━━━━━━━━━━ 七、程序设计 共1题 （共计10分） ━━━━━━━━━━━━━━━━ 第1题 （10.0分） 题号:483 '------------------------------------------------- '【程序设计】

'-------------------------------------------------

'题目：编写函数fun，函数的功能是：求1到m ' 之间的偶数之积。

'------------------------------------------------- 答案：----------------------

Dim y As Double y = 1

Dim i As Integer For i = 1 To m

If i Mod 2 = 0 Then y = y * i End If Next fun = y

----------------------

━━━━━━━━━━━━━━━━━━ 八、VB窗体设计 共2题 （共计20分） ━━━━━━━━━━━━━━━━━━ 第1题 （10.0分） 题号:6 ------------------------------------------------ 【窗体设计】

------------------------------------------------ 题目：请按照题目要求设计指定的窗体。 建立如(图1)所示界面。

------------------------------------------------ 1、添加控件

在窗体内添加3个文本框(Text1，Text2，Text3)， 3个标签(Label1，Label2，Label3)，

2个水平滚动条(HScroll1，HScroll2)。 2、窗体设置：

设置窗体名称(Name)为“Form6”。

设置窗体标题(Caption)为“VB上机试卷”。 3、文本框设置：

在第1个文本框(Text1)中输入文本(Text)“颜色调节”，

设置文本的对齐方式为“居右对齐”。 设置第2个文本框(Text2)的内容为空。 设置第3个文本框(Text3)的内容为空。 所有文本框的字体、字号可任选。 4、标签设置：

设置第1个标签(Label1)标题(Caption)为“文本框的前景色”。

设置第2个标签(Label2)标题(Caption)为“文本框的背景色”。

设置第3个标签(Label3)标题(Caption)为“当前值”。 5、滚动条设置：

适当调整水平滚动条的大小和位置。 第2题 （10.0分） 题号:8 ------------------------------------------------ 【窗体设计】

------------------------------------------------ 题目：请按照题目要求设计指定的窗体。 建立如(图1)所示界面。

------------------------------------------------ 1、添加控件：

在窗体内添加1个文本框(Text1)， 1个标签(Label1)，

2个按钮(Command1，Command2)，

3个菜单(名称分别为menu_File，menu_Edit，menu_Help)。 2、窗体设置：

设置窗体名称(Name)为“Form8”。 设置窗体标题(Caption)为“Form8”。

3、标签设置：

设置标签(Label1)的标题(Caption)为“输入密码:”， AutoSize属性为真。 4、文本框设置：

设置文本框“密码字符”为“*”， 在文本框(Text1)中输入文本“Text1”。 5、菜单设置：

设置菜单(menu_File)的标题(Caption)为“文件(&F)”，

并将菜单项设为“无效”。

设置菜单(menu_Edit)的标题(Caption)为“编辑(&E)”。

并将菜单项设为“无效”。

设置菜单(menu_Help)的标题(Caption)为“帮助(&H)”。

并将菜单项设为“无效”。 6、按钮设置：

设置按钮(Command1)的标题(Caption)为“确定”。 设置按钮(Command2)的标题(Caption)为“下一步”，按钮设置无效。

试卷编号：8071

一、填空 共10题 （共计10分） 第1题 （1.0分） 题号:247

声明定长为10个字符变量Sstr的语句为【1】.

答案： 1). Dim Sstr as String*10 或 Sstr as String*10 第2题 （1.0分） 题号:251 Print \ 的结果为【1】. 答案： 1). x=False 第3题 （1.0分） 题号:279

设置计时器对象触发事件的时间间隔用【1】属性. 答案： 1). interval

第4题 （1.0分） 题号:59

在利用Visual Basic设计应用程序时,一般会遇到三类错误:语法错误、执行错误和【1】.答案 1). 逻辑错误 第5题 （1.0分） 题号:295

想拥有\快捷键\这项功能,必须在\菜单编辑器\中增加一些特殊的设置,也就是在字母之前加上【1】. 答案：1). &

第6题 （1.0分） 题号:230

表达式(-3) Mod 8的值为【1】.答案： 1). –3 第7题 （1.0分） 题号:273

如果要使用命令按钮表面显示文字\退出(X)\在字符X之下加下划线),则其Caption属性设置为【1】. 答案： 1). 退出(&X)

第8题 （1.0分） 题号:221

把条件1<=X<12写成VB关系表达式为【1】. 答案： 1). x>=1 and x<12 或 x<12 and x> 第9题 （1.0分） 题号:237

如果:I=11:J=3:I=int(-8.6)+I\\J+13/3 MOD 5,则I值是【1】. 答案： 1). -2

第10题 （1.0分） 题号:287 文本框中所显示的内容是它的【1】属性的值. 1). Text 二、判断 共10题 （共计10分） 第1题 （1.0分） 题号:368

如果在过程调用时使用按地址传递参数,则在被调过程中不可以改变实参的值. 答案：N 第2题 （1.0分） 题号:337

在VB6.0中命令按钮不仅响应Click事件,而且响应DbClick事件. 答案：N 第3题 （1.0分） 题号:279

对于文件系统控件,当驱动器控件Drive1中的驱动器符改变时,文件夹列表控件Dir1中显示的文件夹也作相应改变,可以在Drive1中的Change事件中使用如下命令:Dir1.Path=Drive1.Drive. 答案：Y 第4题 （1.0分） 题号:265

菜单每一菜单项都是控件,可以通过点击菜单项或通过光标选择并按回车键,以触发Click事件. 答案：Y 第5题 （1.0分） 题号:267

窗体的Enabled属性值为False时,该窗体上的按钮、文本框等控件就不会对用户的操作做出反应. 答案：Y

第6题 （1.0分） 题号:261

VB允许设计和使用用户自己设计的控件. 答案：Y 第7题 （1.0分） 题号:278

对象是基本的运行实体,它既包括了数据(属性).也包括作用于对象的操作(方法)和对象的响应动作(事件). 答案：Y

第8题 （1.0分） 题号:233

全局变量用global或public关键字声明,且仅在通用声明处可以定义. 答案：N 第9题 （1.0分） 题号:362

属性是用来描述和反映对象特征的参数,不同的对象具有各自不同的属性,对象的所有属性都可以在属性窗口中设置. 答案：N 第10题 （1.0分） 题号:235

设A=3,B=4,C=5,D=6,则表达式A>B And C<=D Or 2* A>C 的值是 False. 答案：Y ━━━━━━━━━━━━━━━━━ 三、单项选择 共10题 （共计10分） ━━━━━━━━━━━━━━━━━ 第1题 （1.0分） 题号:795

选中复选框控件时,value属性的值,可以是().

A:True B:false C:0

D:1 答案：D 第2题 （1.0分） 题号:269 系统符号常量的定义通过()获得.

A:对象浏览器 B:代码窗口 C:属性窗口 D:工具箱 答案：A

第3题 （1.0分） 题号:855

在逐行运行程序的语句时,可用调试窗口监视表达式和变量的值,其中()窗口是用来显示代码中正在调试的语句所产生的信息,或显示直接在该窗口中键入的命令所请求的信息.

A:立即 B:监视 C:本地 D:中断

答案：A

第4题 （1.0分） 题号:277

MSGBOX函数中有4个参数,其中必须写明的参数是(). A:指定对话框中显示按钮的数目 B:设置对话框标题 C:提示信息

D:所有参数都是可选的 答案：C

第5题 （1.0分） 题号:295

工程资源管理器窗口中包含的文件类型有()种. A:2 B:3 C:4 D:5 答案：C 第6题 （1.0分） 题号:309

将通用对话框类型,设置为字体对话框,可修改该控件的()属性.

A:font B:filename C:filter D:action 答案：D 第7题 （1.0分） 题号:266

如果X是一个正的实数,将千分位四舍五入,保留两位小数的表达式是().

A:0.01*int(x+0.05)

B:0.01*int(100*(x+0.005)) C:0.01*int(100*(x+0.05)) D:0.01*int(x+0.005) 答案：B

第8题 （1.0分） 题号:793

下面哪些控件不会影响到界面设计效果().

A:Label B:Text C:CommonDialog D:Frame 答案：C

第9题 （1.0分） 题号:278

要在图片框P1中打印字符串\ou\应使用语句().

A:Picture1.Print=\ou\

B:P1.Picture=LoadPicture(\ou\C:P1.Print\ou\D:Print\ou\答案：C

第10题 （1.0分） 题号:831 以下叙述中错误的是().

A:双击鼠标可以触发DblClick事件

B:窗体或控件的事件的名称可以由编程人员确定 C:移动鼠标时,会触发MouseMove事件 D:控件的名称可以由编程人员设定 答案：B

━━━━━━━━━━━━━━━━ 四、多项选择 共5题 （共计10分） ━━━━━━━━━━━━━━━━ 第1题 （2.0分） 题号:280 请把下面说法中正确的选出来（）。

A:在函数调用过程中数值型函数的默认返回值为0，可变型函数的默认返回值为空串

B:在调用Sub过程中使用Call语句时，参数必须在括号内

C:过程本身使用的参数列表称为“形参”，而主程序传递给过程的真正参数称为“实参”

D:DIM语句声明的数组把数值数组中的全部数组元素都初始化为0，把字符串数组中的全部元素都初始化为空字符串 答案：BCD

第2题 （2.0分） 题号:278

下列哪些标识符不符合变量的命名规则（）？ A:hyu B:$abc C:4w D:y.u E:ty% F:_n8 答案：BCDEF

第3题 （2.0分） 题号:276

下列语句哪些是错误的语句（）？

A:Const Imax As Integer=&o155 B:Const _Ga As String=\

C:Dim aa,bb As Integer,cc As String D:yy=8,uu=9 答案：BD

第4题 （2.0分） 题号:283

要选择列表框List1的第6项，可以使用语句（）。

A:List1.Selected(6)=True B:List1.Selected(5)=True C:List1.ListIndex=5 D:List1.Selected=5 答案：BC

第5题 （2.0分） 题号:279

下面有关数组的说法那些是错误的（）？ A:数组存放的是具有相同数据类型的多个数据 B:数组的下标允许是常数、表达式或变量

C:DIM语句声明的数组把数组中的全部数组都初始化为逻辑型

D:多维数组中每一维的大小为上界-下界；数组的大小为每一维大小的乘积

E:动态数组是指在声明时没有给出数组的大小，当要使用数组时，再决定数组的大小 答案：BCD

━━━━━━━━━━━━━━━━ 五、程序填空 共1题 （共计10分） ━━━━━━━━━━━━━━━━ 第1题 （10.0分） 题号:57

'------------------------------------------------------- '【程序填空】

'------------------------------------------------------- '功能：求 1!+2!+??+10!的值。

'------------------------------------------------------- Private Sub Form_Click()

'**********SPACE********** 【?】

s = 1

For I = 2 To 10 t = t * I

'**********SPACE********** 【?】

'**********SPACE********** 【?】

Print s End Sub 答案：

1). t = 1

2). s = s + t 3). Next I 或 Next

━━━━━━━━━━━━━━━━ 六、程序改错 共2题 （共计20分） ━━━━━━━━━━━━━━━━ 第1题 （10.0分） 题号:459 '------------------------------------------------ '【程序改错】

'------------------------------------------------

'题目：随机产生n个两位正整数（n由输入对话框输入，且n>0），

' 求出其中的偶数之和，并在标签框Label1上显示。

'------------------------------------------------ Option Explicit

Private Sub Command1_Click() Dim n As Integer

Dim i As Integer, sum As Long Dim rnddat As Integer n = Val(InputBox(\input a integer\value\

'**********FOUND********** sum = n

If n > 0 Then

For i = 1 To n

'**********FOUND********** rnddat = (Int(90 * Rnd)) Me.Print rnddat;

'**********FOUND********** If rnddat / 2 = 0 Then sum = sum + rnddat

End If Next i

Label1.Caption = sum End If End Sub 答案：

1). sum=0

2). rnddat = (10 + Int(90 * Rnd)) 或 rnddat = ( 10 + Int(90 * Rnd))

3). If rnddat Mod 2 = 0 Then 或 If rnddat / 2 = int(rnddat/2) Then 或 If rnddat / 2 = cint(rnddat/2) Then

第2题 （10.0分） 题号:476

'------------------------------------------------ '【程序改错】

'------------------------------------------------ '题目:由输入对话框输入n（设n为大于零且小于30的自然数），

' 计算如图1所示的表达式，并在标签框Label1上显示。

'------------------------------------------------ Option Explicit

Private Sub Form_Click()

Dim n As Integer, sum As Double, k As Integer n = Val(InputBox(\\请输入自然数n(n>0 且n<30)\

'**********FOUND********** Do While n > 0 Or n < 30 n = Val(InputBox(\请重输入\ Loop sum = 0 k = 0 Do

'**********FOUND**********