大学VB考试题

B:A+C>B And B+C>A And C>0

C:(A+C)>=C And A-C <=C) And C>0 D:A+B>C And A-B>C And C>0 答案：B

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

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

D:Mid(A,10,14) 答案：ACD 第2题 （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 第3题 （2.0分） 题号:275 下列说法中哪些是正确的（）？ A:逻辑型数据占1个字节 B:长整型数据占4个字节 C:单精度型数据占4个字节

D:一个汉字在Visual Basic中占1个字节 答案：BCD 第4题 （2.0分） 题号:281

窗体也是一个对象，它具有（）的特征。

A:属性 B:过程 C:事件 D:方法 答案：ACD 第5题 （2.0分） 题号:285 在VB中，需要用数据访问对象对数据库进行访问，下列哪些属于VB的数据访问对象（）。

A:DAO B:ADO C:OAD D:RDO 答案：ABD 五、程序填空 共1题 （共计10分） 第1题 （10.0分） 题号:504

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

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

'功能：写出程序运行后，单击窗体，Form1上显示的内容

' sum 函数的功能为累加求和 ' isum = 1 ' isum = 3 ' isum = 6 ' isum = 10 ' isum = 15

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

Dim I As Integer, isum As Integer '**********SPACE********** For I = 1 To 【?】

isum = sum(I)

'**********SPACE********** Form1.Print \＝\【?】 Next I End Sub

Private Function sum(n As Integer) Static j As Integer

'**********SPACE********** 【?】 j + n sum = j End Function 答案：

1). 5

2). + isum 或 & isum

3). j =

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

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

'题目：已知自然对数的底数e的级数表示如下: ' e=1+1/1!+1/2!+1/3!+......+1/n!+..... ' 本程序利用函数过程fact()求e，其中绝对值小于' 1E-8的项被忽略。

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

Private Function fact(m As Integer) As Single Dim x As Single, i As Integer x = 1

For i = 1 To m

'**********FOUND********** x = i Next i fact = x End Function

Private Sub Form_Click()

Dim e As Single, item As Single Dim n As Integer e = 1

'**********FOUND********** n = -1 Do

n = n + 1

item = 1 / fact(n) e = e + item

'**********FOUND********** Loop While item >= 0.01 Form1.Print \End Sub 答案：

1). x = x * i 或 x = i * x

2). n = 0

3). Loop While item >= 0.00000001 或 Loop While 0.00000001 <= item

第2题 （10.0分） 题号:117 '------------------------------------------------ '【程序改错】

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

'题目：下面的程序段用于实现以下功能：建立一顺序文

' 件，存放10名同学的学号和三门功课成绩，显示

' 该文件内所有记录， 并同时显示其总分和平均分

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

Private Sub Form_Click()

Dim no%, c1%, c2%, c3%, i As Integer '**********FOUND********** Open \For i = 1 To 10

