TOP >
個人用･練習用
自分のﾄﾋﾟｯｸを作る
241：
S・I [×]
2011-11-01 14:43:20
true?てなんぞや
242：
QB [×]
2011-11-01 14:44:37
ごめん、これ本物
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
243：
織汰 [×]
2011-11-01 14:44:53
デザインのほうでラジオボタンをワンクリックして、プロパティーでcheckedという項目があるからそれをフォルスからトゥルーにする
244：
織汰 [×]
2011-11-01 15:53:31
三角いみわからねー
245：
S・I [×]
2011-11-08 13:11:43
おひさ～★
246：
アサメン [×]
2011-11-08 13:14:47
ＺＥＡ！
247：
織汰 [×]
2011-11-08 13:21:22
うむ
248：
織汰 [×]
2011-11-08 13:31:26
なんだ今日の運勢って、どうやるんだー
249：
S・I [×]
2011-11-08 13:32:08
三角形HELP ME
250：
S・I [×]
2011-11-08 14:12:43
format どのあたりにつけるの？
6-4
251：
QB [×]
2011-11-08 14:21:54
こゆこと
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
252：
S・I [×]
2011-11-08 14:26:43
まとめてどっかにFormatつける方法無い？
253：
S・I [×]
2011-11-08 14:28:47
くらえ～
必殺奥儀!!
「Randomize!!!!」
254：
アサメン [×]
2011-11-08 14:34:49
うわー！乱数になったー！
255：
S・I [×]
2011-11-08 14:38:10
必殺奥儀!とにかく使ったのはいいけど
PC内での使い方がわからないんですけども・・・？
256：
S・I [×]
2011-11-08 14:40:22
いーつーも ひとりでー あーるいてたー....
257：
QB [×]
2011-11-08 14:40:33
よばれてとびでて、
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
まあ、がんばれ
258：
QB [×]
2011-11-08 14:41:44
おまえ、消えるのか？
259：
S・I [×]
2011-11-08 14:42:22
答え見たらがんばれんだろー
ブー。
ブー。
260：
QB [×]
2011-11-08 14:43:50
そこは見つつ見ないでだろ、
【お勧め】
・初心者さん向けトピック
[0]ｾｲﾁｬｯﾄTOP
[1]個人用･練習用
[9]最新の状態に更新
お問い合わせﾌｫｰﾑ
(C) Mikle