mildseven 发表于 2005-4-6 13:06

[求助]苦难女求层次分析法AHP的vc或vc++程序或软件

苦难女求层次分析法（AHP）的vc或vc++程序或软件，望热心人士帮帮忙，急用！！

mildseven 发表于 2005-4-7 09:09

<P>呜呜～～～，没人顶？？</P><P>各位大gg,大jj们，救我啊！</P>

madio 发表于 2005-4-7 09:38

转一个vb写的代码！

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 &lt;&gt; 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 &lt;&gt; 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 &gt; j Or i = j Then
    Text3((i - 1) * List_n + j).Enabled = False
    Text3((i - 1) * List_n + j).BackColor = &amp;H868754
   End If
   Next j
Next i
End Sub
注意上面的Text3是一个文本框控件的数组！

mildseven 发表于 2005-4-28 17:11

<P>谢谢！</P><P>但我要C 或是 VC的啊</P>

mokung 发表于 2009-5-9 01:40

3# madio
Thank you .

ywwnudt 发表于 2009-7-8 08:01

苦难女,找到你要的东西没有?分享一下

frainbbs 发表于 2009-7-8 15:26

呵呵 苦难女

spurs1988 发表于 2009-7-26 10:51

还没找到吗？郁闷......

chaikeen 发表于 2009-8-13 21:26

xixexeixeiixxeixeiixeixeiie

东方明珠-WDZYQ 发表于 2009-10-31 17:23

下来用了哈，上面的VB程序还可以，
页: [1]
查看完整版本: [求助]苦难女求层次分析法AHP的vc或vc++程序或软件