| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1818 人关注过本帖
标题:测试程序是提示编译错误 子程序函数未定义 求高手指点
只看楼主 加入收藏
alexxiangyu
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2008-10-30
收藏
 问题点数:0 回复次数:2 
测试程序是提示编译错误 子程序函数未定义 求高手指点
我我是新手在学习编程
这是我从网页上直接复制的 代码

Private Sub Command1_Click()
    ′判断是否输入了用户名
  If Text1.Text=″″ Then ′如果Text1为空,即没有输入用户
      MsgBox ″请输入用户名!″, vbOKOnly + vbCritical, ″错误″
   Exit Sub ′退出这个过程
    Else: ′如果输入了用户名
      If Text1.Text = ″软件世界″ And Text2.Text = ″12345″ Then ′如果输入的用户名是″软件世界″且密码为″12345″
    MsgBox ″你是合法用户,欢迎进入!″,vbOKOnly+vbInformation,″欢迎进入″
      Else: ′如果不是″软件世界″或密码不是″12345″
        MsgBox ″用户名或密码错误!″, vbOKOnly + vbCritical, ″错误″
        Text1.Text = ″″
    Text2.Text=″″ ′清空Text1及Text2控件中的文本内容,让用户重新输入
      End If
    End If
    End Sub
错误提示在Private Sub Command1_Click()这一段
搜索更多相关主题的帖子: 子程序 函数 定义 提示 
2008-10-30 17:31
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:0 
不测试了,全角和半角的区别
你自己看着办吧。
全是全角的 引号,自然是子程序函数未定义
一片全红。

授人于鱼,不如授人于渔
早已停用QQ了
2008-10-30 17:36
alexxiangyu
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2008-10-30
收藏
得分:0 
谢了
可以了
2008-10-30 19:39
快速回复:测试程序是提示编译错误 子程序函数未定义 求高手指点
数据加载中...
 
   



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

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