求一个VB小程序的代码

求一个VB小程序的代码

代码如下：

Label1.Caption = "你好！请输入你的姓名"

Label2.ForeColor = vbRed

Label2别致进婷沉远绝报书打京.FontSize = 20

Label2.Capti360问答on = ""

Label2.权化练套三核节玉工Visible = False

Command1.Caption = "确定"

Command2.Caption = "继续"

Command2.Visible = False

Command3.C语航础间搞冲请挥病引aption = "结束"

Command3.Visi续热跟律真ble = False

Tex西油呼布景司甚故氧问罪t1 = ""

End Sub

Private Sub Command1_Click()

Label1.Visible = False

Label2.Caption = Text1.Text & "同学，你好！祝你学好VB程序设计"

Label2.功目任非族应她Visible = True

Text1.Vis米笑计间城械鲜减围粮ible = False

Command1.Vis国元纪曾名派游电呀采ible = Fa粉句机染武这即持门标划lse

Command2.Visible = True

Command3.Visible = True

End Sub

Private Sub Command2_Click()

Text1 = ""

Text2 = ""

Text1.Visible = True

Text1.SetFocus

Label1.Visible = True

Lab距解建el2.Visible = False

Comm记我杨统让刻排每存齐但and1.Visible = Tr易蛋液实后通控ue

Command2.Visible = False

Command3.Visible = Fa罪溶米愿日学地条lse

End Sub

Private Sub C改庆胶例问随站同ommand3_Click()

End

End Sub