VB实验代码填空.doc

【实验2-3】 Private Sub Form_Load() Label1.Left = Form1.ScaleWidth / 2 - Label1.Width / 2 Label1.Top = Form1.ScaleHeight / 2 - Label1.Height / 2 Label2.Left = Label1.Left + 60 Label2.Top = Label1.Top + 40 End Sub 【实验2-4】 Private Sub Command5_Click() Text1.FontStrikethru = Not Text1.FontStrikethru End Sub Private Sub Command6_Click() Text1.FontBold = Not Text1.FontBold End Sub Private Sub Command7_Click() Text1.FontItalic = Not Text1.FontItalic End Sub Private Sub Command9_Click() Text1.FontSize = Text1.FontSize - 5 End Sub 【实验3-1】 Private Sub Command1_Click() Const pi = 3.1415926535898 Dim h As Single, r As Single h = Val(Text1.Text) r = Val(Text2.Text) Text3.Text = Format(pi * r ^ 2, 0.000) Text4.Text = Format(2 * pi * r * h, 0.000) Text5.Text = Format(pi * r ^ 2 * h, 0.000) End Sub 【实验3-2】 Private Sub Timer1_Timer() Label1.Caption = Format(Int(Rnd * 10)) Format(Int(Rnd * 10)) Label2.Caption = Format(Int(Rnd * 10)) Format(Int(Rnd * 10)) Label3.Caption = Format(Int(Rnd * 10)) Format(Int(Rnd * 10)) Label4.Caption = Format(Int(Rnd * 10)) Format(Int(Rnd * 10)) Label5.Caption = Format(Int(Rnd * 10)) Format(Int(Rnd * 10)) Label6.Caption = Format(Int(Rnd * 10)) Format(Int(Rnd * 10)) End Sub Private Sub Command1_Click() Randomize Timer1.Enabled = True End Sub Private Sub Command2_Click() Timer1.Enabled = False End Sub 【实验3-3】 Private Sub Timer1_Timer() Text1.Text = Year(Now) Text2.Text = Month(Now) Text3.Text = Day(Now) Text4.Text = Hour(Now) Text5.Text = Minute(Now) Text7.Text = DateDiff(d, Now, 2008-08-08 20:00:00) Text8.Text = DateDiff(h, Now, 2008-08-08 20:00:00) End Sub 【实验3-5】 Private Sub Command1_Click() Dim s1 As String, s2 As String, location As Integer s1 = Trim(Text1.Text) s2 = Trim(Text2.Text) location = InStr(1, UCase(s1), UCase(s2)) Label3.Caption = s2 first occurs in position Str(location) Text2.SetFocus Text2.SelStart = 0 Text2.SelLength