在线等VB程序设计~~

来源：百度知道 编辑：UC知道 时间：2024/06/11 03:12:01
1.采用循环结构编写一个程序：利用inputbox函数打开输入对话框来输入一周的七日的的温度数据，经计算后通过msgbox函数输出一周平均温度！
2.输入20个数字，显示其中奇数的个数和偶数的个数！
3.输入两个整数，并计算他们的最大公因数！

第一道题：
dim s as single ,n as single
s=0
for i=1 to 7
n=inputbox("请输入温度：")
s=s+n
next i
print "本周内的平均气温是：" & s/7

第二道：
dim o as integer, j as integer
for i= 1 to 20
n=inputbox("请输入数：")
if n mod 2 = 0 then
o=o+1
else
j=j+1
end if
next i
print "偶数有：" & o & "个！"
print "奇数有：" & j & "个！"

第三题：
n=inputbox ("请输入第一个数")
m=inputbox("请输入第二个数")
for i=n to 1 step -1
if n mod i= 0 and n mod m=0 then print "这两个数的最大公因数是：" & i
end if
next i