Question

求一个VB小程序的代码





Answer 1

代码如下：

Private Sub Form_Load()
Label1.Caption = "你好！请输入你的姓名"
Label2.ForeColor = vbRed
Label2.FontSize = 20
Label2.Caption = ""
Label2.Visible = False
Command1.Caption = "确定"
Command2.Caption = "继续"
Command2.Visible = False
Command3.Caption = "结束"
Command3.Visible = False
Text1 = ""
End Sub

Private Sub Command1_Click()
Label1.Visible = False
Label2.Caption = Text1.Text & "同学，你好！祝你学好VB程序设计"
Label2.Visible = True
Text1.Visible = False
Command1.Visible = False
Command2.Visible = True
Command3.Visible = True
End Sub

Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text1.Visible = True
Text1.SetFocus
Label1.Visible = True
Label2.Visible = False
Command1.Visible = True
Command2.Visible = False
Command3.Visible = False
End Sub

Private Sub Command3_Click()
End
End Sub

Answer 2

too easy !
just do it youself!