1、目录实验 A.1A1 .1A2 .1A3 .1A4 .2A5 .2实验 B.2B1 .2B2 .3B3 .4B4 .4B5 .4B6 .4B7 .5B8 .5实验 C.5C1 .5C2 .6C3 .6C4 .7C5 .7C6 .8C7 .9C8 .9实验 D.10D1 .10D2 .10D3 .10D4 .11D5 .11D6 .11D7 .12D8 .12D9 .12实验 E .13E1 .13E2 .13E3 .14E4 .14E5 .15E6 .16E7 .16E8 .17E9 .18E10 .18实验 F .19F1 .19F2 .19F3 .20F4 .20F5 .21F6 .22F
2、7 .22F8 .23实验 G.23G1 .23G2 .24G3 .24G4 .25G5 .26G6 .26G7 .27G8 .27G9 .27G10 .28实验 H.30H1 .30H2 .31H3 .31H4 .31H5 .33H6 .36H7 .37实验 AA 1Private Sub Command1_Click()Label3 = Text1End SubA 2Private Sub Form_Load()Timer1.Interval = 0End SubPrivate Sub Command1_Click() 自动Timer1.Interval = 200End SubPriva
3、te Sub Command2_Click() 手动Timer1.Interval = 0Call MyMoveEnd SubPrivate Sub Timer1_Timer()Call MyMoveEnd SubSub MyMove()Label1.Move Label1.Left - 50If Label1.Left 150 Theny = 150End IfPrint yEnd SubC3Private Sub Command1_Click()Dim x!, y!, z!x = InputBox(“input x“)y = InputBox(“input y“)z = InputBox(
4、“input z“)Print “ x y z“Print “ 排序前“; x; “ “; y; “ “; zIf x a(i + 1) Thenz = a(i + 1)a(i + 1) = a(i)a(i) = zEnd IfNext iPicture2.Print a(0)Picture2.Print a(1)Picture2.Print a(2)End SubC5Private Sub Text2_LostFocus()Dim m%, n%, y%m = Val(Text1)n = Val(Text2)If n Mod 2 0 ThenMsgBox (“脚数必定为偶数“)Text2 =
5、“Text2.SetFocusElsey = n / 2 - mIf y 0 ThenText4 = Format(-b + Sqr(de) / t, “0.00“)Text5 = Format(-b - Sqr(de) / t, “0.00“)ElseText4 = Format(-b / t, “0.00“) & “+“ & Format(Sqr(Abs(de) / t, “0.00“) & “i“Text5 = Format(-b / t, “0.00“) & “-“ & Format(Sqr(Abs(de) / t, “0.00“) & “i“End IfEnd SubPrivate Sub Command2_Click()Text1 = “Text2 = “Text3 = “Text4 = “Text5 = “End SubC7Private Sub Text3_LostFocus()Select Case Trim(Text3)Case “+“Text4 = Val(Text1) + Val(Text2)
