Dim sw As StreamWriter = New StreamWriter(“c:\xxxxx.log”, True) 'true是指以追加的方式打開指定文件
創(chuàng)新互聯(lián)服務(wù)項目包括阿瓦提網(wǎng)站建設(shè)、阿瓦提網(wǎng)站制作、阿瓦提網(wǎng)頁制作以及阿瓦提網(wǎng)絡(luò)營銷策劃等。多年來,我們專注于互聯(lián)網(wǎng)行業(yè),利用自身積累的技術(shù)優(yōu)勢、行業(yè)經(jīng)驗、深度合作伙伴關(guān)系等,向廣大中小型企業(yè)、政府機(jī)構(gòu)等提供互聯(lián)網(wǎng)行業(yè)的解決方案,阿瓦提網(wǎng)站推廣取得了明顯的社會效益與經(jīng)濟(jì)效益。目前,我們服務(wù)的客戶以成都為中心已經(jīng)輻射到阿瓦提省份的部分城市,未來相信會繼續(xù)擴(kuò)大服務(wù)區(qū)域并繼續(xù)獲得客戶的支持與信任!
For i = 0 To j
temp = i.ToString
sw.WriteLine(temp)
sw.Flush()
Next
sw.Close()
sw = Nothing
對數(shù)運算:用log函數(shù),log(n)返回n的自然對數(shù)值(double型)。要計算以n為底x的對數(shù)值,可寫為log(x)/log(n)
三角函數(shù)就更簡單了,sin(n)返回n的正弦值,cos(n)返回n的余弦值,tan(n)返回n的正切值,都是double型的。
簡單點的:
dim 上一個數(shù) as double
dim 下一個數(shù) as double
dim 結(jié)果 as double
dim 操作 as string
private sub 加減乘除(byval sender as object, byval e as eventargs) handles 加.click, 減.click, 乘.click, 除.click
上一個數(shù) = cdbl(輸入框.text) ' 存儲當(dāng)前輸入的數(shù)值
輸入框.text = "" ' 等待下一個數(shù)值
select case sender.text ' 根據(jù)按下的按鈕的文本屬性確定你要做什么,這里可以用加減乘除號代替
case "加"
操作 = "加"
case "減"
操作 = "減"
case "乘"
操作 = "乘"
case "除"
操作 = "除"
end select
end sub
private sub 計算(byval sender as object, byval e as eventargs) handles 等號.click
下一個數(shù) = 輸入框.text
輸入框.text = ”“
select case 操作
case "加"
結(jié)果 = 上一個數(shù) + 下一個數(shù)
case "減"
結(jié)果 = 上一個數(shù) - 下一個數(shù)
case "乘"
結(jié)果 = 上一個數(shù) * 下一個數(shù)
case "除"
結(jié)果 = 上一個數(shù) / 下一個數(shù)
end select
輸入框.text = cstr(結(jié)果)
上一個數(shù) = 結(jié)果
end sub
.NET 的哈,我沒有 .NET 現(xiàn)在,不知道行不行