神马作文网vb操作题 改错：设有如下两组数据
来源：学生作业帮 编辑：神马作文网作业帮 分类：综合作业 时间：2024/11/10 20:00:55
vb操作题 改错：设有如下两组数据
A：2,8,7,6,4,28,70,25
B：79,27,32,41,57,66,78,80
编写一个程序,把上面两组数据分别赌如两个数组中,然后把两个数组中对应下表的元素相加,并把相应的结果放入第三个数组中,最后输出第三个数组的值.
我编写的程序：
Option Base 1
Private Sub Form_click()
Dim a() As Variant,b() As Variant,c() As Variant
a = Array(2,8,7,6,4,28,70,25)
b = Array(79,27,32,41,57,66,78,80)
For i = 1 To 8
c(i) = a(i) + b(i)
Print c(i);
Next i
End Sub
运行之后提示“跨界”
A：2,8,7,6,4,28,70,25
B：79,27,32,41,57,66,78,80
编写一个程序,把上面两组数据分别赌如两个数组中,然后把两个数组中对应下表的元素相加,并把相应的结果放入第三个数组中,最后输出第三个数组的值.
我编写的程序：
Option Base 1
Private Sub Form_click()
Dim a() As Variant,b() As Variant,c() As Variant
a = Array(2,8,7,6,4,28,70,25)
b = Array(79,27,32,41,57,66,78,80)
For i = 1 To 8
c(i) = a(i) + b(i)
Print c(i);
Next i
End Sub
运行之后提示“跨界”
Option Base 1
Private Sub Form_click()
Dim a() As Variant, b() As Variant, c() As Variant
a = Array(2, 8, 7, 6, 4, 28, 70, 25)
b = Array(79, 27, 32, 41, 57, 66, 78, 80)
ReDim c(1 To 8)
For i = 1 To 8
c(i) = a(i) + b(i)
Print c(i);
Next i
End Sub
你开始的定义是动态数组,在用array时,a和b两个数组都从新定义了,但是c数组没有定义大小,所以提示跨界!
Private Sub Form_click()
Dim a() As Variant, b() As Variant, c() As Variant
a = Array(2, 8, 7, 6, 4, 28, 70, 25)
b = Array(79, 27, 32, 41, 57, 66, 78, 80)
ReDim c(1 To 8)
For i = 1 To 8
c(i) = a(i) + b(i)
Print c(i);
Next i
End Sub
你开始的定义是动态数组,在用array时,a和b两个数组都从新定义了,但是c数组没有定义大小,所以提示跨界!
vb操作题 改错：设有如下两组数据
VB编程：设有如下两组数据
两张EXCEL表中的数据做对比如何操作啊,表如下,要对比出单价变动的数据是哪几条?注意单价里面相同价格
VB程序、、编写应用程序,要求在TextBox控件的文本框中输入一个英文句子后完成如下操作：
0.设有如下的变量定义：
化学实验过程中，主要是进行实验基本操作和实验现象及数据的记录，如下实验操作或记录正确的是（ ）
主要是进行实验基本操作和实验现象及数据的记录,如下实验操作或记录错误的是（ ）
VB操作题.从键盘任意输入四个数,求四个数中的最大值
求教matlab数据操作问题
vb中读取文本数据文件时,想对文本中的数据赋给新的变量.其中的2,3只是作为判断用,下面的数据是需操作的
如下（两题）
vb 数据四舍五入取到小数点后两位