如题所述
VBA中数组用arr（）表示，字符串可通过inputbox来手工输入，
判断语句为for..if..then..next，
举例如下
1
2
3
4
5
6
7
8
9
Sub
tst()
Dim
arr(1
To
10)
Dim
i%,
p
As
String
p
=
InputBox("tst")
For
i
=
1
To
10
arr(i)
=
i
&
"个"
If
p
=
arr(i)
Then
MsgBox
i
Next
判断语句为for..if..then..next，
举例如下
1
2
3
4
5
6
7
8
9
Sub
tst()
Dim
arr(1
To
10)
Dim
i%,
p
As
String
p
=
InputBox("tst")
For
i
=
1
To
10
arr(i)
=
i
&
"个"
If
p
=
arr(i)
Then
MsgBox
i
Next
温馨提示：答案为网友推荐，仅供参考
