十进制 | 0 | 1 | … | 24 | 25 | 26 | 27 | … | 50 | 51 | 52 | … | 61 | 62 | 63 |
加密字符 | A | B | … | Y | Z | a | b | … | y | z | 0 | … | 9 | + | - |
现设计一个程序,在文本框Text1中输入字符串(长度为3的倍数),文本框Text2中输出对应的Base64加密字符,运行效果如图所示,实现上述功能的VB代码如下。

Private Sub Commandl_Click()
Dim s As String,txt As String
Dim s1 As String,t As String
Dim tmp As Integer,n As Integer
Dim i As Integer,j As Integer
Dim ans As String
txt="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopq
rstuvwxyz0123456789+-"
s1=Text1.Text
For i=1 To Len(s1)
n=
t=""
For j=1 To 8
t=n Mod 2 & t
___①____
Next j
s=s & t
Next i
For i=1 To Len(s)
'二进制编码转换为加密字符tmp=_____②____
If i Mod 6=0 Then
ans=ans & Mid(txt,tmp+1,1)
tmp=0
End If
Next i
Text2.Text=ans
End Sub(1)代码“Private Sub Command1_Click( )”中的Cormmand1_Click是________。(单选,填字母:
A.属性名/ | B.事件名/ | C.事件过程/ | D.方法名) |
(3)将程序代码中划线处代码补充完整。
①______________________________
②______________________________
(4)根据图中数据所示,结合程序代码可知最终i的值是__________。

同类型试题

y = sin x, x∈R, y∈[–1,1],周期为2π,函数图像以 x = (π/2) + kπ 为对称轴
y = arcsin x, x∈[–1,1], y∈[–π/2,π/2]
sin x = 0 ←→ arcsin x = 0
sin x = 1/2 ←→ arcsin x = π/6
sin x = √2/2 ←→ arcsin x = π/4
sin x = 1 ←→ arcsin x = π/2


y = sin x, x∈R, y∈[–1,1],周期为2π,函数图像以 x = (π/2) + kπ 为对称轴
y = arcsin x, x∈[–1,1], y∈[–π/2,π/2]
sin x = 0 ←→ arcsin x = 0
sin x = 1/2 ←→ arcsin x = π/6
sin x = √2/2 ←→ arcsin x = π/4
sin x = 1 ←→ arcsin x = π/2

