大学VB考试题

k = sum + k

sum = sum + 1 / (k * (k + 1)) '**********FOUND********** Loop Until k > n

Label1.Caption = \ End Sub 答案：

1). Do While n <= 0 Or n >= 30 或 Do While n <= 0 Or n>= 30

2). k = k + 1 或 k = 1 + k

3). Loop Until k >= n 或 Loop Until n <= k ━━━━━━━━━━━━━━━━ 七、程序设计 共1题 （共计10分） ━━━━━━━━━━━━━━━━ 第1题 （10.0分） 题号:151 '------------------------------------------------- '【程序设计】

'------------------------------------------------- '题目：(事件)单击窗体。

' (响应)求1+2+3+??+100的值，并把结果输出在窗体上。

' 结果存入变量SUM中。 '------------------------------------------------- 答案：---------------------- Dim i As Integer For i = 1 To 100 sum = sum + i Next Print sum ----------------------

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

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

【窗体设计】

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

1、在窗体内添加2个按钮(Command1，Command2)， 4个标签(Label1，Label2，Label3，Label4)， 1个文本框(Text1)。 2、窗体设置：

设置窗体名称(Name)为“Form16”。 设置窗体标题(Caption)为“定时”。 3、标签设置：

设置第1个标签(Label1)的标题(Caption)为“系统时间”。

设置第2个标签(Label2)的标题(Caption)为“10:13、13”，边框类型如图。

设置第3个标签(Label3)的标题(Caption)为“定时时间(秒)”。

设置第4个标签(Label4)的标题(Caption)为“时间到”，字体字号任意。 4、文本框设置：

适当设置文本框的大小和位置。 5、按钮设置：

设置第1个按钮(Command1)的标题(Caption)为“开始”。

设置第1个按钮(Command2)的标题(Caption)为“退出”

第2题 （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 滚动条设置：

适当调整水平滚动条的大小和位置。

试卷编号：8072

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

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

第2题 （1.0分） 题号:227 表达式 1 and 0的值【1】. 答案：1). False

第3题 （1.0分） 题号:284

使用Scale方法建立窗体Form1的用户坐标系,其中窗

体左上角坐标为(-200,250),右下角坐标为(300,-100),具体形式为【1】.

答案： 1). form1.scale (-200,250)-(300,-100) 第4题 （1.0分） 题号:42

一般情况下,控件有两个属性项的缺省值是相同的,这两个属性项是name和【1】. 答案：1). caption

第5题 （1.0分） 题号:221

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

VB中,变量的声明可分为两种方法:隐式声明和【1】. 答案： 1). 显式声明

第7题 （1.0分） 题号:70 VB的运算符包括算术运算符、【1】运算符、关系运算符、逻辑运算符和特殊运算符. 答案：1). 连接

第8题 （1.0分） 题号:40

要使一个按钮设为默认按钮,应把此按钮的【1】属性的值设为True.

答案： 1). Default

第9题 （1.0分） 题号:50

在VB 6.0中,设 Single型变量 XYZ 的值为123.45,若要将其转换成字符串,应使用的类型转换函数是【1】. 答案： 1). STR 或 CSTR

第10题 （1.0分） 题号:262

把\Basic程序设计\添加到列表框lstBooks的语句为【1】.

答案：1). lstBooks.AddItem \程序设计\━━━━━━━━━━━━━━━ 二、判断 共10题 （共计10分） ━━━━━━━━━━━━━━━ 第1题 （1.0分） 题号:278

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

第2题 （1.0分） 题号:270

当窗体的ScaleTop=0,ScaleLeft=0时,这个窗体Top和Left值也是0. 答案：N

第3题 （1.0分） 题号:253

Listl.clear是清除Listl的全部列表项,所以Clear是对象的方法. 答案：Y

第4题 （1.0分） 题号:307

事件过程由某个用户事件或系统事件触发执行,它不能被其它过程调用. 答案：N

第5题 （1.0分） 题号:298

清除list1列表框对象的内容的语句是list1.cls. 答案：N

第6题 （1.0分） 题号:362

属性是用来描述和反映对象特征的参数,不同的对象具有各自不同的属性,对象的所有属性都可以在属性窗口中设置. 答案：N

第7题 （1.0分） 题号:276

对象的可见性用enabled属性设置,可用性用visible属性设置. 答案：N

第8题 （1.0分） 题号:346

在Visual Basic 中Dim a ,b,c as integer和 Dim a as integer, b as integer,c as integer相同. 答案：Y

第9题 （1.0分） 题号:364

组合框兼有文本框和列表框两者的功能,用户可以通过键入文本或选择列表中的项目来进行选择. 答案：Y

第10题 （1.0分） 题号:351

在多文档应用中,每次只能有一个活动的子窗体可以进

行输入/编辑. 答案：Y

━━━━━━━━━━━━━━━━━ 三、单项选择 共10题 （共计10分） ━━━━━━━━━━━━━━━━━ 第1题 （1.0分） 题号:247 标准工具箱中的控件(). A:数目是固定不变的 B:数目可以增加或减少

