英语翻译Private Sub Form_Click()Dim a(1 To 10) As Integer,i%,maxa%,mina%,avera!For i = 1 To 10a(i) = Int(Rnd * 100)Next imina = a(1)maxa = a(1)avera = a(1)For i = 2 To 10If a(i) > maxa Then maxa = a(i)If a(i) < mina Then mina = a(i)avera = avera

来源：学生作业帮助网 编辑：作业帮 时间：2024/05/09 18:41:01

英语翻译Private Sub Form_Click()Dim a(1 To 10) As Integer,i%,maxa%,mina%,avera!For i = 1 To 10a(i) = Int(Rnd * 100)Next imina = a(1)maxa = a(1)avera = a(1)For i = 2 To 10If a(i) > maxa Then maxa = a(i)If a(i) < mina Then mina = a(i)avera = avera
英语翻译
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 10a(i) = Int(Rnd * 100)Next imina = a(1)maxa = a(1)avera = a(1)For i = 2 To 10If a(i) > maxa Then maxa = a(i)If a(i) < mina Then mina = a(i)avera = avera
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()和Private Sub Command1_Click()有什么区别?什么时候用Form?什么时候用Command VB中 FORM unload语句含义,Private sub_Unload(Cancel As Integer)Unload_Subend sub 英语翻译控制标签移动private sub timer1_timer()if label1.left 英语翻译Private Sub Combo1_Click()Text1.SetFocusOption1.Value = TrueText1.Locked = FalseEnd Sub Private Sub 与 Sub的区别 英语翻译我要全部翻译出来 ' Check for normal characters.Private Sub Form_KeyPress(KeyAscii As Integer)txtDisplay_KeyPress KeyAsciiEnd Sub' Check for unusual characters.Private Sub Form_KeyUp(KeyCode As Integer,Shift As Integer)txtDisplay_K 英语翻译private sub check1_click()label1.fontbold=iif(check1.value,true,false)end subprivate sub option1_click()'label1.fontsize=16label1.fontsizs=option1.captionend subprivate sub option4_click()label1.fontname=隶书end sub最好翻译下每 英语翻译Private Sub Worksheet_Activate()End SubPrivate Sub Worksheet_BeforeDoubleClick(ByVal Target As Range,Cancel As Boolean)End SubPrivate Sub Worksheet_BeforeRightClick(ByVal Target As Range,Cancel As Boolean)End SubPrivate Sub Worksheet_Calc 请问各位大侠,以下代码每句都是什么意思呀.小弟才疏学浅,实在是不知道我.Private FormOldWidth As Long Private FormOldHeight As Long Public Sub resizeinit(FormName As Form)Dim Obj As ControlFormOldWidth = FormName.ScaleWidth vb :请问各位大侠,以下代码每句都是什么意思呀.小弟才疏学浅,实在是不知道我.Private FormOldWidth As Long Private FormOldHeight As Long Public Sub resizeinit(FormName As Form) Dim Obj As Control FormOldWidth = FormName.Scal Private Sub Form_click()得到一组随机变量,怎样用到Private Sub Command1_Click()中去啊 英语翻译Private Sub cmdgame_Click() Formstart.ShowUnload MeEnd SubPrivate Sub cmdexit_Click()Unload MeEnd SubPrivate Sub cmdstart_Click()Formlevel1.MousePointer = 2Label1.Visible = FalseIf cmdstart.Caption = 开始 ThenTimerimage.Enabled = True Private Sub Form-Click() Dim a a = Array(1,2,3,4) j = 1 For i = 4 To 1 Step -1 s = s + a(i)Private Sub Form-Click() Dim a a = Array(1,2,3,4) j = 1For i = 4 To 1 Step -1s = s + a(i) * jj = j * 10Next IPrint sEnd Sub 1234. VB里的sub单词是什么意思,比如private sub……、end sub VB练习题7道,七道全讲完才行一、Private Sub Command1_Cilck()Dim a(4,4)For i = 1 To 4For j = 1 To 4Next jNext iFor j = 3 To 4For j = 3 To 4Print a(j,i);Next jEnd Sub9 1210 13二、Private Sub Form _Click()Dim a(10),p(3)As Integerk = 5For i VB里的“Private Sub Command1_Click()”是什么意思?那个横, 英语翻译Private Sub Form_Activate()If find = True ThenForm4.ZOrderEnd IfIf find = True ThenExit SubElseIf modi = True Thenshowdata' TreeView1_DblClickmodi = FalseElse Private Sub Form_Load() 的意思具体是什么啊,sub的意思是什么啊?