Question

求VB 程序 ，输入N个数A—N，再输入一个数字M（M<N），求M个数之间的组合的积

例如：N个数据分别是3.1，2.4,2.8,1.5,0.8,3.6,这6个数据，求这6个数据中M（2）的排列组合的积,3.1*2.4=? 2.4*2.8=? 3.1*2.8=? ......

Answer 1

估计要用到双重循环语句了 还有数学知道结合
语句忘记了 不过 思路是这样的
首先 给你所需要的每个数赋值到一个变量里面 a（i)表示 然后 算出I是多少 弄出一个 这样的表达式
a(i-1)*a(i)
此时的I是个递减的变量

Answer 2

刚才有误，更正如下
Dim i As Integer, j As Integer
Dim a As Variant
a = Array(3.1, 2.4, 2.8, 1.5, 0.8, 3.6)
For i = 0 To 4
For j = i +1To 5
Print a(i) & "×" & a(j) & "=" & a(i) * a(j)
Next j
Next i

追问

你好，我想要的不仅仅是 例子里面的6个数据，而是N个数据，需要的组合形式也不是2个，而是M个数据的组合，麻烦您再完善下，谢谢

追答

不管是多少个，如果是预先知道的数据，就按下面的代码赋值给数组a
Dim i As Integer, j As Integer
Dim a As Variant
a = Array(3.1, 2.4, 2.8, 1.5, 0.8, 3.6) '这里给数组a赋初值
For i = 0 To ubound(a)-1
For j = i +1To ubound(a)
Print a(i) & "×" & a(j) & "=" & a(i) * a(j)
Next j
Next i
如果不是预知的数据，而是要手动一个一个输入，就改成下面的
Dim i As Integer, j As Integer,tmp as string
Dim a(1) as double
dim endinput as boolean
endinput=false
a(0)=inputbox("请输入数据")
do while endinput=false
tmp=inputbox("请输入数据")

if tmp="end" then '如果输入"end"则表示数据输入完毕
endinput=true
else
redim a preserve a(ubound(a)+1)
a(ubound(a))= tmp
end if
loop
For i = 0 To ubound(a)-1
For j = i +1To ubound(a)
Print a(i) & "×" & a(j) & "=" & a(i) * a(j)
Next j
Next i