求一道VB题目代码

[复制链接]
查看11 | 回复0 | 2009-6-13 13:45:23 | 显示全部楼层 |阅读模式
dim a%(1 to 10)private sub command1_click()for i=1 to 10a(i)=val(inputbox(""))next imin=a(1):max=a(1):sum=a(1)for i=2 to 10if a(i)>max then max=a(i)if a(i)<min then min=a(i)sum=sum+a(i)next iprint (sum-max-min)/8end sub有什么不懂请发消息给我
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行