Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim a, b, c As Single, oper As String
a = Rnd() * 300 : b = Rnd() * 200
TextBox1.Text = Format(a, "###.#")
TextBox2.Text = Format(b, "###.#")
oper = InputBox("Введите название операции", "Операция")
If oper = "сложение" Then
c = a + b
TextBox4.Text = Format("+")
End If
If oper = "вычитание" Then
c = a - b
TextBox4.Text = Format("-")
End If
If oper = "умноженние" Then
c = a * b
TextBox4.Text = Format("*")
End If
If oper = "деление" And b <> 0 Then
c = a / b
TextBox4.Text = Format(c, "######.####")
End If
TextBox4.Text = Format(c, "######.####")
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Me.Close()
End Sub
End Class
{"html5":"htmlmixed","css":"css","javascript":"javascript","php":"php","python":"python","ruby":"ruby","lua":"text\/x-lua","bash":"text\/x-sh","go":"go","c":"text\/x-csrc","cpp":"text\/x-c++src","diff":"diff","latex":"stex","sql":"sql","xml":"xml","apl":"apl","asterisk":"asterisk","c_loadrunner":"text\/x-csrc","c_mac":"text\/x-csrc","coffeescript":"text\/x-coffeescript","csharp":"text\/x-csharp","d":"d","ecmascript":"javascript","erlang":"erlang","groovy":"text\/x-groovy","haskell":"text\/x-haskell","haxe":"text\/x-haxe","html4strict":"htmlmixed","java":"text\/x-java","java5":"text\/x-java","jquery":"javascript","mirc":"mirc","mysql":"sql","ocaml":"text\/x-ocaml","pascal":"text\/x-pascal","perl":"perl","perl6":"perl","plsql":"sql","properties":"text\/x-properties","q":"text\/x-q","scala":"scala","scheme":"text\/x-scheme","tcl":"text\/x-tcl","vb":"text\/x-vb","verilog":"text\/x-verilog","yaml":"text\/x-yaml","z80":"text\/x-z80"}