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、用下面语句定义的数组的元素个数是______。

dim A(-3 to 5) as integer

A：6

B：7

C：8

D：9

答案：D

评析：

空

2、用下面的语句所定义的数组的元素个数是：______。

Dim arr(3 To 5,-2 to 2)

A：20

B：12

C：15

D：24

答案：C

评析：

空

3、用Dim(1,3 to 7,10)声明的是一个______维数组。

A：1

B：2

C：3

D：4

答案：C

评析：

空

4、以下说法错误的是______。

A：函数过程没有返回值

B：子过程没有返回值

C：函数过程可以带参数

D：子过程可以带参数

答案：A

评析：

函数和过程相比主要的特点在于必须返回一个函数值。过程侧重的是执行一系列的操作。

5、下列______语句可以为动态数组分配实际元素个数。

A：Dim语句

B：static语句

C：public语句

D：ReDim语句

答案：D

评析：

ReDim语句在过程级别中使用，用于为动态数组变量重新分配存储空间。

6、在VB中传递参数的方法有______方式。

A：一种

B：两种

C：三种

D：四种

答案：B

评析：

在VB中传递参数的方式有按值传递ByVal和按地址传递ByRef两种。

7、在窗体上画一个命令按钮（名称为Command1），然后编写如下

一、单选题（每题1分，共76题）

1.想要显示一个输入框，它的标题栏上显示“示例”，提示信息是“请输入一个正整数”，输入框内默认内容为“1”，其语句是

A=InputBox(“请输入一个正整数”,”示例”,”1”)

2.若要使标签控件显示时不覆盖其背景内容，应设置标签控件的 A. BackColor

>C. ForeColor

D. BackStyle

3.下面变量名是错误的 A. 姓名 B. a C. a123 D. a.1

4.启动窗体在程序运行后，不进行任何操作的情况下会发生 A. Initialize和Load

D. A和C

5.当标签的标题内容太长，需要根据标题自动调整标签的大小时，应设置标签的属性为True A. AutoSize

6.语句Form1.Hide中，Hide是For

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

Visual Basic 期末复习题库

单项选择题 判断题 填空题 编程题

1) 下列程序运行后，输出的结果为______。 B=1

Do while (b<40) b=b*(b+1) Loop

Print b a) 42 b) 39 c) 6

d) 1 答案：A

2) 设执行以下程序段时依次输入1、3、5，执行结果为_____。

Dim a(4) As Integer

Dim b(4) As Integer For K =0 To 2

a(K+1) =Val(InputBox(“请输入数据：\ b(3-K) =a(K+1) Next K Print b(K) a) 1 b) 3 c) 5

d) 0 答案：A

3) 下列程序执行后，变量s的值为______。 Dim s As long ,x As Integer s=0:x=1

Do While (x<10) s=s+x x=x+2 Loop

Print s a) 10 b) 25

c) 50

d) 100

编号：

2009－2010学年第二学期

实 验 报 告

实验课程名称

专 业 班 级

学 生 姓 号

学 生 姓 名

实验指导老师

实验项目清单

实验一 程序设计初步 实验二 程序设计基础 实验三 顺序结构程序设计 实验四 分支结构程序设计 实验五 简单循环结构程序设计 实验六 循环结构程序设计深入 实验七 数组与相应算法程序设计 实验八 函数与过程

实验九 命令按钮、标签和文本框 实验十 VBA（一） 实验十一 VBA（二） 实验十二 VBA（三）

浙江大学城市学院实验报告

课程名称 VB程序设计基础实验 实验项目名称 实验一 程序设计初步 学生姓名 专业班级 学号

实验成绩 指导

第二部分 浙江省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 将逻辑型数据转换成整型数据时，转换

期末自测题（A卷）

文件部分的选择题要做，其它类型的题目不用做，不作考察 选择题其它部分还没有时间做

一、单选题（每题1分，共25分）

1、211.66.160.1 是Internet上的( )。

(A) IP地址 (B)域名 (C)密码 (D)软件编号 2、在以下四个www网址中，（ ）网址不符合www网址书写规则。 (A) www.163.com (B) www.gdpu.cn.edu (C) www.863.net.cn (D) www.tj.net

3、下列字符中，其ASCII码值最小的一个是（ ）。

(A) A (B) a (C) Z (D) X

4、下列软件中属于浏览器的是（ ）。

(A) Excel (B) Internet Explorer (C) QQ (D) Visual Basic 5、电子邮件(E-mail)地址的正确形式是（ ）。

(A)用户名@域名

9、Visual Basic程序改错

1. 程序功能：求s=1+3+5+7+...直到s>2000为止。程序中有两行有错误。改正错误，使它能输出正确的结果。 (2025) 平方和

Private Sub Form_Click()

Dim i As Integer, s As Long s = 0 : i = 1

Do Until s < 2000 s = s + i i = i + 1 Loop Print s End Sub

答案：s>2000 ; i+2

2. 程序功能：计算s=2!+4!+8!。程序中有两行有错误。

改正错误，使它能输出正确的结果。 (40346) Private Sub Command1_Click()

Dim k As Integer, i As Integer Dim s As Long, t As Long s = 0 i = 1

Do While i <= 3 t = 1 k = 1

While k <= 2*i t = t * k k = k + 1 Wend s = s + t i = i + 1 wend Print s End Sub

答案：k<=2^i ; loop

3. 程序功能：计算s=2!+4!+6!+8!。程序中有错误。改正错误，使它能输出正确的结果。 (41066) Private Sub Command1_Click()

Dim k As Integer, i As Integer Dim s As Long, t As Long s = 0 : i = 1

Do While