圖片框名稱分別為：picture1-picture5
妳並沒有規定輸第六個字符會如何，所以我沒對些進行處理，認為輸入第六個字符不會產生效果。
代碼如下：（假定界面已經做好）
Private
Sub
Form_Load()
Picture1.Visible
=
False
Picture2.Visible
=
False
Picture3.Visible
=
False
Picture4.Visible
=
False
Picture5.Visible
=
False
End
Sub
Private
Sub
Text1_Change()
Dim
a
As
Integer
a
=
Len(Text1.Text)
If
(a
=
0)
Then
Picture1.Visible
=
False
Picture2.Visible
=
False
Picture3.Visible
=
False
Picture4.Visible
=
False
Picture5.Visible
=
False
End
If
If
(a
=
1)
Then
Picture1.Visible
=
True
Picture2.Visible
=
False
Picture3.Visible
=
False
Picture4.Visible
=
False
Picture5.Visible
=
False
End
If
If
(a
=
2)
Then
Picture1.Visible
=
True
Picture2.Visible
=
True
Picture3.Visible
=
False
Picture4.Visible
=
False
Picture5.Visible
=
False
End
If
If
(a
=
3)
Then
Picture1.Visible
=
True
Picture2.Visible
=
True
Picture3.Visible
=
True
Picture4.Visible
=
False
Picture5.Visible
=
False
End
If
If
(a
=
4)
Then
Picture1.Visible
=
True
Picture2.Visible
=
True
Picture3.Visible
=
True
Picture4.Visible
=
True
Picture5.Visible
=
False
End
If
If
(a
=
5)
Then
Picture1.Visible
=
True
Picture2.Visible
=
True
Picture3.Visible
=
True
Picture4.Visible
=
True
Picture5.Visible
=
True
End
If
End
Sub