数学建模社区-数学中国

标题: [求助]苦难女求层次分析法AHP的vc或vc++程序或软件 [打印本页]
作者: mildseven    时间: 2005-4-6 13:06
标题: [求助]苦难女求层次分析法AHP的vc或vc++程序或软件
苦难女求层次分析法（AHP）的vc或vc++程序或软件，望热心人士帮帮忙，急用！！[em19][em19][em18][em18][em18][em06]
作者: mildseven    时间: 2005-4-7 09:09
<>呜呜～～～，没人顶？？</P><>各位大gg,大jj们，救我啊！</P>
作者: madio    时间: 2005-4-7 09:38
标题: 转一个vb写的代码！
Private Sub Command1_Click()
: K- t6 {4 K% J7 qDim num As Integer. {$ c7 l' }9 L
Dim num0, num1, num2 As Double* S+ f( C+ @. u1 N8 L* c" d- ]/ b
strline = ""
& H# D& f6 N6 h* P8 ~fly1 = 1$ m# p7 c# Y, L; |1 Y, P0 B0 Z
On Error Resume Next- Y: o! _: Q  w6 ]0 E& Q+ \( h6 ~
  For i = 1 To List_n
& w% f/ e4 I9 d1 H1 e3 S  For j = 1 To List_n& V5 ~4 a; x# V) O
  Text3((i - 1) * List_n + j).Enabled = True
8 H# s7 m+ J  T3 I  Next j; d, q8 S3 v  v$ n& q# Q3 b  d
  Next i1 W* p# U" J% _% Y+ L  g9 b4 K- \
For i = 1 To List_n
. K# i4 m' Q+ r8 }  For j = i To List_n7 y6 l+ ^! A% t- u
  If i = j Then. F& E- b3 z+ D# r9 X7 l1 L. f  ~- h0 d
    Text3((i - 1) * List_n + j).text = " 1"
9 s; W! H* ]  k/ @  Else4 |7 N9 t5 ?3 p5 j
   num = 19 [0 E7 K$ M/ U$ m7 ^$ y
   num1 = 1( r2 D2 f3 E4 ~* {3 q
   num2 = 1+ x) D# F* }3 L* S) B. l
   num = InStr(num, Text3((i - 1) * List_n + j).text, "/")
+ T1 T8 p% ]8 U, Q+ q5 r    If num &lt;&gt; 0 Then, M  j% J) D9 L! |: Z0 R) E8 t/ P
     num1 = Val(Left(Text3((i - 1) * List_n + j).text, num))3 @5 L+ \& f* {
     num2 = Val(Right(Text3((i - 1) * List_n + j).text, Len(Text3((i - 1) * List_n + j).text) - num))
8 V: ~/ R  O' l' x8 V     Text3((i - 1) * List_n + j).text = num1 / num2$ j+ A, m, Y; _, j& B3 H
     Text3((j - 1) * List_n + i).text = num2 / num14 T/ O, p7 \( a! w( }
    Else! `, Z# v$ q# B: T4 {- W0 H9 ?
     Text3((j - 1) * List_n + i).text = 1 / Val(Text3((i - 1) * List_n + j).text)/ u8 e2 @% B  v
    End If
& P1 o* a( g& T9 x$ l* {  End If
2 S% d2 S  j. Z) W& e; g2 GNext j- G' p4 g3 j% G/ {
Next i
1 L$ B# t6 M3 m1 R: QL = MsgBox("您确定以上的数据吗？", 49, "提示")0 h' E0 q) [* _$ W! }
If L &lt;&gt; 1 Then) s0 i: s% r# P" T. O
Exit Sub4 L/ _% d2 L% s/ Q8 |' C
End If
2 h: R. \, M# H# f3 ~" R/ E1 TCall caculation(Combo1.ListIndex + 1, List_n, Text3)% Y  E( {) [2 |, u
If Selected(Combo1.ListIndex + 1) = Combo1.ListIndex + 1 Then
! y5 Y3 g7 V5 U7 j4 Rh = MsgBox("重新输入新数据吗？", 3): e( D* `) S+ [4 F6 O% b( D4 E
Select Case h- ]0 F' D3 r3 ^' c& Y6 d
Case 1+ j4 \6 s6 q  U- q- f
  GoTo op( A' f  S7 b& p* D
Case 2) O7 d; V# y% A' }& x/ i
  Exit Sub
8 k+ x# b7 d9 u. b6 Q- nCase 70 Q3 z, y, n& S5 C
   Exit Sub
! K9 N" s$ k3 K( n2 C/ H9 |" s' YEnd Select/ u, F) e8 x& j  \
End If
9 _6 V: s3 ]; rop: Selected(Combo1.ListIndex + 1) = Combo1.ListIndex + 1- B5 S$ ?7 X( ]" h  }
Call check* }8 e! j. y! P/ s
'结果说明0 W# z2 ^: k7 Y: i
For i = 1 To List_n2 z  z8 O% U9 k9 a
4 r/ T/ L. m  B# }7 Z/ r/ Y

9 h7 V2 }) R7 n* T0 K6 ]Next i
5 l. e2 V4 n# x/ V8 _" R, F9 kIf fly1 = 1 And fly2 = 1 Then
0 K! q% M" s0 N" B# I' oCommand1.Enabled = False6 d+ |. [6 d0 r7 U+ Z) P
Command2.Enabled = False+ R  S. c* W) k! Z, _2 ^- v' A6 y8 U: i) J
  For i = 1 To List_n
