Visual Basic编程题目

Private Sub Command1_Click()

Dim k As Integer, i As Integer

Dim s As Long, t As Long

s = 0: i = 2

Do While i <= 8

t = 1

k = 1

While k <巧汪= i t = t * k

k = k + 1

Wend

s = s + t

i = i + 2

Loop

Print s

End Sub

更多VB代码请关基唯注搏宽培http://hi.baidu.com/zgmg

Private Sub Command1_Click()

Label1.Caption = "多预习，问题在心中"

End Sub

Private Sub Command2_Click()

Label1.Caption = "认真听，知识升灶羡记脑里吵拍"

End Sub

Private Sub Command3_Click()

Label1.Caption = "多练习，实践出真知"

End Sub

Private Sub Form_Load()

Label1.FontSize = 20

Label1.Caption = "欢迎学习Visual Basic"

Command1.Caption = "上课前"

Command2.Caption = "上课时辩尺"

Command3.Caption = "上课后"

End Sub

---