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

郑州大学VB实验报告书参考答案。。

以下内容均来自百度文库，所以仅供参考。。

不过经亲自测试习题及实验（一）的答案基本正确，除了实验题的3，4小题没有改字形字体颜色什么的。。

实验一

一、选择题

DDBAB,C(CD)DDC,ADDCA

二、填空题

Windows

中断

工具箱

代码

分类

form2.show

有语法错误

错误

事件

结构化

文件名和结构

工程

编写代码

双击任意控件或右健快捷菜单选“代码窗口”

vb的安装文件夹

属性

方法

font

load

对象

三、编程

1-1

Private Sub Command1_Click() Print Sqr(8), 8 ^ (1 / 3)

End Sub

1-2

Private Sub Command2_Click() For i = 100 To 110

Print Sqr(i)

Next i

End Sub

1-3（基本设置在属性窗口完成！）Private Sub Command3_Click() Print "郑州大学在前进!"

End Sub

1-4（基本设置在属性窗口完成！）Private Sub Command4_Click() Label1 = "蓝天、白云、绿水、青山" End Sub

实验二

一

BCBCC,CBBDA,CCCBA,CBDCC 二

form_click()

interval,5000

vbp,frm

top,left,height,width,像素picture

load

locked

font,alignment

gotfocus,lostfocus

属性窗口，代码

三

2-1

Private Sub Command1_Click() Label3 = Text1 * Text2

End Sub

Private Sub Command2_Click() Label3 = Text1 / Text2

End Sub

2-2

Private Sub Command1_Click() Picture1.Visible = True

Picture1 = LoadPicture("C:\Documentsand Settings\All Users\Documents\My Pictures\示例图片\Water lilies.jpg")

End Sub

Private Sub Command2_Click()

Picture1.Visible = True

Picture1 = LoadPicture("C:\Documentsand Settings\All Users\Documents\My Pictures\示例图片\Winter.jpg")

End Sub

Private Sub Command3_Click()

Picture1.Visible = False

End Sub

2-3

Private Sub Command1_Click()

Label3 = Text1 * Text2

End Sub

2-4

Private Sub Command1_Click()

Text2 = Text1

End Sub

Private Sub Command2_Click()

Text1 = ""

Text2 = ""

End Sub

Private Sub Text1_Change()

Command1.Visible = True

Command2.Visible = True

End Sub

2-5

Private Sub Command1_Click()

Timer1.Interval = 500

End Sub

Private Sub Command2_Click()

Timer1.Interval = 0

End Sub

Private 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*y<0

x mod 3=0 or xmod 7=0

x>=10 and x<20

x>="A" and x<="Z"

left(s,3) 或者,mid(s,1,3)

五

3-2

Private Sub Command1_Click()

Dim x As Single

x = Val(Text1)

Print Format(x ^ 2, "##.000"),Format(Sqr(x), "##.000"), Format(x ^ 3, "##.000"), Format(x^ (1 / 3), "##.000")

End Sub