精华内容
下载资源
问答
  • VB大小写转换

    2011-12-31 10:42:47
    利用VB实现将大写字符转换为小写,运行程序后,先选中要转换的大写字符串,复制到剪切板,点击程序转换按钮,即可完成转换转换完成的小写字符串在剪切板中,只需粘贴到需要的地方即可
  • VB 英文大小写转换

    2010-06-07 14:04:39
    VB 英文大小写转换 VB 英文大小写转换
  • vb 中 将数字转换人民币大写 源代码 如:10.00 转换 十元整
  • vb实现大小写转换

    千次阅读 2012-03-28 20:09:23
    实现英文字母大小写转换。 二·实验内容 1.  建立窗体,再创提上画出一个Label,输入文字如下:“英文字母如下:”,再画出一个Text,再画出三个command按钮,分别输入以下文字“转大写”,“转小写”,“还原”...

    一·实验目的

    实现英文字母大小写转换。

    二·实验内容

    1.     建立窗体,再创提上画出一个Label,输入文字如下:“英文字母如下:”,再画出一个Text,再画出三个command按钮,分别输入以下文字“转大写”,“转小写”,“还原”。

    2.     编写代码:在通用生命段中输入程序语言,如下:dim x as string

    点击Text编写如下程序:

    Private sub form_load()

      X=text1.text

      End sub

      点击command1按钮,编写程序语言如下:

    Private sub command1_click()

      Text1.text=ucase(x)

    End sub

    点击command2按钮,编写程序语言如下:

    Private sub command2_click()

      Text1.text=lcase(x)

    End sub

    点击command3按钮,编写程序语言如下:

    Private sub command3_click()

      Text1.text=x

    End sub

    点击运行,即可。

    三·心得体会

      通过对vb几个实验题的训练,我能够了解vb的基础运作和编写一些简单的vb程序,同时也使我对vb产生了一些兴趣,最重要的是学习vb使我掌握了一种学习方法就是在遇到困难的时候要尽可能地想办法去解决并且能够充分地利用一切有效的资源,掌握更多的知识。但是我在学习vb的时候也存在着很多问题,比如说作为一个vb语言入门者,觉得很多词汇都很陌生,就觉得很入门很吃力。但我还是尽可能地学好它。

    四·遇到的问题及解决问题的方法

    不能准确的运用vb语言,在学姐学长的指导下纠正了所犯的错误,常常再输入vb语言的时候出现词汇的拼写错误,解决方法,熟悉vb语言,加上细心耐心专心,突破这个障碍。对于vb的程序语言不能理解,最终通过上网和收集各种资料解决这个问题。

    五·没有解决的问题

    对于vb语言很陌生,不知道灵活地运用vb语言,脱离了编好的程序语言,自己就不会编写程序语言,对于这个问题我还没有解决,我希望解决这个问题老师能够协助,在学习vb的时候,先给我们讲讲vb语言的基本含义和运用方法。

     

     

    展开全文
  • VB货币金额大小写转换源代码、保障可以通过!
  • vb数字、金额大小写转换源码,实现大小写之间的转换
  • VB.NET编写的人民币大小写转换工具,实现小写转大写,大写转小写。
  • 金额大小写转换-vb

    2007-07-06 10:34:00
    金额大小写转换-vb '本模块生成汉字大写的金额'OptionExplicit'名称:CCh'得到一位数字N1的汉字大写'0返回""PrivateFunctionCCh()FunctionCCh(N1...

    金额大小写转换-vb

     

    None.gif '   本模块生成汉字大写的金额   
    None.gif
      '   
    None.gif
      Option   Explicit   
    None.gif  
    '   名称:   CCh   
    None.gif
      '                 得到一位数字   N1   的汉字大写   
    None.gif
      '                 0   返回   ""   
    ExpandedBlockStart.gifContractedBlock.gif
      Private   Function CCh()Function   CCh(N1)   As   String   
    InBlock.gif          
    Select   Case   N1   
    InBlock.gif          
    Case   0   
    InBlock.gif                  CCh   
    =   ""   
    InBlock.gif          
    Case   1   
    InBlock.gif                  CCh   
    =   ""   
    InBlock.gif          
    Case   2   
    InBlock.gif                  CCh   
    =   ""   
    InBlock.gif          
    Case   3   
    InBlock.gif                  CCh   
    =   ""   
    InBlock.gif          
    Case   4   
    InBlock.gif                  CCh   
    =   ""   
    InBlock.gif          
    Case   5   
    InBlock.gif                  CCh   
    =   ""   
    InBlock.gif          
    Case   6   
    InBlock.gif                  CCh   
    =   ""   
    InBlock.gif          
    Case   7   
    InBlock.gif                  CCh   
    =   ""   
    InBlock.gif          
    Case   8   
    InBlock.gif                  CCh   
    =   ""   
    InBlock.gif          
    Case   9   
    InBlock.gif                  CCh   
    =   ""   
    InBlock.gif          
    End   Select   
    ExpandedSubBlockStart.gifContractedSubBlock.gif  
    End   Function '()Function   
    InBlock.gif  
    '名称:   ChMoney   
    InBlock.gif
      '               得到数字   N1   的汉字大写   
    InBlock.gif
      '               最大为   千万位   
    InBlock.gif
      '               O   返回   ""   
    ExpandedSubBlockStart.gifContractedSubBlock.gif
      Public   Function ChMoney()Function   ChMoney(N1)   As   String   
    InBlock.gif          
    Dim   tMoney   As   String   
    InBlock.gif          
    Dim   lMoney   As   String   
    InBlock.gif          
    Dim   tn   '小数位置   
    InBlock.gif
              Dim   ST1   As   String   
    InBlock.gif          
    Dim   T1   As   String   
    InBlock.gif          
    Dim   s1   As   String   '临时STRING   小数部分   
    InBlock.gif
              Dim   s2   As   String   '1000   以内   
    InBlock.gif
              Dim   s3   As   String   '10000   
    InBlock.gif
        
    InBlock.gif    
    InBlock.gif    
    InBlock.gif          
    If   N1   =   0   Then   
    InBlock.gif                  ChMoney   
    =   "   "   
    ExpandedSubBlockStart.gifContractedSubBlock.gif                  
    Exit   Function End()Function   
    InBlock.gif          
    End   If   
    InBlock.gif          
    If   N1   <   0   Then   
    InBlock.gif                  ChMoney   
    =   ""   +   ChMoney(Abs(N1))   
    ExpandedSubBlockStart.gifContractedSubBlock.gif                  
    Exit   Function End()Function   
    InBlock.gif          
    End   If   
    InBlock.gif          tMoney   
    =   Trim(Str(N1))   
    InBlock.gif                  tn   
    =   InStr(tMoney,   ".")     '小数位置   
    InBlock.gif
                      s1   =   ""   
    InBlock.gif          
    If   tn   <>   0   Then   
    InBlock.gif                  ST1   
    =   Right(tMoney,   Len(tMoney)   -   tn)   
    InBlock.gif                  
    If   ST1   <>   ""   Then   
    InBlock.gif                          T1   
    =   Left(ST1,   1)   
    InBlock.gif                          ST1   
    =   Right(ST1,   Len(ST1)   -   1)   
    InBlock.gif                                  
    If   T1   <>   "0"   Then   
    InBlock.gif                                          s1   
    =   s1   +   CCh(Val(T1))   +   ""   
    InBlock.gif                                  
    End   If   
    InBlock.gif                                  
    If   ST1   <>   ""   Then   
    InBlock.gif                                          T1   
    =   Left(ST1,   1)   
    InBlock.gif                                          s1   
    =   s1   +   CCh(Val(T1))   +   ""   
    InBlock.gif                                  
    End   If   
    InBlock.gif                  
    End   If   
    InBlock.gif                  ST1   
    =   Left(tMoney,   tn   -   1)   
    InBlock.gif          
    Else   
    InBlock.gif                  ST1   
    =   tMoney   
    InBlock.gif          
    End   If   
    InBlock.gif            
    InBlock.gif          s2   
    =   ""   
    InBlock.gif          
    If   ST1   <>   ""   Then   
    InBlock.gif                  T1   
    =   Right(ST1,   1)   
    InBlock.gif                  ST1   
    =   Left(ST1,   Len(ST1)   -   1)   
    InBlock.gif                  s2   
    =   CCh(Val(T1))   +   s2   
    InBlock.gif          
    End   If   
    InBlock.gif    
    InBlock.gif          
    If   ST1   <>   ""   Then   
    InBlock.gif                  T1   
    =   Right(ST1,   1)   
    InBlock.gif                  ST1   
    =   Left(ST1,   Len(ST1)   -   1)   
    InBlock.gif                  
    If   T1   <>   "0"   Then   
    InBlock.gif                          s2   
    =   CCh(Val(T1))   +   ""   +   s2   
    InBlock.gif                  
    Else   
    InBlock.gif                          
    If   Left(s2,   1)   <>   ""   Then   s2   =   ""   +   s2   
    InBlock.gif                  
    End   If   
    InBlock.gif          
    End   If   
    InBlock.gif    
    InBlock.gif          
    If   ST1   <>   ""   Then   
    InBlock.gif                  T1   
    =   Right(ST1,   1)   
    InBlock.gif                  ST1   
    =   Left(ST1,   Len(ST1)   -   1)   
    InBlock.gif                  
    If   T1   <>   "0"   Then   
    InBlock.gif                          s2   
    =   CCh(Val(T1))   +   ""   +   s2   
    InBlock.gif                  
    Else   
    InBlock.gif                          
    If   Left(s2,   1)   <>   ""   Then   s2   =   ""   +   s2   
    InBlock.gif                  
    End   If   
    InBlock.gif          
    End   If   
    InBlock.gif    
    InBlock.gif          
    If   ST1   <>   ""   Then   
    InBlock.gif                  T1   
    =   Right(ST1,   1)   
    InBlock.gif                  ST1   
    =   Left(ST1,   Len(ST1)   -   1)   
    InBlock.gif                  
    If   T1   <>   "0"   Then   
    InBlock.gif                          s2   
    =   CCh(Val(T1))   +   ""   +   s2   
    InBlock.gif                  
    Else   
    InBlock.gif                          
    If   Left(s2,   1)   <>   ""   Then   s2   =   ""   +   s2   
    InBlock.gif                  
    End   If   
    InBlock.gif          
    End   If   
    InBlock.gif    
    InBlock.gif          s3   
    =   ""   
    InBlock.gif          
    If   ST1   <>   ""   Then   
    InBlock.gif                  T1   
    =   Right(ST1,   1)   
    InBlock.gif                  ST1   
    =   Left(ST1,   Len(ST1)   -   1)   
    InBlock.gif                  s3   
    =   CCh(Val(T1))   +   s3   
    InBlock.gif          
    End   If   
    InBlock.gif    
    InBlock.gif    
    InBlock.gif          
    If   ST1   <>   ""   Then   
    InBlock.gif                  T1   
    =   Right(ST1,   1)   
    InBlock.gif                  ST1   
    =   Left(ST1,   Len(ST1)   -   1)   
    InBlock.gif                  
    If   T1   <>   "0"   Then   
    InBlock.gif                          s3   
    =   CCh(Val(T1))   +   ""   +   s3   
    InBlock.gif                  
    Else   
    InBlock.gif                          
    If   Left(s3,   1)   <>   ""   Then   s3   =   ""   +   s3   
    InBlock.gif                  
    End   If   
    InBlock.gif          
    End   If   
    InBlock.gif    
    InBlock.gif          
    If   ST1   <>   ""   Then   
    InBlock.gif                  T1   
    =   Right(ST1,   1)   
    InBlock.gif                  ST1   
    =   Left(ST1,   Len(ST1)   -   1)   
    InBlock.gif                  
    If   T1   <>   "0"   Then   
    InBlock.gif                          s3   
    =   CCh(Val(T1))   +   ""   +   s3   
    InBlock.gif                  
    Else   
    InBlock.gif                          
    If   Left(s3,   1)   <>   ""   Then   s3   =   ""   +   s3   
    InBlock.gif                  
    End   If   
    InBlock.gif          
    End   If   
    InBlock.gif    
    InBlock.gif          
    If   ST1   <>   ""   Then   
    InBlock.gif                  T1   
    =   Right(ST1,   1)   
    InBlock.gif                  ST1   
    =   Left(ST1,   Len(ST1)   -   1)   
    InBlock.gif                  
    If   T1   <>   "0"   Then   
    InBlock.gif                          s3   
    =   CCh(Val(T1))   +   ""   +   s3   
    InBlock.gif                  
    End   If   
    InBlock.gif          
    End   If   
    InBlock.gif          
    If   Right(s2,   1)   =   ""   Then   s2   =   Left(s2,   Len(s2)   -   1)   
    InBlock.gif            
    InBlock.gif          
    If   Len(s3)   >   0   Then   
    InBlock.gif            
    InBlock.gif          
    If   Right(s3,   1)   =   ""   Then   s3   =   Left(s3,   Len(s3)   -   1)   
    InBlock.gif                  s3   
    =   s3   &   ""   
    InBlock.gif          
    End   If   
    InBlock.gif    
    InBlock.gif          ChMoney   
    =   IIf(s3   &   s2   =   "",   s1,   s3   &   s2   &   "元整"   &   s1)   
    ExpandedSubBlockStart.gifContractedSubBlock.gif  
    End   Function ()Function   
    InBlock.gif

    转载于:https://www.cnblogs.com/Nina-piaoye/archive/2007/07/06/808117.html

    展开全文
  • 本节课程,利用VB知识来实现人民币金额小写自动转大写的工具设计。 效果如下图所示: 实现代码 Private Sub Text1_Change() Text2 = rmbChange(Text1) End Sub Function rmbChange(ByVal rmb As Double) As ...

    本节课程,利用VB知识来实现人民币金额小写自动转大写的工具设计。
    效果如下图所示:

    图片

    实现代码

    Private Sub Text1_Change()
        Text2 = rmbChange(Text1)
    End Sub
    
    Function rmbChange(ByVal rmb As Double) As String
        On Error Resume Next
        Dim Rmbexp As String, Rmbda As String, Expda As String, Lent As Integer, Ntyp As Integer, Icnt As Integer, i As Integer, Trmb As String
        rmb = Format(rmb, "###0.00")
        If rmb > 999999999999.99 Then
            rmbChange = "需转换的金额整数长度超过了12位!"
            Exit Function
        End If
        Rmbexp = "分角元拾佰仟万拾佰仟亿拾佰仟"
        Rmbda = "零壹贰叁肆伍陆柒捌玖"
        Ntyp = 0
        Trmb = Replace(CStr(Format(rmb, "0.00")), ".", "")
        If Left(Trmb, 1) = "-" Then
            Trmb = Mid(Trmb, 2)
            Ntyp = 1
        End If
        Expda = ""
        Icnt = Len(Trmb)
        For i = 1 To Icnt
            Expda = Mid(Rmbda, Val(Mid(Trmb, Icnt - i + 1, 1)) + 1, 1) + IIf(Mid(Rmbexp, i, 1) = "元", Mid(Rmbexp, i, 1) + " ", Mid(Rmbexp, i, 1)) + Expda
        Next
        rmbChange = IIf(Ntyp = 1, "负" + Expda, Expda)
    End Function
    

    程序代码截图

    图片

    展开全文
  • //说明:本实例用到4个API函数CharLower,CharLowerBuff,CharUpper,CharUpperBuff,分别是对字符串进行大小写转换。进行每个字符串大小写转换。 用到4个按钮,2个编辑框控件2个标签控件。 Option Explicit Private ...

    直接上代码解释更加清楚

    //说明:本实例用到4个API函数CharLower,CharLowerBuff,CharUpper,CharUpperBuff,分别是对字符串进行大小写转换。进行每个字符串大小写转换。

    用到4个按钮,2个编辑框控件2个标签控件。

    Option Explicit

    Private Declare Function CharLower Lib "user32" Alias "CharLowerA" (ByVal lpsz As String) As String

    Private Declare Function CharLowerBuff Lib "user32" Alias "CharLowerBuffA" (ByVal lpsz As String, ByVal cchLength As Long) As Long

    Private Declare Function CharUpper Lib "user32" Alias "CharUpperA" (ByVal lpsz As String) As String

    Private Declare Function CharUpperBuff Lib "user32" Alias "CharUpperBuffA" (ByVal lpsz As String, ByVal cchLength As Long) As Long

    Dim c1 As Integer '大写的字符的个数
    Dim c2 As Integer '小写的字符的个数
    Dim s1 As String '字符串

    Private Sub Command1_Click()
    Text2.Text = CharUpper(Text1.Text) '字符串全部转换大写
    c2 = 0 '小写的字符个数就为0

    End Sub

    Private Sub Command2_Click()
    Text2.Text = CharLower(Text1.Text) '字符串全部转换小写
    c1 = 0 '大写字符的个数为0
    End Sub

    Private Sub Command3_Click()
    If c1 < Len(Text1.Text) Then '如果大写的字符个数小于编辑框字符的个数
    c1 = c1 + 1 '大写的字符个数加1
    c2 = Len(Text1.Text) - c1 '小写的个数就减一
    Else
    MsgBox "全部字符转换完毕!"
    Exit Sub
    End If
    s1 = Text1.Text '已转换大写编辑框1的字符串赋值给s1
    CharUpperBuff s1, c1 '第一个参数表示要转换的字符串,大写字符的个数
    Text2.Text = s1 's1赋值给编辑框2的内容

    End Sub

    Private Sub Command4_Click() '同上
    If c2 < Len(Text1.Text) Then
    c2 = c2 + 1
    c1 = Len(Text1.Text) - c2
    Else
    MsgBox "全部字符转换完毕!"
    Exit Sub
    End If
    s1 = Text2.Text
    CharLowerBuff s1, c2
    Text2.Text = s1

    End Sub

    Private Sub Form_Load()
    Text1.Text = ""
    Text2.Text = ""
    c1 = 0
    c2 = 0

    End Sub

     如图所示:

    下节课字体函数的应用

    转载于:https://www.cnblogs.com/delphi2014/p/4007046.html

    展开全文
  • VB 金额大小写转换(两种方法)

    千次阅读 2011-08-08 17:54:45
    "需转换的金额整数长度超过了12位!" Exit Function End If Rmbexp = "分角元拾佰仟万拾佰仟亿拾佰仟" Rmbda = "零壹贰叁肆伍陆柒捌玖" Ntyp = 0 Trmb = Replace( CStr (Format(Rmb, "0.00...
  • vb做的大小写字母转换

    千次阅读 2010-03-04 17:43:00
    大小写字母转换vb界面包括 command、command1、command2、command3 和一个 text 文本框command 为“互转”按钮,command1 为“转大”按钮,command2 为“转小”按钮,command3 为“清除”按钮Private Sub Command_...
  • Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Label3.Text = "e.KeyChar:" Label4.Text = "e.KeyChar的值:"...
  • VB到小写转换代码

    2013-04-14 22:26:38
    VB大小写转换代码
  • 一.  实验目的 1.  生成随机数 2.  ...为了学习到真正的运用VB知识做题,要学会运用如何随机生成随机数,大小写转换,生成个位数。 二.  实验内容 1.生成随机数 再窗体上放三个文本
  • VB作业之字母大小写转换

    千次阅读 2012-04-08 13:26:02
    完成作业期间遇到的问题和解决的方法:运行时总是提示“代码错误”检查后发现把“text”成了“test”,改正后程序正常运行。不管做什么都应该学会仔细,否则一个小小的失误足以毁掉全部。
  •  VB中自带字母大小写转换函数LCase和UCase。  格式 :UCase(任何有效的string或char表达式), UCase ( string ),U就是upper的意思,就是变大;相反的就是,LCase(任何有效的string或char表达式)函数,就是...
  • 本代码可以实现全部转换成大写字母、全部转换成小写字母和大小写之间的互转
  • 另一方法转换大小写

    2012-05-08 08:24:20
    ''另一方法转换大小写 ''其实VB本来就有函数 ''UCASE(STRING) LCASE(STRING) ''来实现大小写转换 ''我也只是那天偶然看书,发现这样的函数一样能转换大小写 Public Function XiaoXie(zimu As ...
  • Function NtoC(n0 :real) :String; Function IIF(b :...begin //本函数在VFP和VB中均为系统内部函数 if b then IIF:=s1 else IIF:=s2; end; Const c = '零壹贰叁肆伍陆柒捌玖◇分角圆拾佰仟万拾佰仟亿拾佰仟万'...
  • 为了实现显示个位数,满足题目需要,实现VB语言程序的运作,最后实现个位数的显示 二.实验内容 显示各位数 做三位数的显示,在窗体中放置三个标签,并在其属性值中分别输入“个位”,“十位”“百位”,并放置三...
  • 自己的一个程序,不知道有没有人能用上
  • 要自动转换大小写,很多人首先想到的一定是 UCase$ 及 LCase$,但是要使用这二个函数,一定不可以在 Key_Press 事件中使用,否则您若输入《abc》,结果却变成《CBA》,为什么呢? 因为当您输入 a 之后,UCase$ 会替...
  • VB.net 中 取系统时间 Dim datestr As String = "" datestr = Format(Now(), "yyyy/MM/dd H:mm:ss ffff") 用户定义的日期/时间格式(Format ...与 Visual Basic 的早期版本不同,这些格式字符区分大小写

空空如也

空空如也

1 2 3 4 5 ... 11
收藏数 205
精华内容 82
关键字:

vb大小写转换