工薪族小额贷款:vb的一个小程序

来源：百度文库编辑：查人人中国名人网时间：2024/05/07 04:58:16

我最近在学习winsock这个控件~各位大哥大姐帮帮忙
Private Gac() As Boolean
Dim Socknumber As Integer
Private Sub Winsock1_ConnectionRequest(Index As Integer, ByVal requestID As Long)
Socknumber = Socknumber + 1

Load Winsock1(Socknumber)
Winsock1(Socknumber).Accept requestID
ReDim Preserve Gac(Socknumber)
Gac(Socknumber) = True
Text3.Text = Int(Text3.Text) + 1
End Sub
还有这个 UBound(Gac) 不知道是什么意思~~
我看不懂的就是这个 Private Gac() As Boolean 老师没教~~
还有这个ReDim Preserve Gac(Socknumber)
Gac(Socknumber) = True

对各位大哥大姐来说这只是小事~~你的键盘轻轻一按~你开心~我开心~大家都开心~~谢谢了~哈
这句是干什么用的？？ Option Explicit

UBound(Gac) '返回数组的可用的最大下标(也就是数组的最大边界)

Private Gac() As Boolean '声明私有的动态Boolean型数组变量(未分配空间)

ReDim Preserve Gac(Socknumber) '动态数组变量重新分配存储空间,并保持数组中原来的数据

Gac(Socknumber) = True '对数组中的某一元素赋值(Boolean型的取值只有True和False二种

Option Explicit '强制显式声明模块中的所有变量(使用后,所有变量必须显示声明,不然就会在编译期间提示出错)

vb的一个小程序关于VB的一个小程序 VB的一个小程序，求助请教一个小的VB程序我写的一个vb小的程序怎么会这样？谁能给一个vb的小程序？急！！！我要一个小的VB程序和源码 vb 小程序的问题怎么样找一个VB小程序用VB编写一个小程序