小弟刚学VB,刚自己做了个小程序,希望高手帮忙看看

Question

再这段代码里面,有什么语句是多余的或者有什么别的更好的语句来编写,不过最好限于初学者能用的语句!谢谢了
Private Sub Command1_Click()
Dim zh(1), mm(1) As String
Dim i, dc As Integer
dc = 0
zh(0) = "iswipyud"
mm(0) = "iswipyud"
zh(1) = "qdyiswi"
mm(1) = "qdyiswi"
For i = 0 To 1
If Text1 = zh(i) Then
If Text2 = mm(i) Then
dc = 1
Unload Me
Form2.Show
End If
End If
Next i
If Text1 = "" Then
If Text2 = "" Then
dc = 2
MsgBox ("帐号密码不能为空")
End If
End If
If dc = 0 Then
MsgBox ("帐号或密码错误")
End If
End Sub

Answer 1

这个程序很简单的,不需要用数组了.反而麻烦了
Private Sub Command1_Click()
Dim zh, mm As String
zh = "iswipyud"
mm = "qdyiswi"
If Text1 = zh(i) Then
If Text2 = mm(i) Then
Unload Me
Form2.Show
else
MsgBox "密码错误"
text2=""
test2.setfause
End If
else
MsgBox "帐号错误"
text1=""
text2=""
text1.setfause
End If
If Text1 = "" and Text2 = "" Then
MsgBox "帐号密码不能为空"
End If
End Sub
大概就是这样了,是凭空写出来的,你自己调试一下看看啊,有什么问题在提问啊!我也刚写VB大家共同进步啊.

Answer 2

1、如果你是利用文本框输入的话，应该是text1.text、text2.text吧
2、那个if语句可以这样写
If Text1.text = zh(i) and If Text2.text = mm(i) Then
dc = 1
Unload Me
Form2.Show
End If
第2个
If Text1.Text = "" Or Text2.Text = "" Then
dc = 2
MsgBox ("帐号或密码不能为空")
end if