(资料图片仅供参考)

1、代码如下：PrivateSubForm_Load()Label1.Caption="你好！请输入你的姓名"Label2.ForeColor=vbRedLabel2.FontSize=20Label2.Caption=""Label2.Visible=FalseCommand1.Caption="确定"Command2.Caption="继续"Command2.Visible=FalseCommand3.Caption="结束"Command3.Visible=FalseText1=""EndSubPrivateSubCommand1_Click()Label1.Visible=FalseLabel2.Caption=Text1.Text&"同学。

2、你好！祝你学好VB程序设计"Label2.Visible=TrueText1.Visible=FalseCommand1.Visible=FalseCommand2.Visible=TrueCommand3.Visible=TrueEndSubPrivateSubCommand2_Click()Text1=""Text2=""Text1.Visible=TrueText1.SetFocusLabel1.Visible=TrueLabel2.Visible=FalseCommand1.Visible=TrueCommand2.Visible=FalseCommand3.Visible=FalseEndSubPrivateSubCommand3_Click()EndEndSub。

本文为大家分享到这里，希望小伙伴们有帮助。