在Visual Basic（VB）中，有多种方法可以将变量置为1。以下是几种常见的方法：
直接赋值
```vb
Dim a As Integer
a = 1
```
使用`Dim`声明变量并赋值
```vb
Dim b As Integer
b = 1
```
在声明变量时直接赋值
```vb
Dim c As Integer = 1
```
使用`New`关键字创建对象并初始化 （适用于对象变量）：
```vb
Dim d As New ClassName
d.Property = 1
```
在循环中初始化并更新变量
```vb
Dim e As Integer
For i As Integer = 1 To 10
e = 1
' 其他代码
Next
```
选择哪种方法取决于你的具体需求和编程风格。通常情况下，直接在声明变量时赋值是最简单和直接的方法。如果你需要在多个地方使用该变量，建议使用`Dim`在过程外部声明变量，并在需要时进行赋值。