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
看看是到哪一行出錯.
逐句調試
不一定行,
萬一那個包含錯誤的子程序並沒有調用到,就不會報錯了.