实验1-1题目：建立一个登录窗口，要求输入口令。要求：输入的口令参文本框中不可见，以“*”替代，单击“确定”按钮时，口令在消息框（MsgBox）中出现；单击“退出”按钮时，结束运行。对象属性名称属性值窗体1Caption登录NameLoginBorderStyle1-FixedSingle标签1NamelblPasswordAutosizeTrueCaption输入口令Font宋体，四号，粗体文本框1NametxtPasswordText空Passwordchar*命令按钮1NamecmdOkCaption确定DefaultTrue命令按钮2NamecmdExitcaption退出代码：PrivateSubcmdExit_Click()EndEndSubPrivateSubcmdOk_Click()MsbBox“你输入的口令为：”&txtPassword.TextEndSub保存：窗体保存为”1-1Login.frm”,工程保存为“1-1Login.vbp”实验1-4题目：创建一个有趣的“欢迎界面”。实验步骤：属性设置：控件名称属性名称属性值窗体1NamefrmGamePicture插入一幅背景图片标签1Caption欢迎大家来参加运动会Font华文彩云、粗斜体、小初ForeColor在调色板中选红色BackStyle0定时器1Interval20添加程序代码OptionExplicitPrivateSubTimer_Timer()Label1.MoveLabel1.Left+20IfLabel1.Left>frmGame.WidthThenLabel1.Left=-Label1.WidthEndIfEndIf保存：窗体保存为“1-4运动会.frm”，工程保存为“1-4运动会.vbp”实验2-1题目：将标签框中的文字按指定字体和字形效果显示。要求：字体可以变成黑体、宋体和华文行楷等，字形效果有加粗、斜体、下划线或删除线，以及相互叠加等。PrivateSubChkbold_Click()lblname.FontBold=Notlblname.FontBoldEndSubPrivateSubChkitalic_Click()lblname.FontItalic=Notlblname.FontItalicEndSubPrivateSubChkline_Click()lblname.FontUnderline=Notlblname.FontUnderlineEndSubPrivateSubChkstrikethru_Click()lblname.FontStrikethru=Notlblname.FontStrikethruEndSubPrivateSubCmdExit_Click()EndEndSubPrivateSubOption1_Click()lblname.FontName="黑体"EndSubPrivateSubOption2_Click()lblname.FontName="宋体"EndSubPrivateSubOption3_Click()lblname.FontName="华文行楷"EndSub实验10-1题目：求0-10之间的任意一个数的阶乘。实验2-4题目：制作计时器应用程序。要求：时间能像电子表一样每秒发生一次变化，能记录时间长度（用秒表示）。分析：需要通过定时器控件Timer来实现题目要求。取出系统时间用Time函数。步骤：控件名称属性名称属性值标签1caption(清空)Borderstyle1标签2caption(清空)Borderstyle1命令按钮1Caption计时开始Style1picture加载一幅图片命令按钮2Caption时间到Style1picture加载一幅图片定时器Interval1000enabledfalse代码：OptionExplicitDimtAsIntegerPrivateSubCommand1_Click()T=0Timer1.Enabled=TrueEndsubPrivateSubCommand2_Click()Timer1.Enabled=FalseLabel1.Caption=TimeLabel2.Caption=t&“”””EndsubPrivateSubTimer1_Timer()T=t+1Label1.Caption=TimeLabel2.Caption=t&“”””EndSub实验3-1题目：建立一个窗体菜单，测试快捷键和访