英语翻译Private Sub Form_Click()Dim a(1 To 10) As Integer,i%,max

来源：学生作业帮编辑：搜搜考试网作业帮分类：数学作业时间：2024/05/11 12:44:02

英语翻译
Private Sub Form_Click()
Dim a(1 To 10) As Integer,i%,maxa%,mina%,avera!
For i = 1 To 10
a(i) = Int(Rnd * 100)
Next i
mina = a(1)
maxa = a(1)
avera = a(1)
For i = 2 To 10
If a(i) > maxa Then maxa = a(i)
If a(i) < mina Then mina = a(i)
avera = avera + a(i)
Next i
For i = 1 To 10
Print a(i)
Next i
Print
Print "max="; maxa,"min="; mina,"aver="; avera / 10
End Sub

Private Sub Form_Click() '单击窗体上任意地方
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 结束

英语翻译Private Sub Form_Click()Dim a(1 To 10) As Integer,i%,max Private Sub Form_Click() Dim a As Integer,b As Integer,k As Private Sub Command1_Click() Dim i,j As Integer For i = 3 To 用vb 求π Private Sub Form_Click()Dim i As Long,pi As Double,k Private Sub Command1_Click() Dim i As Integer,s As Integer,n Private Sub Form_click() Dim x,i,j x = 0 For i = 0 To 1 x = Dim a(1 To 10) As Integer Dim i As Integer a(1) = 1 For i = vb程序Dim a(1 To 20) As Integer,i As Integer,j As Integer Dim ia(1 To 10) As Integer,imin As Integer,n As Integer,i As 帮忙VB试题我怎么想都算不对Private Sub Command1_Click()Dim a As Integer,b 9^n+2是不是质数vb编程如下Private Sub Command1_Click()Dim a As Integer Vb求N的阶层我自己做的,Private Sub Form_Click()Dim a As Single,b As In