磐石加密狗

『壹』 貸款80萬30年提前還款20萬後月供多少錢

有時外部性問題可以用道德規范和社會約束來解決。例如，考慮一下為什麼大多數人不亂扔垃圾？盡管有禁止亂扔垃圾的法律，但這些法律並沒有嚴格實行過。大多數人不亂扔垃圾只是因為這樣做是錯誤的。公園規則教導大多數孩子說：「己所不欲，勿施於人。」這個道德規范告訴我們，要考慮到我們的行動如何影響其他人。用經濟學術語講，這就告訴我們外部性的內在化。
另一種私人解決外部性的方法是慈善行為，許多慈善行為的產生是為了解決外部性問題。例如，目的在於保護環境的西拉俱樂部（Sierra Club）是一個由私人捐款的非贏利組織。另一個例子是私人學院和大學接受校友、公司和基金會的捐贈部分是因為教育對社會有正外部性。
私人市場往往可以通過依靠有關各方的私利來解決外部性問題。有時這種解決方法採取了把不同類型經營結合在一起的形式。例如，考慮一個蘋果種植者和一個相互位置接近的養蜂人。每個人的經營都給對方帶來了正外部性：蜜蜂在蘋果樹上採花粉，有助於果樹結果實。同時，蜜蜂也用從蘋果樹上採集的花粉來釀造蜂蜜。但是，當蘋果園主決定種多少蘋果樹和養蜂人決定養多少蜂時，他們都沒考慮正外部性。結果，蘋果園主種的樹太少，而養蜂人養的蜂也太少。如果養蜂人購買蘋果樹，或如果蘋果園主買蜜蜂，這些外部性就內在化了：可以在同一個企業內進行這兩種活動，而且這一個企業可以選擇最優蘋果樹和蜜蜂數量。外部性內在化是某些企業包括了不同經營的一個原因。

『貳』 我現有一個EXCEL表格文檔，如何製作一個加密狗，讓別人有了加密碼狗才可以使用並修改數據

Private Sub Workbook_Open()
Dim fs, d, s$
On Error Resume Next
For i = 3 To 26
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(Chr(64 + i) & ":")
s = d.serialnumber
Select Case s
Case "1222130052" 'U盤序列號
Exit Sub
End Select
Next i
MsgBox "找不到U盤，系統將退出。"
ThisWorkbook.Close False
End Sub

那麼又如何快速得到自己電腦的硬碟的序列號呀？如何快速得到自己U盤的序列號？
Sub sn()

Dim fs, d, s
On Error Resume Next
For i = 3 To 26
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(Chr(64 + i) & ":")
Cells(i, 1) = Chr(64 + i) & ": " & d.serialnumber
Next i