易截截图软件、单文件、免安装、纯绿色、仅160KB

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中有无TApplication对应类型

我用Delphi写了一个DLL, DLL里有MDI的子窗体,DLL初始化时 传递调用者的TApplication给DLL, 在Delphi7中调用已经通过,但是不知道在VB中有无TApplication对应类型, 是否能在VB中调用?
你好,用instance不是就可以了&# ......

vb如何调用Illustrator(此前Illustrator未启动)?

请教一下:我用vb写了一个调用Illustrator的测试程序,代码很简单:Private Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......

VB标题栏 动态显示

我在窗体正常运行的情况下 标题栏上可以动态显示数值

可是点击最小化按钮的后 ,在任务栏上的标题上就不变了?

怎么办 

别折腾这些花架子,没意义

不会吧?
VB code:
Private Su ......

vb 5大问题

1.用Shell "regsvr32  " & App.Path & "\abcdefghijklmnopqrstuvwxyz.ocx"注册控件,怎么不显示注册成功对话框?
2.修改d:\12345.txt属性->只读,非只读,隐藏,非隐藏
3 ......

vb中可选参数的问题

function multi(a as integer,b as integer,optional third)
  dim n as integer
  n = a * b
if not ismissing (third) then
    n = n * thid
end if
multi = n
end fu ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号