《Visual Basic程序设计教程》编程题答案.doc

《Visual Basic程序设计教程》林卓然编著
电子工业出版社2004年2月出版
书号: ISBN 7-5053-9652-8 定价: 23元
编者免费提供本教材的课堂教学用的电子教案。需要电子教案的教师,可从电子工业出版社网站(edu.)的“教学资源下载”区中下载,也可直接与编者联系(******@zsu.)。各章****题(含单选、多选及填空题)答案已放在本教材的附录D中。
《Visual Basic程序设计教程》
<编程及上机调试>题参考答案
第1章《编程及上机调试》
1. 按要求设置窗体属性。
。程序代码如下:
Private Sub Form_Click()
= "你单击了窗体"
End Sub
Private Sub Form_DblClick()
= "你双击了窗体"
End Sub
3. 在窗体上建立两个文本框Text1(输入数)、Text2(输出数)mand1。两个文本框的Text属性均为空。
Private mand1_Click()
Dim x As Single
x = Val()
= 15 * x
End Sub
第2章《编程及上机调试》
1~3题:按要求完成操作练****br/>,mand1(“最大化”)、Command2(“还原”)和Command3(“最小化”)。程序代码如下:
Private mand1_Click() '"最大化"按钮
= 2 '最大化
End Sub
Private mand2_Click() '"还原"按钮
= 0 '还原
End Sub
Private mand3_Click() '"最小化"按钮
= 1 '最小化
End Sub
(第一个数)、Text2(第二个数)、Text3(计算结果)mand1(“计算”)。
Private mand1_Click()
Dim x As Single
Dim y As Single
x = Val()
y = Val()
= x * x + y * y
End Sub
6. 在窗体上建立两个文本框Text1(输入一串字符)、Text2(输出结果)mand1。
Private mand1_Click()
Dim x As String
x = Left(, 1) + Right(, 1)
= x
End Sub
第3章《编程及上机调试》
(输入n值)、三个标签Label1(第一个随机数)、Label2(第二个随机数)和Label3(第三个随机数),mand1。
Private mand1_Click()
n = Val()
Randomize
x = Int(1 + n * Rnd)
= "第一个随机数" + Str(x)
x = Int(1 + n * Rnd)
= "第二个随机数" + Str(x)
x = Int(1 + n * Rnd)
= "第三个随机数" + Str(x)
End Sub
、Text2、Text3和Text4,mand1(“交换”)和Command2(“合并”)。
Private mand1_Click() '“交换”
t =
=
=
= t
End Sub
Private mand2_Click() '“合并”
t = + +
= t
End Sub
3. (1) Rnd * 9000 + 1000 (2) Str(x) (3) Mid(s, 3, 1) + Mid(s, 2, 1) + Left(s, 1)
4. Private Sub Cmd1_Click()