vb 最接近的数有一组数值10002000300040005000600070008000900010000120001

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/05/15 07:02:36

vb 最接近的数
有一组数值
1000
2000
3000
4000
5000
6000
7000
8000
9000
10000
12000
14000
16000
18000
20000
30000
40000
50000
60000
70000
80000
90000
100000
我想找出最接近2500的数值,怎么弄啊,

Sub tt()
Dim mStr$,mArr,i%,k%,Rslt&
mStr = "1000 2000 3000 4000 5000 6000 7000 8000 9000 10000 12000 14000 16000 18000 20000 30000 40000 50000 60000 70000 80000 90000 100000"
mArr = Split(mStr," ")
k = 2500
Rslt = mArr(0) - k
For i = 1 To UBound(mArr)
If Abs(mArr(i) - k) < Abs(Rslt) Then Rslt = mArr(i) - k
Next
MsgBox "最接近的数就是:" & Rslt + k
End Su

vb 最接近的数有一组数值10002000300040005000600070008000900010000120001 如何用c语言在一组数中查找一个和已知数最接近的数值,像excel中的hlookup一样 excel中,怎样求出所有数值中,那些数值的和最接近一个数 Excel求一组数中于一个数最接近的数怎么办 vb 一组三位数,选最大的两个数 VB统计一组数在另一组数中出现的次数 matlab 一组数（有正有负）中寻找最接近0 的数 excel 求一组数据最接近的共同数(非公共因子）,如图示 Excel高手：选取一组数A1：A10,里面最接近A11的单元格并输出到A12! vb循环和条件判断现在有一个数组（5个元素）,如果这五个数值有相差小于1的,合并为一组并求平均数,如果相差没有小于1的, 有一组数值,求每个数值除这组数值的和的平方和,怎样用EXCEL编写函数? VB中合法的数值常量是：