CUR数字货币

『壹』 比特币病毒到底是什么

昨天抽风去了电子阅览室，刚插上U盘没多久，老师就突然大声说让大家把U盘拔下来，有学生发现U盘里的文件全部都打不开了，还多了两个要钱的文件。

于是大家都匆忙查看，只要U盘在学校电脑上插过的都中毒了，晚上出现大规模电脑中毒情况。

很多人的资料、毕业论文都在电脑中，真的觉得黑客这种行为太恶心了，为了钱，不管不顾学生的前途，老师毕生的科研成果……

希望尽早抓到犯罪分子，给予法律的严惩！

这个病毒会扫描开放 445 文件共享端口的 Windows 设备，只要用户的设备处于开机上网状态，黑客就能在电脑和服务器中植入勒索软件、远程控制木马、虚拟货币挖矿机等恶意程序。

一些安全研究人员指出，这次大规模的网络袭击似乎是通过一个蠕虫病毒应用部署的，WannaCry 可以在计算机之间传播。更为可怕的是，与大部分恶意程序不同，这个程序可以自行在网络中进行复制传播，而当前的大多数病毒还需要依靠中招的用户来传播，方法则是通过欺骗他们点击附有攻击代码的附件。

这次袭击已经使得 99 个国家和多达 75,000 台电脑受到影响，但由于这种病毒使用匿名网络和比特币匿名交易获取赎金，想要追踪和定位病毒的始作俑者相当困难。

『贰』 小写人民币转大写人民币

我自己编的，好辛苦啊
给点悬赏把

要用时输入代码
text1.text=numbertocharacter(text2.text)
源程序如下
Option Explicit

Public Function NumberToCharacter(number As String) As String
'完成转换的主函数
Dim Pos_Point As Long '记录小数点的位置
Dim curNum As String '记录当前处理的数字
Dim zhengshu As String '记录整数部分
Dim shuan As String '截取某一个数据段
'检索小数点的位置
Pos_Point = InStr(number, ".")
'处理小数部分
If Pos_Point = 0 Then
'没有小数点，将小数点设置在最末尾
Pos_Point = Len(number)
ElseIf Len(number) = Pos_Point Then
'以小数点结尾，不作处理
ElseIf Len(number) = Pos_Point + 1 Then
'一位小数，直接翻译为角
curNum = Right(number, 1)
NumberToCharacter = NumToChr(curNum) & "角"
ElseIf Len(number) = Pos_Point + 2 Then
'取第一位
curNum = Right(number, 1)
'若第一位为零，则不作处理，否则译为“角”
If curNum <> "0" Then
NumberToCharacter = NumToChr(curNum) & "分"
End If
'取第二位
curNum = Left(Right(number, 2), 1)
'若第二为零，不作处理，否则译为“分”
If curNum <> "0" Then
NumberToCharacter = NumToChr(curNum) & "角" & NumberToCharacter
End If
End If

'处理整数
zhengshu = ""
If Pos_Point > 14 Then
'大于 9999999999999 的数据不转换
MsgBox "该数据无法转换", vbOKOnly + vbInformation, "金额转换"
Exit Function
ElseIf Pos_Point > 9 Then
zhengshu = "亿"
'亿位以上的部分
shuan = Left(number, Pos_Point - 9)
zhengshu = shuantoCharacter(shuan) & zhengshu
'万位以上的部分
shuan = Right(Left(number, Pos_Point - 5), 4)
zhengshu = zhengshu & shuantoCharacter(shuan) & "万"
'万位以下部分
shuan = Right(Left(number, Pos_Point - 1), 4)
zhengshu = zhengshu & shuantoCharacter(shuan) & "圆"
ElseIf Pos_Point > 5 Then
'万位以上的部分
shuan = Right(Left(number, Pos_Point - 5), 4)
zhengshu = zhengshu & shuantoCharacter(shuan) & "万"
'万位以下部分
shuan = Right(Left(number, Pos_Point - 1), 4)
zhengshu = zhengshu & shuantoCharacter(shuan) & "圆"
Else
'万位以下
shuan = Right(Left(number, Pos_Point - 1), 4)
zhengshu = zhengshu & shuantoCharacter(shuan) & "圆"
End If
NumberToCharacter = zhengshu & NumberToCharacter
'输入为“0”，特殊处理
If NumberToCharacter = "圆" Then
NumberToCharacter = "零圆"
End If

End Function

Public Function NumToChr(num As String) As String
'数字转化为对应的中文
Select Case num
Case "1"
NumToChr = "壹"
Case "2"
NumToChr = "贰"
Case "3"
NumToChr = "参"
Case "4"
NumToChr = "肆"
Case "5"
NumToChr = "伍"
Case "6"
NumToChr = "陆"
Case "7"
NumToChr = "柒"
Case "8"
NumToChr = "捌"
Case "9"
NumToChr = "玖"
Case "0"
NumToChr = "零"
End Select
End Function

'对分节后的每一节数据进行翻译，
'例如: 1234512341234被分为12345，1234，1234
Public Function shuantoCharacter(an As String) As String
Dim curNum As String
Dim answer As String
answer = ""
If Len(an) = 5 Then
'有万位
answer = NumToChr(Left(an, 1)) & "万"
'千位
curNum = Right(Left(an, 2), 1)
If curNum <> "0" Then
answer = answer & NumToChr(curNum) & "仟"
Else
answer = answer & "零"
End If
'百位
curNum = Right(Left(an, 3), 1)
If curNum <> "0" Then
answer = answer & NumToChr(curNum) & "佰"
Else
If Right(answer, 1) <> "零" Then
answer = answer & "零"
End If
End If
'十位
curNum = Right(Left(an, 4), 1)
If curNum <> "0" Then
answer = answer & NumToChr(curNum) & "拾"
Else
If Right(answer, 1) <> "零" Then
answer = answer & "零"
End If
End If
'个位
curNum = Right(an, 1)
If curNum <> "0" Then
answer = answer & NumToChr(curNum)
Else
If Right(answer, 1) = "零" Then
answer = Left(answer, Len(answer) - 1)
End If
End If
ElseIf Len(an) = 4 Then
'有千位
answer = NumToChr(Left(an, 1)) & "仟"
'百位
curNum = Left(Right(an, 3), 1)
If curNum <> "0" Then
answer = answer & NumToChr(curNum) & "佰"
Else
If Right(answer, 1) <> "零" Then
answer = answer & "零"
End If
End If
'十位
curNum = Left(Right(an, 2), 1)
If curNum <> "0" Then
answer = answer & NumToChr(curNum) & "拾"
Else
If Right(answer, 1) <> "零" Then
answer = answer & "零"
End If
End If
'个位
curNum = Right(an, 1)
If curNum <> "0" Then
answer = answer & NumToChr(curNum)
Else
If Right(answer, 1) = "零" Then
answer = Left(answer, Len(answer) - 1)
End If
End If
ElseIf Len(an) = 3 Then
'有百位
answer = NumToChr(Left(an, 1)) & "佰"
'十位
curNum = Left(Right(an, 2), 1)
If curNum <> "0" Then
answer = answer & NumToChr(curNum) & "拾"
Else
If Right(answer, 1) <> "零" Then
answer = answer & "零"
End If
End If
'个位
curNum = Right(an, 1)
If curNum <> "0" Then
answer = answer & NumToChr(curNum)
Else
If Right(answer, 1) = "零" Then
answer = Left(answer, Len(answer) - 1)
End If
End If
ElseIf Len(an) = 2 Then
'有十位
answer = NumToChr(Left(an, 1)) & "拾"
'个位
curNum = Right(an, 1)
If curNum <> "0" Then
answer = answer & NumToChr(curNum)
Else
If Right(answer, 1) = "零" Then
answer = Left(answer, Len(answer) - 1)
End If
End If
ElseIf Len(an) = 1 Then
'有个位
answer = NumToChr(Left(an, 1))
End If
shuantoCharacter = answer

