文档库

最新最全的文档下载
当前位置:文档库 > VB第1-4章习题答案

VB第1-4章习题答案

VB习题答案(1-4)

习题1

一、选择题

1. 以下叙述中,错误的是_________。

(A)一个Visual Basic 应用程序可以含有多个标准模块文件

(B)一个visual Basic 工程可以含有多个窗体文件

(C)标准模块文件可以属于某个指定的窗体文件

(D)标准模块文件的扩展名是.bas

标准模块文件(.bas)不属于任何一个窗体文件。参考答案为C。

2. 以下叙述中错误的是_________。

(A)一个工程可以包括多种类型的文件

(B)Visual Basic应用程序既能以编译方式执行,也能以解释方式执行

(C)程序运行后,在内存中只能驻留一个窗体

(D)对于事件驱动型应用程序,每次运行时的执行顺序可以不一样

内存中可以驻留多个窗体,当前窗体只能有一个。参考答案为C。

3. Visual Basic的窗体设计器主要是用来___________。

(A)建立用户界面(B)添加图形、图像、数据等控件

(C)编写程序源代码(D)设计窗体的布局

参考答案为A。

4. Visual Basic是一种结构化高级程序设计语言,它采用的是_________驱动方式。

(A)键盘(B)鼠标(C)事件(D)函数

参考答案为C。

5. Visual Basic程序设计语言属于_________。

(A)面向过程的语言(B)机器语言

(C)面向对象的语言(D)汇编语言

参考答案为C。

6. Visual Basic一共有设计、运行和中断三种模式,要使用调试工具应该_________。

(A)进入设计模式(B)进入运行模式

(C)进入中断模式(D)不用进入任何模式

VB中三种模式分别为:设计模式下可以进行界面设计和代码的编写;运行模式下执行代码,接受用户的操作;中断模式下可以修改代码,但不能改变界面,这个模式下通常进行代码调试,当运行出错时,默认转到该模式下进行调试。参考答案为C。

7. 假定一个Visual Basic应用程序由一个窗体模块和一个标准模块构成。为了保存该应用程序,以下正确的操作是_________。

(A)只保存窗体模块文件

(B)分别保存窗体模块、标准模块和工程文件

(C)只保存窗体模块和标准模块文件

(D)只保存工程文件

一个工程中可包含多个文件,当打开一个工程文件时会自动加载工程内所有文件。对程序保存需分别保存工程文件及窗体文件。参考答案为B。

二、填空题

1. Visual Basic 6.0分为3种版本,这3种版本是_________、_________和_________。

参考答案:学习版、专业版、企业版

2. 应用程序最终面向用户的窗口是_________,它对应于应用程序的运行结果。

参考答案:窗体设计器

3. 如果打开了不需要的菜单或对话框,可以用_________键关闭。

参考答案:ESC

三、简答题

1. 简述Visual Basic语言的特点。

参考答案:

Visual Basic是Windows操作平台下的可视化编程语言,它继承和发展了BASIC语言的基本功能,具有简单易学、功能强大等特点。Visual Basic提供了可视化设计工具,以图形用户界面(GUI)为PC机用户提供了一个直观的工作环境。支持面向对象的程序设计(OOP),采用事件驱动方式,提供对象的链接与嵌入(OLE)和访问数据库等功能。

2. Visual Basic 6.0的集成开发环境由哪些部分组成,各部分的主要功能是什么。

参考答案:

1. 标题栏:用来显示打开的工程名称和系统的工作状态。

2. 菜单栏:菜单栏中包括“文件”、“编辑”、“视图”、“工程”、“格式”、“调试”、“运行”、“查询”、“图表”、“工具”、“外接程序”、“窗口”和“帮助”共有13个菜单项。这是一组下拉式菜单,提供了设计、编辑、编译和调试应用程序所需要的绝大部分功能和命令。

3. 工具栏: Visual Basic 6.0提供了“编辑”、“标准”、“窗体编辑器”和“调试”4种工具栏。工具栏上形象直观的排列着一些最常用的命令按钮,对应特定的常用操作命令。

4. 控件箱:控件箱提供了一组控件。设计界面时,用户可以用鼠标双击控件箱中的控件,在窗体中画出该控件,或用鼠标单击控件箱中的控件,然后在窗体中拖动鼠标画出所需的控件。

5. 窗体设计器:窗体设计器是应用程序最终面向用户的窗口。各种控件、图形、数据

