VB的高手帮我做几道题吧！把代码给我，谢谢1、一个物体从一座-查字典问答网

来自李瑞衡的问题

　　VB的高手帮我做几道题吧！把代码给我，谢谢1、一个物体从一座塔高为h（米）的塔顶上自由落下，求落地所需的时间t（秒）。要求：在文本框中输入塔高h，单击“计算”按钮，在“时间”

　　VB的高手帮我做几道题吧！把代码给我，谢谢

　　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=

1回答

2020-09-1320:26

我要回答

提示：回答问题需要登录哦！

提交

李鼎培

　　PrivateSubCommand1_Click()

　　Constg=9.8

　　Text2=Sqr(2*g*Val(Text1.Text))

　　EndSub

　　PrivateSubCommand2_Click()

　　End

　　EndSub

　　PrivateSubForm_Load()

　　Timer1.Interval=100

　　EndSub

　　PrivateSubTimer1_Timer()

　　Randomize

　　Form1.BackColor=RGB(Int(Rnd*256),Int(Rnd*256),Int(Rnd*256))

　　EndSub

　　PrivateSubForm_Load()

　　HScroll1.Max=20

　　HScroll1.Min=1

　　EndSub

　　PrivateSubHScroll1_Change()

　　DimaAsInteger

　　DimresultAsDouble

　　result=1

　　Label1.Caption=HScroll1.Value

　　a=HScroll1.Value

　　Fori=1Toa

　　result=result*i

　　Text1=result

　　EndSub

　　PrivateSubForm_Click()

　　DimiAsSingle,tAsSingle

　　Cls

　　DrawWidth=1

　　t=4*Atn(1)

　　Scale(-t,1)-(t,-1)

　　Line(-t,0)-(t,0)

　　Line(0,-t)-(0,t)

　　Fori=-tTotStep0.01

　　PSet(i,Sin(i))

　　Nexti

　　EndSub

　　不知道你图形的放大系数定为500倍是什么意思

　　5，

　　PrivateSubCommand1_Click()

　　DimaAsSingle

　　DimbAsSingle

　　a=Val(Text1.Text)

　　b=Val(Text2.Text)

　　Text3.Text=1/(1/a+1/b)

　　EndSub

　　PrivateSubCommand2_Click()

　　Text2.Text=""

　　Text1.Text=""

　　EndSub

　　PrivateSubCommand3_Click()

　　End

　　EndSub

　　6，

　　PrivateSubPicture1_Click()

　　Picture1.MoveInt(Rnd*(Form1.Width-Picture.Width)+1),Int(Rnd*(Form1.Height-Picture1.Height)+1)

　　EndSub

　　图像自己加loadpicture

　　PrivateSubCommand1_Click()

　　Dima()AsString

　　a=Split(Text1.Text,",")'以逗号隔开

　　Label1.Caption=bj(a())

　　EndSub

　　PrivateFunctionbj(s()AsString)AsSingle

　　DimmaxAsSingle

　　max=Val(s(0))

　　Fori=1ToUBound(s)

　　IfVal(s(i))>maxThenmax=Val(s(i))

　　bj=max

　　EndFunction

　　PrivateSubCommand2_Click()

　　End

　　EndSub

　　PrivateSubForm_Load()'注意调整窗体的高度

　　ScaleMode=5

　　EndSub

　　PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

　　IfButton=1Then

　　X1=X

　　Y1=Y

　　EndIf

　　Cls

　　DrawWidth=4

　　PSet(X1,Y1)

　　PSet(X1,Y1+0.05)

　　PSet(X1,Y1+0.2)

　　PSet(X1,Y1+0.45)

　　PSet(X1,Y1+0.8)

　　PSet(X1,Y1+1.25)

　　PSet(X1,Y1+1.8)

　　PSet(X1,Y1+2.45)

　　PSet(X1,Y1+3.2)

　　PSet(X1,Y1+4.05)

　　EndSub

2020-09-13 20:28:53

大家都在问