..Dim a() a=Array(1,3,5,7,9) s=0 For i=1 To 4 s=s*10+a(i) Ne
来源:学生作业帮 编辑:搜搜考试网作业帮 分类:数学作业 时间:2024/05/11 02:46:48
..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() a=Array(1,3,5,7,9) s=0 For i=1 To 4 s=s*10+a(i) Ne
Dim a, i% a=array(1,2,3,4,5,6,7) For i =Lbound(a) to Ubound(
Dim a a=Array(1,2,3,4,5,6,7) For i=Lbound (a) To Ubound (a)
Dim a(4) s=0 For i=1 to 4 s=s+a(i) Next i
VB程序如下:Dim a a = Array(1,2,3,4,5,6,7,8) i = 0 For k = 100 To
private sub command1_click( ) dim a a=array(1,2,3,4) j=1:s=0
a = array(1,2,3,4,5):for k = 1 to 4:s = s + a(k)中的s = s + a(
dim I% ,S% s=0 for I=5 to 1 s=s+i next I print “s=” ; s 怎么看的
dim m(5,5),s(5) for i=1 to 5 s(i)=0 for j=1 to 5 m(i,j)=i+j
Dim a(1 To 10) As Integer Dim i As Integer a(1) = 1 For i =
dim i as integer dim sum as integer sum=0 for i=0 to 5 sum=s
Private Sub Form-Click() Dim a a = Array(1,2,3,4) j = 1 For