vb实验代码(1)课件

1、概述：Private Sub Commandl_Click()Textl.Le代= Forml.Width - Textl.WidthText 1.Top = 0End Sub控件1Private Sub cmdLogin_Click()IfTxtID.Text = admin And txtPsw.Text = 123456” ThenMsgBox ”登录成功“，vbOKOnly + vblnformationElseMsgBox ”登录失败、vbOKOnly + vbCriticalEnd IfEnd SubPrivate Sub cmdReset_Click()TxtlD.Text =

2、txtPsw.Text =End SubPrivate Sub cmdClose_Click()EndEnd Sub控件2Private Sub CmdSet_Click()If optST.Value = True ThenIbICaption.FontName = 宋体”Elself optLS.Value = True ThenIbICaption.FontName 二隶书”ElseIbICaption.FontName = 楷体”End IfIf optFontl6.Value = True ThenIbICaption.FontSize = 16Elself optFontl8.Va

3、lue = True ThenIbICaption.FontSize = 18ElseIbICaption.FontSize = 20End IfIbICaption.FontBold = ChkBold.ValueIbICaption.Fontltalic = Chkltalic.ValueEnd Sub控件3Private Sub Form_Load()Listl.Addltem ”蚕豆”Listl.Additem ”扁豆11Listl.Addltem ”绿豆Listl.Addltem 红豆Listl.Addltem ”刀豆”End SubPrivate Sub Commandl_Clic

4、k()Listl.Addltem TextlTextl = ,H,End SubPrivate Sub Command2_Click()Listl.Removeitem Listl.ListindexEnd SubPrivate Sub Command3_Click()Listl.ClearEnd SubPrivate Sub Command4_Click()EndEnd Sub菜单Private Sub Mhide_Click()Textl.Visible = FalseEnd SubPrivate Sub Mshow_Click()Textl.Visible = TrueEnd Sub图形

5、Private Sub hsbRed_Change()speDemo.FillColor = RGB(hsbRed.Value, hsbGreen.Value, hsbBlue.Value) End SubPrivate Sub hsbRed_Scroll()hsbRed_ChangeEnd SubPrivate Sub hsbBlue_Change()hsbRed_ChangeEnd SubPrivate Sub hsbBlue_Scroll() hsbRed_ChangeEnd SubPrivate Sub hsbGreen_Change() hsbRed_ChangeEnd SubPri

6、vate Sub hsbGreen_Scroll() hsbRed_ChangeEnd SubPrivate Sub vsbSize_Change() speDemo.Width = vsbSize.ValueEnd SubPrivate Sub vsbSize_Scroll() hsbRed_ChangeEnd Sub程序设计基础Private Sub Commandl_Click()Dim r As Single, c As SingleDim s As SingleConst pi As Single = 3.14159r = Val(lnputBox(请输入圆的半径”)c = Val(

7、pi * 2 * r)s = Val(pi * r * r)Labell.Caption = 您输入的半径是“ & rTextl.Text = CStr(c)Text 2.Text = CStr(s)End Sub控制结构1Private Sub cmdCalu_Click()Dim a As Integer, b As Integer, c As Integer Dim min As Integera = Val(txta.Text)b = Val(txtb.Text)c = Val(txtc.Text)If a b ThenIf a c Thenmin = aElse min = cEnd

8、 IfElself b 0s = x Mod 2x = lnt(x / 2)y = Mid(ch, s + 1,1) + yLoopText2.Text = yEnd SubPrivate Sub Command2_Click()Textl.Text =Text2.Text =End SubPrivate Sub Command3_Click()EndEnd Sub控制结构3Private Sub Commandl_Click()Dim s As StringDim t As StringDim i As Integers = Text 1.TextFor i = Len(s) To 1 St

9、ep -1t = Mid(s, i, l)&tNext iText2.Text = tText3 .Text = Len(t)End SubPrivate Sub Command2_Click()Textl.Text =Text2.Text =Text3.Text =,HEnd SubPrivate Sub Command3_Click()EndEnd Sub控制结构4Private Sub Commandl_Click()Dim i, j, a, n As IntegerTextl.Text =Text 2.Text =RandomizeFor i = 1 To 10a = lnt(Rnd * 90) + 10Textl.Text = Textl.Text & a & For j = 2 To a -1If a Mod j = 0 Then Exit ForNextIf j = a Then Text2.Text = Text2.Text & a &