- 1、本文档共45页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
- PAGE 1 -
计算机高职单招VB编程练习题
练习一 数据的输入输出
以下程序代码在窗体的单击事件过程(Form_click)中编写,结果输出到窗体上。
1、从键盘上输入4个数,编写程序,计算并输出这4个数的和及平均值。通过inputbox函数输入数据,在窗体上显示和及平均值。
Private Sub Form_Click()
a = InputBox(输入第一个数)
a = Val(a)
b = InputBox(输入第二个数)
b = Val(b)
c = InputBox(输入第三个数)
c = Val(c)
d = InputBox(输入第四个数)
d = Val(d)
Sum = a + b + c + d
aver = Sum / 4
Print 所输入的4个数分别为:; a; b; c; d
Print 4个数的和为:; Sum
Print 4个数的平均值为:; aver
End Sub
2、编写程序,要求用户输入下列信息:姓名、年龄、通信地址、邮政编码、电话,然后将输入的数据用适当的格式在窗体上显示出来。
Private Sub Form_Click()
n$ = InputBox(请输入您的姓名)
Age$ = InputBox(请输入您的年龄)
Addr$ = InputBox(请输入通信地址)
Pos$ = InputBox(请输入邮政编码)
Tel$ = InputBox(请输入电话号码)
Print
Print Tab(6); 姓名; Space$(3); 年龄; Space$(3); 通信地址; _
Space$(5); 邮政编码; Space$(3); 电话号码
Print
Print Tab(5); n$; Space$(3); Age$; Space$(3); Addr$; _
Space$(3); Pos$; Space$(3); Tel$
End Sub
3、编写程序,求解鸡兔同笼问题。一个笼子中有鸡X只,兔Y只,每只鸡有2只脚,每只兔有4只脚,今知鸡和兔的总头数为H,总脚数为F。问笼中鸡和兔各若干?
提示:根据数学知识,可以写出如下的联立方程式:
X+Y=H (1)
2X+4Y=F (2)
(2)式-2*(1)式: 2Y=F-2H 故Y=(F-2H)/2
4*(1)-(2)式: 2X=4H-F 故X=(4H-F)/2
可按上式编写程序。用inputbox函数输入H和F的值,设H=71,F=158,请编写程序并上机运行。
Private Sub Form_Click()
h = InputBox(请输入鸡和兔的总的头数)
h = Val(h)
f = InputBox(请输入鸡和兔的总的脚数)
f = Val(f)
y = (f - 2 * h) / 2
x = (4 * h - f) / 2
Print 笼中有鸡; x; 只,兔; y; 只
End Sub
4、设a=5,b=2.5,c=7.8,编程计算:Y=pi*ab/(a+b*c)。
y=3.14*a*b/(a+b*c)
Private Sub Form_Click()
a = 5: b = 2.5: c = 7.8
y = (3.1416 * a * b) / (a + b * c)
Print y=; y
End Sub
程序运行后,单击窗体,输出结果为:
y=1.60285714285714
5、输入以秒为单位表示的时间,编写程序,将其换算成几日几时几秒。
Private Sub Form_Click()
Dim Second, Minute, Hour, Day As Long
Dim Second1 As Long
Second = InputBox(请输入秒数)
Second = Val(Second)
Second1 = Second
Minute = Int(Second / 60)
Second = Second Mod 60
Hour = Int(Minute / 60)
Minute = Minute Mod 60
Day = Int(Hour / 24)
Hour = Hour Mod 24
Print Second1; 秒=; Day; 天; Hour;
文档评论(0)