计算机技术基础 VB 评委打分,ＶＢ评委打分

满意答案

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分享举报