VB 最接近的数字我有2个数组 a1 和 a2 和 2个 整形变量 o p 2个数组的元素个数我不知道要求在a2数组中
来源:学生作业帮 编辑:搜搜考试网作业帮 分类:数学作业 时间:2024/06/08 19:31:55
VB 最接近的数字
我有2个数组 a1 和 a2 和 2个 整形变量 o p
2个数组的元素个数我不知道
要求
在a2数组中 找出与a1数组最接近的2个数字
剧烈
a1(1) = "3"
a1(2) = "5"
a2(1) = "1"
a2(2) = "5"
a2(3) = "7"
a2(4) = "10"
这样 因为a1元素有2个 所以 o p 值也有2个
我要求只要这样
msgbox o & p
上面的对话框会出现2次
第一次值 应该是 1 和5 因为在数组a2中 最前面的与1最接近 最后的与5最接近
第二次值 应该是 5 和7 因为在数组2中 5就是他本身 是最最接近的 相邻的是7
我有2个数组 a1 和 a2 和 2个 整形变量 o p
2个数组的元素个数我不知道
要求
在a2数组中 找出与a1数组最接近的2个数字
剧烈
a1(1) = "3"
a1(2) = "5"
a2(1) = "1"
a2(2) = "5"
a2(3) = "7"
a2(4) = "10"
这样 因为a1元素有2个 所以 o p 值也有2个
我要求只要这样
msgbox o & p
上面的对话框会出现2次
第一次值 应该是 1 和5 因为在数组a2中 最前面的与1最接近 最后的与5最接近
第二次值 应该是 5 和7 因为在数组2中 5就是他本身 是最最接近的 相邻的是7
Private Sub Command1_Click()
Dim a1() As Long
Dim a2() As Long
Dim i As Long
Dim j As Long
Dim o As Long,p As Long
Dim distance() As Long
Dim minDistance() As Long
Dim minIndex() As Long
ReDim a1(1 To 2)
ReDim a2(1 To 4)
a1(1) = 3
a1(2) = 5
a2(1) = 7
a2(2) = 5
a2(3) = 1
a2(4) = 10
For i = LBound(a1) To UBound(a1)
ReDim distance(LBound(a2) To UBound(a2))
ReDim minDistance(0 To 1)
ReDim minIndex(0 To 1)
'取距离
For j = LBound(a2) To UBound(a2)
distance(j) = Abs(a2(j) - a1(i))
Next j
'选最小值
minIndex(0) = LBound(distance)
minDistance(0) = distance(minIndex(0))
For j = LBound(distance) To UBound(distance)
If (distance(j) < minDistance(0)) Then
minIndex(0) = j
minDistance(0) = distance(j)
End If
Next j
'选次小值
minIndex(1) = LBound(distance)
minDistance(1) = distance(minIndex(1))
For j = LBound(distance) To UBound(distance)
If (distance(j)
Dim a1() As Long
Dim a2() As Long
Dim i As Long
Dim j As Long
Dim o As Long,p As Long
Dim distance() As Long
Dim minDistance() As Long
Dim minIndex() As Long
ReDim a1(1 To 2)
ReDim a2(1 To 4)
a1(1) = 3
a1(2) = 5
a2(1) = 7
a2(2) = 5
a2(3) = 1
a2(4) = 10
For i = LBound(a1) To UBound(a1)
ReDim distance(LBound(a2) To UBound(a2))
ReDim minDistance(0 To 1)
ReDim minIndex(0 To 1)
'取距离
For j = LBound(a2) To UBound(a2)
distance(j) = Abs(a2(j) - a1(i))
Next j
'选最小值
minIndex(0) = LBound(distance)
minDistance(0) = distance(minIndex(0))
For j = LBound(distance) To UBound(distance)
If (distance(j) < minDistance(0)) Then
minIndex(0) = j
minDistance(0) = distance(j)
End If
Next j
'选次小值
minIndex(1) = LBound(distance)
minDistance(1) = distance(minIndex(1))
For j = LBound(distance) To UBound(distance)
If (distance(j)
VB 最接近的数字我有2个数组 a1 和 a2 和 2个 整形变量 o p 2个数组的元素个数我不知道要求在a2数组中
几道VB题1编程题:.从键盘上输入20个数放入一个一维数组中,并输入数组各元素的值,然后将数组中20个元素的最大值和最小
定义一整形数组,给30个元素赋值,数组的前两个元素值为1和2,后面的元素值等于其前面的两个元数值的和
有15个数按小到大的顺序存放在一个数组中,输入一个数,要求用折半查找法找出该数组中第几个元素的值.
1、将2,4,6,8,10,12,14,16保存在整形数组中,并计算并输出该数组元素的和.
定义3个指向含有4 个元素的一位整形数组的指针变量,用其求A矩阵与B矩阵的和矩阵C
定义了二维数组B(2to6,4)则该数组的元素个数为多少个?怎么计算,我想要计算方法,
有一个数组.内放10个整数,要求找出最小的数和它的下标,然后和数组中最前面的元素对换.
1.有15个数存放在一个数组中,输入一个数要求用折半查找法找出该数是数组中的第几个元素的值,如果该数不在数组中,则输出无
定义一个有4个元素的数组,并将0、1、2、3、4赋值给数组,扩充数组为6个元素
ACCESS 定义了二维数组A(2 to 5,5)则该数组的元素个数为多少个
C 语言 一维整形数组将数组元素逆序存放并把交换后的数组输出 要求数组元素的输入,交换和输出分别用函数