结婚后的变化:vb测试错误,帮忙看看

来源：百度文库 编辑：高考问答 时间：2024/04/27 23:57:59
Private Sub Form_Load()
Dim username As String
username = InputBox("ÊäÈëÓû§Ãû!")
Dim usernames(3) As String
username(0) = "xiaoq"
username(1) = "xiaow"
username(2) = "xiaoe"
username(3) = "xiaor"
Dim flag As Boolean
flag = False
Dim i As Integer
For i = 0 To 3
If username = usernames(i) Then
flag = True
End If
Next i
If flag = False Then
MsgBox "Éí·Ý´íÎó!"
End
End If

End Sub

Private Sub Picture1_Paint()
Picture1.Print "»¶Ó­"
End Sub

一直显示: 编程错误:缺少数组
请问怎么回事啊
还有 我在VB里"»¶Ó­" "Éí·Ý´íÎó!" 前面的这些都是汉字 怎么在百度变符号了?
重装什么软件 VB吗?

这个地方拼写错误：
Dim usernames(3) As String
username(0) = "xiaoq"
username(1) = "xiaow"
username(2) = "xiaoe"
username(3) = "xiaor"
定义的数组是usernameS，使用的是username(x)

汉字编码出现问题，试重装一下软件

vb测试错误,帮忙看看 会VB地帮忙看看。 帮忙看看这个asp错误？ 系统错误，来帮忙看看！ 帮忙看看有错误没有？ VB程序,快帮我看看是不是有错误. 帮忙看看了 （网页错误） 因特网错误！高手帮忙看看，谢谢 帮忙看看C语言的错误 帮忙看看这封信，有没有错误呢？