获取变量值

落尘_小新　发表于：2013-02-26 06:11:48 　

Dim s1 As String
Dim s2 As String
Dim s3 As String
Dim str As String
s1 = "第一行"
s2 = "第二行"

s3 = "第三行"
...........................................

For n = 1 To 3
'当n = 1时　　str = s1
'当n = 2时　　str = s2
'当n = 3时　　str = s3
....................................

Next n

请问，绿色部份用什么方法可以实现．

不要用ＩＦ语句，因为Ｓ１这样的变量不止三个，还有很多，我是想在循环中用一条或最少的语句来给 STR　这个变量赋值．

不知道我表达的意思清楚不，有哪位老师帮忙看看．如果不明白我的意思，可跟贴追问．

煮江品茶发表于：2013-02-26 08:12:47

Dim s(1 to 100) as string

Dim i as long

for i=1 to 100

s(i)="第" & i & "行"

煮江品茶发表于：2013-02-26 08:31:36

看明白了，你的问题与循环没球关系。

无非是大写与小写之间的转换而已。有很多方法来处理，其中100以内的处理比较简单，一百以上的需要说明大写中的中间零书写规则（比如1002030045大写如何书写）。

煮江品茶发表于：2013-02-26 11:09:30

落尘_小新发表于：2013-02-26 15:30:30

谢谢老师，问题得一解决．

总记录：4篇页次：1/1 9 1 :

Access交流中心