華閱文章網缺少語句結束
Private Sub Command1_Click()
Dim str1 As String
Dim len1, i, n, m, s, f
n = 0: m = 0
i = 1: s = 0
len1 = Len(Text1)
Do While i c = Mid(Text1, i, 1)
Select Case c
Case "a" To "z", "A" To "Z"
n = n + 1
Case ".", c = "!", c = "?"
m = m + 1
End Select
i = i + 1
Loop
i = 1
Do While i str1 = Mid(Text1, i, 4)
Select Case str1
Case "The"
s = s + 1
End Select
i = i + 1
Loop
'這里是*n，不是*n
*n = "字符數" & n & "句子數" & m & "The的個數" & s
End Sub
缺少語句結束-Begin VB.
寫的什么意思 搞不懂 Begin VB。
Form Form1 '應該用With把 Caption = "文件管理器" '用With前面要加點 。Caption="" ClientHeight = 3780 ClientLeft = 165 ClientTop = 735 ClientWidth = 4995 LinkTopic = "Form4" LockControls = -1 'True ScaleHeight = 3780 ScaleWidth = 4995 StartUpPosition = 3 '窗口缺省 End 'With Begin VB。
CommandButton Command1 Caption = "開始搜索" BeginProperty Font Name = "宋體" Size = 15 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty '這是不是應該有空格 Height = 492 Left = 2880 TabIndex = 10 Top = 3000 Width = 1932 End。
VB提示“缺少：語句結束”
正確語句如下：
Private Sub Command1_Click()
Dim scoore As Integer, temp As String
scoore = Val(*)
temp = "成績等級為："
Select Case scoore
Case 0 To 59
*n = temp + "不及格"
Case 50 To 69
*n = temp + "及格"
Case 80 To 100
*n = temp + "優良"
Case Else
*n = "成績出錯！"
End Select
End Sub
樓上的別管成績沖突不沖突，就是沖突語只是執行的結果正確與否問題，不會影響語法的。
vb提示缺少語句結束是什么意思啊
Dim i As Integer
Dim k As Integer
Dim s As Double
s = 1
k = Val(*)
For i = 1 To k
s = s * i
Next
Labe12,Caption = k&"!="&s（就是這一行）
、Labe12,Caption "，"改為 “.” 就OK了！！寫代碼時應該注意細節！！！
VB缺少語句結束什么原因
你好！因為我的電腦上已經沒有VB6了，所以無法通過運行驗證你的代碼，但是仍然想給你一些可能的答案。
首先，end sub 總是與 private sub成對出現的，但是在你的代碼的結尾，就沒有看到end sub，這是不合理的。可能被你誤刪了。
其次，也可能是在某個if語句之后，沒有使用 end if 來結尾。但是由于你編寫代碼沒有養成格式縮進的良好習慣，已經很難看出是在哪里缺少 end if 了。為此，給你兩個建議：
一是在使用結構語句時，結構中的語句應該比關鍵詞縮進3格，如果結構語句1之內嵌套著結構語句2，那么2中的語句依次再縮進3格，以此類推。這樣的好處是，編寫出來的代碼，層次分明，便于閱讀與分析。
二是在使用結構語句時，先把關鍵詞都寫完，并且其縮進完全相同，然后才填寫其中的過程代碼，這樣的好處是保證關鍵詞成對出現，不會缺失。
下面給一些例子，供你參考：
private sub uiunxun()
dim i as integer
dim a as integer
for i = 0 to 10
if i 0
a=a-1
loop
end sub
如此格式，便能脈絡清楚，層次分明了。
我的回答，并不是希望得到你百度式的“采納”，只是希望對你有所幫助我就滿足了。