高校问答那英烤瓷牙:这些东西怎么用啊？？？？？
来源：百度文库 编辑：高校问答 时间：2024/04/28 08:37:53
Private Sub Form_Load()
Dim s(1 To 10), i, max, min, tmpmax, tmpmin, sum As Integer
tmpmax = 0: tmpmin = 100
For i = 1 To 10
s(i) = CInt(InputBox(i))
Next i
For i = 1 To 10
If s(i) < tmpmin Then
min = i
tmpmin = s(i)
End If
If s(i) > tmpmax Then
max = i
tmpmax = s(i)
End If
Next i
For i = 1 To 10
If i = min Or i = max Then Else sum = sum + s(i)
Next i
MsgBox CStr(sum / 8)
End Sub
Dim s(1 To 10), i, max, min, tmpmax, tmpmin, sum As Integer
tmpmax = 0: tmpmin = 100
For i = 1 To 10
s(i) = CInt(InputBox(i))
Next i
For i = 1 To 10
If s(i) < tmpmin Then
min = i
tmpmin = s(i)
End If
If s(i) > tmpmax Then
max = i
tmpmax = s(i)
End If
Next i
For i = 1 To 10
If i = min Or i = max Then Else sum = sum + s(i)
Next i
MsgBox CStr(sum / 8)
End Sub
晕 我狂晕
你没有VB ?
安装个VB6.0
建立一个工程
不用其他的控件 只需要一个窗体就行了
进入窗体代码编辑模式 删掉所有代码
将代码贴进去就行了