P.暇人

true?てなんぞや

ごめん、これ本物
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If RadioButton1.Checked = True Then
TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
ElseIf RadioButton2.Checked = True Then
TextBox3.Text = Val(TextBox1.Text) - Val(TextBox2.Text)
ElseIf RadioButton3.Checked = True Then
TextBox3.Text = Val(TextBox1.Text) * Val(TextBox2.Text)
ElseIf RadioButton4.Checked = True Then
TextBox3.Text = Val(TextBox1.Text) / Val(TextBox2.Text)

End If
End Sub

デザインのほうでラジオボタンをワンクリックして、プロパティーでcheckedという項目があるからそれをフォルスからトゥルーにする

三角いみわからねー

おひさ～★

ＺＥＡ！

うむ

なんだ今日の運勢って、どうやるんだー

三角形HELP ME

format どのあたりにつけるの？
6-4

こゆこと
Dim a As Integer
a = Val(TextBox1.Text)
If RadioButton1.Checked = True Then
TextBox2.Text = Format(a * 2 * Math.PI, "#.###")
ElseIf RadioButton2.Checked = True Then
TextBox2.Text = Format(Math.PI * a ^ 2, "#.###")
ElseIf RadioButton3.Checked = True Then
TextBox2.Text = Format(4 * Math.PI * a ^ 2, "#.###")
ElseIf RadioButton4.Checked = True Then
TextBox2.Text = Format(4 / 3 * Math.PI * Math.Pow(a, 3), "#.###")
End If
End Sub

まとめてどっかにFormatつける方法無い？

くらえ～

必殺奥儀!!

「Randomize!!!!」

うわー！乱数になったー！

必殺奥儀!とにかく使ったのはいいけど

PC内での使い方がわからないんですけども・・・？

いーつーも ひとりでー あーるいてたー....

よばれてとびでて、
Dim a As Integer
Randomize()
a = Math.Floor(Rnd() * 4)
If a = 1 Then
TextBox1.Text = "大吉"
ElseIf a = 2 Then
TextBox1.Text = "中吉"
ElseIf a = 3 Then
TextBox1.Text = "小吉"
ElseIf a = 0 Then
TextBox1.Text = "凶"
End If

まあ、がんばれ

おまえ、消えるのか？

答え見たらがんばれんだろー

ブー。
ブー。

そこは見つつ見ないでだろ、