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;
}
}