全国计算机等级考试二级VB程序设计模拟试题四【完善程序题】
中华IT学院 【
大 中 小】 [ 2017年1月19日 ]
用选择法按递增顺序排序
Private Sub Command1_Click()
Dim a(1 to 6) as integer,i%,j%,amin%,t%
For i=1 to 6
a(i)=InputBox(“给数组元素赋值”)
[ 6 ]
n=6
For i=1 to [ 7 ]
amin= [ 8 ]
For j= [ 9 ] to n
If a(j)<a(amin) then [ 10 ]
Next j
t=a(i)
a(i)=a(amin)
a(amin)=t
Next i
End Sub
免责申明 --------------------------------------------------------------------------------------
以上内容仅代表原创者观点,其内容未经本站证实,中华考试网对以上内容的真实性、完整性不作任何保证或承诺,转载目的在于传递更多信息,由此产生的后果与中华考试网无关;如以上转载内容不慎侵犯了您的权益,请联系我们
,我们将会及时处理。