资源描述：
《vb实验报告册答案及考试大纲》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、你实验一一、选择题DDBAB,CC(D)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"郑州大学在
2、前进!"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()L
3、abel3=Text1/Text2EndSub2-2PrivateSubCommand1_Click()Picture1.Visible=TruePicture1=LoadPicture("C:DocumentsandSettingsAllUsersDocumentsMyPictures示例图片Waterlilies.jpg")EndSubPrivateSubCommand2_Click()Picture1.Visible=TruePicture1=LoadPicture("C:DocumentsandSettingsAllUsersDocumentsMyPictures
4、示例图片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-5P
5、rivateSubCommand1_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
6、+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-3Pri
7、vateSubCommand1_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(Tex