C:包含了VisualBasic所有控件 D:在窗体建立对象时不一定被使用 答案：B

第2题 （1.0分） 题号:264

函数Ucase(Mid(\的值为(). A:visual B:basic C:VISUAL D:BASIC 答案：D

第3题 （1.0分） 题号:336

设a=10,b=5,c=1,执行语句Printa>b>c后,窗体上显示的是().

A:True B:False C:1 D:出错信息 答案：B

第4题 （1.0分） 题号:843 在VB中过()属性来设置字体颜色.

A:FontColor B:ForeColor C:BackColor D:ShowColor 答案：B

第5题 （1.0分） 题号:851

在文件列表框的实现文件的多重选择,应修改该控件的()属性.

A:filename B:pattem C:path D:multiselect 答案：D

第6题 （1.0分） 题号:239

不管一个对象的属性如何设置,程序运行时始终都能接收焦点的 方法是().

A:用Tab键 B:用鼠标 C:用方向键 D:不能实现

答案：D

第7题 （1.0分） 题号:289

当事件能被触发时,()就会对该事件作出响应. A:对象 B:程序 C:控件 D:窗体 答案：A

第8题 （1.0分） 题号:263 函数Len(Str(Val(\的值为(). A:11 B:5 C:6 D:8 答案：C

第9题 （1.0分） 题号:809

要使文本框中的文本显示掩码(密码)符,在属性设置时,首先必

须设置()属性为False.

A:Text B:Enabled C:Visible D:Multiline 答案：D

第10题 （1.0分） 题号:228 Rnd函数不可能产生的()值.

A:0 B:1 C:0.1234 D:.00005 答案：B

━━━━━━━━━━━━━━━━ 四、多项选择 共5题 （共计10分） ━━━━━━━━━━━━━━━━ 第1题 （2.0分） 题号:279

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

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

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

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

第2题 （2.0分） 题号:283

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

A:List1.Selected(6)=True

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

第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分） 题号:275 下列说法中哪些是正确的（）？ A:逻辑型数据占1个字节 B:长整型数据占4个字节 C:单精度型数据占4个字节

D:一个汉字在Visual Basic中占1个字节 答案：BCD

第5题 （2.0分） 题号:284

设A=\，下列（）的函数值为\。 A:Mid(A,10,4) B:Left(A,4) C:Right(A,4) D:Mid(A,10,14) 答案：ACD

━━━━━━━━━━━━━━━

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

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

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

'功能：用输入对话框输入x，根据如图公式计算对应的y，

' 在窗体上输出y的值。

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

Private Sub Command1_Click() '**********SPACE**********

Dim x As Single, 【?】 As Single

'**********SPACE********** x = Val(【?】(\输入X的值\ If x = 10 Then

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

ElseIf x > 10 Then

'**********SPACE********** y = Sqr(x) 【?】 Else

y = 2 * x ^ 3 + 6 End If Print y End Sub 答案：

1). y

2). InputBox 3). y = 0 4). + Sin(x)

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

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

'题目：从计算机输入三个数 , 找出中间数 '------------------------------------------------ Option Explicit

Private Sub FindMidNum()

Dim x As Integer, y As Integer, z As Integer, A As Integer

x = InputBox(\INPUT THE FIRST

NUMBER\

y = InputBox(\INPUT THE SECOND NUMBER\

z = InputBox(\INPUT THE THIRD NUMBER\

'**********FOUND********** If x > y Then A = x x = y y = A End If

'**********FOUND********** If y = z Then Print y

'**********FOUND********** ElseIf x = z Then Print z Else

Print x End If End Sub

Private Sub Form_Click() FindMidNum End Sub 答案：

1). If x < y Then 或 If y > x Then 2). If y >= z Then 或 If z <= y Then

3). ElseIf x >= z Then 或 ElseIf z <= x Then 第2题 （10.0分） 题号:474

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

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

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

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

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) ━━━━━━━━━━━━━━━━ 七、程序设计 共1题 （共计10分） ━━━━━━━━━━━━━━━━ 第1题 （10.0分） 题号:477 '------------------------------------------------- '【程序设计】

'------------------------------------------------- '题目：：编写函数fun其功能是:判断一个整数w的各

位

' 数字平方之和能否被5整除 , 可以被5整除则返

' 回1 , 否则返回0

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

Dim k As Integer, s As Integer Do

s = s + (w Mod 10) * (w Mod 10) w = Int(w / 10) Loop While w <> 0 If s Mod 5 = 0 Then k = 1 Else

k = 0 End If fun = k

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

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

------------------------------------------------ 【窗体设计】

------------------------------------------------ 题目：请按照题目要求设计指定的窗体。

建立如(图1)所示界面：请按所给窗体的样子设计

窗体（不要求控件的尺寸一样，运行时得到所给

窗体即可，有时需要简单的事件过程）。 ------------------------------------------------

1、在窗体内添加2个按钮(Command1，Command2)，3个列

表框(List1，List2，List3)，3个标签(Label1，Label2，