以及程序的运行结果都在窗体设计器窗体中显示出来。

6. 工程资源管理器:在工程资源管理器窗口中(图1-2),列出了应用程序的工程以及工程中的窗体和模块。

7. 属性窗口:属性窗口主要用来设置Visual Basic窗体及各控件的属性特征,属性窗口的主体部分分为左右两列,左边是控件的属性名列表,右边是控件的属性值列表。

8. 窗体布局窗口:窗体布局窗口用于观察应用程序中各窗体在屏幕上的位置。可以在窗体布局窗口用鼠标拖动窗体小图像的方法来改变窗体布局。

3. 什么是对象的属性、事件和方法。

参考答案:

属性是一个对象的数据,用来表示对象的状态。属性具有属性值,改变对象的属性值就可以改变对象的状态。对象常见的属性有标题(Caption)、名称(Name)、颜色(Color)、字体大小(Fontsize)、是否可见(Visible)等。

事件(Event)是能被对象识别的动作,例如Click(单击),DblClick(双击),Load (装入),MouseMove(移动鼠标),Change(改变)等。Visual Basic编程的核心就是为每一个要处理的事件编写响应事件的程序代码。

方法(Method)即是具有完成某种功能的过程和函数,它决定了对象要执行的动作。

4. 简述编写并运行Visual Basic程序的一般步骤。

参考答案:

(1)创建应用程序界面。

(2)设置界面上各个对象的属性

(3)编写事件驱动代码

(4)单击工具栏上的启动按钮,运行该程序。

四、编程题

编写程序,在窗体上显示“第一个Visual Basic程序”。

参考答案:

(1)创建应用程序界面。

VB第1-4章习题答案

(2)设置界面上各个对象的属性

(3)编写事件驱动代码

Private Sub Command1_Click()

Text1.Text = "第一个Visual

Basic程序"

End Sub

Private Sub Command2_Click()

End

End Sub

(4)单击工具栏上的启动按钮,运行该程序。

单击“开始”按钮。

习题2

一、选择题

1. 下面可以正确定义2个整形变量和1个字符串变量的语句的是_________。

(A)Dim n , m AS Interger , s AS String

(B)Dim a% , b$ , c AS String

(C)Dim a AS Integer , b , c AS String

(D)Dim x% , y AS Integer , z AS String

变量定义未指明数据类型,则为变体类型变量。A选项定义n为变体类型变量;B答案定义了1个整型变量和2个字符串变量;C选项的b变量也为变体类型变量,D选项满足要求。参考答案为D。

2. 设有如下语句:

Dim a , b As Integer

c = "Visual Basic"

d = #7/20/2005 #

以下关于这段代码的叙述中,错误的是_________。

(A)a 被定义为Integer 类型变量(B)b 被定义为Integer 类型变量

(C)c 中的数据是字符串(D)d 中的数据是日期类型

VB中变体类型变量有三种情况,一是直接使用未经定义的变量;第二是显式的将变量定义为变体类型,例Dim m As Variant;第三种情况是定义变量但未指明该变量的数据类型,程序中对a变量的定义就属第三种情况,故A选项错误。变量c,d均是未定义的变量为变体类型,但分别存放的数据为字符串型和日期型。参考答案为A。

3. 执行以下程序后输出的是_________。

Private Sub Command1_Click()

Ch$=”AABCDEFGH”

Print Mid(Right(ch$,6),Len(left(ch$,4)),2)

End Sub

(A)CDEFGH (B)ABCD (C)FG (D)AB

程序中有4个函数调用,其中Mid 的三个参数分别是Righ(ch$,6)、Len(left(ch$,4))和2,而left(ch$,4)又是函数Len的参数,由这几个字符串函数的功能知:函数Righ(ch$,6)的结果值为”CDEFGH”, left(ch$,4)值为”AABC”,Len(left(ch$,4))结果为4,所以输出Mid(Right(ch$,6),Len(left(ch$,4)),2)结果值为“FG”,C选项正确。参考答案为C。

4. 设a = 4 , b = 3 , c = 2 , d = l,表达式 a > b+1 Or c < d And b Mod c 的值

是_________。

(A)True (B)l (C)-l (D)0

