Dim i As Integer， t As Integer
Dim enc As String， dec As String
enc = " 6Z9FBQ3VX4"： dec =" "
i =1：t=0
Do While t <4
c = Mid(enc， i，1)
If c>="0" And c<="9" Then
i = Val(c)
Else
dec=dec+c
t=t+1
End If
i =i+1
Loop
Text1.Text=dec
运行该程序段，文本框Text1中的内容是（ ）
Dim a(1 To 10) As Integer
Dim max As Integer
max=0
For i=1 To 10
If a(i)>max Then max=a(i)
Next i
Label1.Caption =“最大值是：”+ Str (max)
运行该程序时发现，当输入10个正整数时可以得到正确结果，但当输入10个负整数时结果错误。将上述程序段中相应语句仅进行一次更改，就可实现输入10任意整数都能得到最大值的结果，则下列修改正确的是（ ）
Private Sub Command1_Click( )
Dim a(1 To 10) As Integer, i As Integer, j As Integer, m As Integer
Dim Key As Integer, s As String
Randomize
Key = Int(Rnd * 100)
s=""：i=1：j=10
Do While i<j
m=(i+j)\2
If Key = a(m) Then Exit Do ' Exit Do退出循环
If Key < a(m) Then
j=m：s=s+"L"
Else
i=m+1：s=s+"R"
End If
Loop
Label1.Caption = s
End Sub
若数组元素a(1)到a(10)的值依次为“3，7，9，13，16，18，19，30，45，57”，执行该程序段后，标签Label1上显示结果，该结果中出现字母“L”和“R”且个数相同的情况有（ ）
Const n = 10
Dim a(1 To 10) As Integer
Private Sub Form _Load()
'读取一组正整数，存储在数组a中，并在列表框list1中显示。代码略
End Sub
Private Sub Command1_Click()
Dimi As Integer，m As Integer，low As Integer，high As Integer，temp As Integer
low=1：high=n
Do While
If a(low) Mod 2 = 1 Then
m =low
For i=low+1 To high
If a(i)Mod2=1 And a(i)<a(m) Then m=i
Next i
temp = a(m)： a(m) = a(low)： a(low) = temp
low= low + 1
Else
m =low
For i=low To high
If Then m=i
Next i
temp = a(m)： a(m) = a(high)： a(high) = temp
End If
Loop
For i=1 To n
List2.AddItem Str(a(i))
Next i
End Sub
Private Sub decrypt_ Click()
Dim g，n，U，y，hkey As Integer
Dim mw， xx As string
Dim a(1 To 100) As Integer
Dim i， L As Integer， c As String
'经与小明的协商，小红已获得g，n，U，y的值
g=2：n=7 '约定两个数g和n的值分别为2和7
U=2：y=5 '小红随机生成的数y的值为5
mw = Text1.Text '小明的密文，由数字和逗号组成
hkey = ①
L=1
For i = 1 To Len(mw)
c = Mid(mw， i， 1)
If 
Then
a(L)=a(L)*10+Val(c)
Else
L= ②
End If
Next i
For i=1 To L
a(i) = a(i) Xor hkey
③
Next i
Text2.Text = xx
End Sub
① ② ③
