practice11_1.frm

深圳大学的vb上机与教学的课件

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   2850
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4575
   LinkTopic       =   "Form1"
   ScaleHeight     =   2850
   ScaleWidth      =   4575
   StartUpPosition =   2  '屏幕中心
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
  
Private Sub Form_Click()
  Scale (-10, 250)-(10, -5)
  DrawWidth = 2
  For x = -10 To 10 Step 0.1
    y = 2 * x ^ 2 + x + 1
    PSet (x, y), vbRed
  Next x
End Sub