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

mildseven

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

东方明珠-WDZYQ

下来用了哈，上面的VB程序还可以，

chaikeen

xixexeixeiixxeixeiixeixeiie

spurs1988

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

frainbbs

呵呵 苦难女

ywwnudt

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

mokung

3# madio
: }  u* E5 F: Q$ cThank you .

mildseven

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

madio

Private Sub Command1_Click()
Dim num As Integer
Dim num0, num1, num2 As Double
! ]% t2 T8 H7 Pstrline = ""
fly1 = 1
* x  e! C& }3 D1 k. [On Error Resume Next
+ \) f: i6 X* B5 L- {  For i = 1 To List_n
  For j = 1 To List_n
  Text3((i - 1) * List_n + j).Enabled = True
) J, Q9 {: C& f! C; ^0 l+ G: Q  Next j
  Next i
For i = 1 To List_n
  For j = i To List_n
1 E$ \' J, C# k. r3 ^% F5 [  If i = j Then
7 X7 W/ ~& w/ I2 I( N) V7 d    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
: w# f- F3 K2 a# ?. |     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))
  r$ d3 `6 T# M* D: t8 O+ G) H  f     Text3((i - 1) * List_n + j).text = num1 / num2
( Z  I; R4 ]8 E' O/ _7 h     Text3((j - 1) * List_n + i).text = num2 / num1
    Else
. [" m% z4 J0 ?" t     Text3((j - 1) * List_n + i).text = 1 / Val(Text3((i - 1) * List_n + j).text)
    End If
) T, i8 l; z1 M. n/ m! u# P  End If
Next j
# x6 K' ?0 S& p% `9 zNext i
9 L) {6 o8 T- E3 _1 r; n; D4 i& wL = MsgBox("您确定以上的数据吗？", 49, "提示")
If L &lt;&gt; 1 Then
Exit Sub
3 w' {! T0 I& b% v) J5 yEnd If
: z. J' c! p3 g) W, LCall caculation(Combo1.ListIndex + 1, List_n, Text3)
If Selected(Combo1.ListIndex + 1) = Combo1.ListIndex + 1 Then
. s5 ~% b. z6 X2 R; H$ }# u5 I, Nh = MsgBox("重新输入新数据吗？", 3)
1 v' b( J. M: Q0 ISelect Case h
Case 1
: j; {; X: D9 v  GoTo op
Case 2
  Exit Sub
Case 7
" Y, ~& g: Q4 W  z4 H( q) M7 v6 E   Exit Sub
End Select
End If
op: Selected(Combo1.ListIndex + 1) = Combo1.ListIndex + 1
Call check
( x7 n7 F& U6 n'结果说明
* X" _0 f6 x) t# C- p2 O4 d4 J. v7 sFor i = 1 To List_n
; g8 m- c- Z! s) a, M

Next i
If fly1 = 1 And fly2 = 1 Then
5 C( d; n2 y) b9 D! n; W5 gCommand1.Enabled = False
Command2.Enabled = False
) O# b- W4 H; u8 I/ g2 _8 ], [  For i = 1 To List_n
    ftoa(i) = 0
, H; q+ H1 a7 k" t+ E$ m. m# G    For j = 1 To List_m
6 J/ B, [( R7 L1 @0 d( _+ B; a- W     ftoa(i) = ftoa(i) + AAs(j, i) * AAs(0, j)
    Next j
5 }4 W" L/ {; ?4 K6 f  h2 r! u    strline = strline + Str(ftoa(i)) + "  "
  Next i
7 _, I, r2 j2 R  j  O: O" F4 kj = MsgBox("各方案对目标的权数为：" + Chr(10) + Chr(13) + strline, 64, "结论")
  k; `& a) q, {
End If
3 G5 V, k; m! t! v% s9 E
2 i' f" K7 \. A. \& y, D6 h8 [/ MFor 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 = ""
' h( I* D; @' ?; l   If i &gt; j Or i = j Then
8 b2 `9 h+ h# d9 x0 S8 D    Text3((i - 1) * List_n + j).Enabled = False
. ~( K6 o2 x4 p6 f, ~    Text3((i - 1) * List_n + j).BackColor = &amp;H868754
* h, \- g& k* Y: B   End If
   Next j
Next i
End Sub
4 j4 U- B. P) ?8 |  o5 u0 g% {6 h注意上面的Text3是一个文本框控件的数组！

mildseven

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