查人人中国名人网浙江童车厂:问两道VB题,请高手帮忙解答,感激不尽!
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/11 20:33:40
1、 设有如下两组数据
A：2， 8， 7， 6， 4，28，70，25
B：79，27， 32， 41，57，66，78，80
编写一个程序,把上面两组数据分别读入两个数组中,然后把两个数组中对应下标的元素相加,即2+79,8+27……25+80,并把相应的结果放入第三个数组中,最后输出第三个数组的数据。
2、编写程序, 求S=A!+B!+C!,阶乘的计算分别用Sub过程和Function过程两种方法来实现。
A：2， 8， 7， 6， 4，28，70，25
B：79，27， 32， 41，57，66，78，80
编写一个程序,把上面两组数据分别读入两个数组中,然后把两个数组中对应下标的元素相加,即2+79,8+27……25+80,并把相应的结果放入第三个数组中,最后输出第三个数组的数据。
2、编写程序, 求S=A!+B!+C!,阶乘的计算分别用Sub过程和Function过程两种方法来实现。
1,
Dim a,b,i
a=Array(2,8,7,6,4,28,70,25)
b=Array(79,27,32,41,57,66,78,80)
Dim c(8)
For i=0 To Ubound(a)
c(i)=a(i)+b(i)
Next
2
1)Function
Function jc(a)
If a>0 Then
jc=a*jc(a-1)
Else
jc=1
End If
End Function
Dim s,a,b,c
a=4
b=7
c=5
s=jc(a)+jc(b)+jc(c)
2)Sub
Dim a,b,c,s
a=1
b=2
c=3
s=0
Sub jc(x)
Dim v
v=1
While x>0
v=v*x
x=x-1
Wend
s=s+v
End Sub
jc a
jc b
jc c
MsgBox s
myA_str="2,8,7,6,4,28,70,25"
myB_str="79,27,32,41,57,66,78,80"
myA_arr=split(A,",")
myB_arr=split(B,",")
Dim myC_arr()
for i=0 to ubound(myA_arr)
myC_arr(i)=val(myA_arr(i))+val(myB_arr(i))
next
1>>>>>>>
dim a(0 to 7),b(0 to 7),c(0 to 7),i as long
a(0)=
a(1)=
a(2)=
a(3)=
...
b(0)=
...
for i = 0 to 7
c(i)=a(i)+B(i)
next i
2>>>>
楼上的应该是可以的