Private Sub Form-Click() Dim a a = Array(1,2,3,4) j = 1 For

来源：学生作业帮编辑：拍题作业网作业帮分类：数学作业时间：2024/04/30 11:11:32

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.

初始：
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
再问：哦··这样··有一点不明白的。就是 s = s + a(i) * j 其中，a(i)的值只算i就行了？a的取值不用管了吗？
再答：就你的题目，i是循环变量，从4到1，而a(4)=4,a(3)=3,a(2)=2,a(1)=1，把这些值代入，就知道结果了
再问：课本答案提示说，这题目实际是考Option Base语句与Array（）的结合使用，怎么理解。a不是循环量是不是可以忽略啊
再答：你很喜欢忽略一些东西？我不明白你说的忽略是什么意思。你的题目中每个变量都有用，没有可以忽略的，Option Base是设置数组从哪一个下标开始，默认是从0开始，Option Base 0或Option Base 1设置下标的开始，就你的题目来说，设置了从1开始，因此，a这个数组是a(1)到a(4)而不是a(0)到a(3)。 a = Array(1,2,3,4) 这一句，就是对数组a的赋值语句，设定a(1)=1,a(2)=2,a(3)=3,a(4)=4。如果这一句修改为a = Array(4,3,2,1) 则a(1)=4,a(2)=3,a(3)=2,a(4)=1。

Private Sub Form-Click() Dim a a = Array(1,2,3,4) j = 1 For private sub command1_click( ) dim a a=array(1,2,3,4) j=1:s=0 Private Sub Command0_Click() Dim a(10, 10) For m = 2 To 4 Fo VB编程option base 1private sub command1_click() dim d d=array( Private Sub Command1_Click() For i = 1 To 3 For j = i To 1 a Dim a a=Array(1,2,3,4,5,6,7) For i=Lbound (a) To Ubound (a) Dim a, i% a=array(1,2,3,4,5,6,7) For i =Lbound(a) to Ubound( Private Sub Command1_Click() Dim i,j As Integer For i = 3 To Private Sub Form_click() Dim x,i,j x = 0 For i = 0 To 1 x = Private Sub Command1_Click() n = 0 For i = 1 To 3 For j = -4 Private Sub command1_click() Dim m(10) For k = 1 To 10 m(k) VB程序如下：Dim a a = Array(1,2,3,4,5,6,7,8) i = 0 For k = 100 To