VB程序设计基础 申石磊 答案(8)

Line (0, -100)-(0, 100) CurrentX = 2 CurrentY = 6 Print \ End Sub 8-4

Private Sub Form_click() Scale (-100, 100)-(100, -100) Line (-100, 0)-(100, 0) Line (0, -100)-(0, 100)

For x = -100 To 100 Step 0.02 y = 10 * Sin(x) - 10 * Cos(2 * x) PSet (x, y), vbRed Next x End Sub 8-7

Private Sub Form_Click() Timer1.Enabled = True End Sub

Private Sub Timer1_Timer() Randomize

Scale (-120, 120)-(120, -120)

DrawWidth = 2 If r < 100 Then r = r + 2

For r = 0 To 100

Circle (0, 0), r, RGB(255 * Rnd, 255 * Rnd, 255 * Rnd) Next r End If End Sub 9-1

Private Sub Text1_KeyPress(K As Integer) K = K + 3 End Sub 9-2

Private Sub Text1_KeyPress(K As Integer) Select Case K Case 48 To 57 K = K Case Else K = 0

End Select End Sub

9-6

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) MousePointer = 5 End Sub

Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) MousePointer = 11 End Sub

Private Sub Picture1_Click()

MouseIcon = Picture1.MouseIcon

Picture1.MouseIcon = Image1.MouseIcon Image1.MouseIcon = Form1.MouseIcon End Sub 9-7

Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Shift = vbCtrlMask And Button = vbLeftButton Then Print \左键+移动\

If Shift = vbAltMask And Button = vbRightButton Then Print \右键+移动\ End Sub

Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Cls End Sub 9-8

Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = vbLeftButton Then Picture1.Print Str(X) + \

BackColor = RGB(Rnd * 256, Rnd * 256, Rnd * 256) End Sub 10-1

Private Sub Command1_Click()

Open \ Write #1, \杨大昌\ Write #1, \李文圣\ Write #1, \张燕\ Close #1 End Sub

Private Sub Command2_Click() Open \ Do While Not EOF(2)

Input #2, X1, X2, x3 Print X1, X2, x3 Loop Close End Sub

10-2

Private Sub Command1_Click()

Open \ Write #3, Text1, Text2, Text3 Text1 = \ Text2 = \ Text3 = \ Close End Sub

Private Sub Command2_Click() Close End End Sub 10-5

Private Sub Form_Click() Dim sum As Long

For n = 1 To 100 Step 2