End Function

『叁』 excel vba常用代码

Visual Basic for Applications（简称VBA）是新一代标准宏语言，是基于Visual Basic for Windows 发展而来的。它与传统的宏语言不同，传统的宏语言不具有高级语言的特征，没有面向对象的程序设计概念和方法。而VBA 提供了面向对象的程序设计方法，提供了相当完整的程序设计语言。VBA 易于学习掌握，可以使用宏记录器记录用户的各种操作并将其转换为VBA 程序代码。这样用户可以容易地将日常工作转换为VBA 程序代码，使工作自动化。[1]

数据类型

基本数据类型

即Primary Type Data，下述列表的括号内为字节数：

• Byte(1)：无符号数类型，取值范围0-255

• Boolean(2)

• Integer(2)

• Long(4)

• Single(4)

• Double(8)

• Currency(8)

• Decimal(14)

• Date(8)

• String

• Object(4)

• Variant（根据分配确定）[2]

自定义的数据类型

相当于C语言的struct，例如：[2]

Type 自定义类型名 元素名 As 类型 … [元素名 As 类型] End Type

数组

• Option Base 0 ：数组索引值从0开始[2]

• Option Base 1 ：数组索引值从1开始

• Dim MyArray(10) ：声明一个数组变量，10是最大的可用的数组索引值

• MyArray(5) = 101 ：给数组的元素赋值

• Dim Data(10,5) ：声明一个二维数组变量

• Data(1,1) = "A001" ：给数组元素赋值

• Dim cArr(-11 To 20, 1 To 3) As String ：声明一个数组，定义数组索引值的上下界

• Dim dArr() As String ：声明动态数组

• ReDim dArr(0 To 5, 1 To 2) ：改变动态数组的尺寸默认把原数据清除。如果保留原来的数据，必须加上参数

• Preserve：使用Preserve参数时只能改变最后一位的大小

• If UBound(vTemp) = -1 Then：判断数组变量vTemp是否为空数组

• End If Erase MyArrar, Data Erase语句清除数组元素，释放变量占用的空间[2]

常量

编辑

系统定义常量

系统定义常量有3个：True、False和Null。[4]

固有常量

固有常量是编程时引用的对象库定义的常量。所有固有常量都可以在宏或VBA代码中使用。通常，固有常量通过前两个字母来指明定义该常量。来自VB库的常量则以“vb”开头。来自Access的常量以“ac”开头。可以使用对象浏览器来查看所有对象库中的固有常量列表。[4]

在VBA中，常量的数据类型有整型、长整型、单精度型、双精度型、字节型、货币型、字符型、日期型和逻辑型。一个整型数据就是一个整型常量，一个长整型数据就是一个长整型常量。例如，12%、-1%是整型常量，32768&、10000000&是长整型常量，-2.5 1、3.14是单精度实型常量，3.1415926#是双精度实型常量，China、Shanghai是字符型常量，#07/13/2001 11:45PM#是日期常量，由符号 “ # ” 将字符括起来。[4]

符号常量

可以自行定义的常量即符号常量，必须先定义，后使用。可见，需要声明的常量都是符号常量。[4]

基本语法格式:

1
[Publicr/Private]Const常量名[As类型]=表达式

如：Global Const符号常量名称 = 常量值[4]

语句功能:

定义一个符号常量，并将指定表达式的值赋给符号常量。[4]

语句说明如下:[4]

1)“常量名”指定符号常量的名字。符号常量名可以由字母、数字和下画线组成，但只能以字母开头，不能含有空格。[4]

2)“表达式”指定符号常量的值。该表达式通常由数值型、字符型、逻辑型或日期型数据以及各种运算符组成，但在表达式中不能出现变量和函数。[4]

3) public用来表示这个常量的作用范围是整个数据库的所有模块。[4]

4) private则表示这个常量只在使用该声明常量语句的模块中起作用。[4]

说明：

1)除用户定义的符号常量外，VBA还提供了许多符号常量，我们可以直接使用。[4]

2)对数码比较长，并且在程序中多次使用的常量，通常使用符号常量代替。运行程序时，系统自动把程序中的所有符号常量换为赋给它的值。[4]

变量

编辑

与常量一样，变量也是一块内存空间，用于保存程序运行过程中可能变化的数据。变量的名称是用户定义的一个标识符。[5]

在代码中需要使用该变量时，只需引用相应的标识符即可，而不用管变量当前的值具体是什么。[5]

声明

与用户自定义的常量相似，变量在使用之前都需要声明，在VBA中声明变量的语法格式有以下几种：[5]

• 关键字变量名 AS数据类型

• 关键字变量1，变量2 ... 变量n AS数据类型

• 关键字变量1 AS数据类型，变量2 As数据类型， ... ，变量n AS数据类型

在第二种语法格式中， “变量n”的数据类型为AS关键字后定义的数据类型，而“变量1”、“变量2”、…的数据类型为变体型。[5]

在VBA中，可用Dim、Private、Public和Static这4个关键字来声明变量，使用不同关键字声明的变量其含义也有所不同。[5]

◆ 利用Dim关键字声明变量：Dim关键字主要用来在内存中分配一块空间，并为该空间命名，是VBA中声明变量最常用的关键字。使用Dim关键字声明的变量只能在当前过程或模块中使用。[5]

◆ 利用Private关键字声明变量：Private关键字用于在类模块中声明一个私有变量，它只能在当前的类模块中使用。当定义变量的位置同处于类模块中时，其使用效果与使用Dim关键字定义的变量相同。[5]

◆ 利用Public关键字声明变量：利用Public关键字声明的变量可以在程序的任何地方调用，而与声明变量的位置无关。[5]

◆ 利用Static关键字声明变量：Static关键字用于声明静态变量，即变量的值在整个代码运行期间都能被保留。[5]

赋值

变量在使用时还需要对其进行赋值。在VBA中对变量进行赋值可通过 “ = ” 符号或 “ Set ” 关键字进行。通过 “ = ” 符号对变量赋值的语法格式有以下几种。[5]

• 变量名=数据

• 变量1=变量2 运算符 数据

• 变量1=变量2 运算符 变量3 … 运算符 变量n

如果在定义变量时指定了变量的数据类型，则为变量所赋的值也必须是该数据类型的值。如果变量定义为Integer类型，而在赋值时却给了变量一个String类型的数据，则在编译运行的过程中将弹出错误弹框。[5]

运算符

编辑

运算符是在程序中执行计算功能的某些特殊符号，它是程序代码的重要组成部分。在程序代码中，运算符不能单独使用，必须与其操作数共同组成表达式后才具有运算意义。VBA中的运算符包含算术运算符、连接运算符、比较运算符和逻辑运算符等。[4]

