郑州大学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
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
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()自学vb推荐书籍
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
3-3
Private Sub Command1_Click()
Dim x As Integer
x = Int(Rnd * 900 + 100)
Text1 = Trim(Str(x))
Text2 = Right(Text1, 1) + Mid(Text1, 2, 1)+ Left(Text1, 1)

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。