| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 637 人关注过本帖
标题:请教 各位大侠 ,这是啥意思 ,俺 是初学者!!!
取消只看楼主 加入收藏
票根
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2010-5-17
结帖率:50%
收藏
已结贴  问题点数:10 回复次数:4 
请教 各位大侠 ,这是啥意思 ,俺 是初学者!!!
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
票根
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2010-5-17
收藏
得分:0 
Private Sub Picture1_Paint()
Picture1.Print "you are wellcom!"
End Sub
很感谢您的解答 ,那这段代码是怎么回事,如果判断用户名正确 ,那么这段代码就不执行了??是这个意思 嘛??有点想不通。
2010-05-18 21:33
票根
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
票根
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2010-5-17
收藏
得分:0 
回复
谢谢,各位大侠 的指点
2010-05-20 18:48
快速回复:请教 各位大侠 ,这是啥意思 ,俺 是初学者!!!
数据加载中...
 
   



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

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