no = InputBox(\请输入学号\ c1 = InputBox(\请输入数学成绩\ c2 = InputBox(\请输入语文成绩\ c3 = InputBox(\请输入外语\

Write #1, no, c1, c2, c2 Next i Close #1

'**********FOUND********** Open \For i = 1 To 10

'**********FOUND********** Print #1, no, c1, c2, c3

Print no, c1, c2, c3, c1 + c2 + c3, (c1 + c2 + c3) / 3 Next i Close #1 End Sub 答案：

1). Open \c:\\2.txt\ 2). Open \c:\\2.txt\ 3). Input #1, n0, c1, c2, c3

━━━━━━━━━━━━━━━━ 七、程序设计 共1题 （共计10分）

━━━━━━━━━━━━━━━━ 第1题 （10.0分） 题号:142

'------------------------------------------------- '【程序设计】

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

' (响应)编写程序求10×11×12+11×12×13+?+15×16×17的结果，

' 并将结果输出到窗体上。 ' 将结果存入变量M中 '------------------------------------------------- 答案：----------------------

Dim i, j As Integer Dim s As Long For i = 10 To 15 s = 1

For j = i To i + 2 s = s * j Next

m = m + s Next

Print (CStr(m)) ----------------------

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

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

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

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

1、在窗体内添加2个菜单(menu_File，menu_Set)。 然后在菜单(menu_Set)下添加2个菜单

(menu_Set_Font，

menu_Set_Color)。接着再在菜单(menu_Set_Font)下添加 3个菜单(menu_Set_Font_Bold，menu_Set_Font_Underline，

menu_Set_Font_Italic)，添加1个文本框(Text1)。 2、窗体设置：

设置窗体名称(Name)为“Form18”。 设置窗体标题(Caption)为“文本编辑”。 3、菜单设置：

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

设置菜单(menu_Set)的标题(Caption)为“设置(&S)”。

设置菜单(menu_Set)下的菜单(menu_Set_Font)的标题(Caption)为“字体风格”。

设置菜单(menu_Set)下的菜单(menu_Set_Color)的标题(Caption)为“颜色”。

设置菜单(menu_Set_Font)下的菜单(menu_Set_Font_Bold)的标题(Caption)为“粗体”。 设置菜单(menu_Set_Font)下的菜单(menu_Set_Font_Underline)的标题(Caption)为“下划线”。

设置菜单(menu_Set_Font)下的菜单(menu_Set_Font_Italic)的标题(Caption)为“斜体”。 4、文本框设置：

在文本框(Text1)中输入文本(Text)“中华人民共和国”。

文本框滚动条样式的设置如图。 第2题 （10.0分） 题号:53

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

--------------------------------------------------------------------- 题目：请按照题目要求设计指定的窗体。（本题有6个项目要完成）

建立如图008所示界面：

注意：保存时不得修改窗体和工程文件的名称及路径，否则后果自负。

--------------------------------------------------------------------- 1、窗体设置

1）标题为“单选演示”

2、在窗体上方添加一个标签控件 1）名称为“显示文本” 2）能自动调整大小

3）标题为“计算机基础教学研究室” 3、在窗体中间依次添加左右两个框架控件 1）左边的框架名称为“框架一”，标题为“字体” 2）右边的框架名称为“框架二”，标题为“字号” 4、在框架一中添加上下两个单选按钮 1）上方单选按钮标题为“黑体”

2）在上方单选按钮的单击事件过程中添加代码，使显示文本的字体为“黑体”

3）下方单选按钮标题为“宋体”

4）在下方单选按钮的单击事件过程中添加代码，使显示文本的字体为“宋体”

5、在框架二中添加上下两个单选按钮 1）上方单选按钮标题为“20”

2）在上方单选按钮的单击事件过程中添加代码，使显示文本的字体大小为“20” 3）下方单选按钮标题为“28”

4）在下方单选按钮的单击事件过程中添加代码，使显示文本的字体大小为“28” 6、在窗体右下角添加一个命令按钮 1）名称为“按钮” 2）标题为“改变” 3）Left设置为4680

4）在单击事件过程中添加代码，使显示文本的内容改为“计算机工程学院”

----------此为题目要求的最后一行，以下空白---------------------------------------

试卷编号：8069

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

把整数0赋给一个逻辑型变量,则逻辑变量的值为【1】. 答案：1). False

第2题 （1.0分） 题号:317

由For k=35 to 0 step 3:next k循环语句控制的循环次数是【1】 .答案： 1). 0

第3题 （1.0分） 题号:230

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

如果在模块的声明段中有Option Base 1语句,则在该模块中使用Dim a(3 To 5,6)声明的数组有【1】个元素. 答案：1). 18

第5题 （1.0分） 题号:63 sst=\则Val(sst)=【1】.答案：1). 0 第6题 （1.0分） 题号:278

若要在字符串asdgewl中取dge,则使用函数【1】实现. 答案： 1). Mid$(asdgewl$,2,3) 或 Mid(asdgewl,2,3) 第7题 （1.0分） 题号:320

VB中,变量的声明可分为两种方法:【1】数组和动态数组 .答案：1). 静态 第8题 （1.0分） 题号:288

文件按照存取方式及其组成结构可以分为顺序文件和【1】.答案：1). 随机文件 或 随机 第9题 （1.0分） 题号:57

在控件之中,【1】不能从工具箱中被删除. 答案：1). 内部控件 或 标准控件 第10题 （1.0分） 题号:297

写出清除图片框的文字或图形信息的语句【1】. 答案 1). Picture1.cls 或 cls

二、判断 共10题 （共计10分） 第1题 （1.0分） 题号:268

从几十个项目中任选其中一项或多项时可选用列表框

或组合框控件实现. 答案：N 第2题 （1.0分） 题号:221

VB是一种面向对象的程序设计语言. 答案：Y 第3题 （1.0分） 题号:253

Listl.clear是清除Listl的全部列表项,所以Clear是对象的方法 答案：Y 第4题 （1.0分） 题号:271

当定时器控件的interval属性值设置为0时,会连续不断地激发Timer事件. 答案：N 第5题 （1.0分） 题号:259

