满意答案
hj328333
2013.06.13
采纳率:56% 等级:12
已帮助:13505人
Private Sub Command1_Click()
Dim max, min, sum, s(7) As Double
Dim i As Integers(0) = Text3.Text
s(1) = Text4.Text
s(2) = Text5.Text
s(3) = Text6.Text
s(4) = Text7.Text
s(5) = Text8.Text
s(6) = Text9.Text
sum = s(0)
max = s(0)
min = s(0)
For i = 1 To 6
sum = sum + s(i)
If max < s(i) Then max = s(i)
If min > s(i) Then min = s(i)
Next
Text10.Text = max
Text11.Text = min
sum = sum - max - min
Text12.Text = (sum * Text2.Text * 3) / 5
End SubPrivate Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
Text11.Text = ""
Text12.Text = ""
End Sub
基本差不多了··剩下的名称你自己改了。。谢谢
00分享举报