标题:[求助]加上循环出现问题
只看楼主
yjdgv
Rank: 1
等 级:新手上路
帖 子:73
专家分:0
注 册:2007-8-25
 问题点数:0 回复次数:6 
[求助]加上循环出现问题

请问各位高手一个问题

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim len1 As Integer
Dim a, c As String

a = Trim(TextBox1.Text)
len1 = Len(a)
For i As Integer = 0 To len1 - 1
c = c & Mid(a, len1 - i, 1)
Label1.Text = c

Next i
End Sub
End Class
没有加for循环时正确但是加上后就出现问题请问该如何改啊

2007-09-28 13:29
qlong0728
Rank: 3Rank: 3
等 级:新手上路
威 望:8
帖 子:272
专家分:0
注 册:2007-6-15
得分:0 
Dim len1 As Integer
Dim a, c As String
c = ""
a = Trim(TextBox1.Text)
len1 = Len(a)
For i As Integer = 0 To len1 - 1
c = c & Mid(a, len1 - i, 1)
Next i
Label1.Text = c

程序人员写程序,又拿程序换酒钱。 奔驰宝马贵者趣,公交自行程序员。 不见满街漂亮妹,哪个归得程序员。
2007-09-28 15:11
yjdgv
Rank: 1
等 级:新手上路
帖 子:73
专家分:0
注 册:2007-8-25
得分:0 
多谢楼主

2007-09-28 16:24
yjdgv
Rank: 1
等 级:新手上路
帖 子:73
专家分:0
注 册:2007-8-25
得分:0 

变量C在引用之前为什么得先赋""啊


2007-09-28 16:26
qlong0728
Rank: 3Rank: 3
等 级:新手上路
威 望:8
帖 子:272
专家分:0
注 册:2007-6-15
得分:0 

C如果之前不赋值,len1 如果是零的话C就会产生为空,如果是VB就不用赋,因为VB默认的就""来的.


程序人员写程序,又拿程序换酒钱。 奔驰宝马贵者趣,公交自行程序员。 不见满街漂亮妹,哪个归得程序员。
2007-09-28 16:34
yjdgv
Rank: 1
等 级:新手上路
帖 子:73
专家分:0
注 册:2007-8-25
得分:0 

谢谢了楼主


2007-09-28 22:36
bygg
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:乖乖的心中
等 级:版主
威 望:241
帖 子:13555
专家分:3076
注 册:2006-10-23
得分:0 

For i As Integer = 0 To len1 - 1
c = c & Mid(a, len1 - i, 1)
Label1.Text += c

Next i

这样也行的


飘过~~
2007-09-29 11:35



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-173613-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.175066 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved