àaaaaaa

2022/5/17 1:05

22回答

visual basic 初心者です。1日目に1円、2日目に3円、3日目に5円という貯金のシステムを作り、利用者が目標金額を入力すると〇〇日で達成しましたと表示されるプログラムを書いています。

visual basic 初心者です。1日目に1円、2日目に3円、3日目に5円という貯金のシステムを作り、利用者が目標金額を入力すると〇〇日で達成しましたと表示されるプログラムを書いています。 今回はwhile文を用いて Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim num1, sum As Integer num1 = Val(TextBox1.Text) sum = 1 While num1 > sum ^ 2 sum = 2 * sum - 1 End While Label1.Text = sum & "日で目標金額を達成しました！" End Sub 1，3，5と奇数が羅列していることに注目し数列で考えましたが動きませんでした。修正していただけると泣いて喜びます。お礼ありです。

Visual Basic・39閲覧・xmlns="http://www.w3.org/2000/svg">50

ベストアンサー

0
tan********

2022/5/17 5:28

While num1 > sum ^ 2 sum = 2 * sum - 1 End While → While num1 > 1 num1 - 2 sum = sum + 1 End While

ThanksImg質問者からのお礼コメント

ありがとうございます！

お礼日時：5/23 10:36

その他の回答（1件）

0
ささいさいさい

カテゴリマスター

2022/5/17 1:57

While ～End While While ～Wend 構文ミスですかね。 sum = 1 で ループの中で sum = 2 * sum - 1 してますが、これいつまでたってもsum値が変わらないでしょうから num1 = Val(TextBox1.Text) の値によってループに入ったら無限ループしますね。 >1日目に1円、2日目に3円、3日目に5円という貯金のシステムを作り、利用者が目標金額を入力すると〇〇日で達成しました 4日目以降の金額が不明な上、 目標金額がいくらになるかがわからない。 ゴールがないと終了条件を決められないのでループ処理は無理ですね。 何がしたいをしっかり考えて、 開始時 と 終了時 そこにいくまでの条件をきめましょう。