VisualBasic程序设计—实验报告册-参考答案

实验一VERSION5.00BeginVB.FormForm1Caption=Form1ClientHeight=3195ClientLeft=60ClientTop=345ClientWidth=4680LinkTopic=Form1ScaleHeight=3195ScaleWidth=4680StartUpPosition=3'窗口缺省BeginVB.CommandButtonCommand1Caption=Command1Height=375Left=2640TabIndex=0Top=2400Width=1575EndEndAttributeVB_Name=Form1AttributeVB_GlobalNameSpace=FalseAttributeVB_Creatable=FalseAttributeVB_PredeclaredId=TrueAttributeVB_Exposed=FalsePrivateSubCommand1_Click()PrintSqr(8),8^(1/3)EndSubVERSION5.00BeginVB.FormForm1Caption=Form1ClientHeight=3195ClientLeft=60ClientTop=345ClientWidth=4680LinkTopic=Form1ScaleHeight=3195ScaleWidth=4680StartUpPosition=3'窗口缺省BeginVB.CommandButtonCommand1Caption=Command1Height=495Left=3720TabIndex=0Top=2640Width=855EndEndAttributeVB_Name=Form1AttributeVB_GlobalNameSpace=FalseAttributeVB_Creatable=FalseAttributeVB_PredeclaredId=TrueAttributeVB_Exposed=FalsePrivateSubCommand1_Click()Dimi%Fori=100To110Printi,i^(1/2)NextEndSubVERSION5.00BeginVB.FormForm1AutoRedraw=-1'TrueCaption=Form1ClientHeight=3195ClientLeft=60ClientTop=345ClientWidth=4680BeginPropertyFontName=楷体_GB2312Size=21.75Charset=134Weight=400Underline=0'FalseItalic=0'FalseStrikethrough=0'FalseEndPropertyForeColor=&H000000FF&LinkTopic=Form1ScaleHeight=3195ScaleWidth=4680StartUpPosition=3'窗口缺省EndAttributeVB_Name=Form1AttributeVB_GlobalNameSpace=FalseAttributeVB_Creatable=FalseAttributeVB_PredeclaredId=TrueAttributeVB_Exposed=FalsePrivateSubForm_Load()Print:PrintPrint郑州大学在前进！EndSubVERSION5.00BeginVB.FormForm1Caption=Form1ClientHeight=3780ClientLeft=60ClientTop=345ClientWidth=6285LinkTopic=Form1ScaleHeight=3780ScaleWidth=6285StartUpPosition=3'窗口缺省BeginVB.LabelLabel1Caption=蓝天、白云、绿水、青山BeginPropertyFontName=宋体Size=21.75Charset=134Weight=400Underline=0'FalseItalic=0'FalseStrikethrough=0'FalseEndPropertyForeColor=&H00FF0000&Height=975Left=600TabIndex=0Top=1080Width=4935EndEndAttributeVB_Name=Form1AttributeVB_GlobalNameSpace=FalseAttributeVB_Creatable=FalseAttributeVB_PredeclaredId=TrueAttributeVB_Exposed=False实验2VERSION5.00BeginVB.FormForm1Caption=Form1ClientHeight=3090ClientLeft=60ClientTop=450ClientWidth=3615BeginPropertyFontName=宋体Size=12Charset=134Weight=700Underline=0'FalseItalic=0'FalseStrikethrough=0'FalseEndPropertyLinkTopic=Form1ScaleHeight=3090ScaleWidth=3615StartUpPosition=3'窗口缺省BeginVB.CommandButtonCommand2Caption=商Height=375Left=1920TabIndex=4Top=1680Width=975EndBeginVB.CommandButtonCommand1Caption=乘积Height=375Left=600TabIndex=3Top=1680Width=975EndBeginVB.TextBoxText2Height=375Left=1920TabIndex=2Top=840Width=1095EndBeginVB.TextBoxText1Height=375Left=480TabIndex=1Top=840Width=1095EndBeginVB.LabelLabel3BorderStyle=1'FixedSingleCaption=Label3Height=375Left=2040TabIndex=6Top=2400Width=975EndBeginVB.LabelLabel2Caption=计算结果为：Height=375Left=480TabIndex=5Top=2400Width=1575EndBeginVB.LabelLabel1AutoSize=-1'TrueCaption=请输入两个数：Height=240Left=960TabIndex=0Top=360Width=1785EndEndAttributeVB_Name=Form1AttributeVB_GlobalNameSpace=FalseAttributeVB_Creatable=FalseAttributeVB_PredeclaredId=TrueAttributeVB_Exposed=FalsePrivateSubCommand1_Click()Label3=Val(Text1)*Val(Text2)EndSubPrivateSubCommand2_Click()Label3=Val(Text1)/Val(Text2)EndSubVERSION5.00BeginVB.FormForm1Caption=Form1ClientHeight=3090ClientLeft=60ClientTop=450ClientWidth=5490BeginPropertyFontName=宋体Size=12Charset=134Weight=700Underline=0'FalseItalic=0'FalseStrikethrough=0'FalseEndPropertyLinkTopic=Form1ScaleHeight=3090ScaleWidth=5490StartUpPosition=3'窗口缺省BeginVB.CommandButtonCommand3Caption=隐藏Height=375Left=4080TabIndex=3Top=2040Width=975EndBeginVB.CommandButtonCommand2Caption=图片2Height=375Left=4080TabIndex=2Top=1320Width=975EndBeginVB.CommandButtonCommand1Caption=图片1Height=375Left=4080TabIndex=1Top=600Width=975EndBeginVB.PictureBoxPicture1AutoSize=-1'TrueBeginPropertyFontName=宋体Size=9Charset=134Weight=400Underline=0'FalseItalic=0'FalseStrikethrough=0'FalseEndPropertyHeight=1935Left=600ScaleHeight=1875ScaleWidth=2715TabIndex=0Top=480Width=2775EndEndAttributeVB_Name=Form1AttributeVB_GlobalNameSpace=FalseAttributeVB_Creatable=FalseAttributeVB_PredeclaredId=TrueAttributeVB_Exposed=FalsePrivateSubCommand1_Click()Picture1.Picture=LoadPicture(d:\tu1.jpg)EndSubPrivateSubCommand2_Click()Picture1.Picture=LoadPicture(d:\tu2.jpg)EndSubPrivateSubCommand3_Click()Picture1.Visible=FalseEndSubVERSION5.00BeginVB.FormForm1Caption=收款机ClientHeight=2730ClientLeft=60ClientTop=450ClientWidth=4680BeginPropertyFontName=宋体Size=12Charset=134Weight=700Underline=0'FalseItalic=0'FalseStrikethrough=0'FalseEndPropertyLinkTopic=Form1ScaleHeight=2730ScaleWidth=4680StartUpPosition=3'窗口缺省BeginVB.CommandButtonCommand1Caption=总价为Height=375Left=600TabIndex=4Top=1920Width=1695EndBeginVB.TextBoxText2Height=495Left=3000TabIndex=3Top=960Width=1335EndBeginVB.TextBoxText1Height=495Left=3000TabIndex=2Top=240Width=1335EndBeginVB.LabelLabel3Alignment=2'CenterBorderStyle=1'FixedSingleHeight=495Left=2760TabIndex=5Top=1920Width=1455EndBeginVB.LabelLabel2Alignment=2'CenterCaption=货物的单价（元）：Height=375Left=360TabIndex=1Top=1080Width=2295EndBeginVB.LabelLabel1Alignmen