土木人才网:消息框与图片(-)

来源:百度文库 编辑:我要文章网 时间:2019/11/18 06:11:11
消息框与图片(-) 

半米阳光 作品

半米阳光(65921751) 22:56:26
Sub ff()
Dim s As String, arr

s = "┴┬┴┬/ ̄\_/ ̄\" + vbCrLf + _
"┬┴┬┴▏  ▏▔▔▔▔\ 这" + vbCrLf + _
"┴┬┴/\ /      ﹨ 地" + vbCrLf + _
"┬┴∕       /   ) 方" + vbCrLf + _
"┴┬▏        ●  ▏ 不" + vbCrLf + _
"┬┴▏           ▔█◤ 错," + vbCrLf + _
"┴◢██◣       \__/" + vbCrLf + _
"┬█████◣       /  让我用来踩踩!  " + vbCrLf + _
"┴█████████████◣" + vbCrLf + _
"◢██████████████▆▄" + vbCrLf + _
"◢██████████████▆▄" + vbCrLf + _
"█◤◢██◣◥█████████◤\" + vbCrLf + _
"◥◢████ ████████◤   \" + vbCrLf + _
"┴█████ ██████◤      ﹨" + vbCrLf + _
"┬│   │█████◤        ▏" + vbCrLf + _
"┴│   │&单翼Angel~%??在此!借贵宝地一踩!  ▏" + vbCrLf + _
"┬∕   ∕    /▔▔▔\     ∕" + vbCrLf + _
"*∕___/﹨   ∕      \  /\" + vbCrLf + _
"┬┴┬┴┬┴\    \_     ﹨/  ﹨" + vbCrLf + _
"┴┬┴┬┴┬┴ \___"
arr = Split(s, vbCrLf)
For i = 0 To UBound(arr)
    For j = 1 To Len(arr(i))
         Cells(i + 1, 1).Value = Cells(i + 1, 1).Text & Mid(arr(i), j, 1)
    Next
Next
MsgBox s


End Sub

**********************************

Sub ff()
Dim s As String

s = "踩踩  踩踩踩  踩踩踩  踩踩踩? ? 踩踩踩踩踩" + vbCrLf + _
"踩踩 踩踩踩  踩踩踩  踩踩踩   踩踩踩踩踩踩" + vbCrLf + _
"踩踩  踩踩   踩踩   踩踩   踩踩踩踩踩踩" + vbCrLf + _
"踩踩                  踩踩踩" + vbCrLf + _
"     踩踩踩踩踩踩踩踩踩踩踩踩" + vbCrLf + _
"   踩踩踩踩踩踩踩踩踩踩踩踩踩踩踩踩" + vbCrLf + _
" 踩踩踩踩踩踩踩踩踩踩踩踩踩踩踩踩踩踩踩" + vbCrLf + _
"踩踩踩踩踩踩踩踩踩踩踩踩踩踩踩踩踩踩踩踩" + vbCrLf + _
"踩踩踩踩踩踩踩踩踩踩踩踩踩踩踩踩踩踩踩" + vbCrLf + _
"踩踩踩踩踩踩踩踩踩踩踩踩踩踩踩踩踩踩" + vbCrLf + _
" 踩踩踩踩踩踩踩踩踩踩踩踩踩踩踩" + vbCrLf + _
" 踩踩踩踩踩踩踩踩踩踩踩踩踩" + vbCrLf + _
"  踩踩踩踩踩踩踩踩踩踩" + vbCrLf + _
"   踩踩踩踩踩踩踩" + vbCrLf + _
"   踩踩踩踩踩踩" + vbCrLf + _
"   踩踩踩踩踩踩" + vbCrLf + _
"   踩踩踩踩踩踩" + vbCrLf + _
"    踩踩踩踩踩踩" + vbCrLf + _
"   踩踩踩踩踩踩踩" + vbCrLf + _
"  踩踩踩踩踩踩踩踩" + vbCrLf + _
" 踩踩踩踩踩踩踩踩踩" + vbCrLf + _
" 踩踩踩踩踩踩踩踩踩踩" + vbCrLf + _
" 踩踩踩踩踩踩踩踩踩踩" + vbCrLf + _
" 踩踩踩踩踩踩踩踩踩"

MsgBox s
End Sub