質問編集履歴
1
ソースコード一部修正しました。 ただ、一つにまとめることがなぜかできなかったのでご容赦ください。
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
|
|