用vb编写投票统计程序,急!!!
进行四个人的投票, .在text1.text输入1,则在1号票数后自动加一,如此类推,但在在没有输入的情况下,点击投票按钮,进行相应的提示,然后点击统计按钮则显示最高票数的人和其票数
好就没有碰VB了,好多函数都忘记了 不过还是可以用笨方法实现你要的程序 毕竟里面设计的数量还是不多的,候选人要是多点我的这种笨方法就不太现实了~ 我把编译后的程序给你吧~
Dim x(4) As Integer Dim m As Integer Private Sub Command1_Click() '投票 If Text1。Text = "" Then MsgBox "请输入编号!" Else m = x(Text1。
Text - 1) m = m + 1 Label1(Text1。Text - 1)。Caption = Text1。Text & "号候选人所得票数:" & m x(Text1。Text - 1) = m End If End Sub Private Sub Command2_Click() '取消投票 Label1(Text1。
Text - 1)。Caption = Text1。Text & "号候选人所得票数:" & m - 1 x(Text1。Text - 1) = m - 1 End Sub Private Sub Command3_Click() '统计 Dim y(4) As Integer For n = 0 To 4 y(n) = x(n) Next n For i = 0 To 3 If y(0) < y(i + 1) Then y(0) = y(i + 1) j = i + 1 End If Next i MsgBox "获得最高票数的人是" & j + 1 & "号,票数为:" & y(0) End Sub Private Sub Command4_Click() '退出 End End Sub Private Sub Form_Load() '初始化 Text1。
MaxLength = 1 For n = 0 To 3 Label1(n)。Caption = n + 1 & "号候选人所得票数:" & 0 Next n End Sub 。
建议你使用骏特网提供的狗狗搜索,去搜索个VB投票统计程序!
问:投票的问题我投票后,想查看下现在的票数 点击却显示"没有这个投票问题" 怎么回事?
答:这种情况已经很长时间了 我也曾为这个问题提问过,没有得到满意的答复,现在仍然是这样 希望iAsk尽快解决详情>>