1,
PrivateSubCommand1_Click()
Constg=9.8
Text2=Sqr(2*g*Val(Text1.Text))
EndSub
PrivateSubCommand2_Click()
End
EndSub
2,
PrivateSubForm_Load()
Timer1.Interval=100
EndSub
PrivateSubTimer1_Timer()
Randomize
Form1.BackColor=RGB(Int(Rnd*256),Int(Rnd*256),Int(Rnd*256))
EndSub
3,
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
Next
Text1=result
EndSub
4,
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
7,
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))
Next
bj=max
EndFunction
PrivateSubCommand2_Click()
End
EndSub
8,
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