| x=y y=x |
| t=x x=y y=t |
| x=x+y y=x-y x=x-y |
| x=x-y y=x+y x=y-x |

图1
图2
Private Sub Command1_Click()
Dim n As Integer, i As Integer, a As Integer, b As Integer
Randomize
n = Val(Text1.Text)
i = ①
Do While i <= n
a = Int(Rnd * 100)
b = Int(Rnd * 100)
If ② Then
List1.AddItem "(" + Str(i) + ")" + Str(a) + "+" + Str(b) + "="
i = i + 1
End If
Loop
End Sub
Dim num As Integer
Dim xh(1To 1000)As String
Dim kh(1 To 1000)As String
Dim cj(1 To 1000)As Integer
Private Sub Form_Load( )
´本过程从数据库中将序号、考号、成绩分别存入数组xh,kh,cj中,并将总人数赋值给了num(总人数num为大于N的值),代码略
End Sub
Private Sub Command1_Click( )
Dim N As Integer, i As Integer, j As Integer
Dim t1 As String, t2 As Integer
N=Val(Text1.Text)
List2.Clear
For i=1 To N
k=i
´①
If cj(k)<cj(j)Then k=j
Next j
If k<>i Then
t1=xh(i):xh(i)=xh(k):xh(k)=t1
t1=kh(i):kh(i)=kh(k):kh(k)=t1
t2=cj(i):cj(i)=cj(k);cj(k)=t2
End If
List2. Addltem xh(i)+" "+kh(i)+" "+Str(ci(i))
Next i
´以下代码是处理可能存在的重复项
For i=N+1 To num
If
Then ´②
List2.Addltem xh(i)+" "+kh(i)+" "+Str(cj(i))
End If
Next i
End Sub
以上程序段运行时,为了实现上述功能,加框处代码应改正为:①;②。
B .