質問編集履歴
1
コードの変更
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -36,15 +36,15 @@
|
|
|
36
36
|
|
|
37
37
|
Case 2
|
|
38
38
|
Dim strPicture2(9) As String
|
|
39
|
-
strPicture2(0) = "C:\Users\
|
|
39
|
+
strPicture2(0) = "C:\Users\Desktop\VBA\rr.jpg"
|
|
40
|
-
strPicture2(1) = "C:\Users\
|
|
40
|
+
strPicture2(1) = "C:\Users\Desktop\VBA\rg.jpg"
|
|
41
|
-
strPicture2(2) = "C:\Users\
|
|
41
|
+
strPicture2(2) = "C:\Users\Desktop\VBA\rb.jpg"
|
|
42
|
-
strPicture2(3) = "C:\Users\
|
|
42
|
+
strPicture2(3) = "C:\Users\Desktop\VBA\gr.jpg"
|
|
43
|
-
strPicture2(4) = "C:\Users\
|
|
43
|
+
strPicture2(4) = "C:\Users\Desktop\VBA\gb.jpg"
|
|
44
|
-
strPicture2(5) = "C:\Users\
|
|
44
|
+
strPicture2(5) = "C:\Users\Desktop\VBA\gg.jpg"
|
|
45
|
-
strPicture2(6) = "C:\Users\
|
|
45
|
+
strPicture2(6) = "C:\Users\Desktop\VBA\bb.jpg"
|
|
46
|
-
strPicture2(7) = "C:\Users\
|
|
46
|
+
strPicture2(7) = "C:\Users\Desktop\VBA\br.jpg"
|
|
47
|
-
strPicture2(8) = "C:\Users\
|
|
47
|
+
strPicture2(8) = "C:\Users\Desktop\VBA\bg.jpg"
|
|
48
48
|
|
|
49
49
|
q = strPicture2(Int(Rnd() * 9))
|
|
50
50
|
Image1.Picture = LoadPicture(q)
|