早教吧作业答案频道 -->其他-->
用VB编程.输入30位同学的编号和成绩,求他们的平均成绩,并输出高于平均分的同学编号和成绩……用VB编程.输入30位同学的编号和成绩,求他们的平均成绩,并输出高于平均分的同学编号和成绩,
题目详情
用VB编程.输入30位同学的编号和成绩,求他们的平均成绩,并输出高于平均分的同学编号和成绩……
用VB编程.输入30位同学的编号和成绩,求他们的平均成绩,并输出高于平均分的同学编号和成绩,以及这些同学的人数.
提示:声明两个大小为30的一维数组ID和Score,使ID(i)表示第i位同学的编号,Score(i) 表示第i位同学的成绩.
以下是我编的程序,用VB软件运行了不对,能否告诉我哪里编错了,正确的应该是怎样?
Private Sub Form_Click()
Dim ID As Integer,I As Integer,score() As String,x As String,y As String,k As Integer
x = 0
y = 0
k = 0
For ID = 1 To 3
I = ID
ReDim score(I) As String
score(I) = Val(InputBox("输入成绩"))
x = x + score(I)
y = x / I
Next ID
Print "平均成绩="; y
For ID = 1 To 3
I = ID
If score(I) > y Then
Print "ID="; I,"成绩="; score(I)
k = k + 1
End If
Next ID
Print "人数="; k
End Sub
用VB编程.输入30位同学的编号和成绩,求他们的平均成绩,并输出高于平均分的同学编号和成绩,以及这些同学的人数.
提示:声明两个大小为30的一维数组ID和Score,使ID(i)表示第i位同学的编号,Score(i) 表示第i位同学的成绩.
以下是我编的程序,用VB软件运行了不对,能否告诉我哪里编错了,正确的应该是怎样?
Private Sub Form_Click()
Dim ID As Integer,I As Integer,score() As String,x As String,y As String,k As Integer
x = 0
y = 0
k = 0
For ID = 1 To 3
I = ID
ReDim score(I) As String
score(I) = Val(InputBox("输入成绩"))
x = x + score(I)
y = x / I
Next ID
Print "平均成绩="; y
For ID = 1 To 3
I = ID
If score(I) > y Then
Print "ID="; I,"成绩="; score(I)
k = k + 1
End If
Next ID
Print "人数="; k
End Sub
▼优质解答
答案和解析
Private Sub Form_Click()
Dim I As Integer, score(1 To 30) As Integer, x As Integer, y As Integer, sum As Integer
Me.AutoRedraw = True
For I = 1 To 30
score(I) = Val(InputBox("输入第" & I & "个成绩"))
sum = sum + score(I)
Next I
x = sum / 30
Print "平均成绩="; x
Print "大于平均值的有:"
For I = 1 To 30
If score(I) > x Then
Print "ID:" & I & " 成绩:" & score(I)
y = y + 1
End If
Next
Print "高于平均人数为:" & y
End Sub
Dim I As Integer, score(1 To 30) As Integer, x As Integer, y As Integer, sum As Integer
Me.AutoRedraw = True
For I = 1 To 30
score(I) = Val(InputBox("输入第" & I & "个成绩"))
sum = sum + score(I)
Next I
x = sum / 30
Print "平均成绩="; x
Print "大于平均值的有:"
For I = 1 To 30
If score(I) > x Then
Print "ID:" & I & " 成绩:" & score(I)
y = y + 1
End If
Next
Print "高于平均人数为:" & y
End Sub
看了 用VB编程.输入30位同学的...的网友还看了以下:
如图在直角坐标系中,平行四边形ABCD的顶点A的坐标为(1,0),对角线的交点P的坐标为(2,3) 2020-05-16 …
如图,用三个一样的菱形ABGH、BCFG、CDEF拼成平行四边形ADEH,连接AE,与BG、CF分 2020-05-23 …
如图,在△ABC中,AB=AC,将△ABC沿CA方向平移CA长得△EFA(1)若△ABC的面积为3 2020-07-03 …
整式的加减1.(x-y)的平方-2(y-x)的平方-3(2x-y)的三次方+5(y-2x)的三次方 2020-07-15 …
如图,正方形ADEF与梯形ABCD所在的平面互相垂直,AD⊥CD,AB∥CD,,点M在线段EC上. 2020-07-20 …
(2014•安徽二模)如图,在水平面上有一弹簧,其左端与墙壁相连,O点为弹簧原长位置,O点左侧水平 2020-07-21 …
求解一道一元一次方程的问题?(线上等)在3时和4时之间的哪个时刻,钟的时针与分针:(1)重合;(2 2020-07-26 …
求解一道一元一次方程的问题?(线上等)在3时和4时之间的哪个时刻,钟的时针与分针:(1)重合;(2 2020-07-26 …
1.绿化队要植树1160棵,前3小时平均每小时植树90棵,剩下的要在10小时之内完成,平均每小时需植 2020-11-04 …
地理坐标转换平面的最佳方法是什么?用GPS测定的一系列地理坐标系转换成平面直角坐标系的最标准,误差最 2021-01-25 …