| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 637 人关注过本帖
标题:请教 各位大侠 ,这是啥意思 ,俺 是初学者!!!
只看楼主 加入收藏
票根
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2010-5-17
结帖率:50%
收藏
已结贴  问题点数:10 回复次数:7 
请教 各位大侠 ,这是啥意思 ,俺 是初学者!!!
Private Sub Form_Load()
Dim user As String
user = InputBox("请输入用户名", "登陆")
Dim username(3)
username(0) = "xiaohua"
username(1) = "xiaoli"
username(2) = "xiaozhang"
username(3) = "xiaozhao"
Dim flag As Boolean
flag = False
Dim i As Integer
For i = 0 To 3
    If user = username(i) Then
     flag = True
     End If
Next i
    If flag = False Then
    MsgBox ("用户名错误,系统将自动关闭!")
    End
End If
End Sub


Private Sub Picture1_Paint()
Picture1.Print "you are wellcom!"
End Sub
搜索更多相关主题的帖子: xiaohua 用户名 
2010-05-17 22:11
yuluozj
Rank: 2
等 级:论坛游民
帖 子:5
专家分:15
注 册:2010-5-12
收藏
得分:5 
这是vb程序的代码 大概来说是判断输入的用户名于已有的是否相同
如果不同将提示“用户名错误,系统将自动关闭”,是作为登陆界面的
,登陆界面你见的多了吧
Private Sub Form_Load()‘窗体的load事件
Dim user As String’定义user是字符串类型
user = InputBox("请输入用户名", "登陆")
Dim username(3)‘定义数组
’赋初值
username(0) = "xiaohua"
username(1) = "xiaoli"
username(2) = "xiaozhang"
username(3) = "xiaozhao"

‘定义flag为布尔值 它只有两个值一个是true一个是false
Dim flag As Boolean
flag = False‘flag赋初值false
Dim i As Integer
’for循环判断用户名是否正确如果正确flag赋true值
For i = 0 To 3
    If user = username(i) Then
     flag = True
     End If
Next i
    If flag = False Then
    MsgBox ("用户名错误,系统将自动关闭!")
    End
End If
End Sub


Private Sub Picture1_Paint()
Picture1.Print "you are wellcom!"
End Sub
这段代码应该有个相对应的窗体
2010-05-17 22:58
票根
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2010-5-17
收藏
得分:0 
Private Sub Picture1_Paint()
Picture1.Print "you are wellcom!"
End Sub
很感谢您的解答 ,那这段代码是怎么回事,如果判断用户名正确 ,那么这段代码就不执行了??是这个意思 嘛??有点想不通。
2010-05-18 21:33
yuluozj
Rank: 2
等 级:论坛游民
帖 子:5
专家分:15
注 册:2010-5-12
收藏
得分:5 
Private Sub Picture1_Paint()
Picture1.Print "you are wellcom!"
End Sub
这段代码就是用户名正确后执行的,用户名正确就会绘制“you are wellcom!”图片
用户名不正确就会提示("用户名错误,系统将自动关闭!")
你可以自己调一下这段代码就可以理解了
在窗体上建个picturebox控件,把代码复制到代码窗口去就行了


  If flag = False Then
    MsgBox ("用户名错误,系统将自动关闭!")
    End
这个end很重要 用户名错误就执行end,所以后面的
Private Sub Picture1_Paint()
Picture1.Print "you are wellcom!"
End Sub
就不能执行了
只有用户名正确才会出现
"you are wellcom!"
我表达能力有限不知道你明白了吗
2010-05-18 22:36
票根
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2010-5-17
收藏
得分:0 
for......next......end if  是什么意思 ,尤其是 next 后面的那个  i
2010-05-18 22:37
票根
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2010-5-17
收藏
得分:0 
上面那个明白了,还有就是,如果 要同样实现这一个效果,还有没有其它方式 。
2010-05-18 22:39
weijingfdsa
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2008-12-23
收藏
得分:0 
for ...next ....是一个循环语句,原文为:for <变量> to step(终止值)...next [变量]
next [变量]中的变量可省略,表示从变量到终止值的循环,next 表示for循环结束。后面的if....可以看作为另一个
if判断语句
2010-05-19 14:39
票根
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2010-5-17
收藏
得分:0 
回复
谢谢,各位大侠 的指点
2010-05-20 18:48
快速回复:请教 各位大侠 ,这是啥意思 ,俺 是初学者!!!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.018941 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved