vb教程第3章

147 函数InStr("VB程序设计教程","程序")的值为().

A) 1

B) 2

C) 3

D) 4

答案 C

148 假设变量BOOLVAR是一个布尔型变量,则下面正确的赋值语句是().

A) BOOLVAR='TRUE'

B) BOOLVAR=.TRUE.

C) BOOLVAR=#TRUE#

D) BOOLVAR=3<4

答案 D

149 下列标识符中，不能作为变量名使用的是( ).

A) TName

B) T_Temp

C) T32

D) T32#

答案 D

150 下列数据类型中,占用内存最小的是().

A) Boolean

B) Byte

C) Integer

D) Single

答案 B

151 下列赋值语句中正确的是().

A) txt1.text+txt2.text=txt3.text

B) =cmdok

C) 12label.caption=1234

D) a=inputbox(hello)

答案 D

152 下列字符串常量中,最大的是().

A) "北京"

B) "上海"

C) "天津"

D) "广州"

答案 C

153 下面()是日期型常量.

A) "12/19/99"

B) 12/19/99

C) #12/19/99#

D) {12/19/99}

答案 C

154 已知A、B、C中C最小,则判断A、B、C能否构成三角形，三条边长的逻辑表达式是().

A) A>=B And B>=C And C>0

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

155 要强制显示声明变量,可在窗体模块或标准模块的声明段中加入语句().

A) Option Base 0

B) Option Explicit

C) Option Base 1 D) Option Compare

13 实验1 窗体和基本控件的使用

一、实验目的

1．掌握窗体、标签、命令按钮、文本框的常用属性、方法和事件。

2．掌握输入对话框（InputBox）和消息框（MsgBox）的使用。

二、实验示例

【例题3.1】 在名称为Form1的窗体上画一个名称为L1的标签、名称为Text1的文本框和一个名称为Command1的命令按钮。窗体的标题设置为“学号信息”；标签上显示“请输入学号：”；文本框的宽、高分别为2000Twip和300Twip，设置适当的属性使得在输入密码时，文本框中显示“*”字符；单击按钮时，将学号（除最后一位外）显示在窗体上。运行时，在文本框输入，单击“显示”按钮，效果如图3.1所示。

1．分析

（1）在窗体上画一个标签、一个文本框和一个命令按钮，并根据题目要求列出控件属性值，如表3.2所示。

表3.2 控件属性列表

类型 对象名 属性 属性值

窗体 Form1 Caption 学号信息

标签 L1 Caption 请输入学号

文本框 Text1 PasswordChar *

Text （空）

Height 300

Width 2000

命令按钮 Command1 Caption 显示

（2）要显示除最后一位的学号，可以使用Right()或Mid()函数对输入的学号取子串，但是必

图3.1 运行界面及效果 Visual Basic程序设计实践教程

14 须得知道学号的长度，所以还需用到Len()函数

2．参考程序代码如下：

Private Sub Command1_Click()

Dim sl As Integer

sl = Len(Text1.Text)

Print Mid(Text1.Text,1,sl - 1)

End Sub

【例题3.2】 在名称为Form1，标题为“字形”的窗体上，画一个名称为Lbl1的标签，其标题为“计算机等级考试”，字体为宋体，字号为12，边框样式为1，且能根据标题内容自动调整标签的大小。再画2个名称分别为Cmd1、Cmd2，标题分别为“缩小”和“还原”的命令按钮，按钮宽1200Twip，高450Twip（如图3.2所示）。

147 函数InStr("VB程序设计教程","程序")的值为()、

A) 1

B) 2

C) 3

D) 4

答案 C

148 假设变量BOOLVAR就是一个布尔型变量,则下面正确的赋值语句就是()、

A) BOOLVAR='TRUE'

B) BOOLVAR=、TRUE、

C) BOOLVAR=#TRUE#

D) BOOLVAR=3<4

答案 D

149 下列标识符中,不能作为变量名使用的就是( )、

A) TName

B) T_Temp

C) T32

D) T32#

答案 D

150 下列数据类型中,占用内存最小的就是()、

A) Boolean

B) Byte

C) Integer

D) Single

答案 B

151 下列赋值语句中正确的就是()、

A) txt1、text+txt2、text=txt3、text

B) command1、name=cmdok

C) 12label、caption=1234

D) a=inputbox(hello)

答案 D

152 下列字符串常量中,最大的就是()、

A) "北京"

B) "上海"

C) "天津"

D) "广州"

答案 C

153 下面()就是日期型常量、

A) "12/19/99"

B) 12/19/99

C) #12/19/99#

D) {12/19/99}

答案 C

154 已知A、B、C中C最小,则判断A、B、C能否构成三角形,三条边长的逻辑表达式就是()、

A) A>=B And B>=C And C>0

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

155 要强制显示声明变量,可在窗体模块或标准模块的声明段中加入语句()、

A) Option Base 0

B) Option Explicit

实验目的及要求：

1．掌握Visual Basic数据类型的基本概念。

2．掌握表达式、赋值语句的正确书写规则。

3．掌握常用函数的使用。

实验内容：

1. 设 a=2,b=3,c=4,d=5 求下列表达式的值。

1) a>b and c<=d or 2*a>c false

2) 3>2*b or a=c and b<>c or c

3) not a<=c or 4*c=b^2 and b<>a+c False

2. 在立即窗口实验下列表达式的值

print chr(67) C

print chr$(98) b

print sgn(2) 1

3. 在立即窗口实验下列表达式的值

x=16

print sqr(x) 4

print x^3 4096

4. 在立即窗口实验下列表达式的值

a$=”Good”

b$=”Morning”

print a$+b$ GoodMorning

print a$&b$ GoodMorning

5. 在立即窗口实验下列表达式的值

s$=”ABCDEFGHIJK”

PRINT LEFT(S$,2) AB

PRINT RIGHT(S$,3) IJK

PRINT MID$(S$,3,4) CDEF

PRINT LEN(S$) 11

PRINT INSTR(S$,”EFG”) 5

PRINT LCASE(S$) abcdefghijk

6. 在立即窗口实验下列表达式的值

PRINT RND 产生0-1之间的一个随机数

PRINT NOW

PRINT DATE

PRINT MONTH(NOW)

PRINT YEAR(NOW)

PRINT WEEKDAY(NOW)

7. 设计一个程序，给定一个含有3个空格的字符串，任意给出3个字符替换这3个空格。