早教吧作业答案频道 -->其他-->
VB编程:设有如下两组数据VB编程:设有如下两组数据A:2,7,7,6,27,70,25B:79,27,32,41,57,66,70编写一个程序,把上面两组数据分别读入两个数组中,然后把两个数组中对应下标的元素相加,即2+79,7+27,.,25+
题目详情
VB编程:设有如下两组数据
VB编程:
设有如下两组数据
A:2,7,7,6,27,70,25
B:79,27,32,41,57,66,70
编写一个程序,把上面两组数据分别读入两个数组中,然后把两个数组中对应下标的元素相加,即2+79,7+27,.,25+70,并把相应的结果放入第三个数组中,最后输出三个数组的值
VB编程:
设有如下两组数据
A:2,7,7,6,27,70,25
B:79,27,32,41,57,66,70
编写一个程序,把上面两组数据分别读入两个数组中,然后把两个数组中对应下标的元素相加,即2+79,7+27,.,25+70,并把相应的结果放入第三个数组中,最后输出三个数组的值
▼优质解答
答案和解析
Private Sub Command1_Click()
Dim i As Long
Dim a, b, c
a = Array(2, 7, 7, 6, 27, 70, 25)
b = Array(79, 27, 32, 41, 57, 66, 70)
ReDim c(UBound(a))
For i = 0 To UBound(a)
c(i) = a(i) + b(i)
Next
MsgBox Join(a, ",") & vbCrLf & Join(b, ",") & vbCrLf & Join(c, ",")
End Sub
Dim i As Long
Dim a, b, c
a = Array(2, 7, 7, 6, 27, 70, 25)
b = Array(79, 27, 32, 41, 57, 66, 70)
ReDim c(UBound(a))
For i = 0 To UBound(a)
c(i) = a(i) + b(i)
Next
MsgBox Join(a, ",") & vbCrLf & Join(b, ",") & vbCrLf & Join(c, ",")
End Sub
看了 VB编程:设有如下两组数据V...的网友还看了以下:
下述哪一条不属于数据库设计的内容? A.设计数据库管理系统 B.设计数据库概念结构 C.设计 2020-05-23 …
(50)下列( )不属于数据库设计的任务。A)设计数据库应用结构B)设计数据库概论结构C)设计数据库 2020-05-23 …
下述哪一条不属于数据库设计的内容?A.设计数据库管理系统B.设计数据库概念结构C.设计数据库逻辑 2020-05-23 …
下列哪一条不属于数据库设计的任务?A.设计数据库应用结构B.设计数据库概念结构C.设计数据库逻辑 2020-05-23 …
下述中,不属于数据库设计的内容是()。A.设计数据库管理系统B.设计数据库概念结构C.设计数据库逻辑 2020-05-24 …
下述哪一条不属于数据库设计的内容?A.设计数据库处理系统B.设计数据库概念结构C.设计数据库逻辑 2020-05-24 …
下述哪一条不属于数据库设计的内容?()A.设计数据库管理系统B.设计数据库概念结构C.设计数据库逻 2020-05-24 …
下述选项属于数据库设计内容的是Ⅰ.设计数据库管理系统Ⅱ.设计数据库概念结构Ⅲ.设计数据库逻辑结构 2020-05-24 …
2006年3月17号至19号期间俄罗斯“勇士”战斗机表演队曾计划驾驶苏—27战机穿越张家界的天门洞已 2020-11-12 …
2006年3月17号至19号期间俄罗斯“勇士”战斗机表演队曾计划驾驶苏—27战机穿越张家界的天门洞已 2020-11-12 …