猜密码。电脑产生一个8位密码，用户输入猜测的密码，电脑判断用户所猜密码的正确性，如果用户输入的密码和电脑产生的密码完全一致则输出“恭喜你猜中了密码！”，否则程序将输出用户密码和计算机产生密码之间不同的字符数。电脑产生的8位密码分别保存在数组pass的8个下标变量pass（1）、pass（2）、…、pass（8）中。
程序界面如图VB-1所示，用户在文本框Text1中输入密码，单击“密码校验”按钮（Command1）后，程序在标签Label3中输出密码校验结果。
解决此问题的算法流程图如图VB-2所示，相应的程序如下，在程序①和②横线处，填入适当的语句或表达式，把程序补充完整。
Dim pass（1To 8）As Integer
Private Sub Command1_Click （　　）
Dim x（1To 8）As Integer,i As Integer,s As Integer
For i=1To 8
x（i）=Val（Mid（Text1．Text,i,1））'把文本框中数字逐个分割出来并转化成数值
Next i
s=0'变量s保存不同字符的总数
For i=1To 8
If pass（i）＜＞x（i） Then     ①         
Next i
If      ②           Then
Label3．Caption=“恭喜你猜中了密码！“
Else
Label3．Caption=“你输入的密码共有“+Str（s）+“个字符和密码不符“
End If
End Sub
Private Sub Form_Load  （　　）
Dim i As Integer
For i=1To 8'产生8位密码，每位一个非负整数，保存到数组pass
pass（i）=Fix（Rnd*10）
Next i
End Sub
程序中①横线处应填入

s=s+1

s=s+1

程序中②横线处应填入

s=0

s=0