巴西获得几次:请懂得Visual Basic语言的进来.

来源:百度文库 编辑:杭州交通信息网 时间:2024/05/01 21:09:52
请用Visual Basic语言编写下面的程序:

采用循环结构编写一个程序:利用InputBox函数打开输入对话框输入一周七天的温度数据,经计算后通过
MsgBox函数输出一周的平均温度.

必有重谢!
可不可以将程序写出来啊?

Private Sub Command1_Click()
Dim n As Single, sum As Single
For i = 1 To 6
n = InputBox("请输入星期" & i & "的温度", "温度")
sum = sum + n
Next
n = InputBox("请输入星期日的温度", "温度")
sum=sum+n
MsgBox "平均温度为:" & sum / 7
End Sub

定义7个变量,
然后用Xn=val(inputbox(......))
最后计算平均值

好像“MsgBox("平均温度为:" & sum / 7”)
应该改成“MsgBox ("平均温度为:" & (sum/7)”)
不过可能两种都对,要不回去运行一下就知道了

定义个变量
再把输出的值赋给你定义的变量
然后输出就可以了