vb程序设计实验习题

'窗体上添加一个命令按钮，复制过去代码即可朋友。仅供参考。

Private Sub command1_Click()

Dim a(), n As Integer, aver As Single

n = InputBox("输入数组元素的个数n")

ReDim a(n)

For i = 1 To n

a(i) = Val(InputBox("请输入第" &i &"个元素"))

Next

aver = myaver(a)

Print "平均数为："aver

End Sub

Private Function myaver(a())

Dim m As Integer, n As Integer, sum As Integer

m = LBound(a)

n = UBound(a)

For i = m To n

sum = sum + a(i)

Next

myaver = sum / (n - m)

End Function

Private Sub Command1_Click()

Dim i As Integer

Dim a As Integer, b As Integer, c As Integer

For i = 100 To 999

a = i \ 100                '求三位数的百位上的数

b = (i - a * 100) \ 10     '求三位数的十位上的数

c = i - a * 100 - b * 10   '求三位数的个位上的数

If a ^ 3 + b ^ 3 + c ^ 3 = i Then   '判断是否为水仙花数

Print i                         '如果是水仙花数则输出.

End If

Next i

End Sub

用三重循环做：

Private Sub Command1_Click()

Dim i As Integer, j As Integer, k As Integer

Dim s As Integer

For i = 1 To 9

   For j = 0 To 9

      For k = 0 To 9

         s = i * 100 + j * 10 + k

If i ^ 3 + j ^ 3 + k ^ 3 = s Then

            Print s

         End If

      Next k

Next j

Next i

End Sub

你要的平均分我给你加上去了

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

---