大学vb课后习题代码

《大学vb课后习题代码》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、A．1PrivateSubCommand1_Click() Label3=Text1EndSubA．2PrivateSubForm_Load()   Timer1.Interval=0EndSubPrivateSubCommand1_Click()  '自动   Timer1.Interval=200EndSubPrivateSubCommand2_Click() '手动 Timer1.Interval=0 CallMyMoveEndSubPrivateSubTimer1_Timer()   CallMyMoveEndSubSubMyMove()  Label1.M

2、oveLabel1.Left-50  IfLabel1.Left<0ThenLabel1.Left=Form1.WidthEndSubA．3PrivateSubForm_Click() Text1=Val(Text1)+1EndSubPrivateSubForm_Load() Text1=0EndSubA．4PrivateSubForm_Click()  Caption="单击窗体，改变图片"  Picture=LoadPicture(App.Path+"_015.bmp")  Print"欢迎使用VB"EndSubPrivateSubForm_DblClick

3、()  Cls  Caption="双击窗体，卸去图片"  Picture=LoadPicture("")  'EndSubPrivateSubForm_Load()  Caption="装入窗体"  Picture=LoadPicture(App.Path+"_016.bmp")  Print"装入图"EndSubPrivateSubForm_Resize()    '该事件的作用窗体始终与图一样大  'Caption="窗体大小不变"  'Form1.Width=260*16      '260是Tongji-2.bmp图的宽度，象素单位  'Form1.H

4、eight=260*16+200 '260是图的高度，象素单位，200是窗体的标题栏高度EndSubA．5SubCommand1_Click()  Text1.FontName="隶书"  Text1.FontSize=25EndSubSubCommand2_Click() Text2.Text=Text1.SelText Text2.FontName=Text1.FontName Text2.FontSize=Text1.FontSizeEndSubB．1PrivateSubCommand1_Click() Text2=Format(5/9*(Val(Text1)

5、-32),"0.00")EndSubPrivateSubCommand2_Click()  Text1=Format(9/5*Val(Text2)+32,"0.00")EndSub或PrivateSubCommand1_Click() Dimf!,c!                 '声明两个变量 f=Val(Text1) c=5/9*(f-32) Text2=Format(c,"0.00")  '保留两位小数EndSubPrivateSubCommand2_Click() Dimff!,cc!                 '声明两个变量 cc=Val(Tex

6、t2) ff=9/5*cc+32 Text1=Format(ff,"0.00")  '保留两位小数EndSubB．2PrivateSubCommand1_Click() Label2=Format(Val(Text1)*Val(Text1)*3.14,"0.00")EndSubPrivateSubCommand2_Click() Label3=Format(Val(Text1)*3.14*2,"0.00")EndSubPrivateSubText1_LostFocus() IfNotIsNumeric(Text1.Text)Then    MsgBox"输入有非数字

7、字符，请重新输入",,"警告"    Text1.Text=""    Text1.SetFocus EndIfEndSub或PrivateSubCommand1_Click() Label2=Format(Val(Text1)*Val(Text1)*3.14,"0.00")EndSubPrivateSubCommand2_Click() Label3=Format(Val(Text1)*3.14*2,"0.00")EndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger) IfKeyAscii=13Then   IfNo