磐石加密狗

‘壹’ 贷款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