vb模拟选举程序

① VB 模拟选举问题

这样可以么？

② 简单的vb模拟选举小程序

Dim i(4) As String
Dim j(4) As Integer

Private Sub Command1_Click()
For n = 0 To 4
Print i(n) & ":" & j(n)
Next
End Sub

Private Sub Command2_Click()
Dim m

m = InputBox("请投票")
If m > 0 And m < 5 Then
j(m - 1) = Val(j(m - 1)) + 1
Else
j(4) = Val(j(4)) + 1
End If

End Sub

Private Sub Form_Load()
i(0) = "张三"
i(1) = "李四"
i(2) = "王五"
i(3) = "赵六"
i(4) = "弃权"
j(0) = 0
j(1) = 0
j(2) = 0
j(3) = 0
j(4) = 0

End Sub

③ 如何用VB设计随机抽取人名程序

Sub ss()
Dim ss(50) As String
Dim MyValue

For i = 1 To 50
ss(i) = "李四" & i
Next
'可以单独给每个赋值，我这里为了方便循环一次性赋值了。
'ss(1)="zhangsan"
'ss(2)="lisi"

'vb中随机函数
'Int((upperbound - lowerbound + 1) * Rnd + lowerbound)这里，

'upperbound 是随机数范围的上限，而 lowerbound 则是随机数范围的下限。

Randomize
MyValue = Int((rnd * (UBound(ss) - 1 + 1)) + 1)

MsgBox ss(MyValue)

End Sub

④ 谁能帮我用VB做一个20选8的模拟摇奖机，要求代码直接可以复制，给你50分。

Private Sub Command1_Click()
Randomize Timer
Dim x(1 To 20) As Integer
Dim i As Integer
For i = 1 To 20
x(i) = i
Next i
Me.Cls
Dim n As Integer, t As Integer
For i = 1 To 20
n = Int(Rnd() * 20) + 1
t = x(i)
x(i) = x(n)
x(n) = t
Next i
For i = 1 To 8
Print x(i);
Next i
End Sub
'在窗体上添加一个按钮，然后粘贴代码，单击可以看效果，不明白的请网络hi我

⑤ VB制作抽签程序

PublicjAsInteger

DimA()AsString

DimtemAsString

PrivateSubCMD1_Click()'注意这里如果没有exitsub，责会出现captio不会变的，其实已经变过了

IfCMD1.Caption="开始"Then

CMD1.Caption="停止"

Timer1.Enabled=True

ExitSub

EndIf

IfCMD1.Caption="停止"Then

CMD1.Caption="开始"

Timer1.Enabled=False

Iftem<>""Then

Text1.Text=tem

EndIf

EndIf

EndSub

PrivateSubCMD2_Click()

Frame1.Visible=True

Text2.Visible=True

CMD3.Visible=True

CMD4.Visible=True

EndSub

PrivateSubCMD3_Click()

Text2.Visible=False

CMD3.Visible=False

CMD4.Visible=False

tem=Text2.Text

EndSub

PrivateSubCMD4_Click()

Text2.Text=""

Text2.Visible=False

CMD3.Visible=False

CMD4.Visible=False

EndSub

PrivateSubform_load()

Frame1.Visible=False

Text2.Visible=False

CMD3.Visible=False

CMD4.Visible=False

Timer1.Enabled=False

Timer1.Interval=300

Open"C:桌面新建文本文档.txt"ForInputAs1

DoUntilEOF(1)

ReDimPreserveA(0ToI)

Input#1,A(I)

I=I+1

Loop

Close#1

EndSub

PrivateSubTimer1_Timer()

Text1.Text=A(j)

j=j+1

Ifj=UBound(A)Then

j=0

EndIf

EndSub

已经运行通过，不过事先你得在桌面建立一个文本文件，用来存储数据，呵呵

⑥ 用VB编写一个模拟计算器的程序。

用函数转换一下
再中间的符号栏最好用下拉框
可以避免符号出错、
计算完成再转换回去
用text控件显示出来就行了
实在不会再问我

⑦ 用VB统计选举得票数的程序

你的意思是在excel中列出候选人的名字，然后通过VB程序进行多选后在excel中显示统计结果？是一台电脑还是多台电脑？每个人选定的结果怎么合并？

⑧ 用VB编写一个选举班长的程序。

用ACCESS 连上vb然后每个投票的ID分别储存
再投票时从数据库读出 然后和输入 的ID比较如有相同则提示
没有则存入
点统计时 分别统计就行了
程序不难写
会建控件和事件就行
要两个label
两个text
两个command
再建个数据表连上就行了

⑨ 一个部门50人，无记名选举先进，用VB编写一个程序，点击一个名字为一票，最后统计票数，统计按钮要用密码

这个好象不难 一人选一次 还是选几次 说明了不难做
再有就是 50个人的名字都写上吗 还是规定几个

⑩ 如何用VB实现模拟按ctrl键同时按下鼠标左键，从而控制后台程序

Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Dim anctlejiang As Long '这句写到通用里
Private Sub Command1_Click()
PostMessage 65674, 100, 17, 0 '这个是按下CTLE键
anctlejiang = 1

Sleep 1000 '延迟1秒
PostMessage 65674, 101, 17, 0 '弹起CTLE键
anctlejiang = 0
End Sub

Private Sub Timer1_Timer()
MsgBox anctlejiang
If anctlejiang <> 0 Then
Dim aa As Long
PostMessage 65674, 201, 1, 0 '这个是按下左键
Label1.Caption = "以按下左键"
aa = anctlejian
If aa <> anctlejian Then
PostMessage 65674, 202, 1, 0 '弹起左键
Label1.Caption = "以弹起左键"
End If
End If
End Sub