teratail
回答率
85.48%
質問するログイン新規登録
トップに関する質問VBAによる部分グラフ同型判定プログラムについて

編集履歴

質問編集履歴

2

文法の修正

2018/05/10 05:37

投稿

teratailist
teratailist

スコア6

test CHANGED
File without changes
test CHANGED
@@ -66,7 +66,7 @@
66
66
 
67
67
  Debug.Print "Pあり"
68
68
 
69
- ElseIf SubgraphHomotyping(A1, A2) = False Then
69
+ Else
70
70
 
71
71
  Debug.Print "Pなし"
72
72
 
@@ -90,7 +90,7 @@
90
90
 
91
91
  SubgraphHomotyping = True
92
92
 
93
- ElseIf Pが存在しない Then
93
+ Else
94
94
 
95
95
  SubgraphHomotyping = False
96
96
 

1

ソースコードにおける変数A1, A2の初期化のエラーの改定

2018/05/10 05:37

投稿

teratailist
teratailist

スコア6

test CHANGED
File without changes
test CHANGED
@@ -42,31 +42,35 @@
42
42
 
43
43
  ```VBA
44
44
 
45
- Sub main()
45
+ Option Explicit
46
-
47
- Dim A1() As Integer
48
-
49
- Dim A2() As Integer
50
46
 
51
47
 
52
48
 
53
- A1 = [{0,1,1,1,1,0,0,0,0,0,0;1,0,0,0,0,1,0,0,0,0,0;1,0,0,0,0,0,1,1,1,0,0;1,0,0,0,0,0,0,0,0,0,0;1,0,0,0,0,0,0,0,0,0,0;0,1,0,0,0,0,0,0,0,2,1;0,0,1,0,0,0,0,0,0,0,0;0,0,1,0,0,0,0,0,0,0,0;0,0,1,0,0,0,0,0,0,0,0;0,0,0,0,0,2,0,0,0,0,0;0,0,0,0,0,1,0,0,0,0,0}]
49
+ Sub main()
54
50
 
55
- A2 = [{0,1,0,0,0;1,0,1,0,0;0,1,0,2,1;0,0,2,0,0;0,0,1,0,0}]
51
+ Dim A1
52
+
53
+ Dim A2
56
54
 
57
55
 
58
56
 
59
- ' 置換行列Pが存在すれば、Pありと出力
57
+ A1 = [{0,1,1,1,1,0,0,0,0,0,0;1,0,0,0,0,1,0,0,0,0,0;1,0,0,0,0,0,1,1,1,0,0;1,0,0,0,0,0,0,0,0,0,0;1,0,0,0,0,0,0,0,0,0,0;0,1,0,0,0,0,0,0,0,2,1;0,0,1,0,0,0,0,0,0,0,0;0,0,1,0,0,0,0,0,0,0,0;0,0,1,0,0,0,0,0,0,0,0;0,0,0,0,0,2,0,0,0,0,0;0,0,0,0,0,1,0,0,0,0,0}]
60
58
 
61
- If SubgraphHomotyping(A1, A2) = True Then
59
+ A2 = [{0,1,0,0,0;1,0,1,0,0;0,1,0,2,1;0,0,2,0,0;0,0,1,0,0}]
62
60
 
63
- Debug.Print "Pあり"
64
61
 
65
- ElseIf SubgraphHomotyping(A1, A2) = False Then
66
62
 
67
- Debug.Print "Pなし"
63
+ ' 置換行列Pが存在すれば、Pありと出力
68
64
 
65
+ If SubgraphHomotyping(A1, A2) = True Then
66
+
67
+ Debug.Print "Pあり"
68
+
69
+ ElseIf SubgraphHomotyping(A1, A2) = False Then
70
+
71
+ Debug.Print "Pなし"
72
+
69
- End If
73
+ End If
70
74
 
71
75
  End Sub
72
76
 
@@ -74,26 +78,28 @@
74
78
 
75
79
  ' 置換行列Pが存在するか判定する処理(存在すればTrue, 存在しなければFalse)
76
80
 
77
- Function SubgraphHomotyping(A1() As Integer, A2() As Integer) As Boolean
81
+ Function SubgraphHomotyping(A1 As Variant, A2 As Variant) As Boolean
78
82
 
79
-
80
83
 
81
- ' 処理をここに記述
82
84
 
83
-
85
+ ' 処理をここに記述
84
86
 
85
- If Pが存在する Then
86
87
 
87
- SubgraphHomotyping = True
88
88
 
89
- ElseIf Pが存在しない Then
89
+ If Pが存在する Then
90
90
 
91
- SubgraphHomotyping = False
91
+ SubgraphHomotyping = True
92
92
 
93
- End If
93
+ ElseIf Pが存在しない Then
94
94
 
95
-
95
+ SubgraphHomotyping = False
96
+
97
+ End If
98
+
99
+
96
100
 
97
101
  End Function
98
102
 
103
+
104
+
99
105
  ```