内容发布更新时间 : 2024/12/23 7:26:42星期一 下面是文章的全部内容请认真阅读。

第3 章 VB语言基础

一．例题解析

（1）执行下列语句后，Print语句的输出结果是 。

a=8：b=9 Print a>b

A）-1 B）0 C）True D）False 【答案】D

【解析】VB中使用常量True表示逻辑真，False表示逻辑假。表达式a>b的结果是逻辑假，所以Print语句的输出结果为False。

（2）设x为整型变量，能正确表示1

C）1

【解析】表示某一区间的数学式子在VB中应改写为两个关系表达式的逻辑与运算，使用And运算符。

（3）函数Int(Rnd(2)*10)产生的是闭区间 范围的整数。 A）[0,9] B）[1,10] C）[0,10] D）[1,9] 【答案】A 【解析】Rnd函数产生的是区间[0,1)之间的随机数，所以Rnd(2)*10产生的是区间[0,10)之间的随机数，Int函数的功能是截尾取整，即舍去所有的小数部分。

（4）下列四个表达式中，其值为0的是 。 A）3/4 B）3\\4 C）4 Mod 3 D）3 Mod 4 【答案】B

【解析】在此题中出现了三种运算符，“/”表示除，“\\”表示整除，“Mod”表示取余。选项A的值为0.75；选项B的值为0；选项C的值为1；选项D的值为3。

（5）下列常量表示中，合法的长整型常量是 。 A) @ B)0& C)31276! D)345# 【答案】B

【解析】VB 6.0中可以使用类型后缀识别常量的类型，@是货币型常数，&是长整数，!是单精度常数，#是双精度数。

（6）下面逻辑表达式的值为真的是 。 A)\

C)\ D)\

【答案】D

【解析】两个字符串比较大小，从左到右进行，若两个字符串全部字符相同，则二者相等。若二者不相等，则以第一个出现的不同字符比较结果为准。

（7）下列函数中，返回值是字符串的是 。 A)Chr B)Instr C)Val D)Asc 【答案】A

【解析】函数Chr的功能是将ASCII码转换成字符；函数Instr的功能是返回一个字符串在

另一个字符串中出现的位置；函数Val的功能是将字符串转换为数值；函数Asc的功能是将字符转换为ASCII码。

（8）下列可作为Visual Basic变量名的是 。 A) A#A B)4A C)?xy D)constA 【答案】D

【解析】Visual Basic变量命名的规则是：变量名的第一个字符必须是字母或汉字，并由字母、数字、汉字和下划线组成，中间不能有空格； 变量名的字符数不超过255个并不能使用VB保留字。在上述选项中，选项A中含有字符“#”、选项B以数字开头，选项C中含有字符“?”，均不满足变量的命名规则。

（9）函数String(n,\的功能是 。 A)把数值型数据转换为字符串 B)返回由n个字符组成的字符串 C)从字符串中取出n个字符

D)从字符串中第n个字符的位置开始取子字符串

【答案】B

【解析】函数String(n,\返回由n个字符\组成的字符串。 （10）在窗体上画一个文本框、一个命令按钮和一个标签，名称分别为Text1、Command1和Label1，文本框的Text属性设置为空白，然后编写如下事件过程： Private Sub Command1_Click() x=Int(Val(Textl.Text)+0.5) Label1.Caption=Str(x) End Sub

程序运行后，在文本框中输入28.653，单击命令按钮，标签中显示的内容是 。 A)27 B)28 C)29 D)30 【答案】C

【解析】Int函数的功能是求不大于输入参数的最大整数；Val函数的功能是将一个字符串转换成数值；Str函数的功能是将一个数值表达式转换成一个字符串。本题中使用Val(Text1.Text)将文本框中的字符串\转换成数值28.653，Int(28.653+0.5)的值是29，再使用Str函数将29转换成字符串赋给Label的Caption属性，因而在标签中显示29。

（11）在窗体上画一个命令按钮名称为Commandl，编写如下事件过程： Private Sub Commandl_Click() b=5 c=6

Print a=b+c End Sub

程序运行后，单击命令按钮，输出结果是 。 A)a=11 B)a=b+c C)11 D)False 【答案】D

【解析】本题出现在Print方法中的“a=b+c”是一个关系表达式，不是赋值语句，因而其结果是逻辑值。由于a、b、c的值分别为0、5、6， 也就是说a和b+c的值不相等，所以表达式“a=b+c”的结果是False。

（12）在窗体上放置两个文本框和一个命令按钮，并编写如下事件过程： Private Sub Command1_Click()

Dim a As Integer, b As Integer

a = Text1.Text b = Text2.Text

Print a + b; Text1 + Text2 End Sub

