VB循环编程怎么弄啊A B C Daa Jack I am is aa,you is bb,cc is pig too.
来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/09/25 11:17:19
VB循环编程怎么弄啊
A B C D
aa Jack I am is aa,you is bb,cc is pig too...
bb Mike you are aa,I am bb,pig is cc too...
cc Yao she is aa,you is bb,cc is pig too...
....
要求把C列中的单元格里用公式将 aa bb cc.替换成 B列中的相对应的内容,如aa替换成Jack,bb 代换成 Mike.
C列中每一个单元格要多次使用SUBSTITUTE替换.不是只替换一次.
唉.我已经折腾了三天了.没有结果.
要用VB循环编程.
A B C D
aa Jack I am is aa,you is bb,cc is pig too...
bb Mike you are aa,I am bb,pig is cc too...
cc Yao she is aa,you is bb,cc is pig too...
....
要求把C列中的单元格里用公式将 aa bb cc.替换成 B列中的相对应的内容,如aa替换成Jack,bb 代换成 Mike.
C列中每一个单元格要多次使用SUBSTITUTE替换.不是只替换一次.
唉.我已经折腾了三天了.没有结果.
要用VB循环编程.
怎么说呢,这里有个很简单的方法,就是用replace函数,你自己可以试下:
Dim a(1 To 3, 1 To 2) As String
Dim c(1 To 3) As String
Dim d(1 To 3) As String
Dim i As Integer
Dim j As Integer
a(1, 1) = "aa": a(1, 2) = "Jack"
a(2, 1) = "bb": a(2, 2) = "Mike"
a(3, 1) = "cc": a(3, 2) = "Yao"
c(1) = "I am is aa, you is bb, cc is pig too..."
c(2) = "you are aa, I am bb, pig is cc too..."
c(3) = "she is aa, you is bb, cc is pig too..."
For i = 1 To UBound(c)
d(i) = c(i)
For j = 1 To 3
d(i) = Replace(d(i), a(j, 1), a(j, 2))
Next
Debug.Print d(i)
Next
在这里我用的数组是固定维数的,如果无法确定数组上限时,就用动态数组吧,你自己再改下就行了
调试结果:
I am is Jack, you is Mike, Yao is pig too...
you are Jack, I am Mike, pig is Yao too...
she is Jack, you is Mike, Yao is pig too...
Dim a(1 To 3, 1 To 2) As String
Dim c(1 To 3) As String
Dim d(1 To 3) As String
Dim i As Integer
Dim j As Integer
a(1, 1) = "aa": a(1, 2) = "Jack"
a(2, 1) = "bb": a(2, 2) = "Mike"
a(3, 1) = "cc": a(3, 2) = "Yao"
c(1) = "I am is aa, you is bb, cc is pig too..."
c(2) = "you are aa, I am bb, pig is cc too..."
c(3) = "she is aa, you is bb, cc is pig too..."
For i = 1 To UBound(c)
d(i) = c(i)
For j = 1 To 3
d(i) = Replace(d(i), a(j, 1), a(j, 2))
Next
Debug.Print d(i)
Next
在这里我用的数组是固定维数的,如果无法确定数组上限时,就用动态数组吧,你自己再改下就行了
调试结果:
I am is Jack, you is Mike, Yao is pig too...
you are Jack, I am Mike, pig is Yao too...
she is Jack, you is Mike, Yao is pig too...
I am is a pig
I am is pig
证明a(bb+cc)+b(cc+aa)+c(aa+bb)>6abc
怎么证明2(aaa+bbb+ccc)>aa(b+c)+bb(a+c)+cc(a+b)
AA+BB+CC=ABC,A,B,C等于多少?
you is a pig?
已知一个TreeView1 其节点如下 A aa bb cc B aa bb cc C aa bb cc 问如何删除里面
(aaa/aa+ab+bb)+(bbb/bb+bc+cc)+(ccc/cc+ca+aa)≥ (a+b+c)/3如何证明?
(aaa/aa+ab+bb)+(bbb/bb+bc+cc)+(ccc/cc+ca+aa)≥ (a+b+c)/3
已知a.b.c是三角形的三边求(aa+bb-cc)(aa+bb-cc)-4aabb
neither Tom nor Jack and I ( ) his students.A.are B.am C.is
What is the matter 回答是( )A.Fine ,think.B.I am too hot.C.I is