算术运算符

算术运算符主要用于执行四则运算，仅用算术运算符连接起来的表达式称为算术表达式。算术运算符及其作用与示例如表所示。[5]

例子

名称

结果

-$a

取反

$a 的负值。

$a + $b

加法

$a 和 $b 的和。

$a - $b

减法

$a 和 $b 的差。

$a * $b

乘法

$a 和 $b 的积。

$a / $b

除法

$a 除以 $b 的商，允许小数。

$a $b 除法 $a 除以 $b 的商，结果取整。

$a Mod $b

取余

$a 除以 $b 的余数

注意：

在执行算术运算时，运算符两侧操作的数据类型必须相同，否则会出现“类型不匹配”的错误提示。当“+”运算符左右两侧都是字符串类型的操作数时，执行的是连接运算，如表达式“"Pass+"word"的计算结果为字符串“ PassWord ”。[5]

连接运算符

连接运算符的作用是将运算符两侧的操作数连接成一个数，其操作数的数据类型通常都为String类型。VBA中的连接运算符有“&”和“+”两种，由于使用“+”执行连接运算时，容易与加法运算混淆，所以通常都采用“&”进行连接运算。[5]

比较运算符

比较运算符可以对运算符两侧的操作数执行比较运算，其返回结果为Boolean类型的True或False。比较运算符的操作数通常为具体的数值，当操作数为字符串或其他符号时，是根据该符号的ASCII码进行比较的。VBA中的比较运算符及其作用与示例如表所示。[5]

例子

名称

结果

$a = $b

等于

TRUE，如果 $a 等于 $b。

$a <> $b

不等

TRUE，如果 $a 不等于 $b。

$a < $b

小于

TRUE，如果 $a 严格小于 $b。

$a > $b

大于

TRUE，如果 $a 严格大于 $b。

$a <= $b

小于等于

TRUE，如果 $a 小于或者等于 $b。

$a >= $b

大于等于

TRUE，如果 $a 大于或者等于 $b。

逻辑运算符

逻辑运算符用于对运算符两侧的操作数执行逻辑运算，参与逻辑运算的操作数本身可以是逻辑表达式(表达式的最终结果为True或 False)，也可以是算术表达式(表达式的最终返回值为0或非0)。[5]

在逻辑运算中，数值0与逻辑值 False相同，表示逻辑假；非0数值与True相同，表示逻辑真。逻辑运算符及其含义与示例如表所示。[5]

例子

名称

结果

$a and $b

And（逻辑与）

TRUE，如果 $a 与 $b 都为TRUE。

$a or $b

Or（逻辑或）

TRUE，如果 $a 或 $b 任一为TRUE。

$a xor $b

Xor（逻辑异或）

TRUE，如果 $a 或 $b 同位相异。

Not(1>2)

Not（逻辑非）

TRUE。

(1>2) Eqv (1>2)

两个操作数同为假，返回False;两个操作数同为真，返回True；两个操作数一真一假，返回False

TRUE。

2<>1 Imp 3<5

运算符左右同为真,返回True;左右同为假,返回True;左真右假,回返 False;左假右真,返回True

TRUE。

语法结构

编辑

if 语句

1
if条件1then语句1elseif条件2then语句2elseif......else语句nendif

Select Case 语句

1
SelectCase表达式Case表达式列表1语句1Case表达式列表2语句2...Case表达式列表n语句nEndSelect

其中的表达式列表可以为：[5]

• 表达式例： "A"

• 用逗号分隔的一组枚举表达式例：2,4,6,8

• 表达式1 To表达式2 例：60 To 100

• Is关系运算符表达式 例：Is < 60

Do...Loop 语句

1
DoWhile或Until条件语句块1ExitDo语句块2Loop

For...Next语句

1
Do语句块1ExitDo语句块2LoopWhile或Until条件

For Each … Next语句

1
For循环控制变量=初值To终值Step步长语句块‘ExitFor语句可以跳出循环体Next

跳出本次循环的continue语句

1
For循环控制变量=初值To终值Step步长Do'用于模拟continue语句块If条件ThenExitDo'用于模拟continue语句块LoopWhileFalse'用于模拟continueNext

With语句

1
With对象引用语句块EndWith

On Error语句

1
OnErrorGoto出错处理语句的label'跳转到出错处理语句

或

1
OnErrorResumeNext'遇到错误，不管错误，继续往下执行

具有控制作用的函数

• If(条件式,表达式1,表达式2)[5]

• Switch(条件式1,表达式1,[条件式2,表达式2[,...,条件式n,表达式n]])

• Choose(索引式,选项1[,选项2,...[,选项n]]) '这是基于1的索引

其他语句

编辑

注释语句

使用REM或者单引号开始的行。[6]

语句的连写与续行

如果一行包括多条语句，用冒号分割各个语句。跨多行的语句，在行末用“空格加下划线”表示续行[6]。

过程与函数

编辑

12
Sub过程名(参数表)语句块ExitSub语句块EndSub
1
Function函数名(参数表)AsType语句块函数名=表达式ExitFunctionEndFunction

可以是Private、Public、Friend、Static等修饰。[6]

调用函数/过程时，可以加括号或者不加括号。如果调用表达式作为一行的一部分，那么必须用参数，例如函数调用的返回值赋给变量。 调用过程时， 可以使用/不使用call关键字。使用call语句调用过程，如果无参数，则不加括号；如果有参数，必须加括号。如果调用时用括号包住单个参数，则该参数强行按值传递。需要特别注意，不用call不加括号的调用，形参与实参是传值(passed by value)而不是传引用(passed by reference)，这会导致一些对象的方法调用失败。例如：[6]

1
DimcnAsADODB.ConnectionSetcn=CurrentProject.ConnectionDimrsAsNewADODB.Recordsetrs.Open"SELECT*FROMmyTable",cnDimExcelAppAsNewExcel.=ExcelApp.Workbooks.Add.Worksheets(1)ExcelWst.Range("A2").CopyFromRecordset(rs)'失败，无法执行该行ExcelWst.Range("A2").CopyFromRecordsetrs'可成功执行该行

常用内置函数

编辑

VBA的常用内置函数：[5]

• MsgBox

• InputBox

• 舍入函数：Fix 向0取整,Int向下取整, Round四舍五入

• Rnd： 返回0-1内的单精度随机数

• 字符串函数：[5]

• Filter：对字符串的一维数组的过滤

• InStr([Start, ]<Str1>,<Str2>[, Compare])与InStrRev： 查找子串

• Len：字符串长度

• Join：连接一维数组中的所有子字符串

• Left,Right,Mid： 截取子字符串

• Space(数值) ：生成空格字符串

• Ucase,Lcase：大小写转换函数

• Ltrim, Rtrim,Trim ：删除首尾空格

• Replace

• Split：分割一个字符串成为一维数组

• StrComp：字符串比较

• StrConv：字符串转换

• String(number, character)：制定字符重复若干次

• StrReverse

• 日期/时间有关函数：[5]

• Year, Month, Day, WeekDay,Hour,Minute,Second： 截取日期时间分量

• DateAdd： 日期/时间增量函数

• DateDiff(<间隔类型>,<日期1>,<日期2>[,W1][,W2])日期/时间的距离函数

