Private Sub Command1_Click()
Picture1.Cls
Picture1.Scale (-20, 20)-(20, -20)
Picture1.DrawWidth = 1
Picture1.Line (-20, 0)-(20, 0), RGB(0, 0, 255)
Picture1.Line (0, 20)-(0, -20), RGB(0, 0, 255)
For i = -15 To 15 Step 5
Picture1.Line (i, 0)-(i, 0.5), RGB(0, 0, 255)
Picture1.Line (0, i)-(0.5, i), RGB(0, 0, 255)
Next i
End Sub
Private Sub Command2_Click()
Picture1.DrawWidth = 2
k = Val(Text1.Text)
b = Val(Text2.Text)
For x = -15 To 15 Step 0.001
Picture1.PSet (x, k * x + b), RGB(0, 0, 255)
Next x
End Sub

Dim i As IntegerDim x1 As Long, x2 As LongDim op As StringDim y As IntegerPrivate Sub Command1_Click(Index As Integer)Label1.Caption = Label1.Caption & IndexEnd SubPrivate Sub Command2_Click(Index As Integer)x1 = Val(Label1.Caption)op = Command2(Index).CaptionLabel1.Caption = " "End SubPrivate Sub Command3_Click()x2 = Val(Label1.Caption)Select Case opCase "+"Label1.Caption = x1 + x2Case "-"Label1.Caption = x1 - x2Case "*"Label1.Caption = x1 * x2Case "/"If x2 = 0 ThenMsgBox "除数不能为零"ElseLabel1.Caption = x1 / x2End IfEnd SelectEnd SubPrivate Sub Command4_Click()Label1.Caption = " "x1 = 0x2 = 0op = " "End SubPrivate Sub Command5_Click()y = Val(Label1.Caption)Label1.Caption = y / 10End SubPrivate Sub Form_Load()For i = 0 To 9Command1(i).Caption = iNext i End Sub