13518219792
File.WriteAllText("保存txt的路径","要写入的内容")
成都创新互联从2013年开始，先为洛宁等服务建站，洛宁等地企业，进行企业商务咨询服务。为洛宁企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。
'或者
File.WriteAllLines("保存txt的路径", new string(){ "要写入的内容"})
File 方法 (System.IO)
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
给你一个思路，具体实现应该很简单的 只是我是搞VB6的 VB2005语句跟它有点区别 我不敢贸然发代码
1.首先建立一个程序，使它每次运行都写入一个log文件，内容为当前时间（date+time），具体的你还可以顺便加入读取上次log内容的功能
2.将这个程序编译成exe，复制到一个固定目录下，然后运行regedit，定位到HKey_local_Machine\Software\Microsoft\Windows NT\CurrentVersion\WinLogon\
右边Shell键值修改为explorer.exe 文件路径 （如explorer.exe c:\1.exe）。这样每次开机都会启动并记录时间（包括以安全模式启动）
简单点的：
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 现在，不知道行不行
Allocconsle 打开一个控制台窗口
Call 调用DLL文件中的函数
Freeconsole 关闭控制台窗口
Call 命令调用DLL文件中函数后，函数运行时，如果用户关闭控制台，会弹出错误对话框。
本人想实现：当用户点击控制台关闭按钮后，弹出一个确认对话框，点确定，控制台关闭，并不会出现错误对话框；点取消，控制台继续运行。
