visualbasic程序设计教程-第四版-刘炳文编著-清华大学.doc
文本预览下载声明
Visual Basic 程序设计教程
部分习题参考
第四版 刘炳文 编著 清华大学出版社
第五章
5.4、从键盘上输入4个数,编写程序,计算并输出这4个数的和及平均值。通过inputbox函数输入数据,在窗体上显示和及平均值。
Dim a as single
For i=1 to 4
a=inputbox(“请输入一个数:”,“数据输入”)
sum=sum+a
n=n+1
avg=sum/n
next i
print “和是:”,sum
print “平均值是:”,avg
5.5、编写程序,要求用户输入下列信息:姓名、年龄、通信地址、邮政编码、电话,然后将输入的数据用适当的格式在窗体上显示出来。
Dim a as variant
Fontsize=20
a=inputbox(“请输入姓名:”,“数据输入”)
print “姓名:”;a
a=inputbox(“请输入年龄:”,“数据输入”)
print “年龄:”;a
a=inputbox(“请输入通信地址:”,“数据输入”)
print “通信地址:”;a
a=inputbox(“请输入邮政编码:”,“数据输入”)
print “邮政编???:”;a
a=inputbox(“请输入电话:”,“数据输入”)
print “电话:”;a
5.7.设a=5,b=2.5,c=7.8,编程序计算:
y=(πab)/(a+bc)
程序:
Dim a as single,b as single,c as single
a=5
b=2.5
c=7.8
pi=3.14
y=(pi*a*b)/(a+b*c)
print “结果是:”;y
5.8、输入以秒为单位表示的时间,编写程序,将其转换为几日几时几秒。
Dim a as long,d as integer ,h as integer,s as integer
a=inputbox(“请输入秒数:”,“数据输入”)
d=int(a/86400)
h=int((a-d*86400)/3600)
s=a-d*86400-h*3600
print d;“日”;h;“时”;s;“秒”
5.9、自由落体位移公式为:s=gt2/2+v0t
其中v0为初始速度,g为重力加速度,t为经历的时间,编写程序,求位移量s。设v0=4.8m/s,t=0.5s,g=9.81m/s2,在程序中把g定义为符号常量,用inputbox函数输入v0和t两个变量的值。
Dim v as single,t as single,s as single
g=9.81
v= inputbox(“请输入初始速度:”,“数据输入”)
v=val(v)
t=inputbox(“请输入经历的时间:”,“数据输入”)
t=val(t)
s=g*t*t/2+v*t
print “位移量是:”;s
第七章
7.1.编程计算并输出S的值:s=2+4+6+8+…+100
dim i,s as integer
s=0
for i=2 to 100 step 2
s=s+i
next
print s
7.2、我国现有人口为13亿,设年增长率为1%,编写程序,计算多少年后增加到20亿。
Private Sub Form_click()
Dim p As Double
Dim r As Single
Dim n As Integer
p = 130000000
r = 0.01
n = 0
Do While p = 200000000
p = p * (1 + r)
n = n + 1
Loop
Print n; 年后; 中国人口增加到; p
End Sub
7.3、给定三角形的3条边长,计算三角形的面积。编写程序:首先判断给出的3条边能否构成三角形,如可以构成,则计算并输出三角形的面积,否则要求重新输入。当输入-1时结束程序。
Dim a as single;b as single;c as single
Start:
a = inputbox(“请输入第一条边长-1结束:”,”数据输入”)
a=val(a)
if a=-1 then
end
end if
b=inputbox(“请输入第二条边长”,“数据输入”)
b=val(b)
c=inputbox(“请输入第三条边长”,“数据输入”)
c=val(c)
if a+b=c or a+c=b or b+c=a then
msgbox(“您输入的三条边长不能构成三角形,请重新输入!”)
goto start
else
l=(a+b+c)/2
s=sqr(l*(l-a)*(l-b)*(l-c))
end if
print “三角形的面积为:”;s
7.5、编写程序,打印如下所示的“
显示全部