文档介绍：-
. z.
VB程序设计编程考试题及答案
输入3个数，输出最大的数
Private Sub mand1_click()
Dim ma*
For i = 1 To Sub mand1_Click()
For i = 200 To 400
If i Mod 5 = 0 Or i Mod 7 = 0 Then
Sum = Sum + i
End If
Ne*t i
For i = 200 To 400
If i Mod 5 = 0 And i Mod 7 = 0 Then
Sum = Sum - i
End If
Ne*t i
Print“倍数之和=〞; Sum
End Sub
计算100~300之间所有能被3和7整除的数之和
Private Sub mand1_Click()
Dim i
Sum = 0
For i = 100 To 300
If i Mod 3 = 0 And i Mod 7 = 0 Then
Sum = Sum + i
End If
Ne*t i
Print Sum
End Sub
分别统计1-100中，满足3的倍数、7的倍数的数各有多少。
Private Sub mand1_Click()
Dim i, s3, s7
s3 = 0
s7 = 0
For i = 1 To 100
If i Mod 3 = 0 Then
s3 = s3 + 1
End If
Ne*t i
For i = 1 To 100
If i Mod 7 = 0 Then
s7 = s7 + 1
End If
Ne*t i
Print "3的倍数"; s3
-
. z.
Print "7的倍数"; s7
End Sub
*次歌曲大奖赛，有7个评委。如果分别输入7个评委对*个参赛者的打分数，按照去掉一个最高分和一个最低分的计算方法，求出该参赛者的平均得分。
Private Sub mand1_Click()
Dim ma*, a(1 To 7), min, s
For i = 1 To 7
a(i) = Val(InputBo*("输入第" & i & "个数"))
Ne*t i
ma* = a(1)
min = a(1)
s = a(1)
For i = 2 To 7
If a(i) > ma* Then ma* = a(i)
If a(i) < min Then min = a(i)
s = s + a(i)
Ne*t i
s = s - min - ma*
s = s / 5
Print "平均分"; s
End Sub
输入一串字符，统计其中字母A(不区分大小写)出现的次数。
Private Sub mand1_Click()
Dim c As String, a As Integer
b = InputBo*("请输入字符")
For i = 1 To Len(b)
c = UCase(Mid(b, i, 1))
If c = "A" Then