• DatePart(<分割类型>,<日期>[,w1][,w2])时间分割函数

• DateSerial(<表达式1>,<表达式2>,<表达式3>) 合成日期；DateValue(“字符串表达式”)返回日期；

• Date,Time,Now,Timer： 返回日期时间

• DateValue

• TimeSerial：由时间序列得到时间对象

• TimeValue：由时间字符串得到时间对象

• Weekday：获得日期的周几

• WeekdayName

• 转换函数：CBool、CByte、CCur、CDate、 CDbl、CDec、CInt、CLng、CLngLng、CLngPtr、[5]CSng、CStr、CVar、CVErr、Asc(<字符串表达式>)返回第一个字符的Ascii编码值、Chr(ASCII码)返回字符、Hex、Oct、Str(<数值表达式>)返回字符串、Val(string)、Format、FormatCurrency、FormatDateTime、FormatNumber、FormatPercent、MonthName。

• Nz(表达式或字段属性值[,规定值])如果是空，则返回0或者""或者函数的第二个参数值[5]

• 验证函数：isNumeric、isDate、isNull、isEmpty、IsArray、IsError、IsMissing、IsObject[5]

• 数学函数：Abs、Sqr、Tan、Atn（即atan）、Sin、Cos、Exp（e为基的指数）、Log自然对数[5]

• Array：构造一个Array对象[5]

• CallByName: get or set a property, or invoke a method at run time using a string name.[5]

• 控制流：Choose:类似于C语言的select语句、If相当于IF-ELSE语句、Switch[5]

• Command：获取命令行参数[5]

• CreateObject：创建ActiveX对象

• CurDir：返回指定驱动器的当前工作路径[5]

• 由基本数学函数导出的函数：Sec、Cosec、Cotangent、Cotan、Arcsin、Arccos、Arcsec、Arccosec、Arccotan、HSin、HCos、HTan、HSec、HCosec、HCotan、HArcsin、HArccos、HArctan、HArcsec、HArccosec、HArccotan、LogN

• DoEvents：暂时把CPU控制权交回给系统[5]

• Environ：返回环境变量的值[5]

• 文件操作：[5]

• Dir：返回满足条件的所有文件、目录的名字

• EOF

• FileAttr

• FileDateTime

• FileLen

• FreeFile Function

• GetAttr：返回文件、目录的属性值

• Input：读取文件

• Loc：文件指针位置

• LOF：文件打开时的指针位置

• Seek：文件指针定位

• Spc：使用Print做position output

• Tab：用于Print函数

• Error:错误号对应的错误消息[5]

• Windows Registry中的数据：GetAllSettings、SaveSetting、DeleteSetting、GetSetting[5]

• GetObject：ActiveX组建的引用[5]

• IMEStatus：返回当前Input Method Editor (IME)[5]

• Macintosh平台：MacID、MacScript[5]

• 金融函数：[5]

• DDB：使用double-declining balance计算贬值

• FV:计算固定利率的年金

• IPmt：计算利率

• IRR：计算利率

• MIRR：计算利率

• NPer：计算周期数

• NPV：计算net present value

• Pmt：计算支付数

• PPmt：计算本金支付数

• PV：计算present value

• Rate：利息率

• SLN：straight-line depreciation

• SYD：计算sum-of-years' digits depreciation

• Partition：返回字符串，表示一个数值名字落在各个range内。常用于SQL select语句[5]

• QBColor：颜色值[5]

• RGB：颜色值[5]

• TypeName：得到变量的类型名[5]

• VarType：得到变量的类型数[5]

『肆』 袁大头银币LM63是什么意思

LM-63是所有版别民国三年袁大头在PCGS（金盾)评级币中的代码。LM-63后面的字母和数字代表三年袁大头的版别。如果后面没有，就表示是普通版或标准版三年袁大头。如，LM63D Kansu Cur 民，代表是甘肃曲民版三年袁大头。LM-49是孙小头的代码。LM-110是23年船洋代码。

(4)CUR数字货币扩展阅读：

历史意义

“袁大头”在货币收藏界被称为银元之宝，它是中国近千种近代银币中流传最广、影响最大的银元品种，也是近代中国币制变革中的一个重要角色。

光绪年间，由于各省铸造银元，却和当初铸造纹银一样，不仅重量和成色不能统一，数量上也难以控制。辛亥革命爆发，各省因急于用款，不仅加工赶铸银元，还滥铸铜圆，滥发钞票和军用票，币制更加混乱。

民国建立后，中央财政几乎有出无入，财政危机十分严重。从短期来说，发行纸币亦不失为敛财妙法，只是纸币是银元的代表者，是兑换券，若没有银元的充分准备和广泛流通，纸币信用亦难确立。

此时此刻，币制改革已是刻不容缓———“袁大头”银元正是基于此而诞生的，也是银元发展的必然结果。经过多年铸造，加上其信誉很高，“袁大头”数量增多，流通渐广，虽僻处边陬，也有其踪迹。“袁大头”银元的通行促进了银元的统一，也为“废两改元”准备了条件。

『伍』 ccur函数

这个函数的作用其实就是保留3位小数,并将第四位四舍五入.因为货币里最小单位是分,也就是要第四位的数字没有意义.

『陆』 在Excel2000忠如何将数字转换成人民币大写

我给你一个方法将此复制下来粘贴到Excel单元格内就可以了。
=IF(ROUND(A5,2)<0,"无效数值","人民币"&IF(ROUND(A5,2)=0,"零元",IF(ROUND(A5,2)<1,"",TEXT(INT(ROUND(A5,2)),"[dbnum2]")&"元")&IF(INT(ROUND(A5,2)*10)-INT(ROUND(A5,2))*10=0,IF(INT(ROUND(A5,2))*(INT(ROUND(A5,2)*100)-INT(ROUND(A5,2)*10)*10)=0,"","零"),TEXT(INT(ROUND(A5,2)*10)-INT(ROUND(A5,2))*10,"[dbnum2]")&"角")&IF((INT(ROUND(A5,2)*100)-INT(ROUND(A5,2)*10)*10)=0,"整",TEXT((INT(ROUND(A5,2)*100)-INT(ROUND(A5,2)*10)*10),"[dbnum2]")&"分")))

还有以下方法：Excel将小写金额转换成人民币的大写金额

1、如何自定义：

打开EXCEL,新建一个文件Book1,按ALT+F11进入VBA编程环境,选中这个BOOK1文件,插入模块,将下面的源代码复制到右边的模块代码区内,然后将此BOOK1保存,保存类型一定选加载宏,文件名嘛可自由发挥,我就填"中文大写",确定OK!然后回到EXCEL,工具--加载宏-找到"中文大写",打勾确定,我们这个自定义函数就可以象内置函数样使用了!--->=rmbdx(123456.78),爽吧!

2、例子:

