End If
Next jIf NotIn(pl,p2)Then
res=res+"、("+Str(a(2 * p2-1))+","Str(a(2 * p2))+")"dist(i)= ①
Listl. AddItem bh(i)+""+Str(x(i))+""+Str(y (i))+""+Str(dist(i))
Next iIf dist(j)<>s Then
②End if
j=j+1
LoopDo While ③
List2. AddItem bh(j)+Str(x(j))+Str(y(j))+Str(dist(j))
u=u+1
j=j+1
Loopres=" "
s1=Textl. Text
For i=1 To Len(s1)
s(i)= _____________Text2 Text=res
Labell. Caption="最短长度: "+Str( length)+"开始位置: "+Str(L)Else
Labell. Caption="无解!"
End if
End Sub1 | 2 | 3 | 4 | 5 | 6 | …… | 2n-1 | 2n |
学号 | 成绩 | 学号 | 成绩 | 学号 | 成绩 | …… | 学号 | 成绩 |
第1个学生信息 | 第2个学生信息 | 第3个学生信息 | …… | 第n个学生信息 |
1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | …… | 3n-2 | 3n-1 | 3n |
名次 | 学号 | 成绩 | 名次 | 学号 | 成绩 | 名次 | 学号 | 成绩 | …… | 名次 | 学号 | 成绩 |
第1个学生信息 | 第2个学生信息 | 第3个学生信息 | …… | 第n个学生信息 |
'读取数据,存储在数组a中,并显示于列表框List1中
'代码略
End SubNext j
A(3*i=a(2*k)If ④ Then mc=i
List2. AddItem"第"+Str(mc)+"名:学号"+CStr(a(3*i-1))+",分数"十Str(a(3*i))a(3*i-2)=mc
Next i
End subA.Form_ Click() | B.Form_ Load() | C.Form1_ Click() | D.Forml_ Load() |
If b(j)< b(j-1) Then t=b(j: b(j)=b(j-1): b(j-1)=t
j=j-1
LoopIf a(j)<a(k) then k-j
Next jt=a(k):a(k)=a(i): a(i)=t
flag=False
Elself② Thent=a(i):a(i)=b(1):b(1)=t
flag=True
End IfA.List1.Caption=""/ | B.List1.Clear/ | C.List1. Additem"")。 |
If pos(stl, i)Then<> "-" Then
st2=st2-+pos(stl, i)Else
If pos(stl, i-1)<pos(stl, i+1) ThenEnd If
Next iA.Label1. ForeColor= vbRed/ | B.Labell. vbRed= ForeColor/ | C.Fore Color. Label1=vbRed)。 |
Dim n As Long, sum As Long, ans As Long
n= Val(Textl. Text)
sum=1
Do While sum <n
____________
Loop
If n =sum Then
ans=sum