直接有软件就更好感谢了，输入十个数，输出五个数，这五个数是第一个与第十个之和，第二个与第九个之和，第三个与第八个之和，第四个与第七个之和，第五个与第六个之和。后来每输入一个数，再输出五个数，代表最后一个数，原先的第一个数就不要了，第二个数变成了第一个数，…………第三个变成第二个，原先的最后一个成了第九个，输出的五个数，依然是这五个数是第一个与第十个之和，第二个与第九个之和，第三个与第八个之和，第四个与第七个之和，第五个与第六个之和

小弟知道这是有循环，可以用编程，但小弟没学过计算机程序，在这里先感谢了

dim in(9) as integer,out(9) as integer
dim temp as integer
dim i as integer

for i=0 to 9
    in(i)=inputbox("输入第" & i & "个数")
next
do while temp<>-999
    for i=0 to 4
        out(i)=in(i)+in(9-i)
        print out(i)
    next
    temp=inputbox("输入temp")
    for i=0 to 8
        in(i)=in(i+1)
    next
    in(9)=temp
loop              

在网吧打的没运行过，肯定有错误，改改就差不多了把
   

Option Explicit
Dim a(1 To 10) As Single
Dim b(1 To 5) As Single
Private Sub Command1_Click()
Dim i As Long
Dim j As String
i = 1
Do While i < 11
    j = InputBox("请输入第 " & i & "个数", "输入初始数")
    If IsNumeric(j) Then
        a(i) = CSng(j)
        i = i + 1
    End If
Loop
Do
    Call 计算                   '有10个数后,先计算
    Call 输出结果               '再显示结果
    j = InputBox("请输入附加的数", "输入附加的数")          '然后要求输入附加的数
    If IsNumeric(j) Then            '如果是输入的数据
        Call 前移一位               '那么把现有的数据向前移一位
        a(10) = CSng(j)             '然后再读这个数,然后再根据循环到上面去重新计算,并显示结果
    Else
        Exit Do                     '如果输入的不是数据,则退出循环
    End If
Loop
End Sub
Private Sub 计算()
'如果计算方法不，请按你的题目重写计算方法
Dim i As Long
' 1= 1+10
' 2=2+9
For i = 1 To 5
    b(i) = a(i) + a(11 - i)
Next i
End Sub
Private Sub 前移一位()
Dim i As Long
For i = 2 To 10
    a(i - 1) = a(i)
Next i
End Sub
Private Sub 输出结果()
Dim i As Long
Cls
For i = 1 To 10
    Print "第 " & i & " 个数是:" & a(i)     '输出10个数据
Next i
   
    Print                                   '空行
   
For i = 1 To 5
    Print "第 " & i & " 计算结果是:" & b(i)     '输出5个结果
Next i
End Sub

四楼版主利害。。。

版主真是伟大 学习了

以前没有留意原来函数和过程名还可以用汉字，学习了。

版主很厉害，结果很满意。我学习了，，崇拜啊。