簡單點的:
成都創(chuàng)新互聯(lián)公司-專業(yè)網(wǎng)站定制、快速模板網(wǎng)站建設、高性價比阜寧網(wǎng)站開發(fā)、企業(yè)建站全套包干低至880元,成熟完善的模板庫,直接使用。一站式阜寧網(wǎng)站制作公司更省心,省錢,快速模板網(wǎng)站建設找我們,業(yè)務覆蓋阜寧地區(qū)。費用合理售后完善,10多年實體公司更值得信賴。
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) ' 存儲當前輸入的數(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)在,不知道行不行
絕對值是“|”,可以直接顯示,同理對數(shù)可用log(x)代替,根號和其他不支持顯示。
如果要顯示數(shù)學式子,只能畫吧。
計算時可用“^”求冪或求根,“/”表示除法和分數(shù)線,還有math類。
Dim sw As StreamWriter = New StreamWriter(“c:\xxxxx.log”, True) 'true是指以追加的方式打開指定文件
For i = 0 To j
temp = i.ToString
sw.WriteLine(temp)
sw.Flush()
Next
sw.Close()
sw = Nothing