VB实验教材习题各种代码.docVIP

Me.Width = 7000 Me.Height = 8000 FillStyle = 0 FillColor = vbRed Scale (-3500, 5000)-(3500, -3000) Circle (0, 0), 500, vbRed Const pi = 3.1415926 DrawWidth = Int(Rnd * 6) P32-1 Private Sub Command1_Click() Dim s As Integer s = Val(Text1.Text) If s = 3 Then Text2.Text = 0.5 Else If s - Int(s) = 0 Then Text2.Text = 0.5 + 0.15 * (s - 3) Else Text2.Text = 0.5 + 0.15 * (Int(s - 3) + 1) End If End If End Sub P32-2 Private Sub Command1_Click() If Text1.Text = 123456 Then MsgBox 密码正确,欢迎你用机, , 检查结果 Else MsgBox 对不起,密码错误, , 检查结果 End If End Sub P32-3 Private Sub Command1_Click() Dim x As Integer x = Val(Text1.Text) If x 1 Or x 12 Then MsgBox 请输入合法数据, , 提示 Text1.SetFocus End If Select Case x Case 1, 3, 5, 7, 8, 10, 12 Text2.Text = 31天 Case 2 Text2.Text = 28天 Case 4, 6, 9, 11 Text2.Text = 30天 End Select End Sub P22-5 Private Sub Command1_Click() Dim s As Integer s = Label1.FontSize i = 0 i = i + 5 Label1.FontSize = s + i End Sub Private Sub Command2_Click() Dim x As Integer x = Label1.FontSize m = 0 m = m - 5 Label1.FontSize = x + m If Label1.FontSize 0 Then MsgBox 请先放大, , 提示 End If End Sub Private Sub Command3_Click() End End Sub