µÚ11Â¥

 

ÇëÄã˵Çå³þһЩ,ÄãÊÇÇóX,»¹ÊÇÇóABCD

	µÚ12Â¥

 

È·ÇÐÒ»µã£¬ÊÇÇóÈý¸öËæ»úÊý A£¬B£¬C ¼° D=4*X-£¨A+B+C£©

Private Sub Command1_Click()
   Randomize
   X=Val(text1.text)
   A=int(99*Rnd+0)
   B=int(99*Rnd+0)
   C=int(99*Rnd+0)
   D=4*X-(A+B+C)
   Text5.Text=A
   Text2.Text=B
   Text3.Text=C
   Text4.Text=D
    X=(A+B+C+D)/4
    print X
    CurrentX=2100:CurrentY=1900
    print X;"=";"(";A;"+";B;"+";C;"+";"(";D;"))/4"
End Sub

Private Sub Command2_Click()
  Text1.Text="    "
  Text2.Text="    "
  Text3.Text="    "
  Text4.Text="    "
  Text5.Text="    "
  Cls
End Sub

Private Sub Command3_Click()
  End
End Sub