2015-12-03 21 views
-1
Public Class Form1 
Dim r As New Random 
Dim angka As Long = True 
Dim i As Integer 
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
    WebBrowser1.Navigate(TextBox3.Text) 
    WebBrowser1.ScriptErrorsSuppressed = True 
End Sub 
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click 
    WebBrowser1.Navigate(TextBox3.Text) 
    TextBox1.Text = "803057" + r.Next(0, 100000).ToString 
    angka = Rnd(0, 100000000000000).ToDouble 
    TextBox2.Text = angka 
End Sub 

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    WebBrowser1.Document.GetElementById("username_member").SetAttribute("value", TextBox1.Text) 
    WebBrowser1.Document.GetElementById("password_member").SetAttribute("value", TextBox2.Text) 
    WebBrowser1.Document.GetElementById("submit").InvokeMember("click") 
End Sub 

末級enter image description here重載決策失敗,因爲沒有可訪問的「賽第一輪」接受此數目的參數

你好,我 有錯誤在我的項目,任何人都可以幫我嗎?

+0

爲什麼你在使用Rnd的時候你有一個完美可用的Random對象(即使用在上面的行上) – Plutonix

+0

不能隨機一個對象min 0和max 1000000000000,他說過載了,我把rnd改成r.next就好像texbox1.text,他說: 錯誤\t BC30439 \t常量表達式不能在'Integer'類型中表示。 –

回答

1

你不能只調用不存在的方法。沒有Rnd方法接受兩個參數,所以你不能調用這樣的方法。如果你需要的是隨機的價值​​,那麼這就是你需要產生的。要做到這一點的方法是撥打Random.NextDouble,然後自己執行縮放操作,或者撥打Random.NextBytes並撥打Byte,然後撥打BitConverter.ToInt64。在這種情況下,鑑於你有特定的範圍要求,我會選擇第一個選項。

+0

你能給我一個例子嗎? –

+0

你的代碼沒有例子。你的代碼是錯誤的。按照我所說的去做。調用'Random.NextDouble'然後縮放自己。你有沒有打算閱讀該方法的文檔?你能做簡單的算術嗎? 'NextDouble'給你一個範圍在0.0到1.0之間的值,你想要一個範圍在0到100000000000000之間的值。你真的需要一個乘兩個數的例子嗎? – jmcilhinney

相關問題