一个股票分析的源码,vb实现

				VERSION 5.00
				Begin VB.MDIForm MainForm 
				   BackColor       =   &H8000000C&
				   Caption         =   "StockSoft"
				   ClientHeight    =   3195
				   ClientLeft      =   165
				   ClientTop       =   735
				   ClientWidth     =   4680
				   LinkTopic       =   "MDIForm1"
				   StartUpPosition =   3  '窗口缺省
				   Begin VB.Menu SelectStock 
				      Caption         =   "单股票信息"
				   End
				   Begin VB.Menu SelectOneStock 
				      Caption         =   "选择股票"
				   End
				End
				Attribute VB_Name = "MainForm"
				Attribute VB_GlobalNameSpace = False
				Attribute VB_Creatable = False
				Attribute VB_PredeclaredId = True
				Attribute VB_Exposed = False
				Private Sub MDIForm_Load()
				    'MsgBox CStr("2003-01-16" - "2001-08-01")
				     MainForm.Height = Screen.Height
				     MainForm.Width = Screen.Width
				     MainForm.Left = 0
				     MainForm.Top = 0
				     Form1.Height = MainForm.Height - 1000
				     Form1.Width = MainForm.Width - 500
				     Form1.Left = 0
				     Form1.Top = 0
				     Form1.Text1.Height = Form1.Height
				     Form1.Text1.Width = Form1.Width \ 2
				     Unload Form1
				End Sub
				
				Private Sub SelectOneStock_Click()
				     Unload Form1
				     Load SelectSomeStock
				     SelectSomeStock.Show
				     StartDate = 0
				     EndDate = 0
				     LowPrice = 0
				     TopPrice = 0 '100000 '1000元
				
				End Sub
				
				Private Sub SelectStock_Click()
				    ' MsgBox StartDate
				    ' MsgBox EndDate
				     
				     Unload Form1
				     Load OneStockInformation
				     StartDate = 0
				     EndDate = 0
				     LowPrice = 0
				     TopPrice = 0 '100000 '1000元
				     
				     'RetVal = getRiseOrDown()
				     
				     
				End Sub