Visual Basic 6.0可以通过调用API函数格式化一个磁盘,无论是软盘还是硬盘。 打开一个新的项目(工程1) ,如果你没有更改过缺省模式,那么Visual Basic 6.0会自动添加一个form1文件,在form1上添加一个命令控件,将下面的代码拷入。 Option Explicit Private Declare Function SHFormatDrive Lib"shell32"( ByVal Hend AS Long,ByVal Drive AS Long,ByVal FormatID AS Long,ByVal Options AS Long) as Long Private Sub FormatDisk(intDrive as integer,blnQuickFormat as Boolean) dim lngReturn As Long if (blnQuickFormat) then lngReturn= SHFormatDrive(0,intDrive,0&,1&) else lngReturn= SHFormatDrive(0,intDrive,0&,0&) end if end Sub Private Sub Command1_Click() call FormatDisk(0,True) End Sub 运行此程序。 注意FormatDisk函数的第一个变量很重要,他的值是0,1,2时代表格式化的分别是:A、B、C盘。
上传时间: 2015-10-05
上传用户:kytqcool
拉个朗日插值公式是把Pn(X)的构造问题转化为n+1插值基函数问题的构造!此软件就是拉哥郎日插值的原程序matlab版
上传时间: 2015-10-18
上传用户:许小华
这是一个利用MATLAB遗传算法工具箱进行求函数最值的实际程序文档,对数学建摸及从事算法研究的人员具有很好的参考价值
上传时间: 2015-10-21
上传用户:懒龙1988
求解三次样条函数思路为:由 连续 预设 , 为一次多项式:故 积分2次 积分常数(2个) 由插值条件 确定 积分常数 得 (含预设的 ) 利用 连续: 确定 的 个方程 + 2边界条件 确定 加入 的表达式,形成 。
上传时间: 2013-12-13
上传用户:com1com2
verilog中的一个不用状态机和决断函数就可以实现多重函数赋值的例子,希望对你用帮助。
上传时间: 2014-01-14
上传用户:2525775
基本遗传算法在求一个函数表达式的最大值应用!
上传时间: 2014-01-04
上传用户:王庆才
prototype.js原代码包及详细原代码讲解,迅速让你通过高质量的原代码掌握函数式编程,是js水平提升一个新高度
上传时间: 2015-11-15
上传用户:dongqiangqiang
使用遗传算法求函数的极小值的一个例子,使用遗传算法求函数的极小值的一个例子
上传时间: 2015-11-18
上传用户:mhp0114
构造函数 析构函数 拷贝构造函数 赋值运算符重载 的实例
上传时间: 2014-01-24
上传用户:shinesyh
多元函数的共轭梯度法求多元函数在无约束情况下的最小值
上传时间: 2015-11-26
上传用户:zaizaibang