在Visual Basic （VB）中编程求解一元二次方程，可以使用以下步骤和代码示例：
定义变量和输入系数
定义变量来存储一元二次方程的系数a、b和c。
通过输入框或文本框获取用户输入的系数值。
计算判别式
计算判别式 `d = b^2 - 4ac`。
判断解的情况
如果 `d > 0`，方程有两个不同的实数解。
如果 `d = 0`，方程有两个相同的实数解。
如果 `d < 0`，方程在实数范围内无解。
计算根
如果 `d >= 0`，计算两个根 `x1 = （-b + Sqr（d）） / （2 * a）` 和 `x2 = （-b - Sqr（d）） / （2 * a）`。
输出结果
根据计算结果，输出方程的根或提示无解。
```vb
Private Sub Command1_Click（）
Dim a As Single, b As Single, c As Single
Dim d As Single, x1 As Single, x2 As Single
' 获取用户输入的系数
a = InputBox（"请输入一元二次方程的系数a"）
b = InputBox（"请输入一元二次方程的系数b"）
c = InputBox（"请输入一元二次方程的系数c"）
' 检查a是否为0，如果是则提示重新输入
If a = 0 Then
MsgBox（"因为a≠0，你输入的a=0，请重新输入系数a"）
Exit Sub
End If
' 计算判别式
d = b * b - 4 * a * c
' 判断解的情况并计算根
If d >= 0 Then
x1 = （-b + Sqr（d）） / （2 * a）
x2 = （-b - Sqr（d）） / （2 * a）
MsgBox "系数为 " & a & ", " & b & ", " & c & " 的一元二次方程的根分别为 " & x1 & " 和 " & x2
Else
MsgBox "此方程在实数范围内无解"
End If
End Sub
```
代码说明：
输入系数
使用 `InputBox` 函数获取用户输入的系数a、b和c。
检查a的值
如果a为0，则提示用户重新输入，因为一元二次方程的系数a不能为0。
计算判别式
计算判别式 `d = b^2 - 4ac`。
判断解的情况
如果 `d >= 0`，则计算两个根 `x1` 和 `x2`，并使用 `MsgBox` 函数输出结果。
如果 `d < 0`，则输出方程在实数范围内无解的消息。
建议：
确保输入的系数是有效的数值，避免输入非数值导致程序错误。
可以将上述代码封装成一个函数或模块，以便在多个地方调用。
可以添加更多的错误处理和用户输入验证，以提高程序的健壮性。