Question

麻烦解释一下这段VB代码，及doevents语句的用法

Private Sub Command1_Click()
Do While DoEvents()
If Label1.Left < Form1.Width Then
Label1.Left = Label1.Left + 1
Beep
Else
Label1.Left = Form1.Left
End If
Loop

End Sub

Private Sub Command2_Click()

FontName = "黑体"
FontSize = 16
Print "正在执行“无doevents 的循环”"
For x = 1 To 20000000
y = x * 9
Next x

End Sub

Private Sub Command3_Click()
End

End Sub
其中的beep是干什么用的啊

Answer 1

Private Sub Command1_Click()
Do While DoEvents()
'DoEvents返回整形数(窗体数目)非0为真~Do While 循环只要条件为真是循环
If Label1.Left < Form1.Width Then '如果标签的左边距小于窗体1的宽度则
Label1.Left = Label1.Left + 1 'left属性+1
Beep '通过计算机喇叭发出一个声调
Else '否则
Label1.Left = Form1.Left '窗体的左边距赋值给标签左边距
End If
Loop
End Sub

Private Sub Command2_Click()
FontName = "黑体" '设置窗体字体
FontSize = 16 '字体大小
Print "正在执行“无doevents 的循环”" '打印字体
For x = 1 To 20000000 '循环
y = x * 9
Next x
End Sub

Private Sub Command3_Click()
End
End Sub

Answer 2

beep 主板的小喇叭发声，嘟一下。

doevents 就是当前代码执行时其他控件事件也可以执行