Question

帮忙编一个VB小程序吧，非常感谢！~

程序是要使if a<=7 then k(i)=1
if a>7 then 使s（i）最大的前七项k（i）=1 else k(i)=0
（a和s（i）都为输入量）
不好意思，其实很好理解的，我再详细叙述一遍：

其中 i=1，2，3……a； a和s（i）都为输入量（可以用inputbox表示）
（s（i）为一个输入的数组，包含s（1），s（2）……s（a） 一个个输进去，排序时用）

当a<=7时，k（i）均赋值为1
当a>7时，将s（i）按数值大小降序排列，取前七项的k（i）赋值为1，其他的k（i）=0

如果vb不好做也可以用其他程序，比如matlab

Answer 1

If a <= 7 Then
For i = 1 To 7
k(i) = 1
Next
End If

If a > 7 Then
MaxNum = s(1) 'MaxNum求数组s（）中最大值
For i = 1 To a - 1
If MaxNum < s(i + 1) Then
MaxNum = s(i + 1)
k(i) = 0
k(i + 1) = 1
End If
Next
For j = 2 To 7
MaxNum2 = s(1) '依次求出比MaxNum小的前六位数
For i = 1 To a - 1
If MaxNum2 < s(i + 1) & s(i + 1) < MaxNum Then
MaxNum2 = s(i + 1)
k(i) = 0
k(i + 1) = 1
End If
Next i
MaxNum = MaxNum2
Next j
End If

以上程序未经过编译,不过应该可行.至于inputbox可自己编写,希望对你有所帮助!

Answer 2

你没叙述明白。

Answer 3

s(i)是什么？