Option Explicit
Private Sub Combo1_Click()
Select Case Combo1.Text
Case "李白"
Label3.Caption = "望庐山瀑布" & Chr(13) & Chr(13) & "日照香炉生紫烟，" _
& Chr(13) & Chr(13) & "遥看瀑布挂前川。" _
& Chr(13) & Chr(13) & "飞流直下三千尺，" & _
Chr(13) & Chr(13) & "疑是银河落九天。
Chr(13)是空格的意思,chr(13)&chr(13)是连续空两行的意思
"编写代码时,想要空行的方法是1.按空格2.按住shift同时按住减号3.按enter进行错行
Case "杜甫"
Label3.Caption = "绝句" & Chr(13) & Chr(13) & "两只黄鹂鸣翠柳，" _
& Chr(13) & Chr(13) & "一行白鹭上青天。" _
& Chr(13) & Chr(13) & "窗含西岭千秋雪，" _
& Chr(13) & Chr(13) & "门泊东吴万里船。"
End Select
End Sub
Private Sub Form_Load()
Combo1.AddItem "李白"
Combo1.AddItem "杜甫"
End Sub
原文地址：https://www.jb51.cc/vb/260435.html
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。
