Dim i As Long If i=1 then Label1="中森明菜のぱんてぃ" ElseIf i=2 then Label1="坂井泉水のぱんてぃ" ElseIf i=3 then Label1="柏原芳恵の空港押収物" ElseIf i=4 then Label1="榊原郁恵のぱんてぃ" ElseIf i=5 then Label1="柏原芳恵と榊原郁恵のちがいがわからない" ElseIf i=6 then Label1="河合奈保子のビキニ" ElseIf i=7 then Label1="森口博子のぱんてぃ & VbCrLf & 大当たり & VbCrLf & 確変突入" End if
Dim i As Long If i = 1 Then Label1 = "中森明菜のぱんてぃ" ElseIf i = 2 Then Label1 = "坂井泉水のぱんてぃ" ElseIf i = 3 Then Label1 = "柏原芳恵の空港押収物" ElseIf i = 4 Then Label1 = "榊原郁恵のぱんてぃ" ElseIf i = 5 Then Label1 = "柏原芳恵と榊原郁恵のちがいがわからない" ElseIf i = 6 Then Label1 = "河合奈保子のビキニ" ElseIf i = 7 Then Label1 = "森口博子のぱんてぃ" & VbCrLf & "大当たり" & VbCrLf & "確変突入" End if