'#pragma endregion 

'	//Visual c++ 

'	//Randomクラスをmy_Randomとゆう名前の変数で宣言 

'Random^ my_Random; 

'private: System::Void button1_Click(System::Object^  sender, System::EventArgs^  e) { 

'	 //インスタンス（初期化) 

'	 my_Random = gcnew Random(); 



' int ketuka; 

' ketuka = my_Random->Next(1,10); 

' MessageBox::Show(ketuka+"　です。"); 



' } 



'↓↓↓ 

'Basicで同じ処理をしてみる。 



Public Class Form1

    'Visual Basic 

    'Randomクラスをmy_Randomとゆう名前の変数で宣言 

    Dim my_Random As Random

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        '//インスタンス（初期化) 

        my_Random = New Random()



        Dim ketuka As Integer

        ketuka = my_Random.Next(1, 10)

        MessageBox.Show(ketuka & "  です。")

    End Sub

End Class