郑州大学VB实验报告书_参考_答案.docxVIP

郑州大学VB实验报告书 参考 答案。。以下内容均来自百度文库，所以仅供参考。。不过经亲自测试 习题及实验（一）的答案基本正确，除了实验题的3，4小题没有改字形字体颜色什么的。。?实验一一、选择题DDBAB,C(CD)DDC,ADDCA二、填空题Windows中断工具箱代码分类form2.show有语法错误错误事件结构化文件名和结构工程编写代码双击任意控件或右健快捷菜单选“代码窗口”vb的安装文件夹属性方法fontload对象三、编程1-1Private Sub Command1_Click()Print Sqr(8), 8 ^ (1 / 3)End Sub1-2Private Sub Command2_Click()For i = 100 To 110?? Print Sqr(i)Next iEnd Sub1-3（基本设置在属性窗口完成！）Private Sub Command3_Click()Print 郑州大学在前进!End Sub1-4（基本设置在属性窗口完成！）Private Sub Command4_Click()Label1 = 蓝天、白云、绿水、青山End Sub实验二一BCBCC,CBBDA,CCCBA,CBDCC二form_click()interval,5000vbp,frmtop,left,height,width,像素pictureloadlockedfont,alignmentgotfocus,lostfocus属性窗口，代码三2-1Private Sub Command1_Click()Label3 = Text1 * Text2End SubPrivate Sub Command2_Click()Label3 = Text1 / Text2End Sub2-2Private Sub Command1_Click()Picture1.Visible = TruePicture1 = LoadPicture(C:\Documentsand Settings\All Users\Documents\My Pictures\示例图片\Water lilies.jpg)End SubPrivate Sub Command2_Click()Picture1.Visible = TruePicture1 = LoadPicture(C:\Documentsand Settings\All Users\Documents\My Pictures\示例图片\Winter.jpg)End SubPrivate Sub Command3_Click()Picture1.Visible = FalseEnd Sub2-3Private Sub Command1_Click()Label3 = Text1 * Text2End Sub2-4Private Sub Command1_Click()Text2 = Text1End SubPrivate Sub Command2_Click()Text1 = Text2 = End SubPrivate Sub Text1_Change()Command1.Visible = TrueCommand2.Visible = TrueEnd Sub2-5Private Sub Command1_Click()Timer1.Interval = 500End SubPrivate Sub Command2_Click()Timer1.Interval = 0End SubPrivate Sub Timer1_Timer()Image1.Left = Int(Rnd * (Form1.ScaleWidth -Image1.Width))Image1.Top = Int(Rnd * (Form1.ScaleHeight -Image1.Height))End Sub实验三一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*y0x mod 3=0 or xmod 7=0x=10 and x20x=A and x=Zleft(s,3)?或者,mid(s,1,3)五3-2Private Sub Command1_Click()Dim x As Singlex = Val(Text1)Print Format(x ^ 2, ##.000),Format(Sqr(x), ##.000), Format(x ^ 3, ##.000), Format(x^ (1 / 3), ##.000)