VB六个数取最大值和平均数的平方
VERSION 5.00
Begin VB.Form Form2
AutoRedraw = -1 'True
Caption = "计算界面"
ClientHeight = 4905
ClientLeft = 4965
ClientTop = 3630
ClientWidth = 5715
LinkTopic = "Form2"
ScaleHeight = 4905
ScaleWidth = 5715
Begin VB.CommandButton Command1
Caption = "计算"
Height = 495
Left = 2520
TabIndex = 11
Top = 240
Width = 1335
End
Begin VB.CommandButton Command2
Caption = "清空"
Height = 495
Left = 4320
TabIndex = 12
Top&
相关文档：
该方法不需要使用API及第三方控件
这里使用的是VB的UserControl控件的AsyncRead方法
步骤如下:
1、添加一个用户控件，设置InvisibleAtRuntime属性为true，目的是运行时该控件不显示用户界面，就象Timer控件一样。
2、到自定义控件的代码窗口，添加如下代码
Option Explicit
'下载结果枚举
Public Enum Downloa ......
大家都知道共享软件都有它们的试用期，即给你一个固定的期限免费使用。
应有的功能：
1）给定一个试用期限，在系统每次启动时会判断软件已经使用了几天，还有几天可以及启动的次数。
2）当系统日期被修改成往日的日期后，系统能自动判别，禁止修改日期 ，不� ......
VB学的用的都不精，编个程序用了很长时间了，现在这个通讯部分还没做好，求助大家一下：
ctrMSComm.Output = "@01R" '读命令
instar = ctrMSComm.Input '读通讯
wy_I = val(HEX_to_DEC(Mid(instar, 29, 4))) * (20 / 4095#)
&n ......
如何去优化你的VB程序帮助
1、如何去优化你的VB程序
Visual Basic 作为一种高级编程语言，它也有着不可避免的缺点---开发出的应用程序运行速度慢。如果我们能够程序做一些优化，那么情况将会大大改善。要优化程序运行的实际速度，常用的方法有三种：
1.尽量避免使用 Variant 变量。由于VB不能确定 Variant 变量的� ......
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 ......