程序运行后，在Text1中输入3，在Text2中输入4，然后单击命令按钮，则输出结果为 。

A)34 34 B)34 7 C)7 34 D)7 7 【答案】C

【解析】文本框的Text属性值是字符串型数据。由于变量a和b已经声明为整型，所以在赋值时系统自动将Text1和Text2中的字符串转换为数值分别赋给变量a和b。因此a+b是数值的加法运算，输出结果为整数7；而Text1+Text2则是字符串的连接，输出结果是字符串“34”。

二．练习题

1．单项选择题

（1）Int函数的返回值类型是 。

A) 整型 B)字符串 C) 变体 D)字符串或整型 （2）在VB中，常量22# 的数据类型是 。

A）整型 B）双精度型 C）单精度实型 D）长整型

（3）设当前日期是2010年4月30日，表达式Print Day(Now)的输出结果是 。

A) 2010 B) 4/30/10 C)30 D) 4

（4）下述四个字符\、\、\和\中，ASCII码值最小的是 。

A) \ B) \ C) \ D) \（5）VB中1e-6写成十进制小数是 。

A) 0. B) –0. C) 1.00005 D) –1.00005 （6）函数InStr()返回的是 数据。

A) 字符串类型 B) 长整型 C) 单精度类型 D) 字节型 （7）表达式10^3的值是 。

A）-1000 B）0.001 C）1000 D）-0.001 （8）VB变量名abc%的类型是 。

A) 字符串类型 B) 单精度类型 C) 整型 D) 双精度类型 （9）下面VB程序运行结果的值是 。 Private Sub Command1_Click()

Dim s

a = 1： b = 2：c = 3 s = a < b Or b < c Or c < a Print s End Sub

A) True B) False C) 0 D) Boolean

（10）方法Print Int(11111.5555 * 100 + 0.5) / 100输出结果是 。

A) 11111.55 B) 11111.00 C) 11111 D) 11111.56

（11）方法Print Format(122.3, \输出结果是 。

A) 12.230 B) 12.23 C) 122.30 D) 00122.300 （12）下列名称表示变体数据类型的是 。 A) Boolean B) Currency C) Double D) Variant （13）下列不能定义一个整型变量test的语句的是 。 A) Public test As Integer B) Dim test As Integer C) Dim test% As Integer D) Dim test% （14）以下语句的输出结果是 。 Print Format$(32548.56, \A) 32548.6 B) 32,548.6 C) 032,548.56 D) 32548.56 （15）以下关系表达式中，其值为False的是 。 A) \ B) \C) \ D) \（16）计算结果为0的表达式是 。

A) Int(2.3)+Int (-2.8) B) Cint(2.3)+Cint(-2.8) C) Fix(2.3)+Int(-2.8) D) Fix(2.3)+Fix(-2.8) （17）在Visual Basic中,表达式3*2 \\5Mod3的值 。

A) 1 B) 0 C) 3 D) 出现错误提示 （18）以下选项中,不合法的Visual Basic变量名是 。 A) a5b B) _xyz C) a_B D) andif

（19）设y是整型变量,能判断y为奇数的表达式是 。

A) Not(y Mod 2<>0) B) y Mod 2<>0 C) (y-1)Mod 2<>0 D) y Mod 2<>1

（20）设A=\则表达式Val(Left(A,4)+Mid(A,4,2))的值为 。

A) B) C) 5 D) 6 （21）Mid(\的执行结果是 。

A) yon B) every C) Eve D) one

（22）设a=5,b=4,c=3,d=2,则表达式3>2*b Or a=c And b<>c Or c>d的值是 。

A) 1 B) True C) False D) 2 （23）表达式Right(\的值是 。

A) Beij B) jing C) eiji D) ijin

2．填空题

（1）设a=18,b=25,c=30,d=10,表达式的d > c Or Not a > b的值是 。 （2）用Dim abc As Variant定义的abc变量类型是 。

（3）将数学表达式Cos2(a+b)+5e2写成VB的表达式，其正确的形式是 。 （4）执行以下程序段后，变量c的值是 。 a=\： b=\ c= Val(a) + Val(b) （5）有如下程序

Private Sub Form_Click() Dim z1, z2 As Integer z1 = 15.6 ： z2 = 15.6 Print z1; z2

End Sub

运行后，单击窗体，则输出的结果是 。 一、单项选择题答案 1． A 2． B 3． C 13． C 4． B 14． B 24． 5． A 15． A 25． 6． B 16． D 26． 7． C 17． A 27． 8． C 9． A 10． D 18． B 19． B 20． B 28． 29． 30． 11． D 12． D 21． C 22． B 23． B 二、填空题答案 1． True 2． 变体类型 3． (cos(a+b))^2+5*exp(2) 4． 90 5． 15.6 16