大学VB考试题

Label3)，2个框架(Frame1，Frame2)，3个文本框(Text1，

Text2，Text3)。

并在框架(Frame1)中添加1个复选框(Check1)，1个组合

框(Combo1)，1个标签(Label4)。

在框架(Frame2)中添加1个标签(Label5)。 2、窗体设置：

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

设置第1个标签(Label1)的标题(Caption)为“字体(&F):”。

设置第2个标签(Label2)的标题(Caption)为“字型(&Y):”。

设置第3个标签(Label3)的标题(Caption)为“字号(&S):”。

4、文本框设置：

设置第1个文本框(Text1)的文本(Text)为“宋体”。 设置第2个文本框(Text2)的文本(Text)为“粗体”。 设置第3个文本框(Text3)的文本(Text)为“五号”。 5、列表框设置：

在第1个列表框(List1)中输入文本“黑体”，“宋体”，“隶书”，“幼圆”。

在第2个列表框(List2)中输入文本“规则”，“斜体”，“粗体”，“粗斜体”。

在第3个列表框(List3)中输入文本“一号”，“二号”，“三号”，“四号”，“五号”。 6、按钮设置：

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

设置第2个按钮(Command2)的标题(Caption)为“取消”。

7、框架设置：

设置第1个框架(Frame1)的标题(Caption)为“特殊

效果”。

设置第1个框架(Frame1)中的复选框(Check1)的标题(Caption)为“下划线(&U)”。

设置第1个框架(Frame1)中的标签(Label4)的标题(Caption)为“颜色(&C):”。

适当调整第1个框架(Frame1)中的组合框(Combo1)的大小和位置。

设置第2个框架(Frame2)的标题(Caption)为“示范”。 设置第2个框架(Frame2)中的标签(Label5)的标题(Caption)为“中文字体AaBbCc”。 第2题 （10.0分） 题号:17 ------------------------------------------------ 【窗体设计】

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

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

1、在窗体内添加1个水平滚动条(HScroll1)，1个图片框

(Picture1)，1个文本框(Text1)，4个标签(Label1， Label2，Label3，Label4) 。 2、窗体设置：

设置窗体名称(Name)为“Form17”。 设置窗体标题(Caption)为“调整速度”。 3、标签设置：

设置第1个标签(Label1)的标题(Caption)为“调整速度1~100”。

设置第2个标签(Label2)的标题(Caption)为“慢”。 设置第3个标签(Label3)的标题(Caption)为“快”。 设置第4个标签(Label4)的标题(Caption)为“当前速度”。

4、文本框设置：

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

适当设置图片框的大小和位置。

6、水平滚动条设置：

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

试卷编号：8073

━━━━━━━━━━━━━━━ 一、填空 共10题 （共计10分） ━━━━━━━━━━━━━━━

第1题 （1.0分） 题号:67 VB 的工作模式可分为三种:\设计\、\运行\以及\【1】 答案： 1). 中断 第2题 （1.0分） 题号:231 表达式81\\7 MOD 2^2 的值是【1】. 答案：1). 3

第3题 （1.0分） 题号:334 在过程调用中,参数的传递可分为两种方式,其中按【1】传递方式是默认的. 答案： 1). 地址 第4题 （1.0分） 题号:63 sst=\则Val(sst)=【1】. 答案：1). 0

第5题 （1.0分） 题号:61A和B同为正整数或同为负整数的VB表达式为【1】.

答案：1). A=INT(A) AND B=INT(B) AND A*B>0 第6题 （1.0分） 题号:247声明定长为10个字符变量Sstr的语句为【1】.

答案 1). Dim Sstr as String*10 或 Sstr as String*10 第7题 （1.0分） 题号:262 把\Basic程序设计\添加到列表框lstBooks的语句为【1】.

答案 1). lstBooks.AddItem \程序设计\第8题 （1.0分） 题号:269 滚动条控件主要支持两个事件,它们是scroll和【1】事件.答案： 1). change 第9题 （1.0分） 题号:242 设x为大于零的实数,则大于x的最小偶数的Visual Basic表达式是【1】. 答案： 1). iif(int(x) mod 2=0,int(x)+2,int(x)+1)

