VB工程17--百例25--古诗测试

概述  Option Explicit Private Sub Combo1_Click()         Select Case Combo1.Text         Case "李白"         Label3.Caption = "望庐山瀑布" & Chr(13) & Chr(13) & "日照香炉生紫烟，" _         & Chr(13) & Chr(13) & "遥看瀑布挂前

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

总结

以上是内存溢出为你收集整理的VB工程17--百例25--古诗测试全部内容，希望文章能够帮你解决VB工程17--百例25--古诗测试所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。