..Dim a() a=Array(1,3,5,7,9) s=0 For i=1 To 4 s=s*10+a(i) Next i Print s 为啥答案是3579

来源:学生作业帮助网 编辑:作业帮 时间:2024/04/28 18:33:12
..Dim a() a=Array(1,3,5,7,9) s=0 For i=1 To 4 s=s*10+a(i) Next i Print s 为啥答案是3579

..Dim a() a=Array(1,3,5,7,9) s=0 For i=1 To 4 s=s*10+a(i) Next i Print s 为啥答案是3579
..Dim a() a=Array(1,3,5,7,9) s=0 For i=1 To 4 s=s*10+a(i) Next i Print s 为啥答案是3579

..Dim a() a=Array(1,3,5,7,9) s=0 For i=1 To 4 s=s*10+a(i) Next i Print s 为啥答案是3579

 For i = 1 To 4

     s = s * 10 + a(i)

Next i

 

'对于数组a,为a(0)=1, a(1)=3, a(2)=5, a(3)=7, a(4)=9

 'i=1时, s = s * 10 + a(1) = 0 * 10 + 3 = 3

 'i=2时, s = s * 10 + a(2) = 3 * 10 + 5 = 35

 'i=3时, s = s * 10 + a(3) = 35 * 10 + 7 = 357

 'i=4时, s = s * 10 + a(4) = 357 * 10 + 9 = 3579

 

  '在整个For循环中, 类似于作如下操作(其实s等于0,相当于根本就用不上了)

        'i=1时,s1 = s * 10 + a(1) = 0 * 10 + a(1) = a(1)

        'i=2时,s2 = s1 * 10 + a(2) = a(1) * 10 + a(2)

        'i=3时,s3 = s2 * 10 + a(3) = (a(1) * 10 + a(2)) * 10 + a(3) = a(1) * 100 + a(2) * 10 + a(3)

        'i=4时,s4 = s3 * 10 + a(4) = (a(1) * 100 + a(2) * 10 + a(3)) * 10 + a(4) = a(1) * 1000 + a(2) * 100 + a(3) * 10 + a(4)

   '就相当于从千位数到个位数,分别是a(1)、a(2)、a(3)、a(4),就等于3579了

Dim a, i% a=array(1,2,3,4,5,6,7) For i =Lbound(a) to Ubound(a) a(i)=a(i) *a(i) next i print a(i)下标越界了,为什么啊 Dim a a=Array(1,2,3,4,5,6,7) For i=Lbound (a) To Ubound (a) a(i)=a(i)*a(i) Print a(i vba 二维数组A(2 to 6 ,6)是什么意思?,数组元素个数怎么取?括号内逗号前后代表什么?然后,还有一个问题,dim a ()a=array(1,3,5,79).a(i)这个怎么理解 private sub command1_click( ) dim a a=array(1,2,3,4) j=1:s=0 for i=4 to 1 step -1 s=s + a(i)*j j= ..Dim a() a=Array(1,3,5,7,9) s=0 For i=1 To 4 s=s*10+a(i) Next i Print s 为啥答案是3579 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程序如下:Dim a a = Array(1,2,3,4,5,6,7,8) i = 0 For k = 100 To 90 Step -2完全看不懂...要详解..VB程序如下:Dim aa = Array(1,2,3,4,5,6,7,8)i = 0 For k = 100 To 90 Step -2s = a(i)^2If a(i) > 3 Then Exit Fori = i + 1Next kPrint k; a( 49 B 0 C 不确定 D 程序出错 选哪个呢?为什么?VB程序 Dim aa=Array(1,2,3,4,5,6,7) For i =Lbound (0) TO Ubound(a) a(i)=a(i)*a(i) Next i Print a(i)上面打错了。是For i =Lbound (a) TO Ubound(a) a = array(1,2,3,4,5):for k = 1 to 4:s = s + a(k)中的s = s + a(k)这条语句是什么意思?窗体上有一个命令按钮,命令按钮的单击事件如下:Private Sub command1_click()dim aa = array(1,2,3,4,5)for k = 1 to 4 s = s + a(k)nextprint 额····这里是什么错误?#include class array{public:array operator +(array &);array(const int *p);array();void show();private:int a[10];};array::array(){for(int i=0;i a array of quention Dim a(1 To 10) As Integer Dim i As Integer a(1) = 1 For i = 2 To 10 a(i) = a 程序中 a = array(1,2,3,4,5,6,7,8,9) 是啥意思啊?array 有没有啥特别的意思? VB中Dim A!是什么意思 vb 两个数组相加,把值赋予第三个数组Private Sub Command1_Click()Dim i As IntegerDim a(),b(),c()a() = Array(2,8,7,6,4,28,70,25)b() = Array(79,27,32,41,57,66,78,80)For i = 0 To 7c(i) = a(i) + b(i)Next iPrint c(i);End Sub我的程序如上, VB编程,一元二次方程a*x^2+b*x+c=0的根Dim a As Double Dim b As Double Dim c As Double Dim delta As Double Dim x1 As Double Dim x2 As Double a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) delta = b * b - 求英文或者国际贸易告人帮忙解释个名词定义!A detector array = the detector array (a InGaAs detector array) without readout integrated circuit (ROIC) or supporting electronicsA focal plane array (FPA) = a detector array coupled to a Dim a(4) s=0 For i=1 to 4 s=s+a(i) Next i