6 k3 x2 F* @7 v' c6 E8 F    ftoa(i) = 0
' x( Q8 q" a2 ?6 k# ^* X    For j = 1 To List_m
" `) o5 w5 w9 e6 ~* @. s     ftoa(i) = ftoa(i) + AAs(j, i) * AAs(0, j)  d1 c7 F, T. N
    Next j
' `4 v! A% s- V( r9 w4 Z; D+ o    strline = strline + Str(ftoa(i)) + "  "6 v0 r( Z& L; B/ m
  Next i
+ e- T: Y* V* @: e- v" jj = MsgBox("各方案对目标的权数为：" + Chr(10) + Chr(13) + strline, 64, "结论")
& j$ k$ R8 w5 a  v; ]. L% B9 l
- m) P% O* E; r% d8 B; ZEnd If' E% D/ F4 c% i7 J9 j

5 @/ e5 w0 w% gFor i = 1 To List_n
, _0 H' D5 N7 k2 J# J: M7 G7 X  k   For j = 1 To List_n, ?) ~8 ?2 a! s% b; S1 E
    Text3((i - 1) * List_n + j).Visible = True8 O5 z& F- P3 B2 |
    Text3((i - 1) * List_n + j).text = ""
. G/ S+ ^: s! P* |   If i &gt; j Or i = j Then
( {+ V4 }5 h( C" h; L5 V. A; R1 i    Text3((i - 1) * List_n + j).Enabled = False
# p3 Z7 w( d, J" H" n: J    Text3((i - 1) * List_n + j).BackColor = &amp;H868754
' z* m4 y0 E& D   End If
8 @- _3 A  o9 U9 L  y0 ?* `   Next j& ?7 s' T5 I+ V% x9 S- n2 p
Next i
* k. E+ C- \" [9 LEnd Sub
6 f! ^5 `  |; C* A: ]注意上面的Text3是一个文本框控件的数组！
作者: mildseven    时间: 2005-4-28 17:11
<>谢谢！</P><>但我要C 或是 VC的啊</P>
作者: mokung    时间: 2009-5-9 01:40
3# madio 2 v, G1 O& D, g) P) r3 H9 m
Thank you .
作者: ywwnudt    时间: 2009-7-8 08:01
苦难女,找到你要的东西没有?分享一下
作者: frainbbs    时间: 2009-7-8 15:26
呵呵 苦难女
作者: spurs1988    时间: 2009-7-26 10:51
还没找到吗？郁闷......
作者: chaikeen    时间: 2009-8-13 21:26
xixexeixeiixxeixeiixeixeiie
作者: 东方明珠-WDZYQ    时间: 2009-10-31 17:23
下来用了哈，上面的VB程序还可以，



欢迎光临 数学建模社区-数学中国 (http://www.madio.net/) Powered by Discuz! X2.5