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
对数运算：用log函数，log(n)返回n的自然对数值（double型）。要计算以n为底x的对数值，可写为log(x)/log(n)
三角函数就更简单了，sin(n)返回n的正弦值，cos(n)返回n的余弦值，tan(n)返回n的正切值，都是double型的。
简单点的：
dim 上一个数 as double
dim 下一个数 as double
dim 结果 as double
dim 操作 as string
private sub 加减乘除(byval sender as object, byval e as eventargs) handles 加.click, 减.click, 乘.click, 除.click
上一个数 = cdbl(输入框.text) ' 存储当前输入的数值
输入框.text = "" ' 等待下一个数值
select case sender.text ' 根据按下的按钮的文本属性确定你要做什么，这里可以用加减乘除号代替
case "加"
操作 = "加"
case "减"
操作 = "减"
case "乘"
操作 = "乘"
case "除"
操作 = "除"
end select
end sub
private sub 计算(byval sender as object, byval e as eventargs) handles 等号.click
下一个数 = 输入框.text
输入框.text ＝ ”“
select case 操作
case "加"
结果 = 上一个数 + 下一个数
case "减"
结果 = 上一个数 - 下一个数
case "乘"
结果 = 上一个数 * 下一个数
case "除"
结果 = 上一个数 / 下一个数
end select
输入框.text = cstr(结果)
上一个数 = 结果
end sub
.NET 的哈，我没有 .NET 现在，不知道行不行