vb小例子.pptVIP

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