下列说法正确的是（ ）
n=Len(s)
k=0:j=n
For i = 1 To n/2
Next i
If k = 0 Then Label1.Caption =“对称” Else Label1.Caption=“不对称”
方框中的代码由以下三部分组成：
① j=j-1
② If c1<>c2 Then k = k + 1
③ c1= Mid(s, i, 1) : c2 = Mid(s, j, 1)
代码顺序正确的选项是( )
Const n = 10
Dim a(1 To 10) As Integer
m = Int(Rnd * n + 1)
For i = 1 To 10
a(i) = 0
Next i
i = 0: j = 0: c = 1: ans = ""
Do While c <= 3
i = i Mod n + 1
If a(i) = 0 Then j = j + 1
If j = m Then
a(i) = 1: c = c + 1
j = 0: ans = ans + Str(i)
End If
Loop
Text1.Text = ans
执行上述程序段后，文本框Text1中不可能的内容是（ ）
图 b
①以“2020年3月”为关键字进行降序排序
②以“类别”为关键字（按字母排序）进行降序排序
③按“类别”进行筛选，选择的值为“商务交易
④按“2020年3月”进行筛选，选择“10个最大的值”并显示最大的 1 项
图 a
图 b
Private Sub Command1_Click()
Dim a As Integer, s As String
Dim n As Integer, t As Integer, v As Integer
n = Val(Text1.Text)
t = 0
s = ""
Do While n > 0
a = n Mod 2
n = n \ 2
t =
s = Str(a) + s
Loop
v = t Mod 2
Text2.Text = s
Label3.Caption = "校验位值：" +
End Sub
Private Sub Command1_Click()
Dim s As String, resule As String, pos As String
Dim count As Integer, i As Integer
i = 1: count = 0: resule = "": pos = ""
Do While i <= Len(Text1.Text) ‘ i 是查找过程中所查找到的当前字符位置的标记
s = Mid(Text1.Text, i, Len(Text2.Text))
If s =Then
result = result + Text3.Text
count = count + 1
pos = ‘pos 依次显示被替换内容在原文中的起始位置
i = i + Len(Text2.Text)
Else
result=result+Mid(text1.text,i,1)
End If
Loop
Text4.Text = result
Text5.Text =
Text6.Text = pos
End Sub
