VB编译错误：子程序或函数未定义？？？是怎么回事？_vb吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：92,828贴子：
VB编译错误：子程序或函数未定义？？？是怎么回事？收藏
Public Function GetMp3Tag(FName As String)&&& Dim Genre As Integer&&& If FName = "" Then Exit Function&&& If Dir(FName) = "" Then Exit Function&&&&&& Dim FileNum As Integer&&& FileNum = FreeFile&&&&&& Dim strInput As String&&& Open FName For Binary Access Read As FileNum&&&&&& If LOF(FileNum) & 128 Then&&&&&& Close FileNum&&&&&& Exit Function&&& End If&&&&&& Seek FileNum, LOF(FileNum) - 127&&& strInput = Space(3)&&& GetFileNum , strInput&&&&&& If strInput && "TAG" Then&&&&&& Colse FileNum&&&&&& GoTo Done:&&& End If&&&&&& strInput = Space(30)&&& GetFileNum , strInput&&& Label6.Caption = Trim(strInput)&&&&&& strInput = Space(30)&&& GetFileNum , strInput&&& Label7.Caption = Trim(strInput)&&&&&& strInput = Space(30)&&& GetFileNum , strInput&&& Label8.Caption = Trim(strInput)&&&&&& strInput = Space(4)&&& GetFileNum , strInput&&& Label9.Caption = Trim(strInput)&&&&&& strInput = Space(30)&&& GetFileNum , strInput&&& Label10.Caption = Trim(strInput)Done:Close FileNum End FunctionPrivate Sub Command1_Click()&&& GetMp3Tag File1.Path + "\" + File1.FileNameEnd SubPrivate Sub Command2_Click()&&& EndEnd SubPrivate Sub Dir1_Change()&&& File1.Path = Dir1.PathEnd SubPrivate Sub Drive1_Change()&&& Dir1.Path = Drive1.DriveEnd Sub
福利不只是穿多穿少，还要有迷人的微笑!
GetFileNum&,&strInput是什么？VB里没有这样的函数或子程序
GetFileNum , strInput这个漏了空格应该是Get FileNum , strInput
还少一个逗号Get #FileNum , , strInput
Dim value As IntegerDim counter As IntegerDim num As IntegerMe.ClsFor value = 2 To 100For counter = 2 To value - 1If value Mod counter = 0 ThenExit ForEnd IfNextIf counter = value ThenP Tnum = num + 1If num Mod 3 = 0 Then PrintEnd IfNext
谢谢3楼的哈，已经改好了，也多谢各位对我的无私帮助&&
With Library_Manage.rsSysUsers
If .RecordCount & 0 Then
.MoveFirst
.Find "编号=" & Trim(txtlog(0)) & ""
If .EOF Then
MsgBox Trim(txtlog(0)) & "不是系统用户，请检查输入！", vbCritical, "登录验证"
txtlog(0).SetFocus
txtlog(0).SelStart = 0
txtlog(0).SelLength = Len(txtlog(0))
ElseIf .Fields("口令") && Trim(txtlog(1)) Then
MsgBox "口令错误，请检查输入口令！", vbCritical, "登录验证"
txtlog(1).SetFocus: txtlog(1) = ""
CurrentUserNum = .Fields(编号)
CurrentUserPassword = .Fields("口令")
CurrentUserStatus = .Fields("权限")
MsgBox "欢迎使用常州信息学院管理系统！", vbInformation, "登陆成功！"
End IfEnd SubPrivate Sub Form_Load()
SysLogon.BackColor = RGB(192, 210, 270)End Sub End Sub
这该不会就是毕业设计吧。。。
Private Sub Command1_Click()
Dim s, s1, s2, s3, s4, s5 As Integer
Dim CONT, s5 As Boolean
s1 = Val(Text2.Text)
s2 = Val(Text3.Text)
s3 = Val(Text4.Text)
s4 = Val(Text5.Text)
s5 = Val(Text6.Text)
s = s1 + s2 + s3 + s4 + s5
Cont1 = s & 450
Cont2 = s1 &= 88 And s2 &= 88 And s3 &= 88 And s4 &= 88 And s5 &= 88
Cont3 = s1 &= 95 And s2 &= 95 And s3 &= 95 And s4 &= 80 And s5 &= 80
CONT = Cont1 Or Cont2 Or Cont3
Picture1.Cls
If CONT Then
Picture1.Print "学生"; Text1.T "的成绩为优秀"
Picture1.Print "学生"; Text1.T "的成绩不是优秀"
End IfEnd Sub显示当前范围内的声明重复 要怎么改 求指导
（编译时老显示子程序或函数未定义的编译错误，这事怎么回事）Option Explicit
Dim InetData As Variant *定义变型变量，用于获取缓冲区中的文件内容
Dim CurrentServerDir As String *定义字符变更，用于获取当前服务驱动器路径
Dim xpos As Long, ypos As Long *定义两个长整型变量，用于定位鼠标位置
Dim OperationStyle As Integer *定义整型变量，用于设置操作类型Private Sub Check1_Click() *复选按钮选中时代码
If Check1.Value = 0 Then *判断是否允许匿名访问
TxtUser.Enabled = True *允许匿名访问，无须输入用户名
TxtPassWord.Enabled = True *允许匿名访问，无需输入密码
End IfEnd SubPrivate Sub Cmd_Click(Index As Integer) * 连接服务器
If Index = 0 Then *如果单击了登录按钮
With Inet1
*使用互联网传输控件
If Left(Trim(TxtUrl.Text), 6) && &ftp: //& Then *判断“地址”栏中是否出现“ftp:”字样
.URL = &ftp://& & Trim(TxtUrl.Text) *没有出现“ftp:”字样，自动添加
If TxtPort.Text && && Then
.RemotePort = CInt(Trim(TxtPort.Text)) *端口号不为空，添加远程端口号
.RemotePort = 21 *端口号为空，为远程端口号添加一个默认端口号
If Check1.Value = 1 Then
.UserName = && *如果是匿名访问，用户名为空
.UserName = Trim(TxtUser.Text) *非匿名访问，添加用户名
.Password = Trim(TxtPassWord.Text) *非匿名访问，添加密码
CurrentServerDir = &/& *设置当前服务驱动器
If Inet1.StillExecuting Then *判断互联网传输控件是否正忙
MsgBox &无法断开保持连接& *如果正忙，弹出提示信息
ListServer *列出服务器根目录
Cmd(1).Enabled = True *【断开】按钮可用
Cmd(2).Enabled = True *【上一级】按钮可用
If Index = 1 Then *单击【断开】按钮
Inet1.Cancel *断开连接
List1.ListItems.Clear *清空列表
Cmd(2).Enabled = False *【上一级】按钮不可用
If Index = 2 Then *单击【上一级】按钮
If CurrentServerDir && && Then *判断当前服务驱动器是否为空
If Inet1.StillExecuting Then *判断互联网传输控件是否正忙
MsgBox &还没有执行完毕!& *如果忙，弹出提示信息
OperationStyle = 2 *当前驱动器控件不忙，设置操作类型
Inet1.Execute , &CD ../& *改变驱动器路径
UpServerDir *返回上一层驱动器路径
MsgBox &已经到了最上一层目录!&
End IfEnd SubPrivate Sub Form_Load() *初始化控件属性
Check1.Value = 1 *初始化为匿名访问
TxtUrl.Text = &192.168.0.1& *设置初始化地址
TxtPort.Text = &21& *设置初始化端口
TxtUser.Text = && *设置初始化用户名为空
TxtPassWord.Text = && *设置初始化密码为空
TxtStatus.Text = && *设置连接状态列表为空
TxtUser.Enabled = False *用记名文本框不可用
TxtPassWord.Enabled = False *密码文本框不可用
TxtPassWord.PasswordChar = &*& *设置密码显示形式
Combo1.Text = && *清空驱动器路径
Cmd(0).Enabled = True *【登录】按钮可用
Cmd(1).Enabled = False *【断开】按钮不可用
Cmd(2).Enabled = False *【上一级】按钮不可用
List1.ColumnHeaders.Add 1, &名称&, &名称&, List1.Width *为列表框设置标头End SubPrivate Sub Inet1_StateChanged(ByVal State As Integer) *连接状态发生改变时所引发的事件Dim tempArray As VariantDim i As IntegerDim FileSize As VariantDim itmX As ListItemOn Error Resume Next *程序继续运行Select Case State *判断当前连接状态
TxtStatus.Text = TxtStatus.Text & vbCrLf & &正在查询所指定的主机的 IP 地址&
TxtStatus.Text = TxtStatus.Text & vbCrLf & &已成功地找到所指定的主机的 IP 地址&
TxtStatus.Text = TxtStatus.Text & vbCrLf & &正在与主机连接&
TxtStatus.Text = TxtStatus.Text & vbCrLf & &已与主机连接成功&
TxtStatus.Text = TxtStatus.Text & vbCrLf & &正在向主机发送请求&
TxtStatus.Text = TxtStatus.Text & vbCrLf & &发送请求已成功&
TxtStatus.Text = TxtStatus.Text & vbCrLf & &正在接收主机的响应&
TxtStatus.Text = TxtStatus.Text & vbCrLf & &正在解除与主机的连接&
TxtStatus.Text = TxtStatus.Text & vbCrLf & &已成功地与主机解除了连接&
TxtStatus.Text = TxtStatus.Text & vbCrLf & &与主机通信时出现了错误&
TxtStatus.Text = TxtStatus.Text & vbCrLf & &错误& & Inet1.ResponseCode & &:& & Inet1.ResponseInfo
Case 8, 12
Select Case OperationStyle *判断并选择操作类型
TxtStatus.Text = TxtStatus.Text & vbCrLf & &成功列出目录内容&
List1.ListItems.Clear *清空列表
InetData = Inet1.GetChunk(1024, 0) *从缓冲区中依次提取1024个字节的回应文本
Combo1.Text = CurrentServerDir *设置当前驱动器路径
If Trim(InetData) && 0 Then *判断是否从缓冲区中读取数据
tempArray = Split(InetData, vbCrLf, , vbTextCompare) *对读取的数据返回一个下标从零开始的一维数组
Do While i & UBound(tempArray) *循环至数组的最大下标
If tempArray(i) && && Then *数组不为空
DealList (tempArray(i)) *显示所选择目录下上传的数据
TxtStatus.Text = TxtStatus.Text & vbCrLf & &成功改变目录& *改变目录状态
ListServer
End SelectEnd Select
TxtStatus.SelLength = Len(TxtStatus.Text)End SubPrivate Sub List1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
xpos = x *指定鼠标在当前窗体出现的横坐标
ypos = y *指定鼠标在当前窗体出现的纵坐标End SubPrivate Sub List1_DblClick()
Dim item As ListItem
If List1.HitTest(xpos, ypos) Is Nothing Then *用hittest方法测试点击位置,并判断
Exit Sub *忽略
Set item = List1.HitTest(xpos, ypos) *设置新的点击位置
Select Case item.Icon *选择文件图标
OperationStyle = 2 *设置操作形式
If item.Text = &./& Then *如果为根目录不再执行任何操作
ElseIf item.Text = &../& Then *如果为上级目录
Inet1.Execute , &CD ../& *改变驱动器路径
UpServerDir *返回上一层磁盘路径目录
CurrentServerDir = CurrentServerDir & item *设置当前服务器路径
Inet1.Execute , &CD & & CurrentServerDir *改变网络传输控件的路径
End SelectEnd SubPrivate Sub UpServerDir()Dim tempPos1 As IntegerOn Error Resume NextIf CurrentServerDir && &/& Then *判断当前服务器路径是否为根路径
tempPos1 = InStrRev(CurrentServerDir, &/&, Len(CurrentServerDir) - 1, vbTextCompare) *定位文件路径
CurrentServerDir = Mid(CurrentServerDir, 1, tempPos1) *重新设置当前服务器路径End IfEnd SubPrivate Sub DealList(tempStr As String)If Right(Trim(tempStr), 1) && &/& Then
AddFileToList (tempStr) *表示接受到的是文件Else
AddDirToList (tempStr) *表示接收到的是目录End IfEnd SubPrivate Sub AddFileToList(tempStr As String)Dim itmX As ListItem
Set itmX = List1.ListItems.Add(, , tempStr) *将文件名加入到列表视图中
itmX.Icon = 1
itmX.SmallIcon = 1End SubPrivate Sub AddDirToList(tempStr As String)Dim itmX As ListItem
Set itmX = List1.ListItems.Add(, , tempStr) *将目录加入到列表视图中
itmX.Icon = 2
itmX.SmallIcon = 2End SubPrivate Sub ListServer() On Error GoTo ErrorH
If Not Inet1.StillExecuting Then *判断互联网传输控件是否正忙
OperationStyle = 1 *如果忙，设置操作类型
Inet1.Execute , &DIR& *列出服务器指定目录下的文件和子目录
Exit SubErrorH:End Sub
登录百度帐号推荐应用
为兴趣而生，贴吧更懂你。或