- 1、本文档共13页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
visualbasic程序设计教程-第四版-刘炳文编著-清华大学
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、编写程序,打印如下所示的“
文档评论(0)