请帮我设计一个vb程序

来源：百度知道 编辑：UC知道 时间：2024/05/17 02:25:25
请帮我设计一个vb编程的问题，而且编程要充分利用顺序，选择，循环（不要其他）三种结构，而且这个程序是解决日常生活中的实际问题，并附程序！
补充嘛...
不要出太难理解的，而且只能用到顺序结构，选择结构，循环结构，这个程序可以解决日常问题，比如体育比赛算平均分之类的！
要用R&B是不是，yo,yo...yo,yo好了，我不会！
我不想白拿，只要你们白给就好了，谢谢！！！

需求实在太简单了，给你写一个过程 用到这三种结构就可以了吗？

---------------

Text1 的MultiLine 设为 True

---------------

Private Sub Command1_Click()
'十个裁判给跳水运动员打分，最低分为0分，满分为100分
'去掉最高分和最低分，最后的平均分为运动员最后得分

Dim i As Integer
Dim iMax As Integer
Dim iMin As Integer
Dim iRsult As Integer
Dim s As String
Dim score(9) As Integer
Dim sLevel As String

iMax = 0
iMin = 100

For i = 0 To 9
score(i) = Val(InputBox("第" & (i + 1) & "个裁判的分数："))
lsum = lsum + score(i)

s = s & "第" & (i + 1) & "个裁判的分数：" & score(i) & vbCrLf

If iMax < score(i) Then iMax = score(i)
If iMin > score(i) Then iMin = score(i)

Next

iRsult = (lsum - iMax - iMin) / 8

Select Case iRsult
Case Is >= 80
sLevel = "优秀"
Case Is >= 60