Question

vb的一个问题，帮我写下编码

设字符串s =”eiP3J5Ej6deeE7oF^#J”，编程实现以下功能：用户在文本框中输入一个长度大于3的字符串作为密码，按回车（提示:使用用文本框的KeyPress事件），若用户输入的密码是字符串s的子串，则在窗体上隐藏文本框，并用标签显示“欢迎使用本系统”，否则显示“非法用户”。（字符串函数Instr与文本框的KeyPress事件的综合使用）

Answer 1

是这样吗？？？

Dim s As String

Private Sub Form_Load()
s = "eiP3J5Ej6deeE7oF^#J"
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Len(Text1) < 3 Then Exit Sub
If InStr(s, Text1) > 0 Then
Text1.Visible = False
Label1.Caption = "欢迎使用本系统"
Else
Label1.Caption = "非法用户"
End If
End If
End Sub

Answer 2

都提示到用instr了，还有什么难呢。。。
要自己一个个字符去比较才有点麻烦呢。
在text控件的keypress事件中，
if keycode=13 then '键码13表示按下了回车。
num=instr(1,text1.text,s,1)'不管大小写，一样的就会返回位置值，建议用百度查下 instr这个解释
text1.text="" '清空拉倒，隐藏个什么鬼呢。
if num>0 then label1.caption="欢迎使用"
endif

'keycode那里不知道有没有记错,自己看一看该事件带的参数就知了.

大致如此啦

Answer 3

提醒你一下:
如果是 子串,就显示"欢迎使用本系统",
那这个密码就比较容易被破解了吧??
起码是可以被试出来的.