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

mildseven

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

mildseven

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

madio

Private Sub Command1_Click()
$ [0 \: C9 N( L' C5 n7 Z/ t. \Dim num As Integer
3 C  l/ n, t( x, s# S+ K: I8 l; lDim num0, num1, num2 As Double
* ?1 s$ k! I3 f5 zstrline = ""
fly1 = 1
7 z/ q) ]* H$ F% u1 [; B8 _On Error Resume Next
. ?7 d4 y1 @4 n3 j# y8 f1 w  For i = 1 To List_n
. k% S' N6 N7 ^. ~3 E- _; d9 r  For j = 1 To List_n
  Text3((i - 1) * List_n + j).Enabled = True
  Next j
  Next i
For i = 1 To List_n
, m( K1 p/ S; m* p/ U  For j = i To List_n
* _! e3 t' |7 k$ a$ T6 L. A! Z  If i = j Then
5 n) @9 T: V% o, ^    Text3((i - 1) * List_n + j).text = " 1"
( D- i3 J0 o4 Q) P( d7 N! _6 w  Else
0 b; O0 j' ^; }; s6 s2 w% v# ]   num = 1
0 v* i0 Z  a) k7 m  i   num1 = 1
! {3 M* J2 e1 F1 b+ u# m   num2 = 1
   num = InStr(num, Text3((i - 1) * List_n + j).text, "/")
0 H1 X" g3 I, l1 D# }    If num &lt;&gt; 0 Then
# h, w( g: ]( D) c4 _3 u     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
8 P8 k3 }- @3 _5 }% O) f& w+ T     Text3((j - 1) * List_n + i).text = num2 / num1
* k+ O5 P+ l' r4 h8 L3 y: g    Else
8 F$ c! y4 y" u& {# h* s% `' z     Text3((j - 1) * List_n + i).text = 1 / Val(Text3((i - 1) * List_n + j).text)
+ W- b4 L" s7 r1 g: ^" z* d" ^    End If
  End If
8 y3 N% H$ E# Y- kNext j
0 W/ h5 n8 W1 S6 a# @Next i
. m3 E: R) f0 `% dL = MsgBox("您确定以上的数据吗？", 49, "提示")
If L &lt;&gt; 1 Then
: X4 T( n* q7 p0 tExit Sub
8 ^# n1 d0 q* N) ]5 ]3 j) lEnd If
Call caculation(Combo1.ListIndex + 1, List_n, Text3)
If Selected(Combo1.ListIndex + 1) = Combo1.ListIndex + 1 Then
' {! p" |8 D% M* gh = MsgBox("重新输入新数据吗？", 3)
Select Case h
Case 1
  GoTo op
* \( i. K4 d/ h+ p+ q7 Y" `* w" yCase 2
  Exit Sub
; B6 P3 Y" G( U# Y  W$ @2 k& X3 P0 zCase 7
   Exit Sub
6 Z- i  }( I- s6 q9 c9 n2 _End Select
' R/ E% z* f8 }  [; R. dEnd If
6 h6 U9 F8 Z6 n  P* ~op: Selected(Combo1.ListIndex + 1) = Combo1.ListIndex + 1
7 `* s5 Y8 z1 p' P. p% ECall check
'结果说明
For i = 1 To List_n
' o( S( h% w4 y" V4 h& i

+ o9 J. O. k; a# G2 N( {Next i
If fly1 = 1 And fly2 = 1 Then
" b: S1 Y; y: A8 zCommand1.Enabled = False
6 k, f0 o7 v! H3 X  oCommand2.Enabled = False
  For i = 1 To List_n
7 `0 q+ A; K* F1 Q$ c5 J    ftoa(i) = 0
# A0 l4 }% R0 v: Z, {& |! q    For j = 1 To List_m
     ftoa(i) = ftoa(i) + AAs(j, i) * AAs(0, j)
# t: V' x' f3 r, `0 D- x! L    Next j
( J: ~% f  Q/ l0 N    strline = strline + Str(ftoa(i)) + "  "
/ l* g- `5 A$ a& r! X  Next i
( i7 S( H$ e$ ~j = MsgBox("各方案对目标的权数为：" + Chr(10) + Chr(13) + strline, 64, "结论")
8 Y0 [' }0 E2 Z1 M9 Z
End If
  p) c: a& G0 g4 d. y: p" d
For i = 1 To List_n
   For j = 1 To List_n
- p% x* V; ?+ Q0 w4 z* _: A    Text3((i - 1) * List_n + j).Visible = True
    Text3((i - 1) * List_n + j).text = ""
! k+ f7 M- O; j, @' [9 l$ w   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
9 D+ `) ?$ m0 U1 s   End If
( N6 ~. a3 t8 I   Next j
' |# D& U5 W" s7 q# K: ]Next i
) r( X3 w! x% T1 B$ s' J. k- FEnd Sub
3 H+ Y$ Y6 T. h注意上面的Text3是一个文本框控件的数组！

mildseven

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

mokung

3# madio
5 X  r- f3 g; FThank you .

ywwnudt

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

frainbbs

呵呵 苦难女

spurs1988

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

chaikeen

xixexeixeiixxeixeiixeixeiie

东方明珠-WDZYQ

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