
实现上述功能的VB程序如下,但加框处代码有错,请改正。
Const n= 100
Dim a(1 To n) As Integer
Private Sub Form_ Load()
'随机产生100个0到99之间的整数存数组a中,并在列表框list1中显示。
End Sub
Private Sub Command1_ Click()
Dim i As Integer, j As Integer, t As Integer
Dim b(0 To 9) As Integer, c(0 To 9) As Integer
For i=1 To n
'
Next i
For i=0 To 9
b(i)=i
Next i
i=0
Do While i <=8
For j=i+1 To 9
If
Then '
t=b(i) : b(i)=b(j) : b(j)=t
t=c(i) : c(i)=c(j) : c(j)=t
End If
Next j
i=i+ 1
Loop
List2. AddItem“范围元素个数”
For i=0 To 9
List2. AddItem Str(b(i) * 10)+ “~”+Str(b(i) * 10+9)+“:”+Str(c(i))+“个”
Next i
End Sub
将该按钮应用到舞台上,在测试影片时,下列说法不正确的是( )
Dim a(1 To 6)As Integer, I AS Integer, maxi As Integer
a(1)=12:a(2)=8:a(3)=14:a(4)=13:a(5)=12:a(6)=11
Maxi=1
For i=2 To 6
If a(i)>a(maxi)Then maxi=i
Next i
a(1)=a(1)+a(maxi):a(maxi)=a(1)-a(maxi):a(1)=a(1)-a(maxi)
执行该程序段后,数组元素a(1)~a(6)的值是( )
for i in range():
a=i// 100 #取出百位数字
b= #取出十位数字
c=i%10 #取出个位数字
if
print(“水仙花数是:”, i)
Const n =10
For i = 1 To n - 1
t = n - (n + i ) Mod 2
For j = t To i + 2 Step -2
If d(j)> d(j - 2) Then
Temp=d(j)
d(j) = d(j - 2)
d(j - 2) = temp
End If
Next j
Next i
已知数组元素d(1)到d(10)的原始数据为1、2、3、4、5、6、7、8、9、10.程序运行后,d(10)的值为( )