
s = "491053"
For i = 1 To 3
n = Len(s)
k = 1
For j = 2 To n
If Mid(s, k, 1) >= Mid(s, j, 1) Then
k = j
Else
Exit For 'Exit For表示退出循环
End If
Next j
s = Mid(s, 1, k - 1) + Mid(s, k + 1, n - k)
Next i
Label1.Caption = s
执行该程序段后,标签Label1中显示的值是( )
Dim s As String, ch As String
Dim i As Integer, data As Integer
Const n = 8
Private Sub Form_Load()
For i = 1 To n
'随机生成n位小写字母显示在文本框Text1中
Next i
End Sub
Private Sub Command1_Click()
Dim count As Integer, j As Integer, m As Integer
Dim a(1 To 64) As Integer
Dim b(1 To 64) As Integer
Const sj = "0123456789ABCDEF"
s = Text1.Text: count = 0
For i = 1 To Len(s)
data = Asc(Mid(s, i, 1))
Do While count <> n
data = data \ 2
count = count + 1
Loop
count = 0
Next i
tmp = 0
For m = 1 To n * n
i = (m - 1) \ n + 1: j = (m - 1) Mod n + 1
b((i - 1) * n + j) =
s1 = s1 + Str(b((i - 1) * n + j))
If j Mod n = 0 Then List1.AddItem s1: s1 = ""
tmp =
If j = 4 Or j = 8 Then
s2 = s2 + Mid(sj, tmp + 1, 1): tmp = 0
End If
Next m
Text2.Text = s2
End Sub

下列说法正确的是( )
B .
C .
D .
场景:main | 类别序号:2 | 进入方式:由“load”场景单击“播放”按钮进入 |
呈现方式: ⒈“文字2”从舞台外向左移动到“近景”房子的上方。 ⒉“重播”按钮位于舞台左下方,单击按钮,将从该场景第1帧重新开始播放。 ⒊其他动画略。 | 呈现顺序说明: ⒈一开始出现“远山”、“近景”、“文字1”和“船”的动画,再依次出现“大雁”、“文字2”和“菊花”的动画。 ⒉最后出现“重播”按钮,并停止播放。 | |

B .
C .
D .
Function f(x1 As Integer, x2 As Integer)As Integer
Dim t As Integer, i As Integer
If x1 <x2 Then t=x1: x1=x2: x2=t
For i= ①
If i Mod 3=2 And i Mod 5 = 3 Then ②
Next i
End Function
① ②
”按钮的作用是( )。