2つのテキストセットの間に乱数を追加する方法

Question

私はC++用のジャンクコードジェネレータを作成しようとしていました（vb.netには新しく、多言語に慣れようとしています）現在、私は立ち往生しています

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles 
Button4.Click 
Dim value As Integer = CInt(Int((10000 * Rnd()) + 9999999)) 
Me.RichTextBox1.Text = (
" float pJunkcode = " + value + ";" + 
" if (pJunkcode = " + value + ";" + 
" pJunkcode = " + value + ";" + 
" pJunkcode = " + value + ";" + 
" pJunkcode = " + value + ";" + 
"If(pJunkcode = " + value + ";" + 
" pJunkcode = " + value + ";" + 
" pJunkcode = " + value + ";" + 
" If (pJunkcode = " + value + ";" + 
" pJunkcode = " + value + ";" + 
" pJunkcode = " + value + ";" + 
" pJunkcode = " + value + ";" + 
" If (pJunkcode = " + value + ";" + 
" pJunkcode = " + value + ";" + 
" pJunkcode = " + value + ";" + 
" If (pJunkcode = " + value + ";" + 
" pJunkcode = " + value + ";" + 
" pJunkcode = " + value + ";" + 
" pJunkcode = " + value + ";" + 
" If (pJunkcode = " + value + ";" + 
" pJunkcode = " + value + ";" + 
" pJunkcode = " + value + ";")` 

私は取得していますエラーでテキスト の2行の間の乱数を呼び出すことができることではない「ダブル」を入力する文字列「pJunkcode」から

変換であります有効です。

Answer 1

C言語から来た場合、コードの問題は気付きにくいです。 VB では、関連する式の種類によって異なる演算子があります。この場合、1つは文字列であり、もう1つは数値なので、+オペレータは、最初にStringをDoubleに解析し、最後に2つの数値を追加しようとしています。あなたはここにすべての情報を持っている：+ Operator

一つの式が数値データ型であり、他は文字列です：strictオプションがオンである

場合は、コンパイラエラーを生成します。

Option Strictがオフの場合、暗黙的にStringをDoubleに変換して追加します。

文字列をDoubleに変換できない場合は、InvalidCastException例外をスローします。

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles 
Button4.Click 
    Dim value As Integer = CInt(Int((10000 * Rnd()) + 9999999)) 
    Me.RichTextBox1.Text = (
    " float pJunkcode = " & value & ";" & 
    " if (pJunkcode = " & value & ";" & 
    " pJunkcode = " & value & ";" & 
    " pJunkcode = " & value & ";" & 
    " pJunkcode = " & value & ";" & 
    "If(pJunkcode = " & value & ";" & 
    " pJunkcode = " & value & ";" & 
    " pJunkcode = " & value & ";" & 
    " If (pJunkcode = " & value & ";" & 
    " pJunkcode = " & value & ";" & 
    " pJunkcode = " & value & ";" & 
    " pJunkcode = " & value & ";" & 
    " If (pJunkcode = " & value & ";" & 
    " pJunkcode = " & value & ";" & 
    " pJunkcode = " & value & ";" & 
    " If (pJunkcode = " & value & ";" & 
    " pJunkcode = " & value & ";" & 
    " pJunkcode = " & value & ";" & 
    " pJunkcode = " & value & ";" & 
    " If (pJunkcode = " & value & ";" & 
    " pJunkcode = " & value & ";" & 
    " pJunkcode = " & value & ";") 

：あなたのケースでは

、あなたは文字列連結演算子& Operatorを使用して問題を解決することができます