计算机VB第二章后参考答案.docVIP

第二章 VB程序入门 参考答案： 一、简答题（略） 二、找出以下语句中的错误 False --- 错，因为False是VB的关键字或保留字 Integers ----- 错，正确的写法是 dim x ,y ,z as integer a+b c 改为 c a+b Mode ---- 错，应改为mod 37001 --- 错，因为x取值范围是 –32768 ---- 32767 ÷ ----- 错，应该写为 / .E ---- 错，E的左边必须是有一个数字 错，赋值符号的左边字符串缺了双引号 1 --- 错 ‘如是数字1,使用+将会出现”类型不匹配”的错误.如一定要使一字符串与一 数字相联,可使用””运算符.或用str 函数将数字转换为字符串类型． 错，可改成如下形式：#01-01-2000# 三、编写语句完成以下任务 设这3个数用x、y、z表示，则求3个数乘积的表达式为：x*y*z 如：　Dim x as integer,y as integer , z as integer, mul as integer Mul x*y*z Option explicit Form1.print “Print Text to The Windows” Dim result as long Dim x as integer,y as integer , z as integer Result x+y+z /3 Dim x as integer, y as integer, z as integer Y 3*x^5+2*x^4-6*x^3-1 四、 数据常量有：”Xname”（字符串型）、True 逻辑型 、517.3 实数型 、 2/08/05（日期时间型）、#1-1#（日期时间型）、 ”String”（字符串型）、1（整型） 数据变量有：Xname、Step、X 五、写出下列表达式的值： 6 注: 可用语句 Print 2 * 3 ^ 3 mod 4*2 验证, 注意运算符的优先级. 2002-1-1 注: 日期数据可进行加减运算 xyz123abc xyz123abc 12 11 注: 可用语句 x 10 : y 7 : Print y/2*x\3 验证, 优先级相同从左至右进行. 思考为什么会是这个得数. 六．程序段1: 5 7 -2 -9 False False 程序段2： Visual The Demo Basic 实验部分 1. 计算通过inputbox 接受三个数，在窗体上输出它们的和,乘及平均值. 参考代码： 方法之一: Private Sub Command1_Click Dim a As Single, b As Single,c As Single a InputBox 请输入第一个数a： b InputBox 请输入第二个数b： c InputBox 请输入第三个数c： Print a ; a, b ; b, c ; c Print a + b + c ; a + b + c Print a * b *c ; a * b * c Print a + b + c / 3 ; a + b + c / 3 End Sub 方法之二: Private Sub Form_Click Dim x As Integer, y As Integer, z As Integer x InputBox 请输入： y InputBox 请输入： z InputBox 请输入： Print x + y + z Print x * y * z Print x + y + z / 3 End Sub 2．参考代码和界面如下： Private Sub Command1_Click Dim r As Integer r InputBox 请输入圆半径： Label1.Caption 2 * r Label1.Caption Label1.Caption 3.14 * r ^ 2 Label1.Caption Label1.Caption 2 * 3.14 * r End Sub Private Sub Command2_Click ‘继续 Dim r As Integer Label1.Caption r InputBox 请输入圆半径： Label1.Caption 直径： 2 * r Label1.Caption Label1.Caption 周长： 3.14 * r ^ 2 Label1.Caption Label1.Capt