在Visual Basic（VB）中，你可以使用多種方法來(lái)輸入一個(gè)字符。以下是一些常見(jiàn)的方法：

使用 `Console.ReadLine()` 方法

你可以使用 `Console.ReadLine()` 方法從控制臺(tái)讀取一行輸入，然后使用 `Char` 類(lèi)的 `Get` 方法來(lái)獲取第一個(gè)字符。

```vb

Module Module1

Sub Main()

Console.WriteLine("請(qǐng)輸入一個(gè)字符：")

Dim input As String = Console.ReadLine()

If input.Length > 0 Then

Dim character As Char = Char.GetAt(input, 0)

Console.WriteLine("輸入的字符是：" & character)

Else

Console.WriteLine("沒(méi)有輸入字符。")

End If

Console.ReadLine() ' 等待用戶(hù)輸入，以便程序不會(huì)立即退出

End Sub

End Module

```

使用 `Console.ReadKey()` 方法

`Console.ReadKey()` 方法可以讀取單個(gè)字符，包括按下的鍵和是否按下了 `Enter` 鍵。

```vb

Module Module1

Sub Main()

Console.WriteLine("請(qǐng)按下一個(gè)字符：")

Dim key As ConsoleKeyInfo = Console.ReadKey()

Console.WriteLine("按下的字符是：" & key.KeyChar)

Console.WriteLine() ' 換行

Console.WriteLine("按任意鍵退出...")

Console.ReadKey() ' 等待用戶(hù)輸入，以便程序不會(huì)立即退出

End Sub

End Module

```

使用 `Console.ReadLine().Substring()` 方法

你也可以使用 `Substring()` 方法來(lái)獲取輸入字符串的第一個(gè)字符。

```vb

Module Module1

Sub Main()

Console.WriteLine("請(qǐng)輸入一個(gè)字符：")

Dim input As String = Console.ReadLine()

If input.Length > 0 Then

Dim character As Char = input.Substring(0, 1)(0)

Console.WriteLine("輸入的字符是：" & character)

Else

Console.WriteLine("沒(méi)有輸入字符。")

End If

Console.ReadLine() ' 等待用戶(hù)輸入，以便程序不會(huì)立即退出

End Sub

End Module

```

這些方法都可以在VB.NET控制臺(tái)應(yīng)用程序中使用。根據(jù)你的具體需求，你可以選擇最適合的方法。