图1
   图2

 程序代码如下：

Private Sub Command1_Click()

  Dim i As Integer

  List1.Clear            '清除列表框内容

End Sub

Private Function f(x As Integer) As Boolean  '自定义函数f,返回值为逻辑型

  Dim j As Integer

  f = True

  For j = 2 To Int(Sqr(x))

    If x Mod j = 0 Then

      f =     ③      '函数返回值

      Exit For           '跳出For循环

    End If

  Next j

End Function

程序代码如下：

Private Sub Command1_Click()

  Dim sum As Integer    'sum用来统计符合条件的自然数个数

  Dim n, max As Integer

  List1.Clear

  sum = 0

  max = _______①______    '指定查找范围的最大自然数，在text1框中输入

  n = 0

  Do While n <= max

n = n + 1  

    If _______   _②         ___  Then

List1.AddItem Str(n) '

    ________③_______

    End If

  Loop

  List1.AddItem ("共计" + Str(sum) + "个")   

End Sub

⑴找出文章(以“.”结束)中所有用英文表示的数字(均为小写，数字范围1≤n≤20)，单词与数字对应如下：

⑵将这些数字平方后除以100取余，得到两位数如00，04，21，96。

⑶把这些两位数按升序排成一行，组成一个最小的新数，如果新数开头为0，就去除。

⑷步骤(3)找出的最小数即为密码。

小明按照上述方法，设计了一个解密的VB程序，功能如下：单击“解密”按钮Command1，程序依次将文本框Text1中以空格分隔的每个英文单词取出，若单词属于数字单词，则按解密步骤进行处理，最后在文本框Text2中输出解密结果。

程序运行效果如图所示，请回答下列问题：

登录模块

密码广泛应用于日常生活中，我们在登录网站、App、电子邮箱以及银行取款时都要输入“密码”。不少人因密码被盗而导致个人信息泄露，甚至是财产损失。

以下是王林同学设计的一款App的登录模块流程图。