用vb编一个抽奖程序
VB\u7f16\u5199\u62bd\u5956\u7a0b\u5e8f\u7684\u95ee\u9898'\u968f\u673a\u51fd\u6570\uff0c\u968f\u673a\u6392\u5e8f\u3002Private Sub Command1_Click()Dim a1(4) As Stringa = Array("\u59d3\u540d\u4e00","\u59d3\u540d\u4e8c", "\u59d3\u540d\u4e09", "\u59d3\u540d\u56db", "\u59d3\u540d\u4e94", "\u59d3\u540d\u516d","\u59d3\u540d\u4e03", "\u59d3\u540d\u516b", "\u59d3\u540d\u4e5d", "\u59d3\u540d\u5341")For i = 0 To 4 Randomize i1 = Int((10 - i) * Rnd) a1(i) = a(i1) For i2 = i1 To 3 a(i2) = a(i2 + 1) Next Print a1(i) NextEnd Sub'\u8bf7\u53c2\u8003\u91c7\u7eb3\uff01\u8c22\u8c22\uff01
\u70b9\u51fb\u9009\u62e9\u540d\u5355\u9009\u62e9\u5199\u6709\u540d\u5b57\u7684txt\u6587\u4ef6\uff0c\u540d\u5b57\u7528\u7a7a\u683c\u9694\u5f00\u3002
\u62bd\u5956\u7ed3\u675f\u540e\u5728\u7a0b\u5e8f\u8fd0\u884c\u6587\u4ef6\u4e0b\u751f\u6210\u4e2d\u5956\u540d\u5355\uff08\u4e2d\u5956.txt\uff09\u3002
Dim WinNum$, RndNum$, i&, j&
Randomize
WinNum = "6720819"
For i = 1 To 7
RndNum = RndNum & Int(Rnd * 10)
Next
Print "中奖号:"; WinNum, "随机数:"; RndNum, WinLevel(WinNum, RndNum)
End Sub
Function WinLevel$(WinNum$, RndNum$)
Dim a$(), i&, j&, k&
For i = 7 To 3 Step -1
For j = 0 To 7 - i
ReDim Preserve a(k)
a(k) = Mid(RndNum, j + 1, i)
k = k + 1
Next
Next
For i = 0 To k - 1
If InStr(WinNum, a(i)) > 0 Then
WinLevel = Mid("一二三四五", 8 - Len(a(i)), 1) & "等奖"
Exit Function
End If
Next
WinLevel = "没获奖"
End Function
command1用来随机抽取，text2显示
text1用来自己输入
command2用来判断
基本思想：假设连续有a位相同，经过验证如果为真则得出结果，如果为假，则假设a=a-1位相同……直到a=0
也可以自己输入text2数据来检验程序
这段程序不局限于7位数
Private Sub Command2_Click()
Dim a$, b$, i%, j%, k%
a = CStr(Text1)
b = CStr(Text2)
For i = Len(a) To 1 Step -1
For j = 1 To Len(a) - i + 1
If Mid(a, j, i) = Mid(b, j, i) Then
k = i
Exit For
End If
Next
If k <> 0 Then Exit For
Next
Print k, Mid(a, j, i)'输出相同位数和相同数字
If k = 0 Then
MsgBox "对不起，无奖项"
Else
MsgBox Len(a) + 1 - k & "等奖"'判断奖项
End If
End Sub
Private Sub Command1_Click()
a = CStr(Text1)
Text2 = 10 ^ (Len(a) - 1) + Int(Rnd * 0.9 * 10 ^ Len(a))
End Sub
绛旓細Private Sub Command1_Click()Dim WinNum$, RndNum$, i&, j& Randomize WinNum = "6720819"For i = 1 To 7 RndNum = RndNum & Int(Rnd * 10)Next Print "涓鍙:"; WinNum, "闅忔満鏁:"; RndNum, WinLevel(WinNum, RndNum)End Sub Function WinLevel$(WinNum$, RndNum$)Dim a...
绛旓細'璁℃暟鐐瑰嚮娆℃暟 If n > Val(Text1) Then '娆℃暟瓒呰繃鎸囧畾娆℃暟锛鎶藉缁撴潫 MsgBox "鎶藉缁撴潫锛" Exit Sub End If Text2 = a(n) '浠庢暟缁勪腑鎶藉嚭绗琻涓暟锛岀敱浜庢暟缁勪腑鏄殢鏈烘帓鍒楋紝鎵浠ョ浉褰撲簬鐢熸垚涓涓闅忔満鏁帮紝骞朵笖涓嶄細閲嶅End Sub ...
绛旓細Command1.Caption = "寮濮鎶藉"Command2.Caption = "鍋滄鎶藉"Label1.Caption = "鍑嗗鎶藉"Label1.AutoSize = True Timer1.Enabled = 0 '璁℃椂鍣ㄨ祴鍊,浜х敓鍔ㄦ佹晥鏋 Timer1.Interval = 100 '缁欐暟缁勫姞涓20涓悕瀛楁柟渚挎祴璇 ,杩欓噷鍙互鑷繁鐢ˋrray淇敼鏁扮粍鍐呭 For i = 0 To 19 sName(i) = "寮 ...
绛旓細鍦ㄧ獥浣撲笂娣诲姞涓涓command1锛屼竴涓猼imer1锛宭abel1(0~5)鎺т欢鏁扮粍锛堟坊鍔犱竴涓猯abel1,鐒跺悗鍐嶅鍒5涓紝鍏6涓紝鐢ㄦ潵鏄剧ず鏁板瓧锛夛紝浠ｇ爜濡備笅锛歱rivate sub command1_click()if command1.caption = "鎶藉"then command1.caption = "鍋滄"timer1.enabled = true else timer1.enabled = false command1.caption...
绛旓細鍙鍦ㄧ獥浣撲腑鍋氫簩涓懡浠ゆ寜閽涓涓鏍囩鍜屼竴涓畾鏃跺櫒瀵硅薄锛屽鍒朵互涓嬩唬鐮侊紝灏卞彲浠ヨ繍琛屼簡锛歅rivate Sub Command1_Click()If Command1.Caption = "寮濮" Then Command1.Caption = "鏆傚仠"Timer1.Enabled = True Else Command1.Caption = "寮濮"Timer1.Enabled = False End If End Sub Private Sub ...
绛旓細棰勫厛灏嗗浘鐗囧悕鏀逛负1.jpg~10.jpg锛屾斁鍦绋嬪簭鍚屼竴鏂囦欢澶逛腑銆侾rivate Sub Command1_Click() '鎶藉 Timer1.Enabled = True End Sub Private Sub Command2_Click() 鈥樺仠姝 Timer1.Enabled = False End Sub Private Sub Timer1_Timer()Static i As Integer i = i + 1 If i > 10 Then i ...
绛旓細Private Sub Command1_Click()Dim A As Integer, B As IntegerA = 5Timer1.Enabled = FalseB = Val(Text1.Text)If A = B ThenMsgBox "鍝堝搱锛佷腑濂栦簡锛佸啀鏉ワ紒"Timer1.Enabled = TrueElseMsgBox "鍝庯紒娌℃湁涓鍛锛佸啀鏉ワ紒"Timer1.Enabled = TrueEnd IfEnd SubPrivate Sub Form_Load()Timer1...
绛旓細int totalid; //鍙傚姞鎶藉鐨刬d鎬绘暟锛屽鏋滄娊鍑涓涓锛岃嚜鍑1 bool bstart; //鏍囪杩涘害鏉℃槸鍚﹀湪婊氬姩 // Dialog Data //{{AFX_DATA(CGiftDlg)enum { IDD = IDD_GIFT_DIALOG };CButton m_btgo;CString m_code;CString m_msg;//}}AFX_DATA // ClassWizard generated virtual function overrides ...
绛旓細Do Until EOF(1)ReDim Preserve A(0 To I)Input #1, A(I)I = I + 1 Loop Close #1 End Sub Private Sub Timer1_Timer()Text1.Text = A(j)j = j + 1 If j = UBound(A) Then j = 0 End If End Sub 宸茬粡杩愯閫氳繃锛屼笉杩囦簨鍏堜綘寰楀湪妗岄潰寤虹珛涓涓鏂囨湰鏂囦欢锛岀敤鏉ュ瓨鍌ㄦ暟鎹紝鍛靛懙 ...
绛旓細鍙岃壊鐞冮殢鏈洪夛細Private Sub Command1_Click()Dim a(6) As Integer Dim b As Integer For i = 1 To 6 a(i) = Int(Rnd() * (1 + (33 - 1))) + 1 For j = 1 To i - 1 If a(i) = a(j) Then i = i - 1 End If Next Next For i = 1 To 6 For j = i + 1...