表达式计算按优先级由高到低顺序计算,其中运算符优先级高低为“算术运算符>字符运算符>关系运算符>逻辑运算符”,逻辑运算符中“Not>And>Or”,同时关系运算结果值为逻辑值;逻辑运算分两种情况,(1)逻辑值参与逻辑运算结果为逻辑值,(2)数值数据参与逻辑运算则按二进制位进行逻辑运算。照此规则,本题先算数运算b Mod c(值为1)、b+1(值为4),再做关系运算a > b+1(值为Fal se)、c < d(值为Fal se)最后做逻辑运算c < d And b Mod c(值为0)及a > b+1 Or c < d And b Mod c(值为0),即整个表达式值为0。参考答案为D。

5. 以下可以作为Visual Basic变量名的是_________。

(A)A#A (B)counstA (C)3A (D)?AA

参考答案为B。

6. 以下能从字符串”VisualBasic”中直接取出子字符串”Basi”的函数是_________。

(A)Left (B)Mid (C)String (D)Instr

参考答案为B。

7. 表达式3^2*2+3 MOD 10\4的值是_________。

(A)18 (B)1 (C)19 (D)0

参考答案为C。

8. 下面的变量名合法的是_________。

(A)k_name (B)k ame (C)name (D)k-name

参考答案为A。

9. 设有如下变量声明Dim time1 As Date,为变量time1正确赋值的表达式是_________。

(A)time1 = #11:34:04# (B)time1 = Format(Time,"yy:mm:dd")

(C)time1 = #"11:34:04"# (D)time1 = Format("hh:mm:ss",Time)

参考答案为A。

10. 表达式12000 + "129" & 200的值是_________。

(A)12329 (B)"12129200"

(C)"12000129200" (D)"12329"

参考答案为B

11. 在窗体上画两个文本框,其名称分别为Text1和Text2,然后编写如下程序:

Private Sub Form_Load()

Text1.Text = ""

Text2.Text = ""

Text1.SetFocus

End Sub

Private Sub Text1_Change()

Text2.Text = Mid(Text1.Text , 8)

End Sub

程序运行后,如果在文本框Text1中输入BeijingChina,则在文本框Text2中显示的内容是_________。

(A)BeijingChina (B)China (C)Beijing (D)BeijingC

参考答案为B

12. 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:

Private Sub Command1_Click()

a$ = "VisualBasic"

Print String(3, a$)

End Sub

程序运行后,单击命令按钮,在窗体上显示的内容是_________。

(A)VVV (B)Vis (C)sic (D)11

参考答案为A

13. 执行语句s = Len(Mid("VisualBasic", 1, 6))后,s的值是_________。

(A)"Visual" (B)"Basic" (C)6 (D)11

14. 在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为Text1、Label1和Command1,然后编写如下事件过程:

Private Sub Text1_Change()

Label1.Caption = Right(Trim(Text1.Text), 3)

End Sub

程序运行后,在文本框中输入“abcdef”,单击命令按钮,则在标签中显示的内容是_________。

(A)空(B)abcdef (C)abc (D)def

参考答案为D

15. 设a=2,b=3,c=4,表达式Not a<=c Or 4*a=b^2 And b<>a+c的值是_________。

(A)-1 (B)1 (C)True (D)False

参考答案为D

16. 执行以下程序段后,变量c$的值为_________。

a$ = "Visual Basic Programming"

b$ = "Quick"

c$ = b$ & UCase(Mid$(a$, 7, 6)) & Right$(a$, 12)

(A)Visual BASIC Programming (B)Quick Basic Programming

(C)QUICK Basic Programming (D)Quick BASIC Programming

参考答案为D

二、填空题

1. 描述“X是小于100的非负整数”的Visual Basic表达式是_________。

要描述该语句,X必须满足大于等于零,同时小于100,另还需体现整数特点,参考答案:X%<100 AND X%>=0

2. 窗体上有一个命令按钮,事件代码如下:

Private Sub Command1_Click()

A = "1"

B = "2"

A = Val(A) + Val(B)

B = Val("12")

If A <> B Then Print A - B Else Print B - A

End Sub

程序运行后,单击命令按钮,输出_________。

参考答案:-9

3. 以下语句的输出结果是_________。

a% = 3.1425926

Print a%

参考答案:3

4. a$ = LCase("Hello"),a$的值是_________,b$ = UCase("Hello"),b$的值是_________。

参考答案:hello、HELLO

5. 表达式"12" + "34"的值是_________,表达式"12" & "34"的值是_________,表达式12 & 34的值是_________,表达式12 + 34的值是_________。

