VB六个数取最大值和最小数
mxl=1 && 最大的文本框编号
mnl=1 && 最小的文本框编号
mxn=val(thisform.text1.value) && 最大的数
mnn=val(thisform.text1.value) && 最小的数
for i=2 to 6
txi =('thisform.text'+allt(str(i ))+'.value')
txi=val(&txi)
if mxn<txi
mxl=i
mxn=txi
endif
if mnn>txi
mnl=i
mnn=txi
endif
endfor
thisform.label1.caption=str(mxl)
thisform.label2.caption=str(mxn)
thisform.label3.caption=str(mnl)
thisform.label4.caption=str(mnn)
相关文档：
如何让幻灯片在vb的框架里播放
'Microsoft PowerPoint 9.0(Office 2000的，如果是97则是8.0) Object Library)
''Microsoft PowerPoint 11.0(Office 2003) Object Library)
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) '延时API声明
Private Sub Form_Load()
Dim ppt As New PowerPoint. ......
如何去优化你的VB程序帮助
1、如何去优化你的VB程序
Visual Basic 作为一种高级编程语言，它也有着不可避免的缺点---开发出的应用程序运行速度慢。如果我们能够程序做一些优化，那么情况将会大大改善。要优化程序运行的实际速度，常用的方法有三种：
1.尽量避免使用 Variant 变量。由于VB不能确定 Variant 变量的� ......
VB隐藏进程问题的讨论由来已久,效果有好有坏,反正是各有各的招,偶然机会看到planet-source一段隐藏进程的文章,作者说采用了kernel mode driver!方法,
单从技术方法而言,这是目前见到隐藏进程中最强悍的了(个人见解,井底之蛙了),不过这种东西用在正义的人手上是一个除暴安良的利器,用心叵测者就不好说了,但是技术终归是技术 ......
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Private Sub Command1_Click()
Dim Url As String, Filepath As String
Url = "h ......
