[求助]苦难女求层次分析法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
5 ?/ ]  i8 T/ Y1 n5 H) U' [" S3 iDim num0, num1, num2 As Double
strline = ""
fly1 = 1
# e/ f: w2 n7 P+ Q3 Z6 [3 @On Error Resume Next
" @% T" g, {9 ^9 x; A  For i = 1 To List_n
6 h' u5 c0 L0 z* q. F# m. L0 v( Q  For j = 1 To List_n
; U$ ]4 M' k0 o- ]1 ^  Text3((i - 1) * List_n + j).Enabled = True
; ?- q( z: a8 n4 ^4 C  Next j
  Next i
+ W) l& f9 _3 T$ lFor i = 1 To List_n
  For j = i To List_n
  If i = j Then
7 H' e9 q/ i. c' n# S* B    Text3((i - 1) * List_n + j).text = " 1"
  Else
   num = 1
/ V% G2 A. c( a( H( }; i$ ~" A2 m   num1 = 1
5 n, V1 V7 I/ w7 v/ C9 ]6 u+ ^   num2 = 1
5 q" X& H5 M3 S/ B3 g   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))
# f/ E$ j/ X( }% t0 J$ X     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
     Text3((j - 1) * List_n + i).text = 1 / Val(Text3((i - 1) * List_n + j).text)
    End If
& @9 ?$ f9 ~* A" T/ A9 W  End If
Next j
  \0 z" J  P3 @3 b* jNext i
L = MsgBox("您确定以上的数据吗？", 49, "提示")
If L &lt;&gt; 1 Then
; n7 {: e' \6 N% D- \6 g) N  A% @Exit Sub
End If
Call caculation(Combo1.ListIndex + 1, List_n, Text3)
/ R) t( I; [8 {8 L9 L# WIf Selected(Combo1.ListIndex + 1) = Combo1.ListIndex + 1 Then
8 ]' x8 F" h) ~6 z/ H9 w5 Th = MsgBox("重新输入新数据吗？", 3)
( p% ^$ n& D" A3 B" l+ qSelect Case h
+ ~* I  m# z2 {+ e8 n* E! ?Case 1
9 o8 G& A9 {7 C9 M8 A- q  GoTo op
  e8 C- a% D: \' SCase 2
+ h( U! S! `' W* r2 _  Exit Sub
* p. |. h! e) J3 f( hCase 7
4 b4 C, N: b& g   Exit Sub
" t- [/ V6 |. e! CEnd Select
End If
% |: }) e$ w8 p4 p* Vop: Selected(Combo1.ListIndex + 1) = Combo1.ListIndex + 1
5 n& B% o2 F: Q7 ECall check
'结果说明
( }  _7 H& x6 W% D$ I" |# }- f/ p5 lFor i = 1 To List_n

) h% p& m" b* a2 v" K" Y3 H' v8 Z
Next i
If fly1 = 1 And fly2 = 1 Then
! H/ ~- t' B5 r( A6 x" _Command1.Enabled = False
) @2 T- ~7 @7 Z$ sCommand2.Enabled = False
4 _6 d7 W) {) S4 I5 k9 c; O  For i = 1 To List_n
    ftoa(i) = 0
! s, p/ D6 @- D    For j = 1 To List_m
7 W2 s' {, a1 g2 p9 G7 y6 h     ftoa(i) = ftoa(i) + AAs(j, i) * AAs(0, j)
    Next j
3 Z* d! E' U* R# v2 m$ ~6 ]9 |) z    strline = strline + Str(ftoa(i)) + "  "
  C6 j( d. U8 b% g* X* F7 r4 q4 U4 g" h8 u  Next i
9 F- }4 `2 L% ]8 ~3 _- Fj = MsgBox("各方案对目标的权数为：" + Chr(10) + Chr(13) + strline, 64, "结论")

End If

For i = 1 To List_n
   For j = 1 To List_n
; [3 o3 a3 y" p( G$ P7 V" x    Text3((i - 1) * List_n + j).Visible = True
    Text3((i - 1) * List_n + j).text = ""
0 ?6 w7 y; g( p# O$ J9 G' D   If i &gt; j Or i = j Then
5 A% a/ q: l+ `- `8 O" M- k    Text3((i - 1) * List_n + j).Enabled = False
' |2 c, |6 F# \! w5 T! `, ~$ M8 C    Text3((i - 1) * List_n + j).BackColor = &amp;H868754
   End If
& D1 H% F; e1 Z1 f! f3 }& c   Next j
Next i
0 W+ h0 U1 u3 K& z. ?End Sub
注意上面的Text3是一个文本框控件的数组！

mildseven

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

mokung

3# madio
+ a% Q& O% c6 @$ r6 G6 |7 IThank you .

ywwnudt

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

frainbbs

呵呵 苦难女

spurs1988

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

chaikeen

xixexeixeiixxeixeiixeixeiie

东方明珠-WDZYQ

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