资源描述：
《vb程序设计教程实验指导与习题解答上机答案》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、自测1程序代码PrivateSubCommand1_Click()Label1.FontSize=Label1.FontSize+3EndSubPrivateSubCommand2_Click()Label1.FontBold=TrueEndSubPrivateSubCommand3_Click()Label1.FontUnderline=TrueEndSubPrivateSubCommand4_Click()Label1.FontSize=10Label1.FontBold=FalseLabel1.FontUnderline=FalseEndSub初始窗口：单机放大之后窗口：单机
2、下划线之后窗口：单击加粗之后窗口：单击还原之后窗口：自测2程序代码PrivateSubCommand1_Click()Label1="visualbasic"Text1="程序设计题"EndSubPrivateSubCommand2_Click()Text1="visualbasic"Label1="程序设计题"EndSub初始窗口：单击显示之后窗口：单击交换之后的窗口：自测题3PrivateSubCommand1_Click()Label1.FontSize=Label1.FontSize*(0.5)EndSubPrivateSubCommand2_Click()Label1.T
3、op=Label1.Top+30Label1.Width=Label1.Width+20Label1.Alignment=1EndSub初始窗口：单击缩小两倍之后的窗口：单击向右下角移动之后的窗口：自测题4程序代码PrivateSubCommand1_Click()Form1.Caption="VB学习"Print"简单的VB程序设计"EndSubPrivateSubCommand2_Click()ClsEndSubPrivateSubCommand3_Click()EndEndSubPrivateSubCommand3_Click()EndEndSub初始化窗口：单击显示之后的窗
4、口：单击清除之后的窗口：单击退出之后的窗口：自测题5程序代码PrivateSubCommand1_Click()Text1.Text=""Text2.Text=""EndSubPrivateSubCommand2_Click()Text3.Text=Val(Text1.Text)+Val(Text2.Text)EndSubPrivateSubCommand3_Click()EndEndSub初始化窗口：单击运算之后窗口：单击清除之后的窗口：单击退出之后的窗口：自测练习1PrivateSubCommand1_Click()Dima$a=Text1.TextLabel1.Caption
5、=Left(a,2)EndSubPrivateSubCommand2_Click()a=Text1.TextLabel2.Caption=Right(a,2)EndSubPrivateSubCommand3_Click()Text1.Text=Label1.Caption&Label2.CaptionEndSub初始窗口界面输入字符串截取前两个字符截取后两个字符字符串连接自测练习2PrivateSubForm_Click()Dima%,b%,c%,d%,e%,f%,g%,h%,i%,j%,k%,l%a=7349e=aMod10'个位d=(a10)Mod10'十位c=(a100)
6、Mod10'百位b=a1000'千位i=(e+7)Mod10'个位h=(d+7)Mod10'十位g=(c+7)Mod10'百位f=(b+7)Mod10'千位j=ii=f'交换后的个位f=j'交换后的千位k=hh=g'交换后的十位g=k'交换后的百位l=f*1000+g*100+h*10+iText1.Visible=FalsePrint"加密前的4位整数是7439";(Chr(10));"加密后的结果是";lEndSub初始界面单击窗体运行后的界面自测练习1PrivateSubForm_Click()Dima%,b%,c%,d%,e%,f!a=Val(InputBox("输入第一
7、个数","输入一个数",8))b=Val(InputBox("输入第一个数","输入一个数",7))c=a+bd=a-be=a*bf=a/bf=Fix(f*100+0.5)/100MsgBox"x+y="&c&Chr(10)&"x-y="&d&Chr(10)&"x*y="&e&Chr(10)&"x/y="&f,,"输出的结果"EndSub自测练习2PrivateSubForm_Click()Dima%,b%,c%,d%,e%,f!a=Val(InputBox("输入第
