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

mildseven

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

mildseven

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

madio

Private Sub Command1_Click()
4 x" `% p* P% d" w+ _9 r8 K. MDim num As Integer
Dim num0, num1, num2 As Double
" e9 l: d3 m, a4 e4 K5 ^strline = ""
+ X' r& v3 a2 t8 p& ~fly1 = 1
On Error Resume Next
# r- j  j1 T1 G/ f4 ?; @  For i = 1 To List_n
) ]% U. O! \: r( N  ]  For j = 1 To List_n
  Text3((i - 1) * List_n + j).Enabled = True
  Next j
  Next i
$ j! d  R) p9 r* [3 z9 ^2 |1 TFor i = 1 To List_n
  For j = i To List_n
, m" ?( [6 q0 f% X+ L! |8 b  If i = j Then
; v3 C7 j3 |, ^. D    Text3((i - 1) * List_n + j).text = " 1"
  Else
( j, \" ?$ ]& u7 y$ ]0 i& ?- _   num = 1
2 ~  @# o; \. f. Q   num1 = 1
* C  ~6 Z: {" l4 k% i: a% a   num2 = 1
   num = InStr(num, Text3((i - 1) * List_n + j).text, "/")
: n+ h" a4 N. A* P9 p- b" M6 |    If num &lt;&gt; 0 Then
     num1 = Val(Left(Text3((i - 1) * List_n + j).text, num))
. @9 {) B3 u7 Y8 E! R4 F4 y     num2 = Val(Right(Text3((i - 1) * List_n + j).text, Len(Text3((i - 1) * List_n + j).text) - num))
& ^  g+ w* p# t. X7 x% n     Text3((i - 1) * List_n + j).text = num1 / num2
     Text3((j - 1) * List_n + i).text = num2 / num1
- j7 f5 M5 r; Q& G/ q4 f+ R    Else
. D& {3 x0 u  h     Text3((j - 1) * List_n + i).text = 1 / Val(Text3((i - 1) * List_n + j).text)
    End If
3 J$ f( H: d4 [2 O- S; E3 T  End If
Next j
Next i
L = MsgBox("您确定以上的数据吗？", 49, "提示")
If L &lt;&gt; 1 Then
( N& \3 w% A. P5 n) o. gExit Sub
End If
; g$ w$ o4 [+ k: cCall caculation(Combo1.ListIndex + 1, List_n, Text3)
2 t# \# U3 B2 I4 p2 W/ JIf Selected(Combo1.ListIndex + 1) = Combo1.ListIndex + 1 Then
h = MsgBox("重新输入新数据吗？", 3)
Select Case h
- \7 u: Q+ z$ t- o. J6 mCase 1
  GoTo op
Case 2
: U( p. w5 a6 `% g; Q  Exit Sub
$ R$ Q- K4 d! p& E$ q1 f/ o8 }1 JCase 7
   Exit Sub
0 D: y% c" `9 C% JEnd Select
4 }. J1 K' ~3 m+ C6 _. \End If
op: Selected(Combo1.ListIndex + 1) = Combo1.ListIndex + 1
Call check
'结果说明
For i = 1 To List_n
" }; I' s3 t3 v
  R$ ^  e/ @0 H; j; `0 J
5 [- e2 X: W4 W: vNext i
If fly1 = 1 And fly2 = 1 Then
Command1.Enabled = False
3 R9 z/ L' c7 |Command2.Enabled = False
  For i = 1 To List_n
    ftoa(i) = 0
    For j = 1 To List_m
/ U$ _  D, C: q  s     ftoa(i) = ftoa(i) + AAs(j, i) * AAs(0, j)
1 C3 X, E: B: @/ r5 ^    Next j
% G3 \2 |0 {$ r2 z. F# [    strline = strline + Str(ftoa(i)) + "  "
- l0 `5 d; V. y, `  Next i
2 V8 i7 O$ ^/ S; Y+ T9 Jj = MsgBox("各方案对目标的权数为：" + Chr(10) + Chr(13) + strline, 64, "结论")

8 F& u$ q- v! VEnd If
4 M& h+ ]2 {* p+ h+ f8 i, T
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
' ?8 L6 l+ M' q! L$ I1 K" `    Text3((i - 1) * List_n + j).Enabled = False
( C' b7 {" ~7 _5 O0 k7 \7 _    Text3((i - 1) * List_n + j).BackColor = &amp;H868754
$ N5 a; O" m, D5 t) [/ f   End If
+ @$ Z/ r0 z' C1 y# C   Next j
Next i
End Sub
8 Z7 m8 y7 U. y+ \' G6 b& e) A注意上面的Text3是一个文本框控件的数组！

mildseven

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

mokung

3# madio
Thank you .

ywwnudt

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

frainbbs

呵呵 苦难女

spurs1988

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

chaikeen

xixexeixeiixxeixeiixeixeiie

东方明珠-WDZYQ

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