比如 5 7 9 11 14 这五个数我要判断后者减前者时候等于2，等于2的占到总数百分之几

显示全部楼层 · 2012-11-14 08:36:22

Private Sub Command1_Click()Dim S1 As String, ss As StringDim K As Integer, l As Integer, k1 As Single, k2 As Single, k33 As SingleDim sk As Variant'S1 = "5 7 9 11 14"S1 = InputBox("请输入：", "输入提示", "")Do While InStr(1, S1, "") > 0 S1 = Replace(S1, "", " ")Loop sk = Split(S1, " ")k3 = 0k4 = 0For...

千问 · 2012-11-14 08:36:22

Function GetCount(ByVal t As String) As StringDim s() As StringDim n As Singles = Split(t, " ")If UBound(s) > 0 Then
For i = 1 To UBound(s)
If Val(s(i...

千问 · 2012-11-14 08:36:22

本题目中，5，7，9，11，14后者减前者，总的有10种不同机会。后者减前者=3的有3种。所以后者减前者=3的占3/10=30%不好意思，那帮不上你的忙了。...

比如 5 7 9 11 14 这五个数 我要判断后者减前者时候等于2，等于2的占到总数百分之几

比如 5 7 9 11 14 这五个数我要判断后者减前者时候等于2，等于2的占到总数百分之几