vb中如果给一个数值怎么样让它在一组数据中找到一个最接近大于它的数和一个最接近小于它的数值

各位好，小弟请教个问题，vb编程 从一组数中挑出一部分数,使它们的和最接近确定的某个值~

控件：
image,picture,timer代码：Dim x As IntegerDim y As IntegerPrivate Sub Form_Load()x = 100y = 100Timer1.Interval = 100End SubPrivate Sub Timer1_Timer()If img.Top >= pic.Height - img.Height Theny = -100End IfIf img.Top = pic.Width - img.Width Thenx = -100End IfIf img.Left <= 0 Thenx = 100End Ifimg.Top = img.Top + yimg.Left = img.Left + xEnd Sub以上代码实现的是图片框中的一个小球做的规律的运动，当小球碰到图片框边缘时便反弹继续运动

比如你要求A2到A30这些表格中的的数据，你可以先用筛选，把大于某个值的数筛选出来，然后再用min求筛选出来的最小值。

'在窗体上画一个名称为Command1的按钮就可以运行了
    
 Private Sub Command1_Click()
    Dim i As Integer, myNumber As Integer, myResult As Long
    Dim intMyArray(0 To 4) As Integer
   
    '-----------------------------
    '这部分是测试数据，根据需要自己设置
    intMyArray(0) = 20
    intMyArray(1) = 25
    intMyArray(2) = 10
    intMyArray(3) = 15
    intMyArray(4) = 5
    myNumber = 5
    '-----------------------------
    '首先对数组数据进行排序，防止用来判断的数组不标准产生误差
    If MySort(intMyArray()) Then
         
        '对要进行处理的数值进行校验，排除非法数据
        If myNumber > intMyArray(UBound(intMyArray)) Or myNumber < intMyArray(0) Then
            MsgBox "输入值超出可处理范围，请检查", vbExclamation, "提示"
            Exit Sub
        End If
    
        If JudgeNumber(intMyArray, myNumber, myResult) Then
            Print myNumber & "的处理结果为：" & myResult
        Else
            MsgBox "处理失败失败", vbExclamation, "提示"
        End If
    Else
        MsgBox "排序失败", vbExclamation, "提示"
    End If
End Sub
 
Private Function MySort(intArray() As Integer) As Boolean
    Dim i      As Integer, j As Integer
    Dim intTmp As Integer
    On Error GoTo ErrLab
    For i = 0 To UBound(intArray) - 1
        For j = 0 To UBound(intArray) - i - 1
            If intArray(j) > intArray(j + 1) Then
                intTmp = intArray(j)
                intArray(j) = intArray(j + 1)
                intArray(j + 1) = intTmp
            End If
        Next
    Next
    MySort = True
ErrLab:
    If Err.Number <> 0 Then
        MySort = False
    End If
End Function
 
'lngResult为计算结果
Private Function JudgeNumber(intArray() As Integer, ByVal intInput As Integer, ByRef lngResult As Long) As Boolean
    Dim i As Integer
    
    
    On Error GoTo ErrLab
    
    For i = 0 To UBound(intArray)
        If intInput <= intArray(i) Then
            If intInput = intArray(i) Then
                lngResult = intInput
            Else
                lngResult = intArray(i - 1) * intArray(i)
            End If
            Exit For
        End If
    Next
    
    JudgeNumber = True
    Exit Function
ErrLab:
    JudgeNumber = False
End Function

这要分两个步骤来处理，第一步是找数组中有没有相同的数，找到了就确认并退出，没找到进入下一步，把这个数加入数组中，并进行数组排序，排序结束后取得上下两个相邻的数进行相乘，整个过程就这样.

Option Base 1
Private Sub Command1_Click()
Dim x(), i%, a%, b%
x = Array(5, 10, 15, 20, 25)
a = InputBox("input a number:")
For i = 1 To UBound(x)
If a < x(i) Then
b = a * x(i)
ElseIf a = x(i) Then
b = a
End If
Next i
MsgBox b

End Sub

---

麻阳苗族自治县15155299056： vb中如果给一个数值怎么样让它在一组数据中找到一个最接近大于它的数和一个最接近小于它的数值现在有一组数5.10.15.20.25.如果有一个数a,当a=13时,... - ？
浑矿孚悦：[答案] '在窗体上画一个名称为Command1的按钮就可以运行了 Private Sub Command1_Click() Dim i As Integer, myNumber As&nb...

麻阳苗族自治县15155299056： vb中如果给一个数值怎么样让它在一组数据中找到一个最接近大于它的数和一个最接近小于它的数值 - ？
浑矿孚悦： '在窗体上画一个名称为Command1的按钮就可以运行了 Private Sub Command1_Click() Dim i As Integer, myNumber As Integer, myResult As Long Dim intMyArray(0 To 4) As Integer '----------------------------- '这部分是测试数据,根据需要自己设置 ...

麻阳苗族自治县15155299056： vb中怎么样输入的值保存在一个变量中? - ？
浑矿孚悦： 从inputbox得到输入内容 dim a as string a=inputbox(＂请输入任意＂,＂输入＂) print a

麻阳苗族自治县15155299056： 新手学VB 我想问下 当我在Text中输入一个数字 怎样让它转到一个定义变量中. - ？
浑矿孚悦： 在Text控件 Text1 的消息响应函数Text1_Change()里写下1)a =Text12)a =Text1.text3)a= int(Text1.text)4)a= CInt(Text1.text)5)a= CLng(Text1.text)6)a= CSng(Text1.text)7)a= CDbl(Text1.text) 任选一个就可以了

麻阳苗族自治县15155299056： vb中用for next语句怎么将一个数组在一行输出 - ？
浑矿孚悦： VB中在For Next循环中,可以在使用Print方法时用分号＂;＂实现将一个数组在一行输出.在单行上显示不同的项 被显示或被打印的项,可包括属性值、常数和变量(字符串或数字).“在窗体或图片框上显示文本”一节中讨论过的 Print 方法...

麻阳苗族自治县15155299056： vb中,text中输出数字的时候,怎么让每个数字占一排啊？
浑矿孚悦： 现将text的multiline属性置为true, text1= text1 & vbcrlf & ＂123＂ text1= text1 & vbcrlf & ＂456＂

麻阳苗族自治县15155299056： 在VB中怎么把2个数赋予在一个值里？
浑矿孚悦： 定义三个变量 dim a as string,b as string,c as string a=b+c b和c里面的值就都到a里面来了

麻阳苗族自治县15155299056： VB怎么全局赋值给一个变量? - ？
浑矿孚悦： 在控件外给变量赋值const a=100 '赋值一个常数100,常数a不可改变a=100 '赋值一个变量为100,变量a可以改变

麻阳苗族自治县15155299056： vb.net中怎么让即时窗口的数字在一行显示,我输出的都是同一列. - ？
浑矿孚悦： 你数字输出方法不对 你要把1 xxx.WriteLine() 换成1 xxx.Write() WriteLine()方法会在每次输出后自动添加换行符,所以看起来就是一列

麻阳苗族自治县15155299056： vb如何让数字只要有小数位就进一变为整数？
浑矿孚悦： Option Explicit Private Sub Form_Activate() Print fc(100) Print fc(0.1) Print fc(10.1) Print fc(100.0001) End Sub Function fc(n) fc = IIf(InStr(CStr(n), ＂.＂) > 0, Int(n) + 1, n) End Function