Private Sub Command1_Click( ?。?br />Dim x As Integer x=② If x>=90Then Label3.Caption=“A“ ElseIf x>=80Then Label3.Caption=“B“ ElseIf x>=60Then Label3.Caption=“C“ ElseIf x>=55Then Label3.Caption=“D“ else Label3.Caption=“E“ End If End Sub
Option Explicit Dim a(1To 10)As Integer Private Sub Command1_Click( ?。?br />Dim i As Integer List1.Clear For i=1To 10 a(i)=① List1.AddItem Str(a(i)) Next i End Sub
Private Sub Command2_Click( ) Dim i As Integer Dim t As Integer i=10 Do While i>=2 If a(i)>a(i-1)Then t=a(i):a(i)=a(i-1):a(i-1)=t End If ② Loop[ Text1.Text=③ End Sub.