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 ......
VB 字符串处理函数集
收藏
mid(字符串，从第几个开始，长度)
在[字符串]中[从第几个开始]取出[长度个字符串]
例如 mid("小欣无敌",1,3) 则返回 "小欣无"
instr(从第几个开始,字符串1,字符串2)
从规定的位置开始查找 ......
如何让幻灯片在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. ......
'*************************************************************************
**说 明：永远的魔灵 by icecept(郭卫）
'**创 建 人：icecept(魔灵)
'**日 期：2009-11-15 20:27:03
'**修 改 人：icecept(魔灵)
'**版 本：V1.0.0
'**E-mail ：icecept@163.com QQ：543375508
'**网 ......
VB学的用的都不精，编个程序用了很长时间了，现在这个通讯部分还没做好，求助大家一下：
ctrMSComm.Output = "@01R" '读命令
instar = ctrMSComm.Input '读通讯
wy_I = val(HEX_to_DEC(Mid(instar, 29, 4))) * (20 / 4095#)
&n ......
