2005年7月22日 12時53分終了#4230 [カテゴリなし] これに真面目にコメントくれ

10 CLS
20 INPUT A$
30 IF A$="ぬるぽ" OR A$="ヌルポ" THEN 40 ELSE 70
40 FOR I=0 TO 20
50 PRINT "ガッ! ";
60 NEXT I
70 END

2	はいはい*	15	(30%)
1	任意	34	(68%)
無視		1

棒グラフまたは左の番号をクリックするとその項目を元にしたしっかりアンケートが作れます。
*がついている選択肢は「任意」の重複から自動的に追加されたものです。

多い順に並べる

「任意」の内容、回答頻度、省略された選択肢の全表示、などの詳細表示

この円グラフをブログに貼れます→

合計回答数: 50人 / 49個

このアンケートにはNGワード「ぬるぽ」が設定されていました。

このアンケートと年齢、性別、出身都道府県、居住都道府県でのクロス集計を見る Tweet

このアンケートへのトラックバック用URL: http://enquete.razil.jp/tb.php/4230

2 :名無しさん 05/07/22 12:53 ID:66f726b62a (・∀・)ｲｲ!! (5)

Dim i As Integer
Dim A As String

InputBox A
If A = "ぬるぽ" Or A = "ヌルポ" Then
For i = 0 To 20
TextBox1.Text = "ガッ! " & vbCrLf
Next i
End If

3 :名無しさん 05/07/22 12:54 ID:3e432255dc (・∀・)ｲｲ!! (0)

わからん

4 :名無しさん 05/07/22 14:09 ID:668c9fb658 (・∀・)ｲｲ!! (3)

ﾊﾆﾘｲﾄ
ｽﾅﾐ
ﾄｶﾗｾ
ﾘﾗﾁｼ
ﾄﾁﾋｲ
…
このアンケの設問がわかるなら、当然これもわかるよな？
わからん香具師は、キーボードを見れ

5 :名無しさん 05/07/22 14:59 ID:966d476b31 (・∀・)ｲｲ!! (3)

>>4
FILES
RUN
STOP
LOAD
SAVE

後は、ﾄﾝﾄｶｲﾓ
このミスもやりがちだよね
PC-98版のDOS-BASICだと

6 :名無しさん 05/07/22 15:13 ID:aced8489a3 (・∀・)ｲｲ!! (2)

これ、ひとつのぬるぽorヌルポに対して、ガッは２１回だよね？
２０回じゃないよね？　多くね？　やりすぎじゃね？

7 :名無しさん 05/07/22 17:02 ID:c5df1d3de5 (・∀・)ｲｲ!! (2)

わからん

8 :名無しさん 05/07/22 18:36 ID:f9c66f0f9d (・∀・)ｲｲ!! (1)

Public Function IsNullPo()
Dim i As Integer
Dim A(21) As String
TextBox1 = Null
For i = 0 To 20
A(i) = InputBox(i, , " ")
If A(i) = "" Then Exit For
Next i
For i = 0 To 20
If A(i) = "ぬるぽ" Or A(i) = "ヌルポ" Then
TextBox1 = TextBox1 & ">>" & i & " ガッ! " & vbCrLf
End If
Next i
End Function

板に戻る 全部 前100 最新50