測姓名源碼
❶ 跪求大神:公司名字測試 網站PHP源代碼
個人感覺是自動提交,然後解析網頁
❷ 誰能給我個VB的隨機抽取器的源碼
Private Sub Form_click()
Dim a(3) As String
a(0) = "小王"
a(1) = "小李"
a(2) = "小謝"
a(3) = "小林"
Randomize
MsgBox a(Int(Rnd * 4)), vbOKOnly, "標題"
End Sub
'不用添加任何控制項 直接將代碼復制進去 點擊窗體即可得到效果
❸ 求幫忙修改一個vb抽簽程序源碼,要求能隨機產生三個不重復姓名且可以手動設定3個不參加抽簽的編號
我沒看出來你代碼中的Label2,Label3有什麼用。
修改代碼如下,已經過調試,在控制項都存在的情況下可運行。
Option Explicit
Private Sub Command1_Click() Dim RStr(0 To 29) As String
Dim i, j, k, l, m, p, q, r
p = Text4.Text
q = Text5.Text
r = Text6.Text
RStr(0) = "張三"
RStr(1) = "李四"
RStr(2) = "劉德華"
RStr(3) = "郭富城"
RStr(4) = "黎明"
RStr(5) = "無良"
RStr(6) = "夢夢"
RStr(7) = "張學友"
RStr(8) = "王志和"
RStr(9) = "老乾媽"
RStr(10) = "張三1"
RStr(11) = "李四1"
RStr(12) = "劉德華1"
RStr(13) = "郭富城1"
RStr(14) = "黎明1"
RStr(15) = "無良1"
RStr(16) = "夢夢1"
RStr(17) = "張學友1"
RStr(18) = "王志和1"
RStr(19) = "老乾媽1"
RStr(20) = "張三2"
RStr(21) = "李四2"
RStr(22) = "劉德華2"
RStr(23) = "郭富城2"
RStr(24) = "黎明2"
RStr(25) = "無良2"
RStr(26) = "夢夢2"
RStr(27) = "張學友2"
RStr(28) = "王志和2"
RStr(29) = "老乾媽2"
If Command1.Caption = "開始" Then
Text4.Text = Val(Text4.Text)
Text5.Text = Val(Text5.Text)
Text6.Text = Val(Text6.Text)
Command1.Caption = "結束"
Do While 1
If Command1.Caption = "開始" Then
Label1.Caption = "獲獎人:" & vbCrLf & Text1.Text & vbCrLf & Text2.Text & vbCrLf & Text3.Text
Exit Do
End If
DoEvents
Randomize
k = Int(Rnd * 29) + 1
l = Int(Rnd * 29) + 1
m = Int(Rnd * 29) + 1
If k <> Text4.Text And k <> Text5.Text And k <> Text5.Text Then Text1.Text = RStr(k) '屏蔽第一個號碼
If l <> Text4.Text And l <> Text5.Text And l <> Text5.Text Then Text2.Text = RStr(l) '屏蔽第二個號碼
If m <> Text4.Text And m <> Text5.Text And m <> Text5.Text Then Text3.Text = RStr(m) '屏蔽第三個號碼
For i = 1 To 3000
If Command1.Caption = "開始" Then Exit For
DoEvents
Next i
Loop
Else
Command1.Caption = "開始"
End If
End Sub
Private Sub Form_Load() Command1.Caption = "開始"
Label1.Caption = "等待開始"
Text1.Text = "-----"
Text2.Text = "-----"
Text3.Text = "-----"
Text4.Text = "請輸入屏蔽序號1"
Text5.Text = "請輸入屏蔽序號2"
Text6.Text = "請輸入屏蔽序號3"
End Sub
❹ 九型人格測試的網頁源碼!
搜索九型人格測試點擊瀏覽器工具欄頁面-查看源文件
另注ie瀏覽器
❺ 學生綜合測評系統C程序源代碼
要期沿簡軌替束滔臣月
❻ 自己下載了一個安卓應用程序源碼,如何用Eclipse修改它的名字和圖標呢
打開之後,把你自己的圖標重命名成 ic_launcher~~~或者把AndroidManifest.xml文件裡面android:icon="@drawable/ic_launcher"
android:label="@string/app_name"改成自己的圖標,和名字~~
❼ 學生信息管理系統最簡單源代碼。
方法一:
1、創建一個c語言項目。然後右鍵頭文件,創建一個Stu的頭文件。