質問編集履歴

1

ソースコード一部修正しました。 ただ、一つにまとめることがなぜかできなかったのでご容赦ください。

2022/06/09 03:24

投稿

waxaxaxa
waxaxaxa

スコア3

test CHANGED
File without changes
test CHANGED
@@ -28,7 +28,6 @@
28
28
 
29
29
  Button1.Text = array(0)
30
30
  Button2.Text = array(1)
31
-      省略
32
31
  Button15.Text = array(14)
33
32
  Button16.Text = array(15)
34
33
  End Sub
@@ -76,8 +75,8 @@
76
75
  End If
77
76
  y = 17
78
77
  Return y
79
-
80
78
  End Function
79
+ ```
81
80
  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
82
81
  Dim x As Integer = 1
83
82
  Dim ans As Integer = number(x)
@@ -86,9 +85,10 @@
86
85
  Button1.Text = 0
87
86
  ElseIf ans = 5 Then
88
87
  Button5.Text = mybutton(x)
89
- Button1.Text = 0
88
+ Button1.Text = 0```ここに言語を入力
90
89
  End If
91
90
  End Sub
91
+
92
92
 
93
93
  Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
94
94
  Dim x As Integer = 2
@@ -148,7 +148,7 @@
148
148
  End Sub
149
149
  以降 ボタン16まで
150
150
  end class
151
-
151
+ ```
152
152
  補足情報(言語/FW/ツール等のバージョンなど)
153
153
  visual studio2019,windowsフォームアプリケーションにて作業しています。
154
154