VB规定窗体文件的扩展名是 .vbp. 答案：N 第6题 （1.0分） 题号:294

面向对象程序设计是一种以对象为基础,由事件驱动对象执行的设计方法. 答案：Y 第7题 （1.0分） 题号:341

在VB中,可通过函数 Now返回计算机系统的日期和时间. 答案：N 第8题 （1.0分） 题号:234

如果某子程序add用public static sub add()定义,则该子 序的程变量都是局部变量. 答案：N 第9题 （1.0分） 题号:256

TextBox与Label有许多共同特点,它们都能显示和输入文本. 答案：N 第10题 （1.0分） 题号:262

VB允许用户使用Type语句在窗体模块的通用声明中自己定义数据类型. 答案Y 三、单项选择 共10题 （共计10分） 第1题 （1.0分） 题号:332

如果在图片框上使用绘图方法绘制一个实心圆,则图片框的()属性决定了该圆的颜色.

A:BackColor B:ForeColor C:FillColor D:DrawStyle 答案：C

第2题 （1.0分） 题号:851

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

A:filename B:pattem C:path D:multiselect 答案：D 第3题 （1.0分） 题号:825

以下不属于VisualBasic系统的文件类型是().

A:.frm B:.bat C:.vbg D:.vbp 答案：B 项的语句是().

A:Combo1.RemoveItemText B:Combo1.RemoveItem2 C:Combo1.RemoveItem3

A:逻辑型数据占1个字节 B:长整型数据占4个字节 C:单精度型数据占4个字节

D:一个汉字在Visual Basic中占1个字节 答案：BCD 第4题 （1.0分） 题号:311 可视化编程的最大优点是(). A:具有标准工具箱

B:一个工程文件由若干个窗体文件组成 C:不需要编写大量代码来描述图形对象

D:所见即所得 答案：C 第5题 （1.0分） 题号:321

清除列表框的所有选项应选择下列哪种方法().

A:Clear B:Cls C:ClearItem D:RemoveItem答案：A 第6题 （1.0分） 题号:226

INT(100*RND(1))产生的随机整数的闭区间是(). A:[0,99] B:[1,100] C:[0,100] D:[1,99] 答案：A 第7题 （1.0分） 题号:257

产生[10,37]之间的随机整数的VisualBasic表达式是(). A:In t(Rnd(1)*27)+10 B:Int(Rnd(1)*28)+10

C:Int(Rnd(1)*27)+11 D:Int(Rnd(1)*28)+11 答案：B 第8题 （1.0分） 题号:352

为了在运行时能显示窗体左上角的控制框(系统菜单),必须().

A:把窗体的Contro1Box属性设置为Fale,其他属性任意 B:把窗体的ControlBox属性设置为True,并且把BoderStyle属性设置为1-5

C:把窗体的ControlBox属性设置为False,同时把BoderStyle属性调协为非0值

D:把窗体的ControlBox属性设置为True,同时把BoderStyle属性设置为0值 答案：B 第9题 （1.0分） 题号:795

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

A:True B:false C:0 D:1 答案：D 第10题 （1.0分） 题号:340

设组合框Combo1中有3个项目,则以下能删除最后一

D:Combo1.RemoveItemCombo1.Listcount 答案：B

四、多项选择 共5题 （共计10分） 第1题 （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 第2题 （2.0分） 题号:285 在VB中，需要用数据访问对象对数据库进行访问，下列哪些属于VB的数据访问对象（）。 A:DAO B:ADO C:OAD

D:RDO 答案：ABD 第3题 （2.0分） 题号:284

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

D:Mid(A,10,14) 答案：ACD 第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分） 题号:275 下列说法中哪些是正确的（）？

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

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

'------------------------------------------------------- '功能：下面的程序用于求三个数中最大数 '------------------------------------------------------- Private Sub Command1_Click() Dim a, b, c, max, min As Integer a = Val(InputBox(\请输入第一个数： b = Val(InputBox(\请输入第二个数： c = Val(InputBox(\请输入第三个数： '**********SPACE********** 【?】 = a

min = a

'**********SPACE********** If b > max Then 【?】 If b < min Then min = b

'**********SPACE********** If 【?】 Then max = c If c < min Then min = c Print \最大数为：\

Print \最小数为：\

End Sub 答案： 1). max 2). max = b

3). c > max 或 max < c

━━━━━━━━━━━━━━━━ 六、程序改错 共2题 （共计20分） ━━━━━━━━━━━━━━━━

\\\