客户关系管理网购课程设计.doc

2011-7-5 00:11 最佳答案 我自己写了一个射击游戏，工程我已发代码：Dim x11 As DoubleDim x22 As DoubleDim y11 As DoubleDim y22 As DoubleDim m As BooleanDim j As IntegerDim l As IntegerPrivate Sub Command1_Click()Timer1.Interval = 100Command1.Visible = FalseEnd SubPrivate Sub Form_Load()MsgBox 在窗体里点击左键不放来改变射击方向，释放左键后射击End SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)Dim temp As DoubleIf Line1.X1 = Shape1(i).Left And temp = Shape1(i).Left And temp = Form1.Width, 0, Shape1(0).Left + 100)Shape1(1).Left = IIf(Shape1(1).Left = Form1.Width, 0, Shape1(1).Left + 150)Shape1(2).Left = IIf(Shape1(2).Left = Form1.Width, 0, Shape1(2).Left + 200)Shape1(3).Left = IIf(Shape1(3).Left = Form1.Width, 0, Shape1(3).Left + 160)Shape1(4).Left = IIf(Shape1(4).Left = Form1.Width, 0, Shape1(4).Left + 90)Shape1(5).Left = IIf(Shape1(5).Left = Form1.Width, 0, Shape1(5).Left + 210)Shape1(6).Left = IIf(Shape1(6).Left = Form1.Width, 0, Shape1(6).Left + 260)End SubPrivate Sub Timer2_Timer()Line1.X1 = 4080Line1.X2 = 4080Line1.Y1 = 3960Line1.Y2 = 4680Timer2.Interval = 0End SubPrivate Sub Timer3_Timer()If m = True Then Shape1(j).Top = Shape1(j).Top + 100: Shape1(j).Left = lIf Shape1(j).Top Form1.Height + 200 Then m = FalseEnd Sub热心网友 什么叫做“课程设计计算器”？ 赞同0| 评论 2011-6-20 11:32 悠然见影 | 五级 将以下这段代码保存为 .frm 的文件，然后用VB打开，执行即可。如果有问题，请点击VB里面的工具栏-工程-引用-在“Microsoft Script Control 1.0”前面打勾，点确定。VERSION 5.00Begin VB.Form Form1 Caption = 模拟计算器 ClientHeight = 2820 ClientLeft = 60 ClientTop = 450 ClientWidth = 3975 LinkTopic = Form1 ScaleHeight = 2820 ScaleWidth = 3975 StartUpPosition = 3 窗口缺省 Begin VB.ListBox List1 Height = 1140 ItemData = jisuan.frx:0000 Left = 240 List = jisuan.frx:0002 TabIndex = 4 Top = 1440 Width = 3495 End Begin VB.TextBox Text1 Height = 390 Left = 840 TabIndex = 3 Top = 120 Width = 2895 End Begin VB.CommandButton Command3 Caption = 清空结果 Height = 375 Left = 2760 TabIndex = 2 Top = 720 Width = 975 End Begin VB.CommandButton Command2 Caption = 重新输入 Height = 375 Left = 1440 TabIndex = 1 Top = 720 Width = 1095 End Begin VB.CommandButton Command1 Caption = 计算 Height = 375 Left = 240 TabIndex = 0 Top = 720 Width = 975 End Begin VB.Label Label2 Caption = 计算结果： Height = 255 Left = 240 TabIndex = 6 Top = 1200 Width = 1095 End Begin VB.Label Label1 Caption = 输入 Height = 255 Left = 240 TabIndex = 5 Top = 240 Width = 495 EndEndAttribute VB_Name = Form1Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalsePrivate Const Setstring = 0.123456789/*-+()qwertyuioplkjhfdsazxcvbnmQWERTYUIOPLKJHGFDSAZXCVBNMPrivate Sub Form_Load()ShowText1.SetFocusEnd SubPrivate Sub Command1_Click()Dim st As String, sc As String, s As Long, tmp As String, i As Integer, j As Integer, tt As String sc = Text1.Text tmp = Space(Len(Text1.Text) For i = 1 To Len(sc) tt = Mid(sc, i, 1) Select Case Asc(tt) Case 0 Case 13 Case 32 Case 10 Case Else j = j + 1 Mid(tmp, j, 1) = tt End Select Next sc = Left(tmp, j) s = InStr(sc, =) If s Then sc = Left(sc, s - 1) s = InStr(sc, Chr(13) If s Then sc = Left(sc, s - 1) s = 0 End IfOn Error GoTo E: Dim ScriptControl1 As New ScriptControl Dim strVBS As String ScriptControl1.Language = VBScript Dim strCode As String strCode = function DivideByZero() & vbCrLf & _ DivideByZero=( & sc & ) & vbCrLf & _ End function If InStr(Text1.Text, =) Then GoTo E: Text1.Text = strCode With ScriptControl1 .AddCode strCode st = .Run(DivideByZero) End With Text1.Text = sc & = & st List1.AddItem Text1.Text Text1.SelLength = Len(Text1.Text) Exit SubE:Text1.Text = sc & =ERROREnd SubPrivate Sub Command2_Click()Text1.Text = Text1.SetFocusEnd SubPrivate Sub Command3_Click()List1.ClearEnd SubPrivate Sub List1_Click()Text1.Text = List1.TextEnd SubPrivate Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)If KeyCode = 13 Then Call Command1_ClickEnd Sub 2011-2-24 17:47 最佳答案 Public Function CaLineParam(ByRef XY_X() As Double, ByRef XY_Y() As Double, ByRef LineK As Double, ByRef LineB As Double) As String On Error GoTo Err_Exit: 直线拟合 Y= & LineK & *X+ & LineB Dim I As Integer, J As Integer, K As Integer Dim Sx As Double, Sxx As Double, Sy As Double, Sxy As Double Sx = 0: Sxx = 0: Sy = 0: Sxy = 0 J = Max(LBound(XY_X), LBound(XY_Y) K = Min(UBound(XY_X), UBound(XY_Y) For I = J To K Sx = Sx + XY_X(I) Sxx = Sxx + XY_X(I) 2 Sy = Sy + XY_Y(I) Sxy = Sxy + XY_X(I) * XY_Y(I) Next I = K - J + 1 LineK = (Sx * Sy - I * Sxy) / (Sx 2 - I * Sxx) LineB = (Sy - Sx * LineK) / I If LineB 0 Then CaLineParam = Y= & LineK & *X & LineB ElseIf LineB = 0 Then CaLineParam = Y= & LineK & *X Else CaLineParam = Y= & LineK & *X+ & LineB End If Exit Function Err_Exit: CaLineParam = End Function Public Function CaExpParam(ByRef XY_X() As Double, ByRef XY_Y() As Double, ByRef ExpA As Double, ByRef ExpB As Double) As String On Error GoTo Err_Exit: 指数拟合 Y=2.718282( & ExpB & *X+ & ExpA & ) Dim I As Integer, J As Integer, K As Integer Dim Sx As Double, Sxx As Double, Sy As Double, Sxy As Double Sx = 0: Sxx = 0: Sy = 0: Sxy = 0 J = Max(LBound(XY_X), LBound(XY_Y) K = Min(UBound(XY_X), UBound(XY_Y) For I = J To K Sx = Sx + XY_X(I) Sxx = Sxx + XY_X(I) 2 Sy = Sy + Log(XY_Y(I) Sxy = Sxy + XY_X(I) * Log(XY_Y(I) Next I = K - J + 1 ExpA = (Sy / Sx - Sxy / Sxx) / (I / Sx - Sx / Sxx) ExpB = (Sy / I - Sxy / Sx) / (Sx / I - Sxx / Sx) If ExpA 0 Then Label4.Caption = Val(Label4.Caption) - 1Else If stat 3 Then stat = stat + 1 Else stat = 0 End If Select Case stat Case 0 Shape1.Fil