参考答案:1234、1234、1234、46

6. 整形变量M中存放了一个两位数,要将两位数交换位置,例如24变成42,实现的表达式为_________。

参考答案:((M mod 10)*10 + M\10)

7. 代数式|y| + e-3xln3x的Visual Basic表达式为_________。

参考答案:abs(y) + exp(-3 * x) * log(3 * x)

三、简答题

1. Visual Basic定义了几种数据类型,变量有哪几种数据类型,常量有哪几种数据类型。

参考答案:

Visual Basic基本数据类型:

1. 字符串型(String):字符串分为变长字符串和定长字符串两种。

2. 数值型:数值型数据分为整型数和浮点数两类。

3. 货币型(Currency)

4. 变体型(Variant)

5. 字节型(Byte)

6. 布尔型(Boolean)

7. 日期型(Date)

8. 对象型(Object)

Visual Basic中包含两种常量,即文字常量和符号常量。

变量的基本数据类型:Byte(字节型),Boolean(布尔型),Integer(整型),Long (长整型),Single(单精度型),Double(双精度型),Currency(货币型),Date(日期型),Object(对象型),String(变长字符串),String(定长字符串),Variant(变体型、数字),Variant(变体型、字符)

2. 符号常量和变量有什么不同点?

参考答案:

符号常量一经定义,就不能在程序中的其他位置改变其值。变量的值在程序中可以改变。

3. 指出下列正确的变量名:

g(1-k) 6adhs *sss kL2.1 Print

x+1 ahi π .ex3 j5h

参考答案:

正确的变量名:ahi,j5h

4. 指出下列正确的Basic数字形式:

-1.25 ±3.88 45.2468E-6 77.876D-5 5.6D

0.123 89E D2585 10^(2.7) 3^5

参考答案:

正确的数字形式:-1.25,45.2468E-6,77.876D-5,0.123

5. 下列Basic表达式若有错误,请说明错误原因,并改正错误:

(1) ts+cos(300) (2) (x+y)^(25÷s)

(3) [(X1+X2)*(X1-3)-6]*7 (4) (X÷-2)+sin(1.2+π)

参考答案:

改正:

(1) ts+cos(30*3.141593/180)

(2) (x+y)^(25/s)

(3) ((X1+X2)*(X1-3)-6)*7

(4) (X/(-2))+sin(1.2+3.141593)

6. 写出下列数学式的Visual Basic表达式:

(1) sin(a)[cos(b)+1.5]

(2) (X1+4)5(e2-a)

(3) 36[(X1+π)(X1÷3.3)-B]

(4) X-2+5.8sin(3.5π)

参考答案:

Visual Basic表达式:

(1) sin(a)*(cos(b)+1.5)

(2) (X1+4)^5*(exp(2)-a)

(3) 36*((X1+3.141593)*(X1/3.3)-B)

(4) X^2+5.8*sin(3.5*3.141593)

习题3

一、选择题

1. 设在名称为Myform的窗体上只有1个名称为C1的命令按钮,下面叙述中正确的是_________。

(A)窗体的Click事件过程的过程名是Myform_Click

(B)命令按钮的Click事件过程名是C1_Click

(C)命令按钮的Click事件过程的过程名是Command1_Click

(D)上述3种过程名称都是错误的

窗体事件过程名为“Form_事件名”,其他对象事件过程名为“对象名_事件名”,故窗体的Click事件过程名为Form_Click,命令按钮的Click事件过程名为C1_Click。选项B正确。参考答案为B

2. 在Visual Basic工程中,可以作为启动对象的程序是_________。

(A)任何窗体或标准模块

(B)任何窗体或过程

(C)Sub Main过程或其他任何模块

(D)Sub Main过程或任何窗体

参考答案为D

3. 新建一个工程将其窗体的Name属性设置为Myfrm,则默认的窗体文件名为______。

(A)Form1.frm (B)Myfrm.frm (C)Form1.vbp (D)工程1.frm

参考答案为B

4. 将窗体的_________属性设置为False后,运行时窗体上的按钮、文本框就不会对用户的操作做出响应。

(A)ControlBox (B)Visible (C)Enabled (D)BorderStyle 参考答案为C

5. 以下说法正确的是___________。

(A)窗体文件的扩展名为 .vbp

(B)一个窗体对应一个窗体文件

(C)Visual Basic中的一个工程只包括一个窗体