A、直接在函数内输入数值的（请注意参数的用法，默认用法是不用输入）
=rmbdx(123456.78)--->壹拾贰万叁仟肆佰伍拾陆元柒角捌分
=rmbdx(123456.78,0)--->壹拾贰万叁仟肆佰伍拾陆元柒角捌分
=rmbdx(123456.78,1)--->壹拾贰万叁仟肆佰伍拾陆元柒角捌分
=rmbdx(56.78)--->伍拾陆元柒角捌分
=rmbdx(0.78)--->柒角捌分
=rmbdx(0.784)--->柒角捌分
=rmbdx(0.785,1)--->柒角玖分
=rmbdx(0.02,1)--->贰分
B、引用某单元格数值进行转换的
假设你的D3单元格的数据（也可以是求和或其它公式得出的结果）需要转换，大写格式放在D4单元格，则D4输入公式：=rmbdx(d3)即可
C、其它形如=rmbdx(SUM(C4:C6))的也可以，用法象内置函数，请灵活使用

3、源代码：

Functionrmbdx(value,Optionalm=0)
’中文大写源代码,By对面男孩、redwin
’支持负数,支持小数点后的第三位数是否进行四舍五入处理
’默认参数为0,即不将小数点后的第三位数进行四舍五入处理
’2002-10-11--2002-10-13
OnErrorResumeNext
Dima
DimjfAsString’定义角分位
Dimj’定义角位
Dimf’定义分位
Ifvalue<0Then’处理正负数的情况
a="负"
Else
a=""
EndIf

IfIsNumeric(value)=FalseThen’判断待转换的value是否为数值
rmbdx="需转换的内容非数值"
Else
value=Abs(CCur(value))
’当参数m不输入(默认为0)或为0时,小数点后的第三数不进行四舍五入处理
’当参数m为1或其它数值时,小数点后的第三数进行四舍五入处理
Ifm=0Then
jf=Fix((value-Fix(value))*100)
value=Fix(value)+jf/100
Else’厘位进行四舍五入实践很少用到,但还是要照顾到
value=Application.WorksheetFunction.Round(value,2)’-->这句是关键!只用round有bug
jf=Round((value-Fix(value))*100,0)
EndIf
Ifvalue=0Orvalue=""Then’当待转换数值为0或空时,不进行转换
rmbdx=""
Else
strrmbdx=Application.WorksheetFunction.Text(Int(value),"[DBNum2]")&"元"’转换整数位
IfInt(value)=0Then
strrmbdx=""
EndIf
IfInt(value)<>valueThen
Ifjf>9Then’判断小数位
j=Left(jf,1)
f=Right(jf,1)
Else
j=0
f=jf
EndIf

Ifj<>0Andf<>0Then’角分位都有时
jf=Application.WorksheetFunction.Text(j,"[DBNum2]")&"角"_
&Application.WorksheetFunction.Text(f,"[DBNum2]")&"分"
Else
’处理出现零几分的情况
IfInt(value)=0Andj=0Andf<>0Then
jf=Application.WorksheetFunction.Text(f,"[DBNum2]")&"分"
Else
Ifj=0Then’有分无角时
jf="零"&Application.WorksheetFunction.Text(f,"[DBNum2]")&"分"
Else
Iff=0Then’有角无分时
jf=Application.WorksheetFunction.Text(j,"[DBNum2]")&"角整"
EndIf
EndIf
EndIf
EndIf
strrmbdx=strrmbdx&jf’组装
Else
strrmbdx=strrmbdx&"整"
EndIf

rmbdx=a&strrmbdx’最后成型了,各位MM满意了吧
EndIf
EndIf
EndFunction

『柒』 谁有什么外贸英语方面的简写吗。帮帮忙告诉我一下，谢谢

