1、实验 AA1Private Sub Command1_Click()Label3 = Text1End SubA2Private Sub Form_Load()Timer1.Interval = 0End SubPrivate Sub Command1_Click() 自动Timer1.Interval = 200End SubPrivate Sub Command2_Click() 手动Timer1.Interval = 0Call MyMoveEnd SubPrivate Sub Timer1_Timer()Call MyMoveEnd SubSub MyMove()Label1.Move
2、 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(“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.P
3、rint 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 = “Text2.SetFocusElsey = n / 2 - mIf y 0 ThenText4 = Format(-b + Sqr(de) / t, “0.00“)Text5 = Format(-b - Sqr(de) / t, “0.00“)ElseTex
4、t4 = Format(-b / t, “0.00“) String(2 * i - 1, Trim(Str(i)Next iEnd SubD2Private Sub Form_Click()For i = 1 To 10 Step 1Print Tab(i); String(20 - 2 * i), Chr(64 + i)Next iEnd SubD3Private Sub Command1_Click()Dim s!, t!, i s, i; “项“End SubD4Private Sub Command1_Click()Dim n piEnd SubD5Private Sub Form_Click()Dim s!, t!, i!, a%, n%a = Int(Rnd * 9 + 1)n = Int(Rnd * 6 + 5)t = 0: s = 0Print “a=“; a, “n=“; nFor i = 1 To nt = t * 10 + as = s + tPrint t;Next iPrintPrint “s=“; sEnd SubD6Private Sub Command1_Click()
