Question

VB代码翻译、

Dim d As Boolean
Private Sub Form_Load()
Label1.Left = Me.Width - Label1.Width
Timer1.Interval = 100
d = True
End Sub

Private Sub Timer1_Timer()
If d Then
Label1.Left = Label1.Left - 90
Else
Label1.Left = Label1.Left + 90
End If
If Label1.Left <= 0 Then
d = False
End If
If Label1.Left >= Me.Width - Label1.Width - 240 Then
d = True
End If
End Sub

Answer 1

Dim d As Boolean '定义全局变量d，代表移动方向
Private Sub Form_Load() '程序启动时载入运行
Label1.Left = Me.Width - Label1.Width 'Label1移动到最靠窗体右边
Timer1.Interval = 100 '定时器设置为0.1秒
d = True '初始化d，方向向左
End Sub

Private Sub Timer1_Timer()
If d Then '如果d=true
Label1.Left = Label1.Left - 90 'Label1向左移动90堤
Else
Label1.Left = Label1.Left + 90 '否则Label1向右移动90堤
End If
If Label1.Left <= 0 Then '如果Label1超出窗体左边框
d = False '方向改为向右
End If
If Label1.Left >= Me.Width - Label1.Width - 240 Then '如果Label1超出窗体右边框-240堤
d = True '方向改为向左
End If
End Sub

追问

你帮我做一个饭店点菜系统的VB程序呗
要求菜式浏览功能，饭店留言板，消费价格统计，达到一定消费金额可以进行抽奖，我邮箱1115437897@qq.com.\
谢谢乃。最好代码能带上翻译，因为我们老师可能要提问的。

追答

你这个和提问无关，另外我没有饭店点菜系统的代码

追问

你帮我做一个嘛。我知道这个追问与提问无关，这不是抓到救命的稻草了么

Answer 2

做出来的效果就是Label1在窗体上先向左运动直到碰到窗体边缘，然后向右运动直到碰到窗体边缘，然后向左，如此往复。