求救!帮我看一个程序到底哪有问题??

level 1

夜寒心_1107 楼主

这是一个随机产生字母的程序,但总是有问题,求救高手帮我看一下到底是哪里的问题.谢谢了!Private Sub Command1_Click() Randomize Text1 = " " For i = 1 To 30 a = Chr(Int(Rnd * 26) + 65) Text1 = Text1 + a Next i End Sub

2007年11月08日 14点11分 1

level 0

222.94.10.*

什么问题你说下，是把大写转成小写，还是什么？

2007年11月08日 15点11分 2

level 0

222.94.10.*

Randomize '//生成随机数 Text1 = " " For i = 1 To 30 a = Chr(LCase(Rnd * 15) + 95) ' //转换为小写随机字母 Text1 = Text1.Text + Trim(a)Next i

2007年11月08日 15点11分 3