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.

来源：学生作业帮助网编辑：作业帮时间：2024/04/28 12:31:06

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.
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 = 1
For i = 4 To 1 Step -1
s = s + a(i) * j
j = j * 10
Next I
Print s
End Sub 1234.

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.
初始：
s=0
j=1
循环第一次i=4：
s=0+4*1=4
j=1*10=10
第二次i=3：
s=4+3*10=34
j=10*10=100
第三次i=2：
s=34+2*100=234
j=100*10=1000
第四次i=1：
s=234+1*1000=1234
j=1000*10=1000

Private Sub Form_Click()和Private Sub Command1_Click()有什么区别?什么时候用Form?什么时候用Command VB中 FORM unload语句含义,Private sub_Unload(Cancel As Integer)Unload_Subend sub Private Sub 与 Sub的区别请问各位大侠,以下代码每句都是什么意思呀.小弟才疏学浅,实在是不知道我.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 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 英语翻译控制标签移动private sub timer1_timer()if label1.left VB里的“Private Sub Command1_Click()”是什么意思?那个横, Private Sub Form_Load() 的意思具体是什么啊,sub的意思是什么啊? 英语翻译Private Sub Combo1_Click()Text1.SetFocusOption1.Value = TrueText1.Locked = FalseEnd Sub 设计程序,输出1-50内的奇数Private Sub Form Load()Dim i as integerFor i=1 To 50If.thenPrint iEnd If.End Sub请帮忙在.处写出相应的程序步骤谢谢了急用!~看好了一共两个.号谢谢~Next后面是什么?前一个空对了看程序,)private sub form-click()dim a(5,5) as integer,s(5) as integerfor i=1 to 5s(i)= 0for j=1 to 5m(i,j)=i+jnext jnext ifor each x in sprint x;nextend sub 请解释下面程序每一句含义以及最后输出的值Private Sub Form-Click()For i=1 to 4X=1For j=1 to 3X=3For k=1 to 2X=X+6Next kNext jNext iprint x End sub Private Sub Text1_Click() If Text1.Text = 请输入 Then Text1.Text = End Sub这条语句的作用是什么Private Sub Text1_Click()If Text1.Text = 请输入 Then Text1.Text = End Sub Private Sub Command1_Click() Dim a As Long a = 1234 a& = 4567 Print a; a& End Sub