Question

简单的VB程序~~~懂得进~~~帮下忙~~

因为马上就要会考了....这是发的例题~~不会做~~而且老师不讲
请帮下忙~~谢谢~~ 我要完整的代码~~ 要求必须能运行且是对的~~

1.一个物体从一座高塔高为h（米）得塔顶上自由落下，求落地所用的时间t(秒)。
要求：在文本框中输入塔高h，单击“计算”按钮，在“时间”框中显示落地所需时间t的值；单击“退出”按钮退出程序。( 其中t=根号下2h/g，g=9.8)
要求做出的图：
http://freep.cn/p.aspx?u=v20__p_0805262000444484_0.jpg

2.编程实现：程序运行后，窗体颜色每隔0.1秒自动改变一次，颜色随机；单击“结束”按钮，结束程序。
要求做出的图：
http://p14.freep.cn/p.aspx?u=v20_p14_p_0805262001332233_0.jpg

3.编程实现：程序运行后，在图片上每单击一次，图片在窗体的位置就随机变化一次。
要求做出的图：
http://freep.cn/p.aspx?u=v20__p_0805262001544502_0.jpg

4.在文本框中任意输入两个数，单击“比较”按钮后，将其中的最大值显示在下放标签中；单击“清除”按钮清除各项数值。
要求做出的图：
http://freep.cn/p.aspx?u=v20__p_0805262002133445_0.jpg
不想浪费时间的 少跟这废话

Answer 1

很容易做啊 这些

第一题：
Private Sub Command1_Click()
Text2 = Format(Sqr((2 * Val(Text1) / 9.8)), "0.00000000000000")
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
Label1.Caption = "塔高："
Label2.Caption = "时间："
Form1.Caption = "求落地时间"
Command1.Caption = "计算"
Command2.Caption = "退出"
Text1 = ""
Text2 = ""
End Sub

第二题
Private Sub Command1_Click()
End
End Sub

Private Sub Form_Load()
Form1.Caption = "改变背景"
Command1.Caption = "结束"
Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
Randomize
Form1.BackColor = RGB(Int(Rnd * 255), Int(Rnd * 255), Int(Rnd * 255))
End Sub

第三题
Private Sub Command1_Click()
End
End Sub

Private Sub Form_Load()
Form1.Caption = "位置随机变化的图片"
Command1.Caption = "退出"
End Sub
Private Sub Picture1_Click()
Randomize
Picture1.Left = Rnd() * (Form1.Width - Picture1.Width)
Picture1.Top = Rnd() * (Form1.Height - Picture1.Height)
End Sub

第四题
Private Sub Command1_Click()
If Text1 > Text2 Then
Text3 = Text1
Else
Text3 = Text2
End If
End Sub

Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""

End Sub

Private Sub Form_Load()
Label1.Caption = "a="
Label2.Caption = "b="
Label3.Caption = "最大数="
Form1.Caption = "求最大数"
Command1.Caption = "比较"
Command2.Caption = "清除"
Text1 = ""
Text2 = ""
Text3 = ""
Text3.Locked = True
Text3.BackColor = &H8000000F
End Sub

Answer 2

容易，不想浪费时间，有空再说。

Answer 3

1：
Private Sub Command1_Click()
Label1.Caption = Sqr(2 * Text1.Text / 9.8)
End Sub
2：

Private Sub Form_Load()
Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
Randomize

Form1.BackColor = RGB(Rnd() * 255, Rnd() * 255, Rnd() * 255)
End Sub
3：
Private Sub Picture1_Click()

Randomize

Picture1.Left = Rnd() * (Form1.Width - Picture1.Width)
Picture1.Top = Rnd() * (Form1.Height - Picture1.Height)
End Sub
4：
Private Sub Command1_Click()
If Text1.Text > Text2.Text Then
Text3.Text = Text1.Text
Else
Text3.Text = Text2.Text
End If
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub