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

VB工程17--百例25--古诗测试,第1张

概述  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--古诗测试所遇到的程序开发问题。

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

欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/langs/1288658.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2022-06-09
下一篇 2022-06-09

发表评论

登录后才能评论

评论列表(0条)

保存