计算机上机考试试题，VB语言,求大神帮忙在15分钟以内做出来，可写在纸上再传照片给我，急！！！在线
计算机上机考试试题，VB语言,求大神帮忙在15分钟以内做出来，可写在纸上再传照片给我，急！！！在线等！！！可追加悬赏！！！...
计算机上机考试试题，VB语言,求大神帮忙在15分钟以内做出来，可写在纸上再传照片给我，急！！！在线等！！！可追加悬赏！！！
展开
1个回答
展开全部
Private Sub Command1_Click()
Dim a(10) As Integer
intTotal = 0
For i = 0 To 9
a(i) = Int(90 * Rnd + 10)
intTotal = intTotal + a(i)
Next
AverageSub = intTotal / 10
Print "平均值是：" & AverageSub
Print "大于平均值的有："
For i = 0 To 9
If a(i) > AverageSub Then Print a(i),
Next
End Sub
Dim a(10) As Integer
intTotal = 0
For i = 0 To 9
a(i) = Int(90 * Rnd + 10)
intTotal = intTotal + a(i)
Next
AverageSub = intTotal / 10
Print "平均值是：" & AverageSub
Print "大于平均值的有："
For i = 0 To 9
If a(i) > AverageSub Then Print a(i),
Next
End Sub
更多追问追答
追问
唉
晚了
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
