① 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