本框 Text1 中输入数据 60，在文本框 Text2 中输入数据 178，
单击命令按钮 Command1 后，文本框 Text3 中显示的内容是
（）
Private Sub Command1_Click( )
Dim t As Integer, h As integer
Dim ans as integer
运算
8
非 not
9
与 and
10 或 or
表达式
Not(3>2) (25>=10)and(25<=100)
(25>100)or(25<2)
Hale Waihona Puke 结果FALSE TRUE FALSE
算术运算符：
注意事项：
①、在数学中，乘号可省略；但在 VB 语句中，乘号*不允许省
略
②、在求余的时候，若参加的运算数有负号，先取绝对值，结
C、x Mod 5 = 0
D、x Mod 2 = 0
19、下列程序段运行后,m 的值为( )
A=2: b=1: c=5
If A < b Then m = A Else m = b
If c < m Then m = c
选项：
A、1
B、2
C、5
D、提示错误，无答案
20、下列 VB 语句中，正确的是（ ）
A. 3、 4.6、3
B. 4.6、 4、 5
C. 4、 4、 5
D. 4.6、 4、 3
2.表达式-10/3、 -10\3、 10 Mod （-3）的运算结果分别是
______。
A. -3、 -3.333、3
B. -3.333、 -3、 -2
C. -4、 -4、 -3.333 D. -3.333、 -3、 1
b=a+1
c=a+b
它的基本结构属于（
）
A、顺序结构 B、选择结构 C、循环结构 D、树型结构
14、下列 VB 程序运行后，变量 x 的值为(
).
x=2
Print x+l
Print x+2
A、2
B、3
C、5
D、8
15、以下是一段 Visual Basic 程序:
If I=1 Then
X=X+1
Else
8、语句 i=i+1 的正确含义是：
A.变量 i 与 i+1 的值相等
B.将变量 i 的值赋到 i+1 中
C.将变量 i 的值加 1 后赋值给变量 I D.变量 i 的值为 1
9、下列语句中正确的是：
A.txt3.Text=txt1.Text+txt2.Text
=cmdOK
A、 z 是 a 的倍数，但不是 b 的倍数
B、 z 既是 a 的倍数，又是 b 的倍数
C、 z 是 a 的倍数或者是 b 的倍数
D、 z 既不是 a 的倍数，也不是 b 的倍数
3、 将数学表达式 Y=写成 VB 表达式，正确的是：
A、y=x^2+1/Abs(x)+3
B、y=(x^2+1)/(Sqr(x)+3)
5、设 A=7.5，B=2,C=-3.6，表达式
A>B And C<A Or Not C>B And A<C 的值是：
A、True B、False C、-1 D、1
6、下列赋值语句正确的是：
A.a+b=5 B.a=a2+3 c.a2+3=a D.a-b=a+b
7 表达式 a+5<a 是：
A.非法表达式 B.字符串表达式 C.关系表达式 D.逻辑表达式
能的 VB 语句是（ ）
A．If a=0 And b=0 Then y=y+1 B．If a*b=0 Then
y=y+1
C．If a=0,b=0 Then y=y+1
D．If a,b=0 Then
y=y+1
23、小明在大街上经常看见一种测量身高体重并提示肥瘦的机
器，很感兴趣，就在 VB 中编写了如下程序，程序运行时，在文
VB 基本运算、表达式、赋值语句与分支结构
1、 算术运算符
优先 基本运算 运算 表达式
级别
符号
1
乘幂
^
2^3
2
取负
-
-a
3
乘法
*
3 实数除法 /
3*2.5 5/2
4 整数除法 \
5\2
5
求余数 mod 5mod2
6
加法
+
a+b
6
减法
-
A-b
结果
8 a 的相反值
7.5 2.5 2 1 a 与 b 的和 a 与 b 的差
Dim x As Integer
x=Val(Text1. Text)
If ____ = 0 Then
Labell.Caption=这个数是能被 5 整除的偶数
Else
Labell.Caption=这个数不是能被 5 整除的偶数
End If
选项：
A、(x Mod 5) = 0 And (x Mod 2 ) = 0 B、x Mod 10 = 0
关系运算符
关系运算符用来比较两个运算量之间的关系，关系表达式的运
算结果为逻辑型。若关系成立，结果为 True，若关系不成立，
结果为 False。
注意：
（1）当两个操作式均为数值型，按数值大小比较；
（2）字符串比较,则按字符的 ASCII 码值从左到右一一比较,直
到出现不同的字符为止；
逻辑运算符：
Not 计算结果与原始数据的逻辑值相反
Dim xs as single
t = Val(Text1.Text)
h = Val(Text2.Text)
xs=t^2/h
If xs<18 Then
Ans="偏瘦"
Elseif xs<=25 then
Ans="正常"
Else
Ans="肥胖"
Endif
Text3.Text =Ans
End Sub
A.偏瘦
果的符号与被除数相同
③、+（连接运算）：两个操作数均为字符串类型；
&（连接运算）：两个操作数既可为字符型也可为数值型。
例如："a"+"b"是合法的，而 "a"+2 是错误的
"a" & "b"是合法的，而"a" & 2 也是合法的
练一练：
1.表达式 23/5、 23\5、 23 Mod 5 的运算结果分别是_______。
bel1.Caption=1234
mand1.Caption=45*12
10、对应 VB 语句 If i=1 Then j=1,下列说法正确的是：
A.i=1 和 j=1 均为赋值语句
B.i=1 和 j=1 均为关系表达式
C.i=1 为关系表达式，j=1 为赋值语句
D.i=1 为赋值语句，j=1 为关系表达式
C、①输人的数存人 n 变量②如果 n/2=Int(n/2)成立，就显示 n
中值
D、①输人的数存人 n 变量②如果 n/2=Int(n/2)不成立，就显
示 n 中值
18、下面是判断变量 x 是不是能被 5 整除的偶数的程序，横线
上的逻辑表达式应为( )
Private Sub commandl_Click()
语句块 1 ElseIf 条件表达式 2 Then
语句块 2 ……… ElseIf 条件表达式 n Then
语句块 n Else
语句块 0 End If 块 If 语句的 ElseIf 语句部分和 Else 语句部分是可选的。
选择题：
1、在 VB 中，已知 z、a、b 均为正整数，当逻辑表达式
(z Mod a=0) And (z Mod b=0)为真时，则表示：
C、y=(x^2+1)/(Abs(x)+3) D、y=x^2+1/Sqr(x)+3
4、在 VB 中，若 a、b 都是大于 0 的整数，且
关系表达式（a+b）Mod 2=1，则下列说法正确的是：
A、a、b 一定同时为奇数
B、a、b 一定同时为偶数
C、a、b 中必是一个为偶数，另一个为奇数
D、以上说法都不对
11、有如下程序段运行后，a 的值为：
a=5:b=2:a=a-b:b=a+b:a=b-a
A.2
B.3
c.4
D.5
12、有如下程序段运行后，y 的值是：
X=6:y=-10
If Not x>0 Then x=y-5 Else y=x+4
A.10
B.-10
c.15
D.-15
13、以下是一段 VB 程序：
a=1
2、同级别的运算，按照从左到右的顺序执行
3、遇到括号，先进行括号内的运算
注意：在 VB 中，括号只以()形式存在，可以多次嵌套，按照由
内向外顺序执行
练一练：
1、求下列表达式的值
(1)Sqr（256）/4-2^2 MOD 5\2
(2)（-7）mod Int（3.5）+2^3/4\5
(3)7mod (-3)+2^3/4\5
A．x=|x-y|
B．loop=y+1
C．If 5>8x>0 Then s=y
D．a(i)=a(i)+a(i+1)