输入任意多个正整数,编写程序求其和与平均值。当输入数小于0时结束数据的输入。

(删除#####[N]#####处的内容,在其位置填上自己补充的内容)

Sub comput()
Dim sum As Long 'sum用来保存所输入数的和
Dim data As Integer
Dim k As Integer 'k为记数器,记录输入数的个数
k = 0
data = InputBox("请输入数据:")
Do While #####[1]##### '第1空
sum = sum + #####[2]##### '第2空
k = #####[3]##### '第3空
data = InputBox("请输入数据:")
Loop
MsgBox "一共输入了" & k & "个数。" _
& vbCrLf & "其和为" & sum & "其平均值为:" & #####[4]##### '第4空

2.编写程序计算SUM=1+1*2+1*2*3+……+1*2*3*…*100的和
Sub multi()
Dim sum As Double
Dim i As Integer
Dim t As Double
i = 1: t = 1: sum = 0
Do While #####[1]##### '第1空
t = #####[2]##### '第2空
sum = #####[3]##### '第3空
i = #####[4]##### '第4空
Loop
MsgBox ("1+1*2+1*2*3+...+1*2*3*...*100=" & sum)
End Sub

3.编写程序,将当前工作表中第1行从指定位置m开始的n个数按相反顺序重新排列。例如,原数列为:1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20。从第5个数开始,将10个数进行逆序排列,则得到新数列为:1,2,3,4,14,13,12,11,10,9,8,7,6,5,15,16,17,18,19,20。

Sub 逆置()
i = Cells(6, 12) '起始位置
j = i + ####[1]#### '第1空,终止位置
Do While ####[2]#### '第2空
t = Cells(1, i)
Cells(1, i) =####[3]#### '第3空
Cells(1, j) =####[4]#### '第4空
i = i + 1
####[5]#### '第5空
Loop

End Sub

第1个回答  推荐于2016-09-10
1题,data>=0,data,k+1,sum/k
2题,
Do While i <= 100 '第1空
t = t * i '第2空
sum = sum + t '第3空
i = i + 1 '第4空
Loop
3题。 9,j>0,Cells(1, j),t,j=j-2本回答被提问者采纳
相似回答