VisualBasicとフィボナッチに詳しい人
■ このスレッドは過去ログ倉庫に格納されています
0001デフォルトの名無しさん
2009/10/06(火) 16:34:49一部正常に動作してくれない。詳しい方がいたら、修正点を教えてもらえないでしょうか。
プログラムは以下の通りなんだけど、周期の長さが80以上になるような場合だと正常に動作してくれない…
どうか修正点の指摘よろしくです。ちなみに当方完全プログラム初心者です。。
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a(1000), b(1000), c, n, x
a(1) = 1 : a(2) = 1 : n = 2
x = Val(TextBox1.Text)
Do
n = n + 1
Label1.Text = n
a(n) = a(n - 2) + a(n - 1)
Label2.Text = a(n)
b(n) = a(n) Mod x
Label3.Text = b(n)
a(n + 1) = a(n - 1) + a(n)
Label4.Text = a(n + 1)
b(n + 1) = a(n + 1) Mod x
Label5.Text = b(n + 1)
If b(n) * b(n + 1) = 1 Then
c = n - 1
Exit Do
End If
Loop
Label6.Text = c
End Sub
End Class
0002デフォルトの名無しさん
2009/10/06(火) 16:38:250003デフォルトの名無しさん
2009/10/06(火) 16:56:20やっぱ、全ての構文が英単語なのが悪いのかね
もしかしてプログラム言語には独自の文字システムを用意した方が
みやすくなる？
0004デフォルトの名無しさん
2009/10/06(火) 17:39:33BASICの宿題はお前にまかせた
http://pc12.2ch.net/test/read.cgi/tech/1136788500/
0005デフォルトの名無しさん
2009/10/06(火) 17:46:13例えばどこらへん？
いちおう動きはするんだが…
0006デフォルトの名無しさん
2009/10/06(火) 19:13:38昔、APLというのがあってな
0007デフォルトの名無しさん
2009/10/06(火) 23:08:3800087
2009/10/06(火) 23:20:33勉強だと自分でやりなさいな
とりあえずデータ型の定義と、
あとインデントは当然つけてるとは思うけどしっかりな
0010デフォルトの名無しさん
2009/10/06(火) 23:44:13言語訓練のために立てたものです。
アイと研究員とのやり取りに利用するスレッドなので、
関係者以外は書きこまないで下さい。
京都大学霊長類研究所
0011デフォルトの名無しさん
2009/10/06(火) 23:56:120012デフォルトの名無しさん
2009/10/07(水) 02:31:47でも諸事情でやらなくてはならない。ちなみにプログラムというものに触れたのは
昨日が初めてです。
猿と罵られても良いからどうか、どこをどう書き換えれば良いかだけ教えていただきたい。
0013デフォルトの名無しさん
2009/10/07(水) 02:53:11>>1
オメーバカじゃねーの？
単発質問スレ立ててんじゃねーよカス
立てんのはそのお粗末な包茎チンポだけにしとけ未成熟野郎
厨房脳味噌のくせにフィボナッチとか、1無量大数年はえーんだよ
ジョヴォヴィッチの貧乳でマスかいて寝ろ、明日は職安行けよ不良債権禿が
0014デフォルトの名無しさん
2009/10/07(水) 04:14:10プログラムを勉強したいと思ってる人とまぎらわしいから、
最初からもう少し、自分はプログラムには興味が無いんだ、と分かるように
書いた方が良いかも。
あと、宿題スレとかあるから、単発でスレ立てずに、そっち行ってみ。
0016デフォルトの名無しさん
2009/10/08(木) 12:40:49課題なのにやりたくない? 何寝惚けてるんだ? 寝言は寝て言えよ。
0017デフォルトの名無しさん
2009/10/13(火) 00:14:16■ このスレッドは過去ログ倉庫に格納されています