A.A.R = against all risks 担保全险，一切险
A.B.No. = Accepted Bill Number 进口到单编号
A/C = Account 账号
AC. = Acceptance 承兑
acc = acceptance,accepted 承兑，承诺
a/c.A/C = account 帐，帐户
ackmt = acknowledgement 承认，收条[/color]
a/d = after date 出票后限期付款(票据)
ad.advt. = advertisement 广告
adv. = advice 通知(书)
ad val. = Ad valorem(according to value) 从价税
A.F.B. = Air Freight Bill 航空提单
Agt. = Agent 代理商
AI = first class 一级
AM = Amendment 修改书
A.M.T. = Air Mail Transfer 信汇
Amt. = Amount 额，金额
A.N. = arrival notice 到货通知
A.P. = account payable 应付账款
A/P = Authority to Purchase 委托购买
a.p. = additional premiun 附加保险费
A.R. = Account Receivable 应收款
Art. = Article 条款，项
A/S = account sales 销货清单
a/s = after sight 见票后限期付款
asstd. = Assorted 各色俱备的
att,.attn. = attention 注意
av.,a/v = average 平均，海损
a/v = a vista (at sight) 见票即付
(D)
DD/A =documents against acceptance, 承兑后交付单
= documents for acceptance,= documents attached, 备承兑单据
= deposit account 存款账号
d/a = days after acceptance 承兑后……日付款
D.A. = Debit advice 付款报单
D/D,D. = Demand draft,documentary draft 即期汇票，跟单汇票
d/d = day’s date (days after date) 出票后……日付款
d.f.,d.fet. = dead freight 空载运费(船)
Disc. = Discount 贴现；折扣
DLT = Day Letter Telegram 书信电
D/N = debit note 借方通知
D/O = delivery order 卸货通知书
D/P = documents against payment 付款后交付单据
Dr. = debit debter 借方，债务人
d/s. = days’ sight 见票后……日付款
DV = Dividends 股利
(E)
Eea. = each 每，各
e.e.E.E. = error excepted 错误除外
E/B = Export-Import Bank 进出口银行(美国)
enc.,encl.= enclosure 附件
E.& O.E. = errors and omissions excepted 错误或遗漏不在此限
ETA = estimated time of arrival 预定到达日期
ex. = example,executive,exchange,extract 例子，执行官，外汇交换，摘要
Exp. = Export 出口
(F)
f.a.q.=fair average quality 良好平均品质
f.a.s.=free alongside ship 船边交货价
F.B.E.=foreign bill of exchange 国外汇票
f.c.l.=full container load 整个集装箱装满
f.d.free discharge 卸货船方不负责
F.& D.=Freight and Demurrage 运费及延装费
f.i.=free in 装货船方步负责
f.i.o.=free in and out 装卸货船方均不负责
f.i.o.=free in out stowed and trimming 装卸堆储平仓船方均不负责
f.o.=free out 卸货船方不负责
f.o.,f/o=firm offer 规定时限的报价
f.o.b.=free on board 船上交货价
f.o.c.=free of charge免费
F.O.I.=free of Interest 免息
f.o.r.=free on rail,free on road 火车上交货价
f.o.s.=free on steamer 轮船上交货价
f.o.t.=free on truck 卡车上交货价
f.p.a.=free of particular average 单独海损不保
fr.f=franc,from,free 法郎，从，自由
FX=Foreign Exchange 外汇
(G)
Gg=good,goods,gramme 佳，货物，一克
G/A=general average 共同海损
GATT=General Agreement on Tariffs and Trade 关税贸易总协定
gm.=gramme 一克
g.m.b.=good merchantable brand品质良好适合买卖之货品
g.m.q.=good merchantable quality良好可售品质
G/N=Guarantee of Notes 承诺保证
g.s.w.=gross shipping weight 运输总重量
gr.wt.=gross weight 毛重
(I)
IIATA=International Air Transport Association 国际航空运输协会
IBRD=International Bank Reconstruction and Development 国际复兴开发银行
I/C=Inward Collection 进口托收
ICC=International Chamber of Commerce 国际商会
IMO=International Money Orders 国际汇票
Imp=Import 进口
IN=Interest 利息
IMF=International Monetary Fund 国际货币基金
inst.=instant(this month) 本月
int.=interest 利息
Inv.=Invoice 发票
IOU=I owe you 借据
I/P=Insurance Policy 保险单
I/R=Inward Remittance 汇入汇款
ISIC=International Standard Instrial Classification 国际行业标准分类
it.=item 项目
(K)
Kk.=karat(carat) 卡拉(纯金含有度)
kg.=keg,kilogramme笑，公斤
K.W.=Kilo Watt 千瓦
(L)
LL/A=Letter of Authorization 授权书
lbs.=pounds 磅
L/C=Letter of Credit 信用证
L/H=General Letter of Hypothecation 质押权利总股定书
L/I=Letter of Indemnity赔偿保证书
L/G=Letter of Guarantee 保证函
l.t.=long ton 长吨(2,240磅)
L/T=Letter Telegram 书信电报
Ltd.=Limited 有限责任
L/U=Letter of Undertaking 承诺书
(M)
Mm.=mile,metre,mark,month,minute,meridian(noon)哩，公尺，记号，月，分，中午
m/d=month after date 出票后……月付款
memo.=memoranm 备忘录
M.I.P.=marine insurance policy 海上保险单
misc.=miscellaneous杂项
M/L=more or less增或减
M/N=Minimum最低额
MO=Money Order拨款单，汇款单，汇票
m/s=months after sight见票后……月付款
m.s.=mail steamer,mail transfer油船，轮船
M.T.=metric ton,mail transfer公吨，信汇
M/T=Mail Transfer信汇
m.v.=motor vessel轮船
MNC=multi-national corporation跨国公司
(N)
NN.B.=Nota Bene(take notice)注意
NO.=number号码
n/p=non-payment拒付
Nt.Wt=Net Weight净重
(O)
O.=Order定单，定货
O.B/L=Order bill of lading指示式提单
O.C.P.=Overland Common Point通常陆上运输可到达地点
O/C=Outward Collection出口托收
OD.=Overdraft透支
O/d=overdraft,on demand透支，要求即付款（票据）
O/No.=order number定单编号
o.p.=open policy预约保单
O/R=Outward Remittance汇出汇款
ORT=ordinary telegram寻常电报
o/s=on sale,out of stock廉售，无存货
O/S=old style老式
o.t.=old term旧条件
oz=ounce盎斯
(P)
PP/A，p/a=particular average单独海损
pa=power of attorney委任状
=private account私人账户
p.a.=per annum(by the year)每年
p.c.=per cent,petty cash百分比，零用金
p.l.=partial loss分损
P.&I.=Protection and Indemnity意外险
P.&L.=profit and loss益损
P.M.O.=postal money order邮政汇票
P/N=promissory note本票
P.O.B.=postal office box邮政信箱
p.o.d.=payment on delivery交货时付款
P.O.D.=Pay on Delivery发货付款
P/O=Payment Order支付命令
P/R=parcel receipt邮包收据
prox.=proximo(next month)下月
PS.=postscript再启
pt.=pint品脱
P.T.O.=please turn over请看里面
PTL=private tieline service电报专线业务
(Q)
Qqlty=quality品质
qr=quarter四分之一
qty=quantity数量
quotn=quotation报价单
qy=quay码头
(R)
recd=received收讫
recpt=receipt收据
ref.=reference参考，关于
RFWD=rain,fresh water damage雨水及淡水险
remit.=remittance汇款
r.m.=ready money,readymade备用金，现成的
RM=Remittance汇款
R.O.=remittance Order汇款委托书
R.P.=reply paid,returnof post邮下或电费预付，请即会示
rt.=rate率
(S)
SS.A.=-Statement of Account账单
s.a.=subject to approval以承认(赞成，批准)为条件
S/C=sale contract售货合同
S/D=sight draft即期汇票
S/D=sea damage海水损害
SD.=Sundries杂项
SE.=Securities抵押品
S/N=shipping note装运通知
S.O.s.o.=shipping order,seller’s option装船通知书，卖方有权选择
S/S,s/s,ss,s.s=steamship轮船
s.t.=short ton短吨
(T)
T/A=telegraphic address电报挂号
tgm=telegram电报
T.L.O.=total loss only只担保全损(分损不赔)
T.M.O.=telegraphic money order电报汇款
T.R.=trust receipt信托收据
T.T.=telegraphic transfer电汇
TPND=theft,pilferage and nondelivery盗窃遗失条款
Uult.=ultimo(last month)上月
u/w=underwriter保险业者
(V)
voy.=voyage航次
V.V.=Vice Versa反之亦然
(W)
w.a.=with average水渍险(单独海损赔偿)
war=with risk担保一切险
W/B=way bill warehouse book货运单，仓库簿
wgt=weight重量
whf=wharf码头
W/M=weight or measurement重量或容量
w.p.a.=with particular average单独海损赔偿
W.R.=War Risk战争险
W.R.=warehouse receipt仓单
wt=weight重量
(X)
x.d.=ex dividend除息
XX=good quality良好品质
XXX=very good quality甚佳品质
XXXX=best quality最佳品质
(Y)
yd.=yard码
yr.=your,year你的，年
(Z)
Z=Zone地区，地带
参考资料：http://info.china.alibaba.com/news/detail/v5003008-d5586924-p3.html#newsdetail-content

『捌』 ASP.NET中，如何将数值型数字转换为字符型

