vb改错，只要错误的地方就可以

来源：百度知道编辑：UC知道时间：2024/06/07 22:31:45

Public Sub Wrap()
'该过程用于判断一个字符串是否“回文”。
'所谓“回文”是指字符串顺读与倒读都是一样的，如“潮起潮落，落潮起潮”。
Dim length As Integer
Dim str1 As String
Dim strleft As String
Dim strright As String
Dim k As Integer
str1 = InputBox("请输入任意的字符串") '输入任意字符串
'****错误1*****
length = Val(str1)
k = 1
Do
'****错误2*****
strleft = Left(str1, k) '从左边起逐个取出一个字符
'****错误3*****
strright = Right(str1, k) '从右边起逐个取出一个字符
'****错误4****
If strleft = strright Then
Exit Do
End If
k = k + 1
Loop While k <= length / 2
If k > length / 2 Then
Form1.Print str1 & "是回文"
Else
Form1.Print str1 & "不是回文"
End If
End Sub

Dim length As Integer
Dim str1 As String
Dim strleft As String
Dim strright As String
Dim k As Integer
str1 = InputBox("请输入任意的字符串") '输入任意字符串
length = Len(str1)
k = 1
Do
strleft = Mid(str1, k, 1) '从左边起逐个取出一个字符
strright = Mid(str1, length + 1 - k, 1) '从右边起逐个取出一个字符
If strleft <> strright Then
Exit Do
End If
k = k + 1
Loop While k <= length / 2
If k > length / 2 Then
Form1.Print str1 & "是回文"
Else
Form1.Print str1 & "不是回文"
End If

或者可以直接
if str1=StrReverse(str1) then
print str1 & "是回文"
else
print str1 & "不是回文"
endif

那位大哥大姐给我弄个VB的毕业设计呀.我急用只要是VB的就可以..很简单的就可以了啊开通电子商务功能到任何银行只要是能开网上银行的地方就可以吗谁有VB与SQL数据库相连的一个登入窗口啊，只要代码就可以求用VB.net编写的web应用程序一个，可以很小，只要能实际运行就行。 VB简单内部函数的调用改错+ vb的改错，谢谢大家帮个忙！谁帮我编一段VB小程序，只要是学过VB的就会在改错中,哪些错误是常出的? 改错选出错误的一项并改正请问秦皇岛有批发饰品的地方吗？头饰、手饰，只要是漂亮的就可以