题目

【加试题】有一组正整数，要求仅对其中的素数进行升序排序。排序后素数在前，非素数在后。排序示例如下。 排序前867154181793789 排序后537417179898681 实现上述功能的VB程序如下，但加框处代码有错，请改正。Const n=8Dim a(1 To n) As IntegerPrivate Sub Command1_Click() Dim i As Integer，j As Integer，k As Integer，t As Integer Dim flag As Boolean ‘读取一组正整数，存储在数组a中。代码略 For i=1 To n-1 ‘(1)If IsPrime(a(k))Then flag=True Else flag=FalseFor j=i+1 To n If IsPrime(a(i))Then IfThen10秒内通过某导体横截面的电量为 6 库，电流做功 36 焦，通过导体的电流为      安，导体两端的电压为        伏。当通过该导体的电流为 0.5 安时，它的电阻为       欧。