(D)Visual Basic中一个工程最多可以包含256个窗体文件

参考答案为B

6. 当运行程序时,系统自动执行启动窗体的某个事件过程。这个事件过程是_________。

(A)Load (B)Click (C)Unload (D)GotFocus

参考答案为A

7. 无论何控件,都具有一个共同属性。这个属性是_________。

(A)Text (B)Font (C)Name (D)Caption

参考答案为C

8. Print方法可以在_________对象上输出数据

(A)桌面(B)窗体(C)状态栏(D)标题栏

参考答案为B

9. 以下能在窗体Form1的标题栏中显示“VisualBasic窗体”的语句是_________。

(A)http://www.wendangku.net/doc/1a05f16327d3240c8447ef73.html="VisualBasic窗体"

(B)Form1.Title="VisualBasic窗体"

(C)Form1.Caption="VisualBasic窗体"

(C)Form1.Text="VisualBasic窗体”

参考答案为C

10. 语句Print Format$(12345,"0000,00.00")输出结果为_________。

(A)12345.00 (B)12345 (C)012,345.00 (D)123,45

11. 对用MsgBox显示的消息框,下面_________是错的。

(A)可以有一个按钮(B)可以有两个按钮

(C)可以有三个按钮(D)可以有四个按钮

参考答案为D

12. 语句a=InputBox("Today","Tomorrow","Yesterday",,,"Day before yesterday",5)将显示一个对话框,在对话框的输入区中显示的信息是_________。

(A)Today (B)Tomorrow (C)Yesterday (D)Day before yesterday 参考答案为C

13. 设窗体上有一个文本框,名称为text1,程序运行后,要求该文本框不能接受键盘输入,但能输出信息,以下属性设置正确的是_________。

(A)text1.maxlength = 0 (B)text1.Enabled = False

(C)text1.visible = False (D)text1.Width = 0

参考答案为B

14. 在窗体上画一个名称为Timer1的计时器控件,要求每隔0.5秒发生一次计时器事件,则以下正确的属性设置语句是_________。

(A)Timer1.InterVal=0.5 (B)Timer1.Interval=5

(C)Timer1.Interval=50 (D)Timer1.Interval=500

参考答案为D

15. 将文本框的_________属性设置为True时,文本框可以输入或显示多行文本,且会在输入的内容超出文本框的宽度时自动换行。

(A)Multiline (B)Scrollbars (C)Text (D)Enabled

参考答案为A

16. 当窗体得到焦点时触发_________。

(A)Active (B)OnFocus (C)GotFocus (D)Initilize

参考答案为C

17. 在窗体上画一个文本框,其名称为Text1。为了在程序运行后Text1中的文本不可编辑,应当使用的语句_________。

(A)Text1.Clear (B)Text1.Locked=True

(C)Text1.Visible=False (D)Text1.Enabled=False

参考答案为B

二、填空题

1. Visual Basic是一种面向对象的程序设计语言,构成对象的三要素是_________、

_________、_________。

参考答案:属性、事件、方法

2. 在刚建立工程时,使窗体上的所有控件具有区别于默认值的相同的字体格式,应对_________的_________属性进行设置。

参考答案:Form窗体、Font

3. 下述程序段在运行时的显示结果是_________。

Dim x As Single

Cls

x=1.344+8

Print Len(x)

参考答案:4

4. 以下语句Print Int(1234

5.6789*100+0.5)/100的输出结果是_________。

参考答案:12345.68

5. 当文本框的SelStart属性设置为0时,表示__________________,SelStart属性设置为1时表示__________________。

6. 当文本框得到焦点时触发_________事件,当文本框失去焦点时触发_________事件。

参考答案:GotFocus、LostFocus

三、简答题

下列语句是否有错?若有,请说明错误原因,并改正错误:

1. Let = 17

2. T1$ = XYZ

3. L*2 = K + E

4. 1A = 34 , 2A = 66

参考答案:

改正:

1. Let x = 17

2. T1$ = “XYZ”

3. L = (K + E)/2

4. A1 = 34 : A2 = 66

四、编程题

1. 设计一个窗体,在窗体上用标签控件显示商品的名称和单价,用文本框控件接收输入的购买数量,当单击“购买”按扭时,计算购买商品的总价格,并在弹出的消息框中显示出购买明细和总价格。假定有以下三种商品:

铅笔:每只1.50元

笔记本:每本5.20元

计算器:每件80.00元

参考答案:

