用VB做一个抽奖程序．要求：点一下按钮在一个文本框中出来一个1－9的随机数 在VB做程序中，怎样做一个触发，让一个文本框内有数字时才能按...
\u6c42\u4e00\u4e2aEXCELL\u7528VB\u7a0b\u5e8f\uff0c\u8981\u6c42\u8f93\u5165\u4e24\u4e2a\u6570\uff0c\u6309\u4e00\u4e0b\u6309\u94ae\u4ea7\u751f\u4e00\u4e2a\u4ecb\u4e8e\u521a\u624d\u8f93\u5165\u7684\u90a3\u4e2a\u6570\u4e4b\u95f4\u7684\u968f\u673a\u6570\u3002private sub command1_click()
dim a%,b%,c%
a=val(text1)
b=val(text2)
c=Int(Rnd*(a-b+1)+b)
text3=c
End sub
\u8bbe\u6587\u672c\u6846Text1 \uff0c\u6309\u94aeCommand1,\u4ee3\u7801\u5982\u4e0b\uff1a
Private Sub Text1_Change()If IsNumeric(Text1) = False Then '\u5982\u679c\u4e0d\u662f\u6570\u5b57 Command1\u6309\u94ae\u65e0\u6548 Command1.Enabled = FalseElse '\u5982\u679c\u662f\u6570\u5b57 Command1\u6309\u94ae\u6709\u6548 Command1.Enabled = TrueEnd IfEnd Sub
一个按钮，输入代码如下：
Private Sub Command1_Click()
Static num(1 To 9), c As Integer
If c = 9 Then Exit Sub
c = c + 1
Dim s, i
Randomize
begin:
s = Int(Rnd() * (9 - 1 + 1)) + 1
If num(s) <> 1 Then
i = s
num(s) = 1
Else
GoTo begin:
End If
Print i
End Sub
绛旓細闅忔満涓嶉噸澶嶆娊鍙栵紝鎶藉畬鍋滄 涓涓鎸夐挳锛岃緭鍏ヤ唬鐮佸涓嬶細Private Sub Command1_Click()Static num(1 To 9), c As Integer If c = 9 Then Exit Sub c = c + 1 Dim s, i Randomize begin:s = Int(Rnd() * (9 - 1 + 1)) + 1 If num(s) <> 1 Then i = s num(s) = 1 Else...
绛旓細1銆侀鍏堝惎鍔╲b6.0锛屾墽琛屾枃浠-鏂板缓鍛戒护锛屽脊鍑烘柊寤哄伐绋嬪璇濇锛屽湪璇ュ璇濇涓夋嫨鏍囧噯鐨別xe鍚庣偣鍑绘墦寮鎸夐挳锛岃繘鍏vb绋嬪簭涓荤晫闈2銆佸湪涓荤晫闈腑锛屾寜浣忛紶鏍囧乏閿寜浣忕獥浣撳懆鍥寸殑浠绘剰涓涓灏忔鏂瑰舰杩涜鎷栨嫿锛岃皟鑺傜獥浣撶殑澶у皬锛岀洿鑷宠嚜宸辨弧鎰忎负姝3銆侀夋嫨绐椾綋锛屽湪鍏跺彸杈圭殑灞炴т腑鎵惧埌boderstyle灞炴э紝璁剧疆灞炴у间负none锛...
绛旓細thirdPrizeList.Add(currentNum)currentNum += 1 Next For i As Integer = 1 To souvenirPrize '鎶藉彇绾康濂栵紝骞跺皢缂栧彿娣诲姞鍒扮邯蹇靛鍚嶅崟涓 souvenirPrizeList.Add(currentNum)currentNum += 1 Next '杈撳嚭鎶藉缁撴灉 Console.WriteLine("涓绛夊鍚嶅崟锛" & String.Join(",", firstPrizeList))Console.Writ...
绛旓細Private Sub Command1_Click()If Command1.Caption = "寮濮" Then Timer1.Enabled = True Command1.Caption = "鍋滄"Else Command1.Caption = "寮濮"Timer1.Enabled = False End If End Sub Private Sub Form_Load()Command1.Caption = "寮濮"Timer1.Interval = 50 Timer1.Enabled = False E...
绛旓細绗竴姝ワ紝鍦ㄧ晫闈笂鏀句笁涓寜閽涓涓鏍囩銆佷竴涓鏃跺櫒銆傜浜屾锛屾妸涓嬮潰鐨勪唬鐮佸鍒惰繃鍘汇侱im x As Integer, y As Integer Private Sub Command1_Click()Do x = Val(InputBox("璇疯緭鍏ヤ綘閫夋嫨鐨勫彿鐮侊紙1~10锛"))If x < 1 Or x > 10 Then MsgBox "閫夊彿鑼冨洿鏄1鍒10锛岀湅鐪嬩綘閫変簡浠涔堝憖", ...
绛旓細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 ...
绛旓細res = False Exit For End If Next i End If If n Mod 10 = 4 Then res = False End IfLoop Until res = TrueLabel3.Caption = nList1.AddItem nEnd SubPrivate Sub Form_Load()List1.ClearEnd Sub
绛旓細Command1.Visible = False '杩5涓氨涓嶇敤浜 Text1.Visible = False Text2.Visible = False Label1.Visible = False Label2.Visible = False Command2.Visible = True '鍑嗗鎶藉 Label3.Visible = True Label4.Visible = True ReDim 鎶藉嚭(涓嬮檺 To 涓婇檺)For i = 涓嬮檺 To 涓婇檺 鎶藉嚭(i) = ...
绛旓細鎺т欢鏁扮粍锛堟坊鍔涓涓label1,鐒跺悗鍐嶅鍒5涓紝鍏6涓紝鐢ㄦ潵鏄剧ず鏁板瓧锛夛紝浠ｇ爜濡備笅锛歱rivate sub command1_click()if command1.caption = "鎶藉"then command1.caption = "鍋滄"timer1.enabled = true else timer1.enabled = false command1.caption = "鎶藉"end if end sub private sub form_load()...
绛旓細text1鐢ㄦ潵鑷繁杈撳叆 command2鐢ㄦ潵鍒ゆ柇 鍩烘湰鎬濇兂锛氬亣璁捐繛缁湁a浣嶇浉鍚岋紝缁忚繃楠岃瘉濡傛灉涓虹湡鍒欏緱鍑虹粨鏋滐紝濡傛灉涓哄亣锛屽垯鍋囪a=a-1浣嶇浉鍚屸︹︾洿鍒癮=0 涔熷彲浠ヨ嚜宸辫緭鍏ext2鏁版嵁鏉ユ楠绋嬪簭 杩欐绋嬪簭涓嶅眬闄愪簬7浣嶆暟 Private Sub Command2_Click()Dim a$, b$, i%, j%, k a = CStr(Text1)b = CStr(Text...
