主题：老师布置的几道VB题,怎么解来着!!
程59186
[专家分：0] 发布于 2008-10-19 17:04:00
1.在文本框中输入小时,分,秒,化成有多少秒,然后输出之!!
2.在文本框中输入长,宽,高,求长方体的表面积,并输出!!
3.从键盘上输入4个数,编写程序,计算并输出这4个数的和及平均值,通过InputBox输入数据,在窗体上显示4个数的和与平均值.
4.编写程序,要求用户输入下列信息:姓名,年龄,通信地址,邮政编码，电话，然后将输入的数据用适当的格式在窗体上显示出来．
５．假设a=5,b=2.5 c=7.8 编写程序y=(pi*a*b)/(a+b*c)
6.输入以秒单位表示时间，编写程序，将其换算成几日几时几分几秒．
以上问题是成人夜校的问题，由于本人白天还在上班，实在没有时间对ＶＢ深入下去，所以肯请各位大师给出解法，谢谢！！！
回复列表 （共10个回复）
沙发
一江秋水 [专家分：9680] 发布于 2008-10-19 19:02:00
老兄，这都是简单得不能再简单的东东，用不了半个钟头解决问题，如果这还要请枪手，那还学什么，白白浪费老人头
板凳
程59186 [专家分：0] 发布于 2008-10-19 20:58:00
成人夜校的书就讲些概念些的东西,书真是云里雾里啊,白天上班,晚上还要上课,真是忙不过啊,而且还不值上一门课,几乎每个晚上都有课,且是不同的课的,真是心有余而力不足啊!!!师傅们请指教啊!!!年少时不好好学,真是老大伤悲了!!!
3 楼
老大徒伤悲 [专家分：29120] 发布于 2008-10-21 20:18:00
这样吧，把你想过并试验过不成功的代码写上来，和大家交换——你想看能成功地，大家想看不能成功的。各取所需，谁也不谢谁。怎么样？
4 楼
bcahzvip [专家分：6040] 发布于 2008-10-21 21:10:00
恩,好建议.
怕就是他不会上传.
5 楼
大懒猫 [专家分：220] 发布于 2008-10-22 12:40:00
５．假设a=5,b=2.5 c=7.8 编写程序y=(pi*a*b)/(a+b*c)
Private Sub Command1_Click()
a = 5
b = 2.5
c = 7.8
pi = 3.14
y = (pi * a * b) / (a + b * c)
Print "y=", y
End Sub
6 楼
大懒猫 [专家分：220] 发布于 2008-10-22 12:54:00
3.从键盘上输入4个数,编写程序,计算并输出这4个数的和及平均值,通过InputBox输入数据,在窗体上显示4个数的和与平均值.
Option Base 1
Private Sub Command1_Click()
Dim a(4) as integer
For i = 1 To 4
a(i) = InputBox("输入数据:")
Sum = Sum + Val(a(i))
Next i
aver = Sum / 4
Print "sum="; Sum, "aver="; aver
End Sub
既然上了夜校,就得努力呀!
7 楼
大懒猫 [专家分：220] 发布于 2008-10-22 13:03:00
2.在文本框中输入长,宽,高,求长方体的表面积,并输出!!
Private Sub Command1_Click()
area = 2 * (Val(Text1.Text) * Val(Text2.Text) + Val(Text2.Text) * Val(Text3.Text) + Val(Text3.Text) * Val(Text1.Text))
Print "area=", area
End Sub
8 楼
wqbt [专家分：30] 发布于 2008-10-22 15:08:00
这么简单的题目也要叫人帮你写。
9 楼
大懒猫 [专家分：220] 发布于 2008-10-25 10:37:00
[quote]这么简单的题目也要叫人帮你写。[/quote]
这么简单的题目也有人帮他做。
[em66]
10 楼
riverbasin [专家分：20] 发布于 2008-10-31 09:18:00
大哥，太简单的题目要自己先练习，遇到问题才能问人，不然自己不能提高的
我来回复
您所在位置：