測姓名源碼
❶ 跪求大神:公司名字測試 網站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的頭文件。

