เหอ ๆ มีคนหลงมาจ้างตูเขียนโปรแกมให้ด้วยฟ่ะ ==" หึหึหึ เดี๋ยวพลาดเลยเอามาลงไว้งั้นไม่มีไรหรอก
Dim a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, x As Integer
Private Sub Command1_Click()
Label36.Caption = a1 + a2 + a3 + a4 + a5 + a6 + a7 + a8 + a9 + a10 + a11 + a12 + a13 + a14 + a15 + a16 + a17 + a18 + a19 + a20 + a21 + a22 + a23 + a24 + a25 + a26 + a27 + a28 + a29 + a30
x = Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text) + Val(Text4.Text) + Val(Text5.Text) + Val(Text6.Text) + Val(Text7.Text) + Val(Text8.Text) + Val(Text9.Text) + Val(Text10.Text) + Val(Text11.Text) + Val(Text12.Text) + Val(Text13.Text) + Val(Text14.Text) + Val(Text15.Text) + Val(Text16.Text) + Val(Text17.Text) + Val(Text18.Text) + Val(Text19.Text) + Val(Text20.Text) + Val(Text21.Text) + Val(Text22.Text) + Val(Text23.Text) + Val(Text24.Text) + Val(Text25.Text) + Val(Text26.Text) + Val(Text27.Text) + Val(Text28.Text) + Val(Text29.Text) + Val(Text30.Text)
Label128.Caption = x / Val(Label36.Caption)
If a1 = 0 Then
Label37.Caption = " "
Else
Label37.Caption = Val(Label128.Caption) - Val(Text1.Text)
End If
If a2 = 0 Then
Label38.Caption = " "
Else
Label38.Caption = Val(Label128.Caption) - Val(Text2.Text)
End If
If a3 = 0 Then
Label39.Caption = " "
Else
Label39.Caption = Val(Label128.Caption) - Val(Text3.Text)
End If
If a4 = 0 Then
Label40.Caption = " "
Else
Label40.Caption = Val(Label128.Caption) - Val(Text4.Text)
End If
If a5 = 0 Then
Label41.Caption = " "
Else
Label41.Caption = Val(Label128.Caption) - Val(Text5.Text)
End If
If a6 = 0 Then
Label42.Caption = " "
Else
Label42.Caption = Val(Label128.Caption) - Val(Text6.Text)
End If
If a7 = 0 Then
Label43.Caption = " "
Else
Label43.Caption = Val(Label128.Caption) - Val(Text7.Text)
End If
If a8 = 0 Then
Label44.Caption = " "
Else
Label44.Caption = Val(Label128.Caption) - Val(Text8.Text)
End If
If a9 = 0 Then
Label45.Caption = " "
Else
Label45.Caption = Val(Label128.Caption) - Val(Text9.Text)
End If
If a10 = 0 Then
Label46.Caption = " "
Else
Label46.Caption = Val(Label128.Caption) - Val(Text10.Text)
End If
If a11 = 0 Then
Label47.Caption = " "
Else
Label47.Caption = Val(Label128.Caption) - Val(Text11.Text)
End If
If a12 = 0 Then
Label48.Caption = " "
Else
Label48.Caption = Val(Label128.Caption) - Val(Text12.Text)
End If
If a13 = 0 Then
Label49.Caption = " "
Else
Label49.Caption = Val(Label128.Caption) - Val(Text13.Text)
End If
If a14 = 0 Then
Label50.Caption = " "
Else
Label50.Caption = Val(Label128.Caption) - Val(Text14.Text)
End If
If a15 = 0 Then
Label51.Caption = " "
Else
Label51.Caption = Val(Label128.Caption) - Val(Text15.Text)
End If
If a16 = 0 Then
Label52.Caption = " "
Else
Label52.Caption = Val(Label128.Caption) - Val(Text16.Text)
End If
If a17 = 0 Then
Label53.Caption = " "
Else
Label53.Caption = Val(Label128.Caption) - Val(Text17.Text)
End If
If a18 = 0 Then
Label54.Caption = " "
Else
Label54.Caption = Val(Label128.Caption) - Val(Text18.Text)
End If
If a19 = 0 Then
Label55.Caption = " "
Else
Label55.Caption = Val(Label128.Caption) - Val(Text19.Text)
End If
If a20 = 0 Then
Label56.Caption = " "
Else
Label56.Caption = Val(Label128.Caption) - Val(Text20.Text)
End If
If a21 = 0 Then
Label57.Caption = " "
Else
Label57.Caption = Val(Label128.Caption) - Val(Text21.Text)
End If
If a22 = 0 Then
Label58.Caption = " "
Else
Label58.Caption = Val(Label128.Caption) - Val(Text22.Text)
End If
If a23 = 0 Then
Else
Label59.Caption = Val(Label128.Caption) - Val(Text23.Text)
End If
If a24 = 0 Then
Label60.Caption = " "
Else
Label60.Caption = Val(Label128.Caption) - Val(Text24.Text)
End If
If a25 = 0 Then
Label61.Caption = " "
Else
Label61.Caption = Val(Label128.Caption) - Val(Text25.Text)
End If
If a26 = 0 Then
Label62.Caption = " "
Else
Label62.Caption = Val(Label128.Caption) - Val(Text26.Text)
End If
If a27 = 0 Then
Label63.Caption = " "
Else
Label63.Caption = Val(Label128.Caption) - Val(Text27.Text)
End If
If a28 = 0 Then
Label64.Caption = " "
Else
Label64.Caption = Val(Label128.Caption) - Val(Text28.Text)
End If
If a29 = 0 Then
Label65.Caption = " "
Else
Label65.Caption = Val(Label128.Caption) - Val(Text29.Text)
End If
If a30 = 0 Then
Label66.Caption = " "
Else
Label66.Caption = Val(Label128.Caption) - Val(Text30.Text)
End If
If a1 = 0 Then
Label97.Caption = " "
Else
Label97.Caption = (Val(Label37.Caption)) * (Val(Label37.Caption))
End If
If a2 = 0 Then
Label98.Caption = " "
Else
Label98.Caption = (Val(Label38.Caption)) * (Val(Label38.Caption))
End If
If a3 = 0 Then
Label99.Caption = " "
Else
Label99.Caption = (Val(Label39.Caption)) * (Val(Label39.Caption))
End If
If a4 = 0 Then
Label100.Caption = " "
Else
Label100.Caption = (Val(Label40.Caption)) * (Val(Label40.Caption))
End If
If a5 = 0 Then
Label101.Caption = " "
Else
Label101.Caption = (Val(Label41.Caption)) * (Val(Label41.Caption))
End If
If a6 = 0 Then
Else
Label102.Caption = (Val(Label42.Caption)) * (Val(Label42.Caption))
End If
If a7 = 0 Then
Label103.Caption = " "
Else
Label103.Caption = (Val(Label43.Caption)) * (Val(Label43.Caption))
End If
If a8 = 0 Then
Else
Label104.Caption = (Val(Label44.Caption)) * (Val(Label44.Caption))
End If
If a9 = 0 Then
Label105.Caption = " "
Else
Label105.Caption = (Val(Label45.Caption)) * (Val(Label45.Caption))
End If
If a10 = 0 Then
Label106.Caption = " "
Else
Label106.Caption = (Val(Label46.Caption)) * (Val(Label46.Caption))
End If
If a11 = 0 Then
Label107.Caption = " "
Else
Label107.Caption = (Val(Label47.Caption)) * (Val(Label47.Caption))
End If
If a112 = 0 Then
Label108.Caption = " "
Else
Label108.Caption = (Val(Label48.Caption)) * (Val(Label48.Caption))
End If
If a13 = 0 Then
Label109.Caption = " "
Else
Label109.Caption = (Val(Label49.Caption)) * (Val(Label49.Caption))
End If
If a14 = 0 Then
Label110.Caption = " "
Else
Label110.Caption = (Val(Label50.Caption)) * (Val(Label50.Caption))
End If
If a15 = 0 Then
Label111.Caption = " "
Else
Label111.Caption = (Val(Label51.Caption)) * (Val(Label51.Caption))
End If
If a16 = 0 Then
Label112.Caption = " "
Else
Label112.Caption = (Val(Label52.Caption)) * (Val(Label52.Caption))
End If
If a17 = 0 Then
Label113.Caption = " "
Else
Label113.Caption = (Val(Label53.Caption)) * (Val(Label53.Caption))
End If
If a18 = 0 Then
Label114.Caption = " "
Else
Label114.Caption = (Val(Label54.Caption)) * (Val(Label54.Caption))
End If
If a19 = 0 Then
Label115.Caption = " "
Else
Label115.Caption = (Val(Label55.Caption)) * (Val(Label55.Caption))
End If
If a20 = 0 Then
Label116.Caption = " "
Else
Label116.Caption = (Val(Label56.Caption)) * (Val(Label56.Caption))
End If
If a21 = 0 Then
Else
Label117.Caption = (Val(Label57.Caption)) * (Val(Label57.Caption))
End If
If a22 = 0 Then
Label118.Caption = " "
Else
Label118.Caption = (Val(Label58.Caption)) * (Val(Label58.Caption))
End If
If a23 = 0 Then
Label119.Caption = " "
Else
Label119.Caption = (Val(Label59.Caption)) * (Val(Label59.Caption))
End If
If a24 = 0 Then
Label120.Caption = " "
Else
Label120.Caption = (Val(Label60.Caption)) * (Val(Label60.Caption))
End If
If a25 = 0 Then
Label121.Caption = " "
Else
Label121.Caption = (Val(Label61.Caption)) * (Val(Label61.Caption))
End If
If a26 = 0 Then
Label122.Caption = " "
Else
Label122.Caption = (Val(Label62.Caption)) * (Val(Label62.Caption))
End If
If a27 = 0 Then
Label123.Caption = " "
Else
Label123.Caption = (Val(Label63.Caption)) * (Val(Label63.Caption))
End If
If a28 = 0 Then
Label124.Caption = " "
Else
Label124.Caption = (Val(Label64.Caption)) * (Val(Label64.Caption))
End If
If a29 = 0 Then
Label125.Caption = " "
Else
Label125.Caption = (Val(Label65.Caption)) * (Val(Label65.Caption))
End If
If a30 = 0 Then
Label126.Caption = " "
Else
Label126.Caption = (Val(Label66.Caption)) * (Val(Label66.Caption))
End If
End Sub
Private Sub Text1_Change()
If Text1.Text Then
a1 = 1
Else
a1 = 0
End If
End Sub
Private Sub Text10_Change()
If Text10.Text Then
a10 = 1
Else
a10 = 0
End If
End Sub
Private Sub Text11_Change()
If Text11.Text Then
a11 = 1
Else
a11 = 0
End If
End Sub
Private Sub Text12_Change()
If Text12.Text Then
a12 = 1
Else
a12 = 0
End If
End Sub
Private Sub Text13_Change()
If Text13.Text Then
a13 = 1
Else
a13 = 0
End If
End Sub
Private Sub Text14_Change()
If Text14.Text Then
a14 = 1
Else
a14 = 0
End If
End Sub
Private Sub Text15_Change()
If Text15.Text Then
a15 = 1
Else
a15 = 0
End If
End Sub
Private Sub Text16_Change()
If Text16.Text Then
a16 = 1
Else
a16 = 0
End If
End Sub
Private Sub Text17_Change()
If Text17.Text Then
a17 = 1
Else
a17 = 0
End If
End Sub
Private Sub Text18_Change()
If Text18.Text Then
a18 = 1
Else
a18 = 0
End If
End Sub
Private Sub Text19_Change()
If Text19.Text Then
a19 = 1
Else
a19 = 0
End If
End Sub
Private Sub Text2_Change()
If Text2.Text Then
a2 = 1
Else
a2 = 0
End If
End Sub
Private Sub Text20_Change()
If Text20.Text Then
a20 = 1
Else
a20 = 0
End If
End Sub
Private Sub Text21_Change()
If Text21.Text Then
a21 = 1
Else
a21 = 0
End If
End Sub
Private Sub Text22_Change()
If Text22.Text Then
a22 = 1
Else
a22 = 0
End If
End Sub
Private Sub Text23_Change()
If Text23.Text Then
a23 = 1
Else
a23 = 0
End If
End Sub
Private Sub Text24_Change()
If Text24.Text Then
a24 = 1
Else
a24 = 0
End If
End Sub
Private Sub Text25_Change()
If Text25.Text Then
a25 = 1
Else
a25 = 0
End If
End Sub
Private Sub Text26_Change()
If Text26.Text Then
a26 = 1
Else
a26 = 0
End If
End Sub
Private Sub Text27_Change()
If Text27.Text Then
a27 = 1
Else
a27 = 0
End If
End Sub
Private Sub Text28_Change()
If Text28.Text Then
a28 = 1
Else
a28 = 0
End If
End Sub
Private Sub Text29_Change()
If Text29.Text Then
a29 = 1
Else
a29 = 0
End If
End Sub
Private Sub Text3_Change()
If Text3.Text Then
a3 = 1
Else
a3 = 0
End If
End Sub
Private Sub Text30_Change()
If Text30.Text Then
a30 = 1
Else
a30 = 0
End If
End Sub
Private Sub Text4_Change()
If Text4.Text Then
a4 = 1
Else
a4 = 0
End If
End Sub
Private Sub Text5_Change()
If Text5.Text Then
a5 = 1
Else
a5 = 0
End If
End Sub
Private Sub Text6_Change()
If Text6.Text Then
a6 = 1
Else
a6 = 0
End If
End Sub
Private Sub Text7_Change()
If Text7.Text Then
a7 = 1
Else
a7 = 0
End If
End Sub
Private Sub Text8_Change()
If Text8.Text Then
a8 = 1
Else
a8 = 0
End If
End Sub
Private Sub Text9_Change()
If Text9.Text Then
a9 = 1
Else
a9 = 0
End If
End Sub