VB程序设计教程实验1答案

《VB程序设计教程实验1答案》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、41011066付乾峰资源1103实验1自测习题1程序.PrivateSubForm_Load()Label1.FontBold=FalseLabel1.FontUnderline=FalseLabel1.AutoSize=TrueLabel1.FontSize=15EndSubPrivateSubCommand1_Click()Label1.AutoSize=TrueLabel1.FontSize=Label1.FontSize+15EndSubPrivateSubCommand2_Click()Label1.AutoSize=TrueLabel1

2、.FontBold=TrueEndSubPrivateSubCommand3_Click()Label1.FontUnderline=TrueEndSubPrivateSubCommand4_Click()Label1.FontBold=FalseLabel1.FontUnderline=FalseLabel1.AutoSize=TrueLabel1.FontSize=15EndSub截图：自测习题2程序.PrivateSubCommand1_Click()Label1.Caption="VisualBasic"Text1.Text="程序设计题"E

3、ndSubPrivateSubCommand2_Click()Label1.Caption="程序设计题"Text1.Text="VisualBasic"EndSub截图：自测习题3程序.PrivateSubCommand1_Click()Label1.FontSize=Label1.FontSize/2EndSubPrivateSubCommand2_Click()Label1.Top=Label1.Top+300Label1.Left=Label1.Left+300EndSubPrivateSubForm_Load()Label1.AutoSiz

4、e=TrueLabel1.FontSize=30Label1.Top=300Label1.Left=300EndSub截图：自测习题4程序.PrivateSubCommand1_Click()Label1.Caption="简单的VB程序设计"Form1.Caption="VB学习"EndSubPrivateSubCommand2_Click()Label1.Caption=""Form1.Caption=""EndSubPrivateSubCommand3_Click()EndEndSub截图：自测习题5程序.PrivateSubCommand1_

5、Click()Text1.Text=""Text2.Text=""Label4.Caption=""Text1.SetFocusEndSubPrivateSubCommand2_Click()Label4.Caption=Val(Text1.Text)+Val(Text2.Text)EndSubPrivateSubCommand3_Click()EndEndSub截图：开始界面：运算界面：清除界面：