没有合适的资源?快使用搜索试试~ 我知道了~
测试用VB6源代码文本
资源推荐
资源详情
资源评论
Public mvarBaseProperty As String
Public Sub BaseFunction()
MsgBox “Hello world!”
End Sub
Public Property Let BaseProperty(ByVal VData As String)
mvarBaseProperty = VData
End Property
Public Property Get BaseProperty() As String
BaseProperty = mvarBaseProperty
End Property
Private Sub Command1_Click ()
Dim intX As Integer, intY As Integer, intZ As Integer
Dim frmNew(1 To 5) As New Form1
For Each intX In Collection
frmNew(intX).Show
frmNew(intX).WindowState = vbMinimized
'为了不让它们第一次以正常大小出现而
'创建最小化窗体,可改变
'上面两行的顺序。
Next
End Sub
Private Sub Form_Load() '测试
Dim i As Integer '测试
Dim x As Long '测试
x = 0 '测试
For i = 1 To 20 '测试
x = x + 2
Next i '测试
Public Sub BaseFunction()
MsgBox “Hello world!”
End Sub
Public Property Let BaseProperty(ByVal VData As String)
mvarBaseProperty = VData
End Property
Public Property Get BaseProperty() As String
BaseProperty = mvarBaseProperty
End Property
Private Sub Command1_Click ()
Dim intX As Integer, intY As Integer, intZ As Integer
Dim frmNew(1 To 5) As New Form1
For Each intX In Collection
frmNew(intX).Show
frmNew(intX).WindowState = vbMinimized
'为了不让它们第一次以正常大小出现而
'创建最小化窗体,可改变
'上面两行的顺序。
Next
End Sub
Private Sub Form_Load() '测试
Dim i As Integer '测试
Dim x As Long '测试
x = 0 '测试
For i = 1 To 20 '测试
x = x + 2
Next i '测试
Debug.Print x '测试
End Sub '测试
Type SystemInfo
CPU As Variant
Memory As Long
DiskDrives1(25) As String '固定大小的数组。
DiskDrives2() As String '动态数组。
VideoColors As Integer
Cost As Currency
PurchaseDate As Variant
End Type
Private Sub Form_Load()
Dim i As Long
Dim j As Long
Dim SysInfo As SystemInfo
i = 10
Select Case i
Case 10, 20, 30: j = 10
Case 50 To 100: j = 100
Case Is >= 1000, 100: j = 1000
Case 1002, 201, Is < 1, 1001: j = 1
Case 1002, 11111 To 20111, Is < 1, 999 To 888, 1001: j = 1
Case Else: j = 99999
End Select
abc
End Sub
Sub abc()
End Sub '测试
Type SystemInfo
CPU As Variant
Memory As Long
DiskDrives1(25) As String '固定大小的数组。
DiskDrives2() As String '动态数组。
VideoColors As Integer
Cost As Currency
PurchaseDate As Variant
End Type
Private Sub Form_Load()
Dim i As Long
Dim j As Long
Dim SysInfo As SystemInfo
i = 10
Select Case i
Case 10, 20, 30: j = 10
Case 50 To 100: j = 100
Case Is >= 1000, 100: j = 1000
Case 1002, 201, Is < 1, 1001: j = 1
Case 1002, 11111 To 20111, Is < 1, 999 To 888, 1001: j = 1
Case Else: j = 99999
End Select
abc
End Sub
Sub abc()
剩余6页未读,继续阅读
资源评论
jxhbaiwu
- 粉丝: 0
- 资源: 3
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功