设计界面如图:

VB第1-4章习题答案

程序代码如下:

Private Sub Command1_Click()

Sum = 1.5 * Text1.Text + 5.2 * Text2.Text + 80 * Text3.Text

Msg$ = "铅笔" & Text1.Text & "只;" & "笔记本" & Text2.Text & "本;" & "计算器" & Text3.Text & "件。" & "金额:" & Sum

MsgBox (Msg$)

End Sub

2. 编应用程序,在窗体上显示由如下“*”号构成的三角形图案。

*

* * *

* * * * *

* * * * * * *

* * * * * * * * *

参考答案:

设计界面如图,程序代码如下:

Private Sub Form_Click()

VB第1-4章习题答案

Form1.Print Tab(15); "*"

Form1.Print Tab(14); "***"

Form1.Print Tab(13); "*****"

Form1.Print Tab(12); "*******"

Form1.Print Tab(11); "*********"

End Sub

Private Sub Form_Load()

Form1.AutoRedraw = True

Form1.Print "显示星号三角形,单击窗体开始"

3. 编写程序,将摄氏温度转换为华氏温度。二者之间的关系是:

F = 32 + 1.8C

其中F是华氏温度,C是摄氏温度。程序运行后,弹出一个对话框用于接收输入的摄氏温度值,确定输入后在弹出的消息框中显示转换后的华氏温度值。

VB第1-4章习题答案

参考答案:

设计界面如图:

程序代码如下:

Private Sub Command1_Click()

C = Text1.Text

Text2.Text = 32 + 1.8 * C

End Sub

4. 编写程序,在文本框中输入英文字符,单击“大写”按钮把英文字符转换为大写,单击“小写”按钮把英文字符转换为小写。

参考答案:

设计界面如图

VB第1-4章习题答案

程序代码如下

Private Sub Command1_Click()

Text1.Text = UCase$(Text1.Text)

End Sub

Private Sub Command2_Click()

Text1.Text = LCase$(Text1.Text)

End Sub

习题4

1. 以下循环语句中在任何情况下都至少执行一次循环体的是_________。

(A)Do While <条件> (B)While <条件>

循环体循环体

Loop Wend

(C)Do (D)Do Until <条件>

循环体循环体

Loop Until <条件> Loop

参考答案为C

2. 某人设计了如下程序用来计算并输出7!(7的阶乘)

Private Sub Command1_Click()

t=0

For k=7 To 2 Step -1

t=t*k

Next

Print t

End Sub

执行程序时,发现结果是错误的,下面的修改方案中能够得到正确结构的是_________。

(A)把t=0改为t=1

(B)把For k = 7 To 2 Step -1改为For k =7 To 1 Step -1

(C)把For k = 7 To 2 Stip-1改为Fork=1 To 7

(D)把Next改为Next k

参考答案为A

3. 以下程序段的输出结果是__________。

num =0

While num<=2

num = num+1

Wend

Print num

(A)2 (B)3 (C)4 (D)程序出错

参考答案为B

4. 设a="a",b="b",c="c",d="d",执行语句x=IIf ((ad),"A","B")后,x的值为__________。

(A)"a" (B)"b" (C)"B" (D)"A"

参考答案为D

5. 以下Case语句中错误的是__________。

(A)Case 0 To 10 (B)Case Is>10(C)Case Is>10 And Is<50 (D)Case 3,5,Is>10 参考答案为C

6. 设有以下循环结构:

Do

循环体

Loop While <条件>

则下列叙述中错误的是__________。

(A)若“条件”是一个为0的常数,则一次也不执行循环体

(B)“条件”可以是关系表达式,逻辑表达式或常数

(C)循环体中可以使用Exit Do语句

(D)如果“条件”总是为True,则不停地执行循环体

参考答案为A

7. 设组合框Combo1中有3个项目,则以下能删除最后一项的语句是__________。

(A)Combo1.RemoveItem Text (B)Combo1.RemoveItem 2

(C)Combo1.RemoveItem 3 (D)Combo1.RemoveItem Combo1.Listcount 参考答案为B

8. 在窗体上画一个列表框和一个命令按钮,其名称分别为List1和Command1,然后编写如下事件过程:

Private Sub Form_Load()

List1.AddItem "Item 1"

List1.AddItem "Item 2"

List1.AddItem "Item 3"

End Sub

Private Sub Command1_Click()

List1.List(List1.ListCount) = "AAAA"

