查看: 98  |  回复: 0
VB6 看下vbString, vbArray, vbBoolean等对应的值
楼主
发表于 4月16日 13:33

新建From1(窗体),新建Command1(按钮CommandButton),代码:

Private Sub Command1_Click()
    Debug.Print vbString, vbArray, vbBoolean, vbByte, vbCurrency, vbDate, vbDouble
    Debug.Print vbInteger, vbLong, vbSingle
    
    '运行结果:
    ' 8             8192          11            17            6             7             5
    ' 2             3             4
    
    Dim a() As Byte
    Debug.Print VarType(a) '8209
    
    Dim b As Byte
    Debug.Print VarType(b) '17
    
    Dim c As String
    Debug.Print VarType(c) '8
End Sub

运行结果:

 8             8192          11            17            6             7             5 
 2             3             4 
 8209 
 17 
 8


您需要登录后才可以回帖 登录 | 立即注册
【本版规则】请勿发表违反国家法律的内容,否则会被冻结账号和删贴。
用户名: 立即注册
密码:
2020-2024 MaNongKu.com