vb课后题谜底.doc

第1章 参考答案 1 第2章 参考答案 1 第3章 参考答案 5 第4章 参考答案 7 第5章 参考答案 10 第6章 参考答案 15 第7章 参考答案 19 第8章 参考答案 23 第9章 参考答案 26 第10章 参考答案 35 第11章 参考答案 36 第12章 参考答案 39 第1章 参考答案 一、简答题（略） 二、单选题： 1．A 2. D 3．C 4. B 5．A 6．D 7. C 三、填空题： 1．设计 运行 2．Proj1 Demo1 3．程序代码 控件 4．编译 可执行文件 5．可视化 6．窗体对象 7．视图 F4 实验部分（略） 第2章 参考答案 一、简答题（略） 二、找出以下语句中的错误 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” 错，正确的是：#01-01-00# 三、编写语句完成以下任务 设这3个数用x、y、z表示，则求3个数乘积的表达式为：x*y*z Option explicit Form1.print “Print Text to The Windows” Dim result as long 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、X VB关键字：Step 五、表达式为： 6 2002-1-1 xyz123abc xyz123abc 12 11 六．程序段1在窗体上输出为： 5 7 -2 -9 FalseFalse 程序段2在窗体上输出为： Visual The Demo Basic 实验部分 1. 参考代码： 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.Caption 2 * 3.14 * r End Sub Private Sub Command3_Click() End End Sub 3．参考代码： Private Sub Form_Click() Dim a As Integer a = InputBox(请输入：) ‘输入的值分别是16，33等 MsgBox 注意观测！, a, 消息框 End Sub 4．参考代码和界面如下： Private Sub command1_Click() Dim temp As Integer tex