在声明 vb6 时初始化整数值

Question

声明时如何初始化变量值

我正在使用 VB6，我试过了

public i 作为整数 = 0

但我收到错误

Expected: End of statement, and "=" is highlighted

我想将初始值设置为0。

根据评论编辑：

我想在没有数据库帮助的情况下创建一个登录表单..

模块: 所以我创建了一个user_name(1 to 10)-- array and password(1 to 10) array

form1 我想每次 i 的值递增时最多注册 10 个用户 //form// i=1 register_user(i)=uname register_pass(i)=upass i=i+1 //end// 但每次我转到该表单时，值都会再次设置为 1 我该怎么办。

Answer 1

我认为问题是您试图在声明时实例化一个 public 变量...Dim i As Integer: i = 1 有效，但不是 public。您可以这样做，也可以声明 public 变量，然后在 sub.

的第一行实例化它

Answer 2

在 VBA 和 VB6 中你不能初始化变量。您必须使用可执行语句。

但是，每个变量都有默认的初始化值。

来自VB6 documentation：

When variables are initialized, a numeric variable is initialized to 0, a variable-length string is initialized to a zero-length string (""), and a fixed-length string is filled with zeros. Variant variables are initialized to Empty. Each element of a user-defined type variable is initialized as if it were a separate variable.

所以实际上，在你的情况下，

public i as integer = 0

不起作用，但下一个步骤确实起作用，而且就是这样：

public i as integer

Answer 3

Vacip 按照您的要求将其设置为 0 来回答它，但要以此为基础......如果您需要一个 public 变量作为默认值以外的其他值启动，您可以设置它第一次在子程序中调用该值时。

如果您有多个潜艇可能会第一次调用它，然后它来回传递，您需要检查以确保它尚未设置。您可以使用 public 布尔值来做到这一点。

如果您打开本地程序并逐步完成此操作，您会看到一种方法。

Public iTesti As Integer 'defaults to 0
Public bTesti As Boolean 'defaults to FALSE

Public Sub testi()
If bTesti = False Then 'btesti is false and iteseti is 0
    iTesti = 1
    bTesti = True
End If
iTesti = 2
testi2
End Sub

Public Sub testi2()
If bTesti = False Then 'btesti is true and itesti is 2
    iTesti = 1
    bTesti = True
End If
iTesti = 3
End Sub

在声明 vb6 时初始化整数值

Initialize integer value while declaration vb6

vb6

vba