vb编译错误子程序text

① VB显示编译错误，语法错误。 求大佬指教

& 作为字符串连接符 需要前后都有一个空格

Label5.Caption=Label1.Caption&Text1.Text&vbCrLf&Label2.Caption&Text2.Text&vbCrLf&Label3.Caption&Text3.Text&vbCrLf&Label4.Caption&Text4.Text

② VB编译后提示子程序或函数未定义~~那位大哥可以帮帮忙啊！谢谢啦！

这句有问题。
a(i) = Text(i).Text

重复定义
Dim a(0 To 12) As Integer

--------------------------------

添加一个text1.text控件，然后选中这个控件，ctrl+c,ctrl+v,复制12个,再添加一个text2.text控件(multiline=true)。

Private Sub Command1_Click()
Dim a(0 To 12) As Integer
Dim i As Integer

For i = 0 To 12
a(i) = Val(Text1(i).Text)

Next
Text2.Text = s(a)
End Sub

Private Function s(a() As Integer) As String
Dim i1 As Integer
Dim i2 As Integer
Dim i3 As Integer
Dim i4 As Integer
Dim i5 As Integer
Dim i6 As Integer
Dim c As Integer
Dim r As String

For i1 = 0 To 12 - 5
For i2 = i1 + 1 To 12 - 4
For i3 = i2 + 1 To 12 - 3
For i4 = i3 + 1 To 12 - 2
For i5 = i4 + 1 To 12 - 1
For i6 = i5 + 1 To 12
r = r & a(i1) & "," & a(i2) & "," & a(i3) & "," & a(i4) & "," & a(i5) & "," & a(i6) & vbCrLf
c = c + 1
DoEvents
Next
Next
Next
Next
Next
Next
MsgBox c
s = r
End Function

③ 用VB做一个图书管理系统老是弹出一个MsgBox说 编译错误：子程序或函数没有定义

你瞧，问题发生在txt(0)上面，这有两种可能：
1、在窗体上放置了一个TextBox控件，命名为“txt”，在代码中搞错了，变成了txt(0)。
2、你本身创建的一个TextBox控件数组，但是名字输入错误。

请你认真检查一下窗体上TextBox控件的名称是否相符！

④ 用vb编写代码，执行时出现了编译错误，是说“子程序或函数未定义”，帮帮忙看一哈

'getSNameList没有声明 最前面加上这句：
Public Function getSNameList() As Boolean

'如下
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Public Function getSNameList() As Boolean

End Function
Private Sub Form_Load()
Timer.Interval = 1000
End Sub

Private Sub timer_Timer()
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'获取本地计算机名并将其同赋给全局变量 myComputerName↓
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim name As String
name = String(225, " ")
Call GetComputerName(name, 225)
name = RTrim(name)
myComputerName = name
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'根据条件查找网络中的SQL服务器名并将其赋给 frmLand.cmbSName↓
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
On Error GoTo err1
If GetSetting("yinhang", "yinhangBank", "IfSaveSvName") = 1 Then
frmLand.cmbSName = GetSetting("yinhang", "yinhangBank", "SName")
Else
err1:
If getSNameList() = False Then
MsgBox "服务器名加载错误，请稍后自行指定", vbExclamation, "提示"
End If
End If
''''''''''''''''''''''''''''''''''''
Unload Me
frmLand.Show
frmLand.SetFocus
End Sub

⑤ vb编译错误:子程序或函数未定义

• VB子程序或函数未定义是设置错误造成的，解决方法为： 1、先绘制一个命令按钮，双击命令按钮进入代码窗口。 2、首先定义一个变体变量。 3、输入一个数字，并使用ABS函数。 4、然后写输出Print语句。5、然后点击按钮测试。

⑥ vb编写成绩表程序显示编译错误,子程序或函数未定义

Private Sub Command1_Click()
Dim n As Single
Dim n1 As Single
Dim n2 As Single
Dim score As Single
Dim total As Single
msg$ = "请输入分数"
msgtitle$ = "输入数据"
start:
score = inputbox(msg$, msgtitle$)'你写错了 是inputbox 不是imputbox
If score < 0 Or score > 100 Then
goto finish ' goto 不是gote
Else
total = score + total
n = n + 1
If score < 60 Then
n1 = n1 + 1
Else
n2 = n2 + 1
End If
End If
GoTo start
finish:
End Sub

Private Sub Command2_Click()
Text1.Text = Str$(n2)
Text2.Text = Str$(n1)
Text3.Text = Str$(total / n)
End Sub

Private Sub Command3_Click()
n = 0: n1 = 0: n2 = 0: total = 0
End
End Sub

⑦ vb编译错误，如何改进

ifucase(text1.text)="c"or

ucase(text1.text)="s"or

ucase(text1.text)="sc"

then

上面不能分行书写，要在一行中，否则编译错误，正确的写法

ifucase(text1.text)="c"orucase(text1.text)="s"orucase(text1.text)="sc"then

另外ucase函数是转换大写字母的函数，你上面的用法不正确，不知道你的意图。如果你是检测是不是含有某个字符，请使用InStr函数：

ifInStr(1,text1.text,"c")>0orInStr(1,text1.text,"s")>0orInStr(1,text1.text,"sc")>0then

下面这个语句书写不正确

adocdcl.recordsource="select*from"+text1.text'修改为
adocdcl.recordsource="select*from"&text1.text'from后面必须有空格，&号或+号二边必须有空格。

else

msgbox"该表不存在，请重新输入！",,"查询"

text1.setfoucus

exitsub

endif

adodcl.refresh

endsub

⑧ VB编译时出现LrText“子程序或函数未定义”

LrText不是VB自带的，你这个LrText应该是别人写的，你需要找到它。

⑨ vb登录界面，显示编译错误-子程序或函数未定义

NameKey = MakeStr(Text1)
PasswordKey = MakeStr(Text2)
教师.GetInfo (NameKey)
这些 MakeStr，
教师.GetInfo没有定义。

⑩ VB高手帮帮忙，编译错误:子程序或函数未定义

你用
文件---生成EXE
看看是到哪一行出错.
逐句调试
不一定行,
万一那个包含错误的子程序并没有调用到,就不会报错了.