End Sub

程序运行后,单击命令按钮,其结果为__________。

(A)把字符串“AAAA”添加到列表框中,但位置不能确定

(B)把字符串“AAAA”添加到列表框的最后(即“Item 3”的后面)

(C)把列表框中原有的最后一项改为“AAAA”

(D)把字符串“AAAA”插入到列表框的最前面(即“Item 1”的前面)

参考答案为B

9. 在窗体上画一个名称为List1的列表框,一个名称为Label1的标签,列表框中显示若干个项目。当单击列表框中的某个项目时,在标签中显示被选中项目的索引值。下列能正

确实现上述操作的程序是__________。

(A)Private Sub List1_Click() (B)Private Sub List1_Click()

Label1.Caption=List1.ListIndex http://www.wendangku.net/doc/1a05f16327d3240c8447ef73.html=List1.ListIndex End Sub End Sub

(C)Private Sub List1_Click() (D)Private Sub List1_Click()

http://www.wendangku.net/doc/1a05f16327d3240c8447ef73.html=List1.Text Label1.Caption =List1.Text End Sub End Sub

参考答案为A

二、填空题

1. 设a=6,则执行x=IIf(a>5, -1, 0)后,x的值为_________。

参考答案:-1

2. 下面程序段的执行结果为_________。

x = Int(Rnd + 4)

Select Case x

Case 5

Print "优秀"

Case 4

Print "良好"

Case 3

Print "通过"

Case Else

Print "不通过"

End Select

参考答案:良好

3. 执行下面的程序段后,变量s的值为_________。

s = 5

For i = 2.6 To 4.9 Step 0.6

s = s + 1

Next I

参考答案:9

4. 下面的程序执行时,可以从键盘输入一个正整数,然后把该数的每位数字按逆序输出。例如:输入7685,则输出5867,输入1000,则输出0001。请填空。

Private Sub Command1_Click()

Dim x As Integer

x=InputBox(“请输入一个正整数”)

While x>_________

Print x Mod 10;

x=x\10

Wend

Print_________

End Sub

参考答案:10、x

5. 只有将组合框的Style属性设置为_________时,才能触发DbClick事件。

参考答案:1

6. 获得列表框List1中项目个数的语句是_________。

参考答案:List1.ListCount

三、简答题

1. 写出数学式|x|<

2.5×10-2对应的Visual Basic表达式。

参考答案:x<2.5e-2 and x>-2.5e-2

2. 逻辑运算符And、Or和Not的优先级最高的是哪一个。

参考答案:Not

3. 已知 W=10 X=9 Y=8 Z=7 ,求下列表达式的结果:

(1) W>X And Y<=Z OR X>Y (2) X>Z Or W=Y AND Y

(3) Not (W>Y And X=Z) (4) Not (Y<>X Or W*3>Z)

参考答案:(1) True (2) True (3) True (4) False

4. 写出下列十进制整数逻辑运算的结果:

(1) X = 23 And 14 (2) X = 23 Or 14

(3) X = -1 And 19 (4) X = -1 Or 10

(5) X = Not -1

参考答案:(1) 6 (2) 31 (3) 19 (4) –1 (5) 0

四、编程题

1. 已知变量X和Y的值分别为5、6,编写程序,交换变量X和Y的值。

参考答案:

设计界面如图,程序代码如下:

Private Sub Form_Click()

x = 5: y = 6

t = x: x = y: y = t

Form1.Print "x="; x, "y="; y

VB第1-4章习题答案

End Sub

Private Sub Form_Load()

Form1.AutoRedraw = True

Form1.Print "x = 5", "y = 6"

Form1.Print "单击窗体交换x,y的值"

End Sub

2. 征兵的条件是:男性18~20岁,1.65米以上;女性16~18岁,1.60米以上。编写程序,从键盘输入一个人的数据时,判断是否符合征兵的条件。

参考答案:

设计界面如图:

VB第1-4章习题答案

程序代码如下:

Private Sub Command1_Click()

age = Val(Text1.Text)

h = Val(Text2.Text)

If Option1.Value = True Then

If age >= 18 And age <= 20 And h >= 1.65 Then

Label4.Caption = "合格"

Else

Label4.Caption = "不合格"

End If

Else

If age >= 16 And age <= 18 And h >= 1.6 Then

Label4.Caption = "合格"

Else

Label4.Caption = "不合格"

End If

End If