VB翻译每句什么意思
发布网友
发布时间：2022-09-22 03:09
共1个回答
热心网友
时间：2023-11-23 23:47
Dim a(1 To 10) As Integer, i%, maxa%, mina%, avera! '声明各种变量
For i = 1 To 10 '开始一个循环（循环10次）
a(i) = Int(Rnd * 100) '给数组a赋初始值（10个整数均为随机产生的）
Next i '循环截止符
mina = a(1) '将数组中排在第一位的a（1）中的数值存入“最小数变量mina”中，暂定是最小数
maxa = a(1) '将数组中排在第一位的a（1）中的数值存入“最大数变量maxa”中，暂定是最大数
avera = a(1) '将数组中排在第一位的a（1）中的数值存入“平均值变量avera”中，暂定是平均值
For i = 2 To 10 '循环从排位第2的位置开始到最后（10）
If a(i) > maxa Then maxa = a(i) '找出最大数（拿第一个数maxa分别和后面的9个数比较，大的存入maxa中）
If a(i) < mina Then mina = a(i) '找出最小数（拿第一个数mina分别和后面的9个数比较，小的存入mina中）
avera = avera + a(i) '算出10个数的总和（第一个avera分别加上后面的9个并存入avera中）
Next i
For i = 1 To 10
Print a(i) '此循环的目的是在窗体上打印出上面随机生成的10个数
Next i
Print '换一行
Print "max="; maxa, "min="; mina, "aver="; avera / 10 '在窗体的第二行输出：最大数、最小数、平均值
End Sub 结束
