大家帮帮忙吧，明天就要交作业了，我实在没办法了，所以只能求助各位了，希望有好心人帮我做个作业阿，万分感谢！！此致~我敬礼了

编写程序，使文字“欢迎使用”在窗体中左右移动。移动方法有两种：单机“手动”按钮一次，文字移动100twip单位；单机“自动”按钮，文字连续移动(每0.2秒移动100twip单位)；当文字超出窗体范围时，进行反向移动。

这么点了，完成了我就过关了！拜托了

private sub 手动_Click()
    欢迎使用.Left=欢迎使用.Left+100
end sub

添加一个Timer

private sub Timer1_Timer()
    欢迎使用.Left=欢迎使用.Left+100
end sub

反向移动的..自己去想吧.

加个判断

能帮我写一个完整的吗？谢谢斑竹了~~

"欢迎使用"是从左边移出,然后从右边回来吗?还是从左边移出,再从左边移回来啊.我这只有前一种
label1.caption="欢迎使用"
timer1_timer()
label1.left=label.left-100
if label1.left=-label1.width then
label1.left=form1.width
endif
endsub

Label1.caption="欢迎使用！···"
timer1_timer()
   Label1.left=label.left-100
    If label1.left=-label1.width then  Label1.left=form1.width
endsub

又是一个标准的门外汉。。。

首先你在窗体上添加三个按钮,一个文字标签,一个timer控件
代码麻烦了点,希望能帮到你...
Dim c As Double

Private Sub Command1_Click()         '这是手动按钮
Dim a As Double
Dim b As Double


Form1.ScaleWidth = Form1.Width
Form1.ScaleHeight = Form1.Height


b = Label1.Left + Label1.Width
If c > 1 Then
   
   If b < Form1.ScaleWidth Then
   Label1.Left = Label1.Left + 100
   
   Else
   Label1.Left = Label1.Left - 100
    c = c - 1
   
   End If
Else
    Label1.Left = Label1.Left - 100
    If Label1.Left < 0 Then
   Label1.Left = Label1.Left + 100
     c = c + 1
   End If
End If
  

End Sub

Private Sub Command2_Click()      '这是自动按钮
Timer1.Enabled = True
Dim a As Double
Dim b As Double


Form1.ScaleWidth = Form1.Width
Form1.ScaleHeight = Form1.Height


b = Label1.Left + Label1.Width
If c > 1 Then
   
   If b < Form1.ScaleWidth Then
   Label1.Left = Label1.Left + 100
   
   Else
   Label1.Left = Label1.Left - 100
    c = c - 1
   
   End If
Else
    Label1.Left = Label1.Left - 100
    If Label1.Left < 0 Then
   Label1.Left = Label1.Left + 100
     c = c + 1
   End If
End If
  
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
Label1.Caption = "欢迎使用"



c = 2
End Sub



Private Sub Timer1_Timer()
     
     If Command2.Value = True Then
       Command3.Value = True
     Else
       Command2.Value = True
     End If
End Sub

哎！
这个社会上这样的人还真不少，为什么不自己思考下呢？

对于有些人来说，什么叫一窍不通懂吗？