vb试题及解析

一、选择题（将答案写在答题卡内）

1．在Visual Basic中， Len(\河北\的值是（）

A．4 B. 6 C. 8 D.12 2．在Visual Basic中，当窗体被装载时触发的事件是（） A．Unload B.ClickC.LoadD.DblClick 3．Visual Basic中决定对象是否可见的属性是（）

A．Enabled B．See C. Name D.Visible

4．在Visual Basic中，语句Mid(\2, 3) = \的输出结果是（） A. False B. True C．A123EFG D. 123 5．下面Visual Basic表达式不合法的是（）

A. \6．若要使命令按钮不可操作，要对()属性进行设制。 A.EnabledB.VisibleC.BackColorD.Caption 7．VisualBasic是一种面向对象的可视化程序设计语言，采取了()的编程机制。

A.事件驱动 B.按过程顺序执行

1、在工程中添加一个窗体form1，当用户单击窗体时，在窗体上显示九九乘法表程序。结果如下图所示（本题编程解决，20分）

参考答案：

Private Sub Form_Click() Cls

For i = 1 To 9 For j = 1 To i

Print i * j; \ Next j Print Next i End Sub

2、在工程中，添加一个窗体form2，在窗体上放置一个文本框text1（文本框中的文字为“改变字形”，居中显示）。三个复选框check1,check2和check3，如图设置属性。

要求：当用户单击“加粗”、“斜体”、“下划线”这三个复选框时（即当复选框被选中时）能将文本框的字形变为“粗体、斜体、加下划线”（本题编程完成，满分：30分）

参考答案：

Private Sub Check1_Click()

Text1.FontBold = Check1.Value End Sub

Private Sub Check2_Click()

Text1.FontItalic = Check2.Value En

第二部分 浙江省VB二级试题解

A．程序调试题 一、选择结构

程序调试01

Option Explicit

Public Sub getanswer()

'该过程是用于计算一元二次方程的根，并将结果输出来。 Dim dalt!, a#, b#, c#

a = InputBox(\输入系数a\ b = InputBox(\输入系数b\ c = InputBox(\输入系数c\dalt = b * b - 4 * a * c if ----1---- then dalt = Sqr(dalt)

MsgBox Format((-b + dalt) / 2 / a), \a, \

elseif ---2---- then

MsgBox Format(-b / 2 / a, \ Else

dalt= ---3----

MsgBox Format(-b / 2 / a, \+ Format(-b / 2 / a, \ End If End Sub

二、单重循环

程序调试02

Option Explicit ‘这条语句要求在该模块中，使用变量前必须先声明。 Public Sub Uppersen()

'该过

VB程序设计期末考试题

一、选择题

1 下列常量中，是Integer类型常量的是（ C ）。

A、123& B、-38844 C、123% D、32768 2 下面选项中()是字符连接运算符. A A、& B、And C、% D、Mod

3 下面关于VB的集成开发环境（IDE）的叙述中，不正确的是（A、IDE是设计、调试、运行VB程序的工具。 B、用户不能随意关闭IDE中的窗口。

C、\窗体设计\窗口是用来设计应用程序界面（窗体）的。 D、打开 / 关闭各窗口的命令主要在IDE的\视图\菜单中。 4 len(“vb程序设计”)=( C ) 。

A、 5 B、2 C、 6 D、10

5 表达式 15 Mod 4 + 13 \\ 5 * 2 的值是 D

A、7 B、0 C、2 D、4

6 赋值语句 A=123 + Mid$( “123456”,3,2) 执行后，A=（ AA、157 B、12334 C、123 D、\7 在一个语句内写多条语句时,用来分隔每条语句的符号是(C).

A、, B、; C、: D、、 8 将逻辑型数据转换成整型数据时，转换

第1题 （1.0分） 题号:40

要使一个按钮设为默认按钮,应把此按钮的【1】属性的值设为True.答案： 1). Default 第2题 （1.0分） 题号:42

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

第3题 （1.0分） 题号:53

在VB中,若要将字符串\转换成数字值应使用的类型转换函数是【1】. 答案： 1). VAL 或 Cint 第4题 （1.0分） 题号:231

表达式81\\7 MOD 2^2 的值是【1】.答案： 1). 3 第5题 （1.0分） 题号:41

要使一个按钮无效,则可把它的Enable属性设为【1】.答案： 1). False 第6题 （1.0分） 题号:37

VisualBasic6.0用于开发【1】环境下的应用程序.答案： 1). WINDOWS 第7题 （1.0分） 题号:68

VB6.0的连接运算符包括【1】运算符和【2】运算符两种. 答案： 1). & 或 + 2). & 或 +

第8题 （1.0分） 题号:280设置计时器控件只能触发【1】事件.答案： 1). timer 第9题 （1.

30101. 标准控件不包括（ ）控件。 (A) 驱动器列表框 (B) 目录列表框 (C) 文件列表框 (D) 通用对话框 (答案：D)

30102. 当一个工程含有多个窗体时，它的启动窗体是（ ）。 (A) 正在编辑的窗体 (B) 最后一个添加的窗体

