我初学VB，建了个Text文本框，和一个“显示”按钮，当第一次单击按钮时Text文本框显示“转换规则”，第二次时“小写转换成大写”，第三次时“大写转换成小写”，也就是如何让“转换规则，小写转换成大写，大写转换成小写”这句话分三步显示。请各位帮忙写一下那个程序执行的代码，谢谢了……

看代码吧


Option Explicit
Public n As Long   '变量，为了赋1、2、3判断文本框text1内容

Private Sub Command1_Click()

n = n + 1
If n > 3 Then n=1

Select Case n
Case 1
Text1.Text = "转换规则"
Case 2
Text1.Text = "小写转换成大写"
Case 3
Text1.Text = "大写转换成小写"
End Select

End Sub

Private Sub Form_Load()
n = 0
End Sub

[[it] 本帖最后由 drogen007 于 2008-7-24 23:47 编辑 [/it]]

说白了就是三次显示不一样的内容

xxx Sub xxx_click
Static n As Integer '初始为0
Const WordsList="转换规则|,小写转换成大写|,大写转换成小写"
Dim a() As String
a=Split(WordsList,"|")
If n<=ubound(a) then
  xxx.caption=xxx.caption & a(n)
  n=n+1
End If
End Sub

未测试，只是提供一个思路。

一个比一个牛X
真是自愧不如啊

为什么重复完一次再开始一次时必须重新启动呢？如何才能让它完了一次，在单击命令按钮一次时又开始呢？而不是在重新启动一次。谢谢了……

清空不就得了

清空不行啊，必须是退出来后在重新启动一次才行。我是想清空后不用往出退，再重复显示一次。不过还是谢谢了……

注意我的代码。

我是怎么防止越界的？只有n小于3才响应。
那么就清楚了，在声明语句之后，如果n=3(当然说n>=3也一样)那么就把0赋值给n，不就相当于初始化了？

偶的也实现了！