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

mildseven

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

mildseven

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

madio

Private Sub Command1_Click()
1 S% K8 S# Z9 m$ N$ f4 q# hDim num As Integer
Dim num0, num1, num2 As Double
& V, p; b6 T9 l( M& O9 `strline = ""
% y1 u8 L# U/ \" a4 Mfly1 = 1
. B$ O. I9 Q, }On Error Resume Next
  For i = 1 To List_n
  @7 c, U2 a! k- R' }  For j = 1 To List_n
+ C( k4 [& o) |4 W& l  ]  Text3((i - 1) * List_n + j).Enabled = True
  Next j
  Next i
For i = 1 To List_n
' F3 h7 I. s" ]( ~$ ?, D1 H  For j = i To List_n
  If i = j Then
    Text3((i - 1) * List_n + j).text = " 1"
  Else
, x7 L) h6 }8 f' S   num = 1
   num1 = 1
   num2 = 1
   num = InStr(num, Text3((i - 1) * List_n + j).text, "/")
+ R' Z" k6 u4 g4 _% K# y    If num &lt;&gt; 0 Then
     num1 = Val(Left(Text3((i - 1) * List_n + j).text, num))
( i4 n' y. }4 M" b, H: K     num2 = Val(Right(Text3((i - 1) * List_n + j).text, Len(Text3((i - 1) * List_n + j).text) - num))
* b' M' a" u% _     Text3((i - 1) * List_n + j).text = num1 / num2
     Text3((j - 1) * List_n + i).text = num2 / num1
( L' G3 B2 f4 D( E3 B" }    Else
     Text3((j - 1) * List_n + i).text = 1 / Val(Text3((i - 1) * List_n + j).text)
    End If
  End If
1 E: f& a! ^- k( n2 z  vNext j
7 i. w* D6 _) I' \" [' wNext i
L = MsgBox("您确定以上的数据吗？", 49, "提示")
If L &lt;&gt; 1 Then
7 G3 m: B# J% b! E2 v& NExit Sub
/ Y, ?' ^) M8 k# ~: S  g; X5 u9 IEnd If
Call caculation(Combo1.ListIndex + 1, List_n, Text3)
# M& i# [1 H9 t8 e" C8 ?If Selected(Combo1.ListIndex + 1) = Combo1.ListIndex + 1 Then
; S0 T' e4 |. b8 q6 K/ Z6 b( f3 hh = MsgBox("重新输入新数据吗？", 3)
Select Case h
Case 1
  GoTo op
Case 2
  Exit Sub
, v- W5 G1 l5 v9 nCase 7
$ V% |' _8 {8 ]3 A   Exit Sub
$ X+ B, e, C9 X9 e  k* c3 REnd Select
1 o. a4 U6 q3 T9 w: ]6 REnd If
; Y9 Z; f$ y  W9 Kop: Selected(Combo1.ListIndex + 1) = Combo1.ListIndex + 1
Call check
'结果说明
% _" P5 {7 {1 xFor i = 1 To List_n
# f) ~/ ~8 C% ]5 t: W
5 {& z: s( _! f, Q0 S
" j2 x( W5 j) s3 q/ W3 m  BNext i
If fly1 = 1 And fly2 = 1 Then
Command1.Enabled = False
. a* k* p& r5 |6 ^  G! @Command2.Enabled = False
  For i = 1 To List_n
    ftoa(i) = 0
    For j = 1 To List_m
1 F: z# }- x+ d9 K) r$ E* a) R' E     ftoa(i) = ftoa(i) + AAs(j, i) * AAs(0, j)
* F' B, W/ J9 H    Next j
    strline = strline + Str(ftoa(i)) + "  "
  Next i
j = MsgBox("各方案对目标的权数为：" + Chr(10) + Chr(13) + strline, 64, "结论")

End If

! H7 `3 K( D4 AFor 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
/ s  E! H1 B; i7 O7 J9 N' P    Text3((i - 1) * List_n + j).Enabled = False
) H) C1 A7 p: ~7 C# e: s    Text3((i - 1) * List_n + j).BackColor = &amp;H868754
& D) `' ]- {, ^) [- m   End If
# K3 n( e  R1 p/ E$ u0 n   Next j
+ v5 q) c1 q+ W9 E' F5 N  P4 ZNext i
% p) W) _/ {9 H7 {& B: v4 KEnd Sub
注意上面的Text3是一个文本框控件的数组！

mildseven

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

mokung

3# madio
& V9 s( x/ x8 C1 L( f7 vThank you .

ywwnudt

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

frainbbs

呵呵 苦难女

spurs1988

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

chaikeen

xixexeixeiixxeixeiixeixeiie

东方明珠-WDZYQ

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