質問編集履歴

1

余計なループを削除

2022/01/20 07:39

投稿

Gant
Gant

スコア1

test CHANGED
File without changes
test CHANGED
@@ -21,8 +21,9 @@
21
21
  これを簡潔に記述するにはどうすればいいのでしょう?
22
22
 
23
23
  Private Sub Button(i)_Click(sender As Object, e As EventArgs) Handles Button(i).Click
24
-  for i = 1 to 100
24
+
25
25
    TextBox1.Text = Button(i).Text
26
+
26
27
   next
27
- End Sub
28
+
28
29
  のような感じにしたいです。