在VB（Visual Basic）中实现投票程序，你可以遵循以下步骤：
初始化变量和数据结构
定义变量来存储投票人数、候选人信息、投票结果等。
如果需要，可以使用数组或列表来存储候选人的姓名和对应的票数。
用户界面设计
使用VB的图形用户界面（GUI）控件，如按钮、文本框和列表框，来创建投票界面。
允许用户输入投票人数和候选人姓名。
处理投票逻辑
实现两种计票方法：
直接输入赞成、反对、弃权。
只输入反对、赞成，然后通过总票数减去反对与弃权来计算赞成票。
确保投票过程的安全性，防止重复投票或恶意刷票。
显示结果
在投票结束后，显示每个候选人的得票数。
可以选择将结果输出到控制台、文本文件或Excel等工具中。
```vb
Module VoteProgram
Sub Main（）
Dim n As Integer
Dim candidateList（） As String
Dim votes（255） As Integer
Dim i As Integer
Dim choice As String
' 获取投票人数
Console.Write（"请输入投票人数： "）
n = Int（Console.ReadLine（））
' 获取候选人列表
Console.Write（"请输入候选人姓名，用逗号分隔： "）
candidateList = Split（Console.ReadLine（）, ","）
' 初始化投票结果
For i = 0 To n - 1
votes（i） = 0
Next i
' 开始投票
For i = 0 To n - 1
Console.Write（"请选择候选人 " & candidateList（i） & " （1-赞成， 2-反对， 3-弃权）: "）
choice = Console.ReadLine（）
Select Case choice
Case "1"
votes（i） = votes（i） + 1
Case "2"
votes（i） = votes（i） + 1
Case "3"
votes（i） = votes（i） + 1
End Select
Next i
' 显示投票结果
Console.WriteLine（"投票结果："）
For i = 0 To n - 1
Console.WriteLine（"候选人 " & candidateList（i） & ": " & votes（i） & " 票"）
Next i
Console.ReadLine（）
End Sub
End Module
```
这个示例代码展示了如何在VB中实现一个简单的投票程序，包括初始化、用户输入、投票处理和结果输出。你可以根据需要扩展和修改这个示例，以适应更复杂的投票场景和需求。