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)
相关文档：
http://blog.donews.com/sloo/archive/2006/01/29/711269.aspx
1.用Microsoft Internet Transfer Control 控件（在部件中添加），代码非常简单，如下（在form上添加一个Inet1和Text1和Command1）：
Private Sub Command1_Click()
Text1.Text = Inet1.OpenURL("http://www.vbgood.com/")
End Sub
2.如果是使用 W ......
大家都知道共享软件都有它们的试用期，即给你一个固定的期限免费使用。
应有的功能：
1）给定一个试用期限，在系统每次启动时会判断软件已经使用了几天，还有几天可以及启动的次数。
2）当系统日期被修改成往日的日期后，系统能自动判别，禁止修改日期 ，不� ......
http://tieba.baidu.com/f?kz=580219489
http://www.anqn.com/vb/154/8974.shtml
http://www.codefans.net/soft/5089.shtml
http://www.mndsoft.com/blog/article.asp?id=1121
http://topic.csdn.net/t/20020113/14/474848.html
直接运行网页中的JavaScript：
function alllefttab()
WebBrowser1.Document.par ......
Option Explicit
Private Const INTERNET_OPEN_TYPE_DIRECT = 1
Private Const scuseragent = "vb wininet"
Private Const INTERNET_FLAG_PASSIVE = &H8000000
'调用设置环境
Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long ......
VERSION 5.00
Begin VB.Form Form2
AutoRedraw = -1 'True
Caption = "计算界面"
ClientHeight = 4905
ClientLe ......
