VB典型例题.docVIP

下载本文档

1
0
约5.09千字
约 4页
2018-03-01 发布于河南
举报
版权申诉

VB典型例题.doc

1、本文档共4页，可阅读全部内容。
2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
5、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
6、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
7、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
8、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

VB典型例题

1. 文本框Multiline属性需改为true滚动条才能起作用 Private Sub Command1_Click() Text1.Text = End Sub Private Sub Command2_Click() If Text1.SelLength = 0 Then MsgBox 请选择内容 Else Text1.SelText = End If End Sub Private Sub Command3_Click() If Command3.Caption = 文本框只读 Then Text1.Locked = True Command3.Caption = 解除锁定 Else Text1.Locked = False Command3.Caption = 文本框只读 End If End Sub Private Sub Command4_Click() End End Sub 2. Private Sub Command1_Click() m = Val(Text1.Text) a = m \ 3600 b = (m - a * 3600) \ 60 c = m - a * 3600 - b * 60 Text2.Text = Str(a) Text3.Text = Str(b) Text4.Text = Str(c) End Sub Private Sub Command2_Click() Text1.Text = Text2.Text = Text3.Text = Text4.Text = End Sub Private Sub Command3_Click() End End Sub 3. Private Sub Command1_Click() List2.Clear End Sub Private Sub Command2_Click() List2.RemoveItem List2.ListIndex End Sub Private Sub Form_Load() For i = 0 To Screen.FontCount List1.AddItem Screen.Fonts(i) Next i For i = 8 To 20 List3.AddItem i Next i For i = 22 To 72 Step 2 List3.AddItem i Next i End Sub Private Sub List1_Click() List2.AddItem List1.Text End Sub Private Sub List2_Click() Label4.FontName = List2.Text End Sub Private Sub List3_Click() Label4.FontSize = List3.Text End Sub 4. Private Sub Command1_Click() List1.AddItem Text1.Text End Sub Private Sub Command2_Click() List2.RemoveItem List2.ListIndex End Sub Private Sub Command3_Click() List2.Clear End Sub Private Sub List1_Click() List2.AddItem List1.Text End Sub 5. (1) Private Sub Command1_Click() For i = 1 To 9 For j = i To 9 Picture1.Print Tab((i - 1) * 10 + (j - i) * 10); Trim(Str(i)); *; Trim(Str(j)); =; Trim(Str(i * j)); Next j Print Next i End Sub (2) Private Sub Command1_Click() For i = 1 To 9 For j = 1 To i Picture1.Print Tab((j - 1) * 10); Trim(Str(i)); *; Trim(Str(j)); =; Trim(Str(i * j)); Next j Print Next i End Sub (3) Private Sub Command1_Click() For i = 1 To 9 For j = 1 To 10 - i Picture1.Print Tab((j - 1) * 10); Trim(Str(i)); *; Trim(Str(j)); =; Trim(Str(i * j)); Next j Print Next