UC知道(VB)谁帮我翻译一下这段代码?~~~~
来源：百度知道 编辑：UC知道 时间：2024/05/22 20:37:10
Private Sub Form_Load()
Dim username As String
username = InputBox("请输入用户名!")
Dim usernames(3) As String
usernames(0) = "xiaow"
usernames(1) = "xiaol"
usernames(2) = "xiaoz"
usernames(3) = "xiaoh"
Dim flag As Boolean
flag = False
Dim i As Integer
For i = o To 3
If username = usernames(i) Then
flag = True
End If
Next i
If flag = False Then
MsgBox "用户确认失败,退出系统!"
End
End If
End Sub
1.为什么要定义数组,不定义可以么?
2.dim flag as booleam是什么意思,有什么用?
3.next i 是什么意思,有什么用
Dim username As String
username = InputBox("请输入用户名!")
Dim usernames(3) As String
usernames(0) = "xiaow"
usernames(1) = "xiaol"
usernames(2) = "xiaoz"
usernames(3) = "xiaoh"
Dim flag As Boolean
flag = False
Dim i As Integer
For i = o To 3
If username = usernames(i) Then
flag = True
End If
Next i
If flag = False Then
MsgBox "用户确认失败,退出系统!"
End
End If
End Sub
1.为什么要定义数组,不定义可以么?
2.dim flag as booleam是什么意思,有什么用?
3.next i 是什么意思,有什么用
1 定义数组的话后面就可以用循环，可以减少工作量，而且代码简洁
2 把Flag定义为布尔型变量，也就是 flag为真或假
3 for ..next循环语句 前面是for i.... 后面对应 next i
1.不可以,不然程序容易出错
2.定义flag是作为一个"开关",True和false值为是否,在程序中作为判断用户正确的关键"钥匙"
3.for i = ... to ...
next i '为固定语法...
Private Sub Form_Load() '这是一段简单的登陆界面代码
Dim username As String
username = InputBox("请输入用户名!") '取输入框的名字
Dim usernames(3) As String '这里可以把括号中的 3 删除,以定义无穷大的数组
usernames(0) = "xiaow" '不定义数组在这里会出错
usernames(1) = "xiaol"
usernames(2) = "xiaoz"
usernames(3) = "xiaoh"
Dim flag As Boolean 'boolean是布尔型变量,True和false
flag = False
Dim i As Integer
For i = o To 3
If username = usernames(i) Then
flag = True
End If
Next i '这里是对应For i = o To 3 ,一般一个FOR可以直接写为"next"
If flag = False Then '这里是检验是不是不通过,可写为 if not flag then
MsgBox "用户确认失败,退出系统!" <