| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 837 人关注过本帖
标题:这个循环怎么加?
只看楼主 加入收藏
vvvvb
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2008-7-29
收藏
 问题点数:0 回复次数:4 
这个循环怎么加?
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        Input = TextBox1.Text
        Select Case input
            Case "A" To "Z"
                output = LCase(input) '大小写转换

            Case "a" To "z"
                output = UCase(input) '大小写转换
            Case Else
                output = "*"
        End Select
        TextBox2.Text = output
    End Sub

在 TXTBOX1 输入字符时 TXTBOX2自动转换大小写
现在问题是:1.在只是默认一个转换方式,如果你输入第一个字母是大写,他会转成小写,但再输入小写,或者数字,他都是输出小写
2.输入很长的数字时,他也只是输出一个 “*”

该怎么加个循环呢?
搜索更多相关主题的帖子: 循环 
2008-07-29 13:25
flyingcat2008
Rank: 2
来 自:湖南
等 级:论坛游民
帖 子:33
专家分:13
注 册:2008-7-28
收藏
得分:0 
不要用Ucase,Lcase
Private Sub Textbox1_Change()
  ''首先,我认为用 input 和 output作为变量名不合适,因为任何语言中都不要用函数名和关键字作变量名
  ''可改为inputStr,outputStr
  ''用判断字符的ASCII码值做比较好,因为Ucase,Lcase对这儿不好用.
  
  inputStr = Textbox1.Text
  inputLen = Len(inputStr)
  
  For i = 1 To inputLen
     
     oneChr = Mid$(inputStr, i, 1)
     asconechr = Asc(oneChr)
   
     
        Select Case asconechr
            Case 65 To 90
                outputStr = Chr(asconechr + 32) '大写-->小写转换

            Case 97 To 122
                outputStr = Chr(asconechr - 32) '小写-->大写转换
            Case Else
                outputStr = "*"
        End Select
        
     allChr = allChr + outputStr
     
   ''  MsgBox oneChr & "--->" & outputStr
        
  Next i
        
        Textbox2.Text = allChr
 
End Sub
2008-08-01 13:52
随风逐流
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:passerby
等 级:版主
威 望:8
帖 子:4054
专家分:271
注 册:2007-6-13
收藏
得分:0 
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

LZ是

[url=http://www./html/6/6694/]极道金丹[/url][url=http://www./html/2/2849/]九阴九阳[/url][url=http://www./html/2/2596/]凡人修仙传[/url]
2008-08-01 14:20
flyingcat2008
Rank: 2
来 自:湖南
等 级:论坛游民
帖 子:33
专家分:13
注 册:2008-7-28
收藏
得分:0 
补充回答您的问题
中调试了一下,发现Lcase,Ucase函数没问题,但在vb6中确实行不通,以下程序可以解决您的问题(已经在中调试通过)
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        Dim inputstr, outputstr, onechr, allchr As String
        Dim inputlen, i As Integer
        allchr = ""
        inputstr = TextBox1.Text
        inputlen = Len(inputstr)
        For i = 1 To inputlen
            onechr = Mid(inputstr, i, 1)
            Select Case onechr
                Case "A" To "Z"
                    outputstr = LCase(onechr)
                Case "a" To "z"
                    outputstr = UCase(onechr)
                Case Else
                    outputstr = "*"
            End Select
            allchr = allchr + outputstr
        Next
        TextBox2.Text = allchr

    End Sub

[[it] 本帖最后由 flyingcat2008 于 2008-8-1 20:19 编辑 [/it]]
2008-08-01 18:48
lisypro
Rank: 4
等 级:业余侠客
威 望:3
帖 子:695
专家分:216
注 册:2005-9-25
收藏
得分:0 
VB6与VB。NET 混了罢

长期承接管理系统
代做各种vb/ / vc小程序
QQ:82341763
手机:13623290828
群号 11619730
2008-08-01 19:50
快速回复:这个循环怎么加?
数据加载中...
 
   



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

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