VB文件操作
Private Sub Command1_Click()
Dim m As Integer '接受文本框一的数值
Dim n As Integer '接受文本框二的数值
Dim k As Integer '循环控制次数
m = Val(Text1.Text)
n = Val(Text2.Text)
For k = m To n
Open Dir1.Path + "\k.txt" For Output As #k
Next
End Sub
这段代码的本来用意是点击command1按钮的时候 在指定文件夹中创建 文件名为数字m 到n的 n-m个文件（暂不判断n 和m的大小问题）
可是我调试的时候只生成k.txt文件 怎么让for循环里的k真正的起作用
如需要阅读该回复，请登录或注册CSDN!
相关问答：
请教一下：我用vb写了一个调用Illustrator的测试程序，代码很简单：Private Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......
设计一个鼠标画图程序，界面设计，窗体中添加一个picturebox控件，一个combobox组合下拉框、一个通用对话框与两个命令框，以下是我的程序，但是我运行的时候总是提示变量未定义，还望各位大侠帮忙指正哪里出了问题
......
我知道在VB中调用系统的计算器 可以用shell
可是要是要求高点 调用后 直接计算 并把计算结果显示在文本框里
比如 在点击按钮1 调用计算器 把指定的二进制转换为16进制 并显示在 text1
自已做一个计算器~ ......
VB code:
Private objXml As New DOMDocument60
Private xmlRoot As IXMLDOMElement
Public Function xmlNode()
Set objXml = New DOMDocument
objXml.async = False
objXml.Load ("E:\Li ......
1.用Shell "regsvr32 " & App.Path & "\abcdefghijklmnopqrstuvwxyz.ocx"注册控件，怎么不显示注册成功对话框？
2.修改d:\12345.txt属性->只读，非只读，隐藏，非隐藏
3 ......