Abs 函数 返回数的绝对值。 And 运算符 执行两个表达式的逻辑连接。 Array 函数 返回含一数组的 变体 。 Asc 函数 返回字符串首字母的 ANSI 字符代码。 赋值运算符 (=) 给变量或属性赋值。 Atn 函数 返回数的反正切值。 调用语句 将控制移交 Sub 或 Function 过程。 CBool 函数 返回已被转换为 Boolean 子类型的变体的表达式。 CByte 函数 返回已被转换为字节子类型的变体的表达式。 CCur 函数 返回已被转换为货币子类型的变体的表达式。 CDate 函数 返回已被转换为日期子类型的变体的表达式。 CDbl 函数 返回已被转换为双精度子类型的变体的表达式。 Chr 函数 返回指定 ANSI 字符码的字符。 CInt 函数 返回已被转换为整数子类型的变体的表达式。 Class 对象 提供对已创建的类的事件的访问。 Class 语句 声明类名 Clear 方法 清除 Err 对象的所有属性设置。 CLng 函数 返回已被转换为 Long 子类型的变体的表达式。 颜色常数 颜色常数列表。 比较常数 用于比较运算的常数列表。 连接运算符 (&) 强制两个表达式的字符串连接。 Const 语句 声明用于字母值的常数。 Cos 函数 返回角度的余弦值。 CreateObject 函数 创建并返回对“自动”对象的引用。 CSng 函数 返回已被转换为单精度子类型的变体的表达式。 CStr 函数 返回已被转换为字符串子类型的变体的表达式。 日期和时间常数 在日期和时间运算中用来定义星期几和其他常数的常数列表。 日期格式常数 用于日期和时间格式的常数列表。 Date 函数 返回当前系统日期。 DateAdd 函数 返回加上了指定的时间间隔的日期。 DateDiff 函数 返回两个日期之间的间隔。 DatePart 函数 返回给定日期 的指定部分。 DateSerial 函数 返回指定年月日的 日期子类型的变体 。 DateValue 函数 返回日期子类型的变体 。 Day 函数 返回日期，取值范围为 1 至 31。 Description 属性 返回或者设置说明某个错误的字符串。 Dictionary 对象 存储数据键、项目对的对象。 Dim 语句 声明变量并分配存储空间。 除法运算符 (/) 两数相除并以浮点数格式返回商。 Do...Loop 语句 当条件为 True 或者当条件变为 True 时，重复一语句块。 Empty 表示尚未初始化的变量值。 Eqv 运算符 使两个表达式相等。 Erase 语句 重新初始化固定数组的元素并重新分配动态数组的存储空间。 Err 对象 含有关于运行时错误的信息。 Eval 函数 计算并返回表达式的值。 Execute 方法 根据指定的字符串，执行正则表达式的搜索。 Execute 语句 执行单个或更多的指定语句。 Exit 语句 退出 Do...Loop、For...Next、 Function 或 Sub 代码块。 Exp 函数 返回 e （自然对数的底）的多少次方。 自乘运算符 (^) 指数函数，幂为自变量。 False 关键字，其值为零。 FileSystemObject 对象 提供对计算机文件系统的访问。 Filter 函数 根据指定的筛选条件,返回含有字符串数组子集的、下限为 0 的数组。 FirstIndex 属性 返回字符串匹配的位置。 Fix 函数 返回数的整数部分。 For...Next 语句 以指定的次数重复一组语句。 For Each...Next 语句 对于数组或集合中的每一个元素，重复一组语句。 FormatCurrency 函数返回的表达式为货币值格式，其货币符号采用系统控制面板中定义的。 FormatDateTime 函数 返回格式化为日期或时间的表达式。 FormatNumber 函数 返回格式化为数的表达式。 FormatPercent 函数 返回格式化为百分比（乘以 100）的表达式，以 % 符号结尾。 Function 语句 声明形成 Function 过程体的名称、参数和代码。 GetObject 函数 从文件返回对“自动”对象的访问。 GetRef 函数 返回对可以绑定到事件的过程的引用。 Global 属性 设置或返回 Boolean 值。 Hex 函数 返回表示数的十六进制值的字符串。 HelpContext 属性 设置或返回帮助文件中某主题的上下文 ID。 HelpFile 属性 设置或返回帮助文件的全路径。 Hour 函数 返回小时数，取值范围为 0 至 23。 If...Then...Else 语句 根据表达式的值，有条件地执行一组语句。 IgnoreCase 属性 设置或返回 Boolean 值，指示模式搜索是否区分大小写。 Imp 运算符 执行两个表达式的逻辑隐含。 初始化事件 发生在创建相关类的实例时。 InputBox 函数在对话框中显示提示，等待用户输入文本或者单击按钮，并返回文本框的内容。 InStr 函数 返回一个字符串在另一个字符串中第一次出现的位置。 InStrRev 函数返回一个字符串在另一个字符串中出现的位置，是从字符串的末尾算起。 Int 函数 返回数的整数部分。 整数除法运算符(\) 两数相除，返回的商取其整数部分。 Is 运算符 比较两个对象引用变量。 IsArray 函数 返回 Boolean 值，表示变量是否为数组。 IsDate 函数 返回 Boolean 值，表示表达式是否可以转换为日期。 IsEmpty 函数 返回 Boolean 值，表示变量是否已被初始化。 IsNull 函数 返回 Boolean 值，表示表达式是否含有无效数据 (Null)。 IsNumeric 函数 返回 Boolean 值，表示表达式能否当作一个数，用来计算。 IsObject 函数 返回 Boolean 值，表示表达式是否引用了有效的“自动”对象。 Join 函数 返回连接许多包含在一个数组中的子串而创建的字符串。 LBound 函数 对于指示的数组维数，返回最小的可用下标。 LCase 函数 返回已被转换为小写字母的字符串。 Left 函数 返回字符串最左边的指定数量的字符。 Len 函数 返回字符串中的字符数量，或者存储变量所需的字节数。 Length 属性 返回在搜索字符串中匹配的长度。 LoadPicture 函数 返回图片对象。仅用于 32 位平台。 Log 函数 返回数的自然对数。 LTrim 函数 返回去掉前导空格的字符串副本。 Match 对象 提供访问匹配正则表达式的只读属性。 Matches 集合 正则表达式匹配对象的集合。 Mid 函数 从字符串中返回指定数量的字符。 Minute 函数 返回小时内的分钟数，取值范围为 0 至 59。 杂项常数 不能纳入任何其他类的常数列表。 Mod 运算符 两数相除，只返回余数。 Month 函数 返回月份，取值范围为 1 至 12。 MonthName 函数 返回表示月份的字符串。 MsgBox 常数 与MsgBox 函数一起使用的常数列表。 MsgBox 函数在对话框中显示消息，等待用户单击按钮，并返回表示用户所击按钮的数值。 乘法运算符 (*) 两数相乘。 取反运算符 (-) 表示数值表达式的相反数。 Not 运算符执行表达式的逻辑“非”运算。 Now 函数 返回当前计算机的系统日期和时间。 Nothing 使对象变量与所有实际的对象没有任何关联。 Null 表示变量含有无效的数据。 Number 属性 返回或设置代表某个错误的数值。 Oct 函数 返回表示一数的八进制值的字符串。 On Error 语句 启用错误处理。 运算符的优先级 表示各种 VBScript 运算符的优先顺序的列表。 Option Explicit 语句 强制显式声明脚本中的所有变量。 Or 运算符 执行两个表达式的逻辑“或”运算。 Pattern 属性 设置或返回正被搜索的正则表达式的模式。 Private 语句 声明私有变量并分配存储空间。 PropertyGet 语句声明在窗体属性过程中获取（返回）属性值的名称，参数和代码。 PropertyLet 语句 声明在窗体属性过程中指定属性值的名称，参数和代码。 PropertySet 语句 声明在窗体属性过程中设置引用到对象的名称，参数和代码。 Public 语句 声明公有变量并分配存储空间。 Raise 方法 产生运行时错误。 Randomize 语句 初始化随机数发生器。 ReDim 语句 声明动态数组变量，并分配或重新分配过程级的存储空间。 RegExp 对象 提供简单正则表达式的支持。 Rem 语句 包含程序中的注释。 Replace 函数返回一个字符串，其中某个指定的子串被另一个子串替换，替换的次数也有规定。 Replace 方法 替换在正则表达式搜索中已发现的正文。 RGB 函数 返回表示 RGB 颜色值的数。 Right 函数 返回字符串最右边的指定数量的字符。 Rnd 函数 返回一随机数。 Round 函数 返回指定位数、四舍五入的数。 RTrim 函数 返回去掉尾部空格的字符串副本。 ScriptEngine 函数 返回表示正在使用中的脚本语言的字符串。 ScriptEngineBuildVersion 函数返回使用中的脚本引擎的编译版本号。 ScriptEngineMajorVersion 函数返回使用中的脚本引擎的主版本号。 ScriptEngineMinorVersion 函数返回使用中的脚本引擎的次版本号。 Second 函数 返回时间的秒数，取值范围为 0 至 59。 Select Case 语句 根据表达式的值，在若干组语句中选择一组执行。 Set 语句 将对象引用赋予变量或属性。 Sgn 函数 返回表示数的符号的整数。 Sin 函数 返回角度的正弦值。 Source 属性 返回最早出错的对象或应用程序的名称。 Space 函数 返回由指定数量的空格组成的字符串。 Split 函数 返回下限为 0 的、由指定数量的子串组成的一维数组。 Sqr 函数 返回数的平方根。 StrComp 函数 返回反映字符串比较结果的值。 字符串常数 字符串常数的列表。 String 函数 返回重复的字符串，达到指定的长度。 StrReverse 函数 返回一字符串，其中字符的顺序与指定的字符串中的顺序相反。 Sub 语句 声明形成 Sub 过程体的名称、参数和代码。 减法运算符 (-) 求两数之差，或表示某数值表达式的相反数。 Tan 函数 返回角度的正切值。 终结事件 发生在相关类的实例终结之时。 Test 方法 根据指定的字符串，执行正则表达式的搜索。 Time 函数 返回反映当前系统时间的日期子类型的变体。 Timer 函数 返回时经子夜 12:00 AM 后的秒数。 TimeSerial 函数 返回含有指定时分秒时间的日期子类型的变体。 TimeValue 函数 返回含有时间的日期子类型的变体。 Trim 函数 返回去掉前导空格或末尾空格的字符串副本。 三态常数 在代码中使用，以便表示每个显示的值。 True 其值为 -1 的关键字。 TypeName 函数 返回一字符串，它提供了关于变量的变体子类型信息。 UBound 函数 返回指定维数数组的最大有效下标。 UCase 函数 返回的字符串已经被转换为大写字母。 Value 属性 返回在搜索字符串中已发现匹配的值或正文。 VarType 常数 定义变体子类型的常数列表。 VarType 函数 返回标识变体子类型的数值。 VBScript 常数 在 VBScript 中提供不同种类的常数。 Weekday 函数 返回表示星期几的数值。 WeekdayName 函数 返回表示星期几的字符串。 While...Wend 语句 只要给定的条件为 True，便执行一串语句。 With 语句 对单个的对象执行一串语句。 Xor 运算符 执行两个表达式的逻辑“异或”运算。 Year 函数返回表示年份的数值。 返回Variant (String)，其中包含字符串中从左边算起指定数量的字符。 语法Left(string, length) Left 函数的语法有下面的命名参数：部分 说明string 必要参数。字符串表达式其中最左边的那些字符将被返回。如果 string 包含 Null，将返回 Null。 length 必要参数；为 Variant (Long)。数值表达式，指出将返回多少个字符。如果为 0，返回零长度字符串 ("")。