第10题 （1.0分） 题号:321VB中,变量的声明可分为两种方法:隐式声明和【1】. 答案： 1). 显式声明 ━━━━━━━━━━━━━━━ 二、判断 共10题 （共计10分） ━━━━━━━━━━━━━━━

第1题 （1.0分） 题号:262 VB允许用户使用TypeA:Name B:Caption C:Tips D:Text 语句在窗体模块的通用声明中自己定义数据类型. 答案： B 第8题 （1.0分） 题号:788

下列字符串常量中,最大的是(). 答案：Y 第2题 （1.0分） 题号:240 MsgBox()函数建立的消息框能显示信息也能输入信息. 答案：N 第3题 （1.0分） 题号:344 在VB中将一些通用的过程和函数编写好并封装作为方法供用户直接调用. 答案：Y 第4题 （1.0分） 题号:292 列表框的中的项目不可以多列显示 答案：N 第5题 （1.0分） 题号:299 如果一个菜单项的Visible属性为False,则它的子菜单也不会显示. 答案：Y 第6题 （1.0分） 题号:358 在图片框中放置的控件既可以在该图片框内移动,也可以移出该图片框外. 答案：N 第7题 （1.0分） 题号:289 框架控件和形状控件都不能响应用户的鼠标的单击事件. 答案：Y 第8题 （1.0分） 题号:304 设计菜单中每一个菜单项分别是一个控件,每个控件都有自己的名字. 答案：Y 第9题 （1.0分） 题号:343 在VB中,用DIM定义数组时数组元素也自动赋初值为0. 答案：N 第10题 （1.0分） 题号:224 Visual Basic程序的运行,仅能从某一窗体启动,如Form1窗体. 答案：N ━━━━━━━━━━━━━━━━━ 三、单项选择 共10题 （共计10分） ━━━━━━━━━━━━━━━━━ 第1题 （1.0分） 题号:328 如果要设置窗体的标题栏,应选择以下那种属性(). 第2题 （1.0分） 题号:797 要改变控件的宽度,应修改该控件的()属性. A:Top B:Width C:Left D:Height 答案：B 第3题 （1.0分） 题号:331 如果一个工程含有多个窗体及标准模块,则以下叙述中错误的是(). A:如果工程中含有SubMain过程,则程序一定首先执行该过程 B:不能把标准模块设置为启动模块 C:用Hide方法只是隐藏一个窗体,不能从内存中清除该窗体 D:任何时刻最多只有一个窗体是活动窗体 答案：A 第4题 （1.0分） 题号:264 函数Ucase(Mid(\的值为(). A:visual B:basic C:VISUAL D:BASIC 答案：D 第5题 （1.0分） 题号:802 要使标签能透出窗体的背景,必须设置()属性. A:BackStyle B:BorderStyle C:Appearance D:BackColor 答案：A 第6题 （1.0分） 题号:252 表达式4+5\\6*7/8Mod9的值是(). A:4 B:5 C:6 D:7 答案：B 第7题 （1.0分） 题号:246 Line(100,100)-Step(400,400)将在窗体()画一直线. A:(200,200)到(400,400) B:(100,100)到(300,300) C:(100,100)到(500,500) D:(100,100)到(400,400) 答案：C

A:\北京\B:\上海\C:\天津\D:\广州\答案：C

第9题 （1.0分） 题号:294

改变控件在窗体中的左右位置应修改该控件的()属性. A:Top B:Left C:Width D:Right 答案：B

第10题 （1.0分） 题号:378

下列哪一种文件打开方式是以顺序文件方式打开文件并作写操作().

A:Open \ as #1

B:Open \ For Input as #1 C:Open \ For Append as #1 D:Open \ For Write as #1 答案：A

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

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

答案：BCDEF

第2题 （2.0分） 题号:279

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

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

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

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

第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分） 题号:280 请把下面说法中正确的选出来（）。

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

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

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

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

第5题 （2.0分） 题号:281

窗体也是一个对象，它具有（）的特征。 A:属性 B:过程 C:事件 D:方法

答案：ACD

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

Option Explicit

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

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

'功能： 本程序实现功能：将顺序文本文件 “MYFILE.TXT” 的

' 内容一个字符一个字符地读入文本框txtTest中

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

Dim InputData As String * 1 txtTest.Text = \

'**********SPACE**********

Open App.Path & \【?】 As #1

'**********SPACE********** Do While 【?】 EOF(1)

Input #1, InputData

'**********SPACE********** txtTest.Text = txtTest.Text + 【?】 Loop Close #1 End Sub 答案： 1). Input 2). Not 3). InputDat

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

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

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

'题目:判断给定的年月日是该年中的第几天。 '------------------------------------------------ Option Explicit

Private Sub Form_Click()

Dim year As Integer, month As Integer, day As Integer

Dim days As Integer, i As Integer '**********FOUND********** Dim a(0 To 11) As Integer days = 0

For i = 1 To 12

a(i) = InputBox(\输入\月份的天数，2月暂输入为28天：\ Next i

year = InputBox(\输入年：\ month = InputBox(\输入月：\

day = InputBox(\输入日：\

For i = 1 To month

'**********FOUND********** days = days + a(i) Next i

'**********FOUND********** days = day

If year Mod 4 = 0 And year Mod 100 <> 0 Or year Mod 400 = 0 And month >= 3 Then days = days + 1 Print \该日期是该年中的第\天\End Sub 答案：

1). Dim a(1 To 12) As Integer 2). days = days + a(i - 1) 3). days = days + day

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

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

'题目:设窗体中有图片框Pic1，现要求在其中绘制10个同心圆，

' 然后将此图以Test.BMP作文件名存入磁盘。 '------------------------------------------------ Option Explicit

Private Sub Command1_Click() Dim X As Integer Dim Y As Integer Dim I As Integer

Dim rad(9) As Integer X = Pic1.ScaleWidth / 2 Y = Pic1.ScaleHeight / 2

'**********FOUND********** For I = 1 To 9

rad(I) = 500 * Rnd Next I I = 9

'**********FOUND********** Do Until I < 1

Pic1.Circle (X, Y), rad(I), RGB(256 * Rnd, 256 * Rnd, 256 * Rnd)

'**********FOUND********** I = I + 1 Loop

SavePicture Pic1.Image, \End Sub 答案：

1). for i=0 to 9 或 for i=0 to 9 step 1 2). Do Until I < 0 或 do until 0>i 3). I = I - 1 或 i=-1+i

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

