Private Sub Command1_Click()
  Dim M As String
  Dim X0, Y0, I As Integer
  ScaleMode = 0
  FontSize = 24
  M = "新年快乐!"
  If Command1.Caption <> "退出" Then
         Command1.Caption = "退出"
     Cls
         CurrentX = Form1.Width / 2 - TextWidth(M) / 2
     CurrentY = Form1.Height / 2 - TextHeight(M)
         Print M
     For I = 1 To 100
             DrawWidth = (DrawWidth + 1) Mod 10 + 1
             X0 = ScaleHeight * Rnd
             Y0 = ScaleWidth * Rnd
             PSet (X0, Y0), QBColor(Rnd * 15)
       Next I
  Else
        If Command1.Caption = "退出" Then End
  End If
End Sub
请问语句"DrawWidth = (DrawWidth + 1) Mod 10 + 1
"是什么意思?是在设点的大小吗?如果纯粹用pset画点则点非常小,而此题的结果中点好大哦~~~