貨幣轉換程式
<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=big5">
<title>貨幣轉換程式</title>
<script language="vbscript">
sub cal()
const x1 = "台幣"
const x2 = "美金"
const x3 = "英鎊"
a = document.z1.zz.value
b = document.z1.zz1.value
msgbox a
msgbox b
if a = b then
document.z1.nm.value = cdbl(document.z1.om.value)
elseif a=x1 and b=x2 then
document.z1.nm.value =round( cdbl(document.z1.om.value)/33,0)
elseif a=x2 an ..
訪客只能看到部份內容，免費 加入會員 或由臉書 Google 
可以看到全部內容
