form2.frm

THE AHP VISUAL BASIC

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3120
   ClientLeft      =   60
   ClientTop       =   420
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3120
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin VB.TextBox Text3 
      Height          =   1695
      Left            =   360
      TabIndex        =   1
      Text            =   "Text1"
      Top             =   360
      Width           =   2175
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   615
      Left            =   3000
      TabIndex        =   0
      Top             =   1440
      Width           =   1215
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Dim num As Integer
Dim num0, num1, num2 As Double
strline = ""
fly1 = 1
On Error Resume Next
For i = 1 To List_n
For j = 1 To List_n
Text3((i - 1) * List_n + j).Enabled = True
Next j
Next i
For i = 1 To List_n
For j = i To List_n
If i = j Then
Text3((i - 1) * List_n + j).Text = " 1"
Else
num = 1
num1 = 1
num2 = 1
num = InStr(num, Text3((i - 1) * List_n + j).Text, "/")
If num <> 0 Then
num1 = Val(Left(Text3((i - 1) * List_n + j).Text, num))
num2 = Val(Right(Text3((i - 1) * List_n + j).Text, Len(Text3((i - 1) * List_n + j).Text) - num))
Text3((i - 1) * List_n + j).Text = num1 / num2
Text3((j - 1) * List_n + i).Text = num2 / num1
Else
Text3((j - 1) * List_n + i).Text = 1 / Val(Text3((i - 1) * List_n + j).Text)
End If
End If
Next j
Next i
L = MsgBox("您确定以上的数据吗？", 49, "提示")
If L <> 1 Then
Exit Sub
End If
Call caculation(Combo1.ListIndex + 1, List_n, Text3)
If Selected(Combo1.ListIndex + 1) = Combo1.ListIndex + 1 Then
h = MsgBox("重新输入新数据吗？", 3)
Select Case h
Case 1
GoTo op
Case 2
Exit Sub
Case 7
Exit Sub
End Select
End If
op: Selected(Combo1.ListIndex + 1) = Combo1.ListIndex + 1
Call check
'结果说明
For i = 1 To List_n


Next i
If fly1 = 1 And fly2 = 1 Then
Command1.Enabled = False
Command2.Enabled = False
For i = 1 To List_n
ftoa(i) = 0
For j = 1 To List_m
ftoa(i) = ftoa(i) + AAs(j, i) * AAs(0, j)
Next j
strline = strline + Str(ftoa(i)) + " "
Next i
j = MsgBox("各方案对目标的权数为：" + Chr(10) + Chr(13) + strline, 64, "结论")

End If

For i = 1 To List_n
For j = 1 To List_n
Text3((i - 1) * List_n + j).Visible = True
Text3((i - 1) * List_n + j).Text = ""
If i > j Or i = j Then
Text3((i - 1) * List_n + j).Enabled = False
Text3((i - 1) * List_n + j).BackColor = &H868754
End If
Next j
Next i
End Sub