①用APP进行拍照搜题
②在Word软件中输入“百步川杨”自动更正为“百步穿杨”
③使用指纹打卡进行员工考勤
④声卡将模拟信号转换成数字信号
⑤商场中的VR游戏体验
s=0
For i= 1 To 5
k=0
For j=i+ 1 To 6
If a(i) >a(j) Then k=k+1
Next j
s=s+k
Next i
数组元素a(1)到a(6)的值依次为“5，4，2，6，3，1”，执行该程序段后，变量s的值为（ ）
i=1：j=10：temp=a(5)
Do While a(j) >temp
j=j-1
Loop
Do While a(i) <temp
i=i+1
Loop
temp=a(i)：a(i)=a(j)：a(j)=temp
数组元素a(1)到a(10)的值依次为“36 91 36 17 93 99 29 97 97 96”，执行该程序段后，a(5)的值为（ ）
Key=Val(Text 1．Text)
i=1：j=10
Do While i<=j
m=(i+j)＼2
If Key<a(m) Then
j=m-1
Else
i=m+1
End If
Loop
Text 2.Text=Str(i-1)
数组a(1)~a(10)的值分别是2，2，3，5，5，5，7，7，7，9，若从Text 1中输入5，则Text 2显示的内容是（ ）
小明使用VB实现该排序，设计功能如下：随机生成两位正整数并显示在List1中，单击按钮“Command1”后将排序完成的数据显示在List2中。界面如图所示。
请回答以下问题：
Const n= 5 '矩阵大小
Dim a(1To n*n) As Integer
Private Sub Form_Load()
'随机生成n*n的矩阵数据，并依次保存在数组a(1)~a(n*n)中
'以n*n矩阵形式在list 1中显示数据，代码略
End Sub
Private Sub Command 1_Click()
Dim i As Integer， j As Integer， k As Integer， t As Integer
Dim startpos As Integer， endpos As Integer， s As String
For i= 2 To 2*n-2
If i<=n Then
startpos=(i-1) *n+ 1
endpos=i
Else
startpos= ①
endpos=(i-n+1) *n
End If
Do While startpos>endpos
②
j=startpos-n+1
Do While j>=endpos
If a(j) <a(k) Then k=j
j=j-n+1
Loop
If k<>startpos Then
t=a(k) ：a(k) =a(startpos) ：a(startpos) =t
End If
start pos=startpos-n+ 1
Loop
Next i
For i=1To n
s=””
For j=1To n
s=s+ ③
Next j
List 2．Add Item s
Next i
End Sub
① ② ③
①明文字符与对应密钥的ASCII码转化为二进制后求异或(对应位相同时结果为0，对应位不同时结果为1，如二进制1001与二进制1100的异或值为0101)，并将异或结果转换为十进制p；
②如果处在奇数位，则将明文字符循环后移p个位置，否则将明文前移p个位置。移动过程中保持大小写不变。
最后把所得到的字符连接起来就是密文。
例如，密钥是“abc”，明文“d”的加密过程是：字符“d”的ASCII码表示为二进制是1100100，密钥“a”的ASCII码表示为二进制是1100001，两数进行异或结果是：0000101，转化为十进制为5，因为是第1个位置，所以把明文后移5个位置，则密文是“i”。
该加密过程使用VB来实现。具体功能设计如下：在Text 1中输入明文，Text 2中输入密钥，单击“开始加密”按钮Command 1后将密文显示在Text 3中，界面设计如图所示。
请回答以下问题：
Private SubCommand1_Click( )
Dim s As String， sn As String
Dim i As Integer， t As Integer， u As Integer
Dim p As Integer， g As Integer
sn=“”
For i=1To Len(Text 1.Text)
t=Asc(Mid(Text1.Text， i， 1) )
If t>=Asc(“a”) Then
g=Asc(“a”)
Else
g=Asc(“A”)
End If
u=Asc(Mid(Text 2.Text，(i-1) Mod Len(Text 2.Tex kwt)+1，1))
p= ①
t=t-g
If i Mod 2= 1 Then
t=(t+p) Mod 26
Else
t= ②
End If
sn=sn+Chr(t+g)
Next i
Text 3.Text=sn
End Sub
Function txor(xk wAs Integer， y As Integer) As Integer 'x、y求异或并返回十进制
Dim a As Integer， b As Integer， r As Integer， i As Integer
a=x：b=y
r=1
For i= 1 To 7
If a Mod 2<>bMod 2 Then ③
a=a＼2
b=b＼2
r=r*2
Next i
End Function
① ② ③
