神马文学网消息框与图片（-）
来源：百度文库 编辑：神马文学网 时间：2024/05/01 23:04:56
半米阳光 作品
半米阳光(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
