郑州大学VB实验报告书参考答案以下内容均来自百度文库，所以仅供参考。。不过经亲自测试习题及实验（一）的答案基本正确，除了实验题的3，4小题没有改字形字体颜色什么的。。实验一一、选择题DDBAB,C(CD)DDC,ADDCA二、填空题Windows中断工具箱代码分类form2.show有语法错误错误事件结构化文件名和结构工程编写代码双击任意控件或右健快捷菜单选“代码窗口”vb的安装文件夹属性方法fontload对象三、编程1-1PrivateSubCommand1_Click()PrintSqr(8),8^(1/3)EndSub1-2PrivateSubCommand2_Click()Fori=100To110PrintSqr(i)NextiEndSub1-3（基本设置在属性窗口完成！）PrivateSubCommand3_Click()Print"郑州大学在前进!"EndSub1-4（基本设置在属性窗口完成！）PrivateSubCommand4_Click()Label1="蓝天、白云、绿水、青山"EndSub实验二一BCBCC,CBBDA,CCCBA,CBDCC二form_click()interval,5000vbp,frmtop,left,height,width,像素pictureloadlockedfont,alignmentgotfocus,lostfocus属性窗口，代码三2-1PrivateSubCommand1_Click()Label3=Text1*Text2EndSubPrivateSubCommand2_Click()Label3=Text1/Text2EndSub2-2PrivateSubCommand1_Click()Picture1.Visible=TruePicture1=LoadPicture("C:\DocumentsandSettings\AllUsers\Documents\MyPictures\示例图片\Waterlilies.jpg")EndSubPrivateSubCommand2_Click()Picture1.Visible=TruePicture1=LoadPicture("C:\DocumentsandSettings\AllUsers\Documents\MyPictures\示例图片\Winter.jpg")EndSubPrivateSubCommand3_Click()Picture1.Visible=FalseEndSub2-3PrivateSubCommand1_Click()Label3=Text1*Text2EndSub2-4PrivateSubCommand1_Click()Text2=Text1EndSubPrivateSubCommand2_Click()Text1=""Text2=""EndSubPrivateSubText1_Change()Command1.Visible=TrueCommand2.Visible=TrueEndSub2-5PrivateSubCommand1_Click()Timer1.Interval=500EndSubPrivateSubCommand2_Click()Timer1.Interval=0EndSubPrivateSubTimer1_Timer()Image1.Left=Int(Rnd*(Form1.ScaleWidth-Image1.Width))Image1.Top=Int(Rnd*(Form1.ScaleHeight-Image1.Height))EndSub实验三一A(BC)(BC)AA,A(BCD)DBB,B二3，4，5，6，8，10，11，12，14，15，16三abs(x+y)(3+x*y)^2(-b+sqr(b^2-4*a*c)/(2*a)sin(30*3.14/180)+exp(2)四int(rnd*71+20)x*y<0xmod3=0orxmod7=0x>=10andx<20x>="A"andx<="Z"left(s,3)或者,mid(s,1,3)五3-2PrivateSubCommand1_Click()DimxAsSinglex=Val(Text1)PrintFormat(x^2,"##.000"),Format(Sqr(x),"##.000"),Format(x^3,"##.000"),Format(x^(1/3),"##.000")EndSub3-3PrivateSubCommand1_Click()DimxAsIntegerx=Int(Rnd*900+100)Text1=Trim(Str(x))Text2=Right(Text1,1)+Mid(Text1,2,1)+Left(Text1,1)EndSub3-4PrivateSubCommand1_Click()Dimmax,minAsIntegermin=Val(Text1)max=Val(Text2)RandomizePrintInt(Rnd*(max-min+1)+min),Int(Rnd*(max-min+1)+min),Int(Rnd*(max-min+1)+min)EndSub3-5PrivateSubCommand1_Click()Text1=DateText2=TimeText3=WeekdayName(Weekday(Date))EndSub实验四一CDCDA,DBBAC二(1)48.71E-01,-4.8712(2)关系，逻辑，数值(3)900，100，mid(a,2,1),c(4)m1,2,3printm&"月是第二季度"endselect三(1)x=4y=13(2)10四4-1PrivateSubCommand1_Click()Dimnum,a1,a2,a3AsSinglenum=Val(Text1)*180/3.14a1=Int(num)num=num-a1a2=Int(num*60)num=num*60-a2a3=Format(num*60,"##.000")Printa1,a2,a3EndSub4-2PrivateSubCommand1_Click()DimyAsIntegery=Val(Text1)If(yMod400=0OryMod4=0AndyMod100<>0)ThenMsgBoxy&"是闰年"ElseMsgBoxy&"不是闰年"EndIfEndSub4-3PrivateSubCommand1_Click()Dimx,y,z,tAsIntegerx=Val(InputBox("inputx:"))y=Val(InputBox("inputy:"))z=Val(InputBox("inputz:"))Ifx>yThent=x:x=y:y=tIfy>zThent=y:y=z:z=tIfx>yThent=x:x=y:y=tEndIfPrintx,y,zEndSub4-4PrivateSubCommand1_Click()DimnettimeAsInteger,moneyAsSinglenettime=Val(InputBox("每月上网时数：","上网费用"))Ifnettime=-1Thenmoney=0ElseIfnettime<10T...