重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
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 现在,不知道行不行