vb小程序
Private Sub Form_click()
ForeColor = yellow
Print "******"
Print "welcome"
Print "******"
End Sub
Private Sub Form_click()
BackColor = vbBlue
ForeColor = vbYellow
FontSize = 20
Print "******"
Print "welcome"
Print "******"
End Sub
Private Sub Form_click()
Form3.Visible = False
Form1.Visible = True
End Sub
Private Sub Form_click()
Print "###"
End Sub
Private Sub Form_dblclick()
Cls
End Sub
Private Sub Form_activate()
Print "Hello"; "everyone!", -5 * 6, Not 2 <= 3
Print '如果print后不用任何项,则输出一个空行
Print Tab(5); "Hello"; Spc(5); "everyone!", -5 * 6; Not 2 <= 3
Print
Print Now
Print
FontSize = 16
Print "20+80=",
Print 20 + 80
Print
Print "20+80="; 20 + 80
End Sub
Private Sub Form_click()
Move Form6.Left + 1000, Form6.Top + 800
End Sub
Private Sub form_load()
Text1.Text = "rose"
End Sub
Private Sub form_click()
Text1.SelStart = 1
Text1.SelLength = 3
Text2.Text = Text1.SelText
End Sub
