[求助]苦难女求层次分析法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
Dim num0, num1, num2 As Double
1 G+ Y- l2 W5 r. T0 j3 c' ]strline = ""
fly1 = 1
On Error Resume Next
4 U4 O; U8 [7 J  For i = 1 To List_n
# m$ U; I! G0 N1 \( @: c  For j = 1 To List_n
$ i% }% B: n' K  Text3((i - 1) * List_n + j).Enabled = True
  Next j
  Next i
For i = 1 To List_n
# r  R# B* v% d  For j = i To List_n
: R" R. H. _2 m0 @* c  ^) c  If i = j Then
& o8 _' r' a2 f2 X2 s& y1 Y' Q. b, X    Text3((i - 1) * List_n + j).text = " 1"
  Else
   num = 1
   num1 = 1
+ l/ B5 Q3 {& j2 y, y   num2 = 1
! I! Z- A/ b$ J3 H   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
! Y8 ?# H4 j- O/ W6 A# ^     Text3((j - 1) * List_n + i).text = 1 / Val(Text3((i - 1) * List_n + j).text)
) D) h2 i, r3 A6 r: c6 n% b& P2 i3 ]3 z    End If
  End If
- p# i' w- A% F" D2 r* {0 kNext j
Next i
L = MsgBox("您确定以上的数据吗？", 49, "提示")
If L &lt;&gt; 1 Then
  j1 R8 m* I  d( i! G6 ?+ KExit Sub
7 d. B% W: s- k# I3 NEnd If
: C' e1 z& j- KCall caculation(Combo1.ListIndex + 1, List_n, Text3)
! q, \1 t2 V% k. C' P- H* E: b6 }If Selected(Combo1.ListIndex + 1) = Combo1.ListIndex + 1 Then
h = MsgBox("重新输入新数据吗？", 3)
Select Case h
3 \  {2 f; y# M+ z7 u* hCase 1
" m1 E/ B3 g! `+ {- j) u  GoTo op
& d7 h6 R8 S7 j8 V4 k/ [. u+ wCase 2
  Exit Sub
4 _  _/ l( x0 ~; X) m/ s: y7 x& WCase 7
   Exit Sub
End Select
End If
op: Selected(Combo1.ListIndex + 1) = Combo1.ListIndex + 1
Call check
) h) I% |% _6 B'结果说明
For i = 1 To List_n

9 t- W. X4 h; N& m: p& f7 ^0 i- i( y
Next i
If fly1 = 1 And fly2 = 1 Then
* }2 `9 s, j8 NCommand1.Enabled = False
Command2.Enabled = False
6 @) R) F: y/ A. x  For i = 1 To List_n
    ftoa(i) = 0
# S" w3 o/ z# G2 g; o- ]/ m' A    For j = 1 To List_m
& Z9 u6 T5 J3 N$ G     ftoa(i) = ftoa(i) + AAs(j, i) * AAs(0, j)
    Next j
    strline = strline + Str(ftoa(i)) + "  "
  Next i
8 h% a& A9 {/ kj = MsgBox("各方案对目标的权数为：" + Chr(10) + Chr(13) + strline, 64, "结论")

End If

9 c2 {7 F; g5 a$ i9 Q5 g6 lFor 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 = ""
8 W' @4 C, Q2 H   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
) q! V" \5 y" E   End If
   Next j
- w* ]: e1 f# ^8 F6 y6 jNext i
End Sub
注意上面的Text3是一个文本框控件的数组！

mildseven

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

mokung

3# madio
7 G! r. N/ }- EThank you .

ywwnudt

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

frainbbs

呵呵 苦难女

spurs1988

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

chaikeen

xixexeixeiixxeixeiixeixeiie

东方明珠-WDZYQ

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