vb小例子精选.ppt

下载文档 降价啦

8
0
约3.87千字
约 21页
2018-03-26 发布于贵州
举报
版权申诉
保障服务

vb小例子精选.ppt

1、本文档共21页，可阅读全部内容。
2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。

vb小例子精选

Vb6.0程序举例例子1 Private Sub Command1_Click() Dim s As String If O1.Value = True Then s = O1.Caption End If If O2.Value = True Then s = O2.Caption End If If C1.Value = 1 Then s = s C1.Caption End If If C2.Value = 1 Then s = s C2.Caption End If If C3.Value = 1 Then s = s C3.Caption End If Text1.Text = s End Sub 例2 Private Sub Timer1_Timer() Text1.Text = Time If Shape3.Visible = True Then Shape3.Visible = False Shape2.Visible = True ElseIf Shape2.Visible = True Then Shape2.Visible = False Shape1.Visible = True ElseIf Shape1.Visible = True Then Shape1.Visible = False Shape3.Visible = True End If End Sub 例3 Private Sub Command1_Click() If O1.Value = True Then Text1.FontName= 华文行楷 End If If O2.Value = True Then Text1.FontName = 宋体 End If If O3.Value = True Then Text1.FontSize = 10 End If If O4.Value = True Then Text1.FontSize = 20 End If End Sub 例4 Private Sub Command1_Click() If Val(Text1.Text) 100 Or Val(Text1.Text) 0 Then Text2.Text = 亲！输错啦 ElseIf Val(Text1.Text) = 100 And Val(Text1.Text) = 90 Then Text2.Text = 亲！你太优秀啦 ElseIf Val(Text1.Text) 90 And Val(Text1.Text) = 70 Then Text2.Text = 嗯，，还不错！ ElseIf Val(Text1.Text) 70 And Val(Text1.Text) = 60 Then Text2.Text = 亲！还需努力啊 ElseIf Val(Text1.Text) 60 And Val(Text1.Text) = 0 Then Text2.Text = 亲！你真笨啊 End If End Sub 例5 Private Sub Command1_Click() Static str1 As String Static str2 As String Static str3 As String If Val(Text4.Text) Mod 2 = 0 Then str1 = str1 + Text4.Text vbCrLf Text1.Text = str1 End If If Val(Text4.Text) Mod 3 = 0 Then str2 = str2 + Text4.Text vbCrLf Text2.Text = str2 End If If Val(Text4.Text) Mod 5