UC知道VB的高手帮我做几道题吧！把代码给我，谢谢
来源：百度知道 编辑：UC知道 时间：2024/07/02 04:10:20
1、一个物体从一座塔高为h（米）的塔顶上自由落下，求落地所需的时间t（秒）。要求：在文本框中输入塔高h，单击“计算”按钮，在“时间”框中显示落地所需时间t的值；单击“退出”按钮退出程序。
（提示： ，其中g=9.8 ）。
2、编程实现：程序运行后，窗体背景色每隔0.1秒自动改变一次，颜色随机；单击“结束”按钮，结束程序。
3，编程求1*2*3*…*X (1≤X≤20)。X的值由水平滚动条的当前值所确定。移动水平滚动条可以改变X的值，累乘结果显示在“结果”框中。 （
4、在窗体的恰当位置单击，画出six(x)在[0,2π]区间的图像。画笔的宽度为1，图形的放大系数定为500倍；画图前先清除窗体中的图形。
5、求并联电阻R的值。要求：在两个文本框中分别输入电阻R1、R2的值，单击“计算”按钮在“R”框中显示并联电阻R的值；单击“清除”按钮清除数据；单击“退出”按钮退出程序。
（提示： ）
6、编程实现：程序运行后，在图片上每单击一次，图片在窗体中的位置就随机变化一次。
7、在文本框中任意输入两个数，单击“比较”按钮后，将其中的最大值显示在下方标签中；单击“清除”按钮清除各项数值。
8、画出一质点自由下落的轨迹。要求：质点下落的起始位置为鼠标单击处，共画10个点，g取10m/s2；画笔的宽度即DrawWidth属性值设为4，并将图形的放大系数定为5倍；画图前先清除窗体中的图形。提示：y=
（提示： ，其中g=9.8 ）。
2、编程实现：程序运行后，窗体背景色每隔0.1秒自动改变一次，颜色随机；单击“结束”按钮，结束程序。
3，编程求1*2*3*…*X (1≤X≤20)。X的值由水平滚动条的当前值所确定。移动水平滚动条可以改变X的值，累乘结果显示在“结果”框中。 （
4、在窗体的恰当位置单击，画出six(x)在[0,2π]区间的图像。画笔的宽度为1，图形的放大系数定为500倍；画图前先清除窗体中的图形。
5、求并联电阻R的值。要求：在两个文本框中分别输入电阻R1、R2的值，单击“计算”按钮在“R”框中显示并联电阻R的值；单击“清除”按钮清除数据；单击“退出”按钮退出程序。
（提示： ）
6、编程实现：程序运行后，在图片上每单击一次，图片在窗体中的位置就随机变化一次。
7、在文本框中任意输入两个数，单击“比较”按钮后，将其中的最大值显示在下方标签中；单击“清除”按钮清除各项数值。
8、画出一质点自由下落的轨迹。要求：质点下落的起始位置为鼠标单击处，共画10个点，g取10m/s2；画笔的宽度即DrawWidth属性值设为4，并将图形的放大系数定为5倍；画图前先清除窗体中的图形。提示：y=
1,
Private Sub Command1_Click()
Const g = 9.8
Text2 = Sqr(2 * g * Val(Text1.Text))
End Sub
Private Sub Command2_Click()
End
End Sub
2,
Private Sub Form_Load()
Timer1.Interval = 100
End Sub
Private Sub Timer1_Timer()
Randomize
Form1.BackColor = RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256))
End Sub
3,
Private Sub Form_Load()
HScroll1.Max = 20
HScroll1.Min = 1
End Sub
Private Sub HScroll1_Change()
Dim a As Integer
Dim result As Double
result = 1
Label1.Caption = HScroll1.Value
a = HScroll1.Value
For i = 1 To a
result = result * i
Next
Text1 = result
End Sub
4,
Private Sub Form_Click()
Dim i As Single, t As Single
Cls
DrawWidth = 1
t = 4 * Atn(1)
Scale (-t, 1)-(t, -1)
Line (-t, 0)-(t, 0)
Line (0, -t)-(0, t)
For i = -t To t Step 0.01
PSet (