四、程序读程题 1、若整型变量 a 的值为 2、b 的值为 3，则下列程序段执行后整型变量 c 的值为 ______。 If a>5 then if b<4 then c=a-b else c=b-a End if elseif b>3 then c=a*b else c=a mod b End if 2.下列程序的执行结果为_____。 A=100:b=50 If a>b Then a=a-b Else b=b+a End if Print a 3.下面程序执行的结果是____。 Private Sub Form_Click() A$="123":B$="456" C=Val(A$)+Val(B$) Print C\100 End Sub
函数与表达式练习题
一、选择题 1、X=-9.8，表达式 INT(X)+FIX(－X)的值是( ) A.1 B.17 C.0 D.－1 2. 执行 A＝9\4 后，A 的值为( 2 ) A.9/4 B.3 C.2 D.2.25 3.表达式 Int(8*sqr(36)*10^(-2)*10+0.5)/10 的值是（ ）. (A) .48 (B) .048 (C) .5 (D) .05 4.表达式 Val(".123E2CD")的值是（）. (A).123 (B) 12.3 (C) 0 (D) .123E2CD 5. 表达式 SQR(2^3^2) MOD 7 的值为( ) A.0 B.1 C.2 D.3 6.表达式(7\3+1)*(18\5-1)的值是（ ）. (A)8.67 (B)7.8 (C) 6 (D)6.67 7.表达式 5^2 Mod 25\2^2 的值是（ ）. (A)1 (B)0 (C)6 (D)4 8.表达式 25.28 Mod 6.99 的值是（ ）. (A)1 (B)5 (C)4 (D)出错 9.下面表达式中,（ ）的运算结果与其他三个不同. (A) Exp(-3.5) (B) Int(-3.5)+0.5 (C) -Abs(-3.5) (D) Sgn(-3.5)-2.5 10.Int(100*Rnd(1))产生的随机整数的闭区间是（ ）. (A) [0,99] (B) [1,100] (C) [0,100] (D) [1,99] 11.产生[10,37]之间的随机整数的 Visual Basic 表达式是（ ）. (A) Int(Rne(1)*27)+10 (B) Int(Rnd(1)*28)+10 (C) Int(Rnd(1)*27)+11 (D) Int(Rnd(1)*28)+11 12.表达式 Int(Rnd(0)+1)+Int(Rnd(1)-1)的值是（ ）. (A) 1 (B) 0 (C) 01 (D) 2 13.表达式 Int( - 17.8) +Sgn(17.8)的值是（ ）. (A) 18 (B)-17 (C) -18 (D) -16 14.表达式 Int( - 17.8) +Abs(17.8)的值是（ ）. (A) 0 (B) 0.8 (C) - 0.2 (D) 0 34.8 15.表达式 Left("how are you",3)的值是（ ）.
3
4.以下程序段的执行结果是__ __。 X=2:y=1 If x*y<1 Then y=y-1 Else y=-1 Print y-x>0 End If 5.以下程序段的输出结果是___ ___。 A=Sqr(3) b=Sqr(2) c=a>b Print c 6.执行下面的程序段后，b 的值为_____。 A=300:b=20 a=a+b:b=a-b:a=a-b 7.下列程序段执行后 x 的值是_____。 X=100 : y=50 if x>y then x=x-y else x=x+y 8.有如下程序，该程序的运行后输出的结果是__ ____。 Private sub Command1_Click() I="AAAAAA" Mid(I,4,3)="BBB" Print I End Sub 9.有如下程序，该程序的运行结果是____。 A=20 : b=10 print a>b
1
(A) how (B) are (C) you (D) how are you 16.表达式 Right("Biejing",4)的值是（ ）. (A) Bei (B) jing (C) eiji (D) ijin 17.表达式 Abs( - 5) +Len("ABCDE")的值是（ ）. (A) 5ABCDE (B) 0 5ABCDE (C) 10 (D) 0 18.表达式 Mid("SHANGHAI",6,3)的值是（ ）. (A) SHANGH (B) SHA (C) ANGH (D) HAI 19.函数 Len(Str(Val("123.4")))的值为（ ）. (A) 11 (B) 5 (C) 6 (D) 8 20.设 A="12345678",则表达式 Val(Left(A,4) + Mid(A,4,2))的值为 （ ） . (A) 123456 (B) 123445 (C) 8 (D) 6 21.设 A="abcdefghijklm",下面（ ）的函数值为"jklm".(多选) (A) Mid(A,10,14) (B) Right(A,4) (C) Mid(A,10,4) (D) Left(A,10,4) 22.函数 InStr("VB 程序设计教程","程序")的值为（ ）. (A) 1 (B) 2 (C) 3 (D) 4 23.函数 Ucase(Mid("Visual basic",8,5))的值为（ ）. (A) Visual (B) basic (C) VISUAL (D) BASIC 24.表达式 Str(Len("123")) + Str(77.7)的值为（ ）. (A) 377.7 (B) 3 77.7 (C) 80.7 (D) 12377.7 25.表达式( - 1)*Sgn( - 100 +Int(Rnd*100))的值是（）. (A) 0 (B) 1 (C) - 1 (D) 随机函数 26. 15.5\2 的结果是__ ___。 (A) 1 (B) 1.5 (C) 7 (D) 8 27. 下列选项中，为字符串常量的是______。 (A) 6/12/2001 (B) "6/12/2001" (C) #6,12,2001# (D) 6,12,2001# 28. 设有如下声明： Dim X As Integer 如果 Sgn(X) 的值为-1，则 X 的值是( ) A) 整数 B) 大于 0 的整数 C) 等于 0 的整数 D) 小于 0 的数 29.在一个语句行内写多条语句时,语句之间应该用（ ）分隔.
三、运算表达式 1.已知 A=7.5，B=2，C= - 3.6 ，写出下列布尔表达式的值. A > B And C > A Or A =B 2.设 A=2,B=3,C=4,D=5，写出下列布尔表达式的值。 （1）A>B And C<= D Or 2*A>C ___________ （2）3>2*B Or A=C And B<>C Or C>D ____________ （3）Not A<=C Or 4*C=B ^ 2 And B<>A+C ________ 3．设 C= “A”，写出下列布尔表达式的值。 （ 1 ） C>= “0” And C <= “9” Or C >= “A” And C <= __________ （ 2 ） C<= “0” And C >= “9” Or C>= “A” And C <= __________ （ 3 ） C>= “0” And C <= “9” And C>= “A” And C <= __________ （ 4 ） C>= “0” Or C <= “9” And C>= “A” Or C <= __________ 4.若 A=20,B=80 ,C=70, D=30 ,则表达式 A +B >160 Or (B*C>200 And Not D>60)的值是 . 5.设 A=2 , B= - 2 ,则表达式 A / 2 + 1 > B + 5 Or B * (-2)=6 的值是 6.设 A=2,B= -4 ,则表达式 3*A> 5 Or B + 8<0 的值是 . 7.关系式 X≤ -5 或 X≥5 所对应的布尔表达式是: 8.关系式-5≤X≤5 所应的布尔表达式是: 9.A 的绝对值大于等于 B 同时不等于 C 的布尔表达式是: 10.X 是小于 100 的非负数,对应的布尔表达式是:
10. Private Sub Command1_Click() A = "GOOD" B = "MORNING" Print A + B Print Left(B, 3) Print Right(B, 3) Print Mid(B, 2, 3) Print Len(B) Print LenB(B) Print Int(Sqr(Abs(-56))) Print 9 \ 4 Print 5 + 3 > 7 - 2 End Sub 以上程序的运行结果为：
2
(2) 8e ln 2
2
x
(3) lg(a b ) 3 x (5) e 2 sin x | x |
x
2
(4) lg x sin 33
0
4.把 VB 表达式写成数学表达式 (1)(SIN(X)+COS(X)+ABS(X))*(LOG(9)/LOG(10)+TAN(X)) (2)(EXP(X)+EXP(Y))/(A+B)