(C) 第一个添加的窗体 (D) 在\工程属性\对话框中指定的窗体 (答案：D)

30103. VB应用程序在（ ）模式下不能编辑代码和设计界面。 (A) 运行 (B) 中断 (C) 设计 (D) 以上均不能 (答案：A)

30104. 下列叙述错误的是（ ）。

(A) VB应用程序没有明显的开始和结束语句 (B) VB控件的所有属性值均可在属性窗口中设置 (C) VB是事件驱动型可视化编程工具

(D) VB通过\工具\菜单的\选项\设置代码编辑窗口的字体大小 (答案：B)

30105. 标准模块文件的扩展名是（ ）。 (A) .cls (B) .frm (C) .bas (D) .rec (答案：C)

30106. 下列叙述错误是（ ）。

(A) 打开一个工程文件，系统自动装入与该工程有关砠 ??文件 (B) 保存VB程序时，应分别保存窗体和工程文件 (C) 事件可

第1题 （1.0分） 题号:40

要使一个按钮设为默认按钮,应把此按钮的【1】属性的值设为True.答案： 1). Default 第2题 （1.0分） 题号:42

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

第3题 （1.0分） 题号:53

在VB中,若要将字符串\转换成数字值应使用的类型转换函数是【1】. 答案： 1). VAL 或 Cint 第4题 （1.0分） 题号:231

表达式81\\7 MOD 2^2 的值是【1】.答案： 1). 3 第5题 （1.0分） 题号:41

要使一个按钮无效,则可把它的Enable属性设为【1】.答案： 1). False 第6题 （1.0分） 题号:37

VisualBasic6.0用于开发【1】环境下的应用程序.答案： 1). WINDOWS 第7题 （1.0分） 题号:68

VB6.0的连接运算符包括【1】运算符和【2】运算符两种. 答案： 1). & 或 + 2). & 或 +

第8题 （1.0分） 题号:280设置计时器控件只能触发【1】事件.答案： 1). timer 第9题 （1.

1、在设计“万年历小时钟”程序时（如图进行设置和键入代码），小明发现运行后下方的时间却不随系统时钟发生变化，你认为出现的问题是（ B ）

A、日历控件中的属性设置有问题B、没有将代码编写在timeer控件中C、没有使用计时器控件定时刷新标签框中的显示时间D、下方不应该使用标签框，而应该使用文本框

2、某电脑公司出售光盘，购买10片以上（含10片）按每片5元计价，不足十片则按每片5.5元计价。右面是用vb编写的程序，黑线上应填入得语句是（ if x<10 A then ） y=5.5*x Else —————————— End if

Text2.text=y A、y=5*x B、y=5.5*x C、y=x.*0.5 D、y=5.5*x*0.8

3、在用vb编写显示时间的程序时，图1显示的是图2中（ A ）对象的属性。

图1 图2 A、“显示”按钮 B、“清除”按钮 C、“当前时间”标签框 D、“text1”文本框

4、在学习了vb后，小强编写了一个程序，如下图所示，分别在两个文本框中输入了12和88后，单击conmmand1后（ B ）

VB打开EXCEL的方法 一楼的没有指明

Dim xlBook As Excel.WorkBook

Set xlBook = App.Workbooks.Open(\文件名\ 这种语法同样要求excel已经存在才能操作。 Public xlApp As Excel.Application Public xlBook As Excel.Workbook Public xlChar As New Excel.Chart

Public xlSheet As New Excel.Worksheet Set xlApp = New Excel.Application

Set xlApp = CreateObject(\Set xlBook = xlApp.Workbooks.Add Set xlSheet = xlBook.Worksheets.Add xlSheet.Cells(1, 1) = \测试\'写入内容 xlBook.SaveAs (\'保存文件 xlApp.Quit

Set xlApp = Nothing

本方法采用add添加excel文件和datasheet，然后用save保存。如果用xlApp.Visible=False，则自动生成文

本卷共有3道大题:

VB模拟试题

一、单项选择题（50道小题，共50分） 1、Cls方法可以清除窗体或图片框中的______。（1分） A、在设计阶段使用Picture设置的背景位图 B、在设计阶段放置的控件 C、在运行阶段产生的图形和文字 D、以上全部内容 2、下列各组中，两个函数功能完全相反的是______。（1分） A、Str(x)和Val(x) B、Asc(x)和Chr(x) C、LTrim(x)和RTrim(x) D、Timer(x)和Time(x) 3、能够盛放其他控件，而且是最基本的对象是______。（1分） A、窗体 B、图像 C、标签 D、文本 4、能够通过标准工具栏打开的窗口是______。（1分） A、代码窗口 B、设计器窗口 C、属性窗口 D、立即窗口 5、可以让Image图像控件自动改变大小以适应图形尺寸的属性是______。（1分） A、Autosize B、AutoRedraw C、Stretch D、Width 6、Print Format(1234.234, \的显示结果是______。（1分） A、1234.2341234.23 B、123.23400 1234.234 C、123.23400