Question

我正在尝试使用组合框和命令按钮在visual basic 6.0中创建一个投票系统。

我想要发生的事情是当用户在组合框中选择名称并单击重命名为“提交”的命令按钮时，将计算投票数并将其打印到标签中。

到目前为止，我只有这个。

Private Sub Form_Load()
    Combo1.AddItem "Jeff"
    Combo1.AddItem "Gerwen"    
End Sub

Answer 1

我想它应该是这样的：

Public jeff_counter as Integer
Public gerwen_counter as Integer

Private Sub Form_Load()
    Combo1.AddItem "Jeff"
    Combo1.AddItem "Gerwen"
    jeff_counter = 0
    gerwen_counter = 0
End Sub

Private Sub Command3_Click()
    if Combo1.text == "Jeff" then
       jeff_counter = jeff_counter + 1
    else
       gerwen_counter = gerwen_counter + 1
    end if

    Label1.text = jeff_counter
    Label2.text = gerwen_counter
End Sub

你可以通过使用整数数组来改进它，自从我用VB6以来已经很长时间了，所以也许有一个错字......

计算名称已选择或投票的次数

1 个答案: