質問編集履歴
1
コードを一部編集してみましたがうまくいきません
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -1,12 +1,12 @@
|
|
|
1
1
|
ｘとｙの数値を入れ替えたいです。
|
|
2
2
|
|
|
3
|
-
このままで実行するとメッセージボックスに
|
|
3
|
+
このままで実行するとメッセージボックスに２と表示されます。
|
|
4
4
|
|
|
5
5
|
|
|
6
6
|
|
|
7
7
|
```ｖｂ
|
|
8
8
|
|
|
9
|
-
コード
|
|
9
|
+
コードlass Form1
|
|
10
10
|
|
|
11
11
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
12
12
|
|
|
@@ -16,15 +16,19 @@
|
|
|
16
16
|
|
|
17
17
|
|
|
18
18
|
|
|
19
|
-
x =
|
|
19
|
+
x = TextBox1.Text
|
|
20
20
|
|
|
21
|
-
y =
|
|
21
|
+
y = TextBox2.Text
|
|
22
22
|
|
|
23
23
|
|
|
24
24
|
|
|
25
25
|
|
|
26
26
|
|
|
27
|
-
|
|
27
|
+
change(x, y)
|
|
28
|
+
|
|
29
|
+
|
|
30
|
+
|
|
31
|
+
|
|
28
32
|
|
|
29
33
|
|
|
30
34
|
|
|
@@ -46,15 +50,13 @@
|
|
|
46
50
|
|
|
47
51
|
|
|
48
52
|
|
|
49
|
-
|
|
53
|
+
Return MsgBox(a, b)
|
|
50
|
-
|
|
51
|
-
|
|
52
54
|
|
|
53
55
|
|
|
54
56
|
|
|
55
57
|
|
|
56
58
|
|
|
57
|
-
|
|
59
|
+
End Function
|
|
58
60
|
|
|
59
61
|
End Class
|
|
60
62
|
|