七、程序设计 共1题 （共计10分） ━━━━━━━━━━━━━━━━ 第1题 （10.0分） 题号:147

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

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

'题目：(事件)双击窗体。 ' (响应)求出50以内所有奇数的和。 ' 将结果存入变量SUM中。 '-------------------------------------------------

答案：---------------------- Dim i As Integer

For i = 1 To 50

If i Mod 2 = 1 Then

sum = sum + i

End If

Next

Print sum

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

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

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

题目：请按照题目要求设计指定的窗体。 建立如(图1)所示界面：请按所给窗体的样子设计 窗体（不要求控件的尺寸一样，运行时得到所给 窗体即可，有时需要简单的事件过程）。 ------------------------------------------------

1、在窗体内添加2个按钮(Command1，Command2)，3个列 表框(List1，List2，List3)，3个标签(Label1，Label2， Label3)，2个框架(Frame1，Frame2)，3个文本框(Text1，

Text2，Text3)。 并在框架(Frame1)中添加1个复选框(Check1)，1个

组合 框(Combo1)，1个标签(Label4)。 在框架(Frame2)中添加1个标签(Label5)。 2、窗体设置：

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

3、标签设置： 设置第1个标签(Label1)的标题(Caption)为“字体(&F):”。 设置第2个标签(Label2)的标题(Caption)为“字型(&Y):”。 设置第3个标签(Label3)的标题(Caption)为“字号(&S):”。 4、文本框设置： 设置第1个文本框(Text1)的文本(Text)为“宋体”。 设置第2个文本框(Text2)的文本(Text)为“粗体”。 设置第3个文本框(Text3)的文本(Text)为“五号”。 5、列表框设置：

在第1个列表框(List1)中输入文本“黑体”，“宋体”，“隶书”，“幼圆”。

在第2个列表框(List2)中输入文本“规则”，“斜体”，“粗体”，“粗斜体”。 在第3个列表框(List3)中输入文本“一号”，“二号”，“三号”，“四号”，“五号”。 6、按钮设置： 设置第1个按钮(Command1)的标题(Caption)为“确定”。

设置第2个按钮(Command2)的标题(Caption)为“取消”。 7、框架设置：