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

mildseven

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

mildseven

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

madio

Private Sub Command1_Click()
Dim num As Integer
% ~) J5 X  z: W( a) YDim num0, num1, num2 As Double
% [/ l6 u3 _" `/ B$ d1 |" U, K; t- _strline = ""
( e2 b) f4 i- o3 m" efly1 = 1
, |7 g" e8 n8 E& X$ TOn Error Resume Next
  For i = 1 To List_n
  For j = 1 To List_n
  Text3((i - 1) * List_n + j).Enabled = True
) \  r& U% L/ g- ]  Next j
5 V' P  M3 B5 q3 j, L  Next i
2 `7 }6 D  ~- L. P! bFor i = 1 To List_n
( }# d& s4 H2 Q$ g3 R4 N. H  For j = i To List_n
! L8 m' M1 U7 r- s8 I  If i = j Then
6 Y) K9 P& c3 l8 i    Text3((i - 1) * List_n + j).text = " 1"
  Else
  {9 z/ B/ i$ O* f0 i" p   num = 1
   num1 = 1
  ?2 g/ q5 u( n4 Z3 @4 V   num2 = 1
  o: u3 p- B- w! S" E0 o) g0 Y5 _6 \6 x, i   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))
6 S  i$ j4 F6 _* P  k* I     Text3((i - 1) * List_n + j).text = num1 / num2
     Text3((j - 1) * List_n + i).text = num2 / num1
/ S) A, b- j0 O& W0 f    Else
     Text3((j - 1) * List_n + i).text = 1 / Val(Text3((i - 1) * List_n + j).text)
    End If
: I$ G% F' M" Q, Y% {; C4 R+ L  End If
2 p% V6 [1 @7 S0 {# o4 j: T( pNext j
: f- ?" Q( n; l7 h$ n6 n; F8 [6 c2 D" dNext i
2 z/ L/ ?( E6 D5 aL = MsgBox("您确定以上的数据吗？", 49, "提示")
' O$ o3 j* I! t* A3 \  cIf L &lt;&gt; 1 Then
Exit Sub
4 u( ?, R. v$ H. ^1 L8 tEnd If
Call caculation(Combo1.ListIndex + 1, List_n, Text3)
If Selected(Combo1.ListIndex + 1) = Combo1.ListIndex + 1 Then
+ t( ?  a7 Q1 r8 Oh = MsgBox("重新输入新数据吗？", 3)
Select Case h
+ E. ^+ W- A1 z5 l) k0 A, i0 lCase 1
; I/ c1 \4 m5 G0 R2 U7 T: y) o1 ?  GoTo op
/ h$ K# G  y4 G( `8 J5 B, ^Case 2
  G! t3 j7 y% |/ p2 k3 _  Exit Sub
: @8 i. Q9 a7 ^# P7 i0 JCase 7
+ i2 {/ D) I3 ]   Exit Sub
! M: C, R" k0 D8 s, V  TEnd Select
. ~' O0 Y( M, [' D9 d0 }End If
op: Selected(Combo1.ListIndex + 1) = Combo1.ListIndex + 1
+ W( X( e5 u1 E2 D# m% cCall check
0 w/ x5 D6 {; |/ G! l8 v* [7 n* i% T'结果说明
For i = 1 To List_n
' u& s6 V& f1 `; S, A6 a3 M
; [- R. v* R* _1 c9 F0 q
$ ^: x# j  Q# ~1 ?; ~) W0 \) M' INext i
If fly1 = 1 And fly2 = 1 Then
Command1.Enabled = False
4 F2 {5 a& z& }Command2.Enabled = False
  For i = 1 To List_n
/ n( w0 x, B. D; ^+ g! ?    ftoa(i) = 0
    For j = 1 To List_m
     ftoa(i) = ftoa(i) + AAs(j, i) * AAs(0, j)
- p* C3 Q% h/ d7 X+ E0 @    Next j
    strline = strline + Str(ftoa(i)) + "  "
  Next i
( M4 x$ ^3 X- D! Z/ }j = MsgBox("各方案对目标的权数为：" + Chr(10) + Chr(13) + strline, 64, "结论")

End If

For i = 1 To List_n
* s; f- t/ f/ J! }4 [7 x   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
) |( ?0 ]3 l! e! S9 m8 G. ]    Text3((i - 1) * List_n + j).Enabled = False
! L6 x$ l6 H. M+ z    Text3((i - 1) * List_n + j).BackColor = &amp;H868754
2 _  a  v: t& U: H) \7 b   End If
. M' g4 C4 D0 W  b6 c/ h   Next j
Next i
4 v3 ^- Y4 B- M+ [2 l* W% R- ?End Sub
注意上面的Text3是一个文本框控件的数组！

mildseven

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

mokung

3# madio
Thank you .

ywwnudt

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

frainbbs

呵呵 苦难女

spurs1988

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

chaikeen

xixexeixeiixxeixeiixeixeiie

东方明珠-WDZYQ

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