zoukankan      html  css  js  c++  java
  • 调用EXCEL 实现阿拉伯数字转中文

    方法一:

    Private Sub Command1_Click()
    Dim xlapp As Object, n As Currency, temp As String
    Set xlapp = CreateObject("Excel.Application")
    Randomize
    n = Int(Rnd * 10 ^ 15)
    temp = n
    temp = temp & vbCrLf & xlapp.Evaluate("NUMBERSTRING(" & n & ", 1)")
    temp = temp & vbCrLf & xlapp.Evaluate("NUMBERSTRING(" & n & ", 2)")
    temp = temp & vbCrLf & xlapp.Evaluate("NUMBERSTRING(" & n & ", 3)")
    Set xlapp = Nothing
    MsgBox temp
    End Sub
     

    方法二:

    Private Sub Command1_Click()
    Dim xlapp As Object, n As Currency, temp As String
    Set xlapp = CreateObject("Excel.Application")
    Randomize
    n = Int(Rnd * 10 ^ 12)
    temp = n
    temp = temp & vbCrLf & xlapp.Evaluate("text(" & n & ",""[dbnum1]"")")
    temp = temp & vbCrLf & xlapp.Evaluate("text(" & n & ",""[dbnum2]"")")
    temp = temp & vbCrLf & xlapp.Evaluate("text(" & n & ",""0[dbnum1]"")")
    Set xlapp = Nothing
    MsgBox temp
    End Sub

  • 相关阅读:
    hdu 1166 敌军布阵
    UVA 100
    dfs和bfs 变形课
    hdu 1002 A + B Problem II
    连连看 杭电1175
    跳格子 DFS 加 奇偶截枝
    c语言 判断两直线段是否相交
    poj 3067 Japan
    数状数组
    UVA 10881 Piotr's Ants
  • 原文地址:https://www.cnblogs.com/fengju/p/6336297.html
Copyright © 2011-2022 走看看