VB字符移动代码

额……我大概会一些这样你看看行不行显示和不显示就是更改Visible属性的问题，点来点去什么的我就不讲了先画2个TexBox控件，再画一个timer控件，在属性interval中设置为1000。把如下代码复制到代码中。Option Explicit

'text1.text中的文本向左滚动

'text2.text中的文本向右滚动

Private Sub Timer1_Timer()

Dim tmp1, tmp2 As String

tmp1 = Text1.Text

tmp2 = Text2.Text

Text1.Text = Right(tmp1, Len(tmp1) - 1) &Left(tmp1, 1)

Text2.Text = Right(tmp2, 1) &Left(tmp2, Len(tmp2) - 1)

End Sub如果都要求向左移动的话那么就写成，另外这个好久没有用了前面的Option Explicit加不加你都试竖掘腊试看吧Option Explicit'text1.text中的文本向左滚动

'text2.text中的文本向右滚动

Private Sub Timer1_Timer()

Dim tmp1, tmp2 As String

tmp1 = Text1.Text

tmp2 = Text2.Text

Text1.Text = Right(tmp1, Len(tmp1) - 1) &Left(tmp1, 1)

Text2.Text = Right(tmp2, Len(tmp2) - 1) &Left(tmp2, 1)

End Sub让点击开始按钮让文字滚动散念也很简单，你先余滑吧计时器（Timer）的Enablad属性改为False代码如下：Timer1.Enablad = FalseCommand1（就是你的开始按钮，复制的时候把括号去掉） ="停止"中间的分歧写一下，然后把Enablad改为True就可以了

添加两个按钮cmd1（自动）、cmd2（手早敏动）和一个定时器控件Timer1，将下笑梁列代码加入窗体模块即可陆升枝：

Private Sub cmd2_Click()

If Label1.Left >Label1.Width Then Label1.Left = -ScaleWidth

Label1.Left = Label1.Left + 100

End Sub

Private Sub cmd1_Click()

Timer1.Enabled = Not Timer1.Enabled

End Sub

Private Sub Form_Load()

Label1.Left = -ScaleWidth

Timer1.Interval=100

Timer1.Enabled = False

End Sub

Private Sub Timer1_Timer()

If Label1.Left >Label1.Width Then Label1.Left = -ScaleWidth

Label1.Left = Label1.Left + 100

End Sub

你MOD3就轿森悉行了呀春拿..余数就是你需要的0,1,2了

我的例子,是循环50个这样的数呀闭乎:

Private Sub Command1_Click()

Dim i%, j%

For i = 0 To 50

j = i Mod 3

Print j

Next

End Sub

---