Visual Basic 6.0程序设计教程 第4版 习题答案 作者 罗朝盛 第2章 习题参考答案.docVIP

第2章 习题参考答案 一、思考题 1、double 2、 xyC@abc， 15eyd， Is， #END X8[P] 3、变量有 (1) (4) (6) (8)， 常量有 (2)字符串型 (3)逻辑型 (5)字符串型 (7)字符串型 (9)日期型 (10)实型 4、 5、 (1) 26 (2) 3.75 (3) 3 6、写出下列Visual Basic表达式的值： (1) False (2) True (3) True (4) False (5) True (6) True (7) False (8) False 7、将下列命题用Visual Basic布尔表达式表示： (1) zx and zy (2) abs(a)=abs(b+2) or a b+2 (3) p mod q=0 (4) x-5 or x-2 and x2 or x5 (5) xz and yz or xz and yz (6) ab and a mod 2=0 8、写出下列函数的值： (1) -3 (2) 换行符 (3) –2 (4) -1 (5) hello (6) ello (7) 16 (8) “-459.65” (9) 5 二、填空题 1． 整型 、 长整型 、 双精度型 、 双精度型 2． (X mod 10)*10+X\10 3． sin(1/4*3.14)+sqr(x+2*exp(y))/abs(x-y) 4． (a+b)/(c*d-sqr(1-a^2)) 5． x mod 5=0 or x mod 9=0 6． False 7． -3 、 2 、 -2 、 2 8． CDEF 9． x0 and y0 or x0 and y0 或 x*y0 10． s=”A” and s=”Z” or s=”a” and s=”z” 三、选择题 题号 1 2 3 4 5 答案 C B B B D 四、编程题 1、 Private Sub Form_Click() Dim x%, Ten%, hundred%,neo% x = Val(Text1.Text) neo=x mod 10 Ten = (x \ 10) Mod 10 hundred = x \ 100 Print 个位数是: neo Print 十位数是: Ten Print 百位数是: hundred End Sub 2 Private Sub Form_Click() Dim char As String * 1 Form1.CurrentX = Rnd * Form1.ScaleWidth Form1.CurrentY = Rnd * Form1.ScaleHeight char = Chr(Int(Rnd * 16) + 65) Print char End Sub 64 Visual Basic程序设计教程 2 第2章