Dim a(1 To 20)As String, ys As String, xs As String
Dim k As Integer, h As Integer, n As Integer, i As Integer, j As Integer
ys=Text1.Text: k=Val(Text2.Text)
n=Len(ys):h=1
For i=1 To n
a(i)=mid(ys,i,1)
Next i
For i=1 To k
For j = h To
If a(j) > a(h) Then
Next j
xs=xs + a(h)
h=h + 1
Next i
Text3.Text=xs
上述程序中方框处可选语句为
①n-k+i ②i+k ③n-k+1 ④j=h ⑤h=j
则方框处语句依次是( )
当前状态下,下列说法正确的是( )
FOR I= 1 TO 100
IF I MOD 2 =0 THEN S=S+I
NEXT I
PRINT S
这段程序的功能是( )