3道VB程序设计的题目

你要猛仿的平均分我给祥野你加上去了

1.

Private Sub Form_Click()

Dim a(10) As integer, b As integer, c As integer，d as integer

For i = 1 To 10

a(i) = InputBox("请输入第" &i &"组数", "输入数值")

If a(i) >0 Then

b = b + 1

ElseIf a(i) <0 Then

c = c + 1

Else

d = d + 1

End If

Print a(i)

Next

Print "正数的个数:" &b &" 负数的个数:" &c &" 0的个数:"d

End Sub

2.

Private Sub Form_Click()

Dim a(10) As Integer, b As Integer, c As Integer, d As Double

For i = 1 To 10

a(i) = InputBox("请输入第" &i &"组数", "输入数值")

If a(i) >= 60 Then

b = b + 1

ElseIf a(i) <60 Then

c = c + 1

End If

d = d + a(i)

Print a(i)

Next

Print "及格人数:" &b &" 不及格人数:" &c

Print "平均分为：" &d / 10

End Sub

3.

Private Sub Form_Click()

Dim a(10) As Integer

For i = 1 To 10

a(i) = InputBox("请输入第" &i &"组数", "输入数值"枝宴纤)

Print a(i)

Next

For j = 1 To 10

For p = j + 1 To 10

If a(j) >a(p) Then

aa = a(p)

a(p) = a(j)

a(j) = aa

End If

Next p

Next j

Print "最高分为：" &a(10) &" 最低分为：" &a(1)

End Sub

1： A

2：森携BCD

3：B

4：ABC

5：ABCDE

6：陆春唯ABD

7：ACD

8：早培AD

9：AC

10：BCD

---