『玖』 数字大小写转换

在与报销单类似的财务单据填写过程中，我们除了要输入用阿拉伯数字表示的小写数字金额外，还要输入相应的中文大写数字。如果手工进行处理，不但输入时很繁琐，而且还很容易出错，经常会造成大小写不相符的情况发生。为此，我们可以利用VBA自定义一个函数，然后再利用这个自定义的函数来实现货币大小的自动转换。这样，不但方便快捷，而且不易出错。具体的操作步骤如下：
1. 启动Excel。按“Alt+F11”快捷键打开“Visual Basic编辑器”。

2. 在“Visual Basic编辑器”中，单击“插入”菜单栏中的“模块”命令，插入一个模块。双击左侧“工程”窗口中的“模块1”选项，在窗口右边展开“模块1（代码）”编辑窗口，然后输入如下代码:

Function dx(q)
Dim Cur as Long,yuan as Long
Dim Jiao as Integer,Fen as Integer
Dim CnYuan as String, CnJiao as String, CnFen as String
If q = "" Then
dx = 0
Exit Function
End If
Cur = Round(q * 100)
Yuan = Int(Cur / 100)
Jiao = Int(Cur / 10) - Yuan * 10
Fen = Cur - Yuan * 100 - Jiao * 10
CnYuan = Application.WorksheetFunction.Text(Yuan, "[DBNum2]")
CnJiao = Application.WorksheetFunction.Text(Jiao, "[DBNum2]")
CnFen = Application.WorksheetFunction.Text(Fen, "[DBNum2]")
dx = CnYuan & "元" & "整"
d1 = CnYuan & "元"
If Fen <> 0 And Jiao <> 0 Then
dx = d1 & CnJiao & "角" & CnFen & "分"
If Yuan = 0 Then
dx = CnJiao & "角" & CnFen & "分"
End If
End If
If Fen = 0 And Jiao <> 0 Then
dx = d1 & CnJiao & "角" & "整"
If Yuan = 0 Then
dx = CnJiao & "角" & "整"
End If
End If
If Fen <> 0 And Jiao = 0 Then
dx = d1 & CnJiao & CnFen & "分"
If Yuan = 0 Then
dx = CnFen & "分"
End If
End If
End Function

输入完成后，关闭“Visual Basic编辑器”返回工作表。现在，我们可测试一下这个函数。首先，在A1单元格中输入一个小写数字的金额，例如123456.78，然后，在A2单元格中输入公式：=dx(A1)，确认后即可将A1所表示的小写数字金额转换为大写的数字金额，并在A2单元格中显示出来。怎么样，方便吧？

『拾』 写一个方法，将钱后数字金额转换成汉字大写金额

public class no4 {

public static void main(String[] args) {
// 金额大小写转换
float money=2038.0f;
int m1,m2,m3,m4,m5,m6,temp;
temp = (int)(money*100);
System.out.println(money);

m1 =temp%1000000/100000;
m2 =temp%100000/10000;
m3 =temp%10000/1000;
m4 =temp%1000/100;
m5 =temp%100/10;
m6 =temp%10;

char c1,c2,c3,c4,c5,c6;
c1=transe(m1);
c2=transe(m2);
c3=transe(m3);
c4=transe(m4);
c5=transe(m5);
c6=transe(m6);
String str="";
if(m1!=0)
{
str+=c1+"千";
}
if(m2!=0)
{
str+=c2+"百";
}
if(m1!=0&&m2==0&&(m3!=0||m4!=0))
{
str+="零";
}
if(m3!=0)
{
str+=c3+"十";
}
if(m2!=0&&m3==0&&m4!=0)
{
str+="零";
}
if(m4!=0)
{
str+=c4;
}
str+="元";
if(m5 ==0&&m6 ==0)
{
str+="整";
}
if(m5!=0)
{
str+=c5+"角";
}
if(m5==0&&m6!=0)
{
str+="零";
}
if(m6!=0)
{
str+=c6+"分";
}

System.out.print(str+"\n");
System.out.println("..........................");

}

public static char transe(int m)
{
char r=' ';
switch (m)
{
case 0:
r ='零';
break;
case 1:
r ='壹';
break;
case 2:
r ='贰';
break;
case 3:
r ='叁';
break;
case 4:
r ='肆';
break;
case 5:
r ='伍';
break;
case 6:
r ='陆';
break;
case 7:
r ='柒';
break;
case 8:
r ='捌';
break;
case 9:
r ='玖';
break;

}
return r;
}
}