数学建模社区-数学中国
标题:
[求助]苦难女求层次分析法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()
4 n" @, L, O8 u2 z6 A7 I# i
Dim num As Integer
2 K7 k! J5 Y$ \6 a% \( Y
Dim num0, num1, num2 As Double
/ E" v u& U9 l# X
strline = ""
% G0 Q9 K V$ y% K [
fly1 = 1
7 T8 V7 R7 n; k
On Error Resume Next
5 @. i$ W# p Z) x: M L C. C8 i
For i = 1 To List_n
. U9 l7 t/ v! m% r) ]3 M
For j = 1 To List_n
/ g+ D* [! }! h* F
Text3((i - 1) * List_n + j).Enabled = True
, W& r6 X6 d G# n
Next j
* ^$ F( ]9 t, ?( {
Next i
: C5 ? F# {4 }/ e+ r5 _" o6 s. C
For i = 1 To List_n
' M4 Y- R% J- w d4 l" K( G/ V
For j = i To List_n
" G! F) r, X' w# v4 \' r5 |
If i = j Then
5 l9 H j3 |8 p1 @3 I
Text3((i - 1) * List_n + j).text = " 1"
! {1 Z2 d( q9 ]$ K2 i
Else
0 A# E/ ^* j6 {3 ^+ O! v5 T4 x+ ~
num = 1
: W/ s0 O, x" g# `# i
num1 = 1
0 O* u# r8 w D" p. O1 M- A$ J
num2 = 1
- P: o7 @' Y6 s0 }5 k! Q
num = InStr(num, Text3((i - 1) * List_n + j).text, "/")
/ O6 ^8 l' [6 C! x' \+ H
If num <> 0 Then
- \' B8 o. w& X( V' c' t1 K. T
num1 = Val(Left(Text3((i - 1) * List_n + j).text, num))
4 V' n0 b4 g7 `0 O# z0 q' V! ~
num2 = Val(Right(Text3((i - 1) * List_n + j).text, Len(Text3((i - 1) * List_n + j).text) - num))
3 S% ~; ~& x, o* N& E$ C/ @
Text3((i - 1) * List_n + j).text = num1 / num2
0 F$ }3 C# R8 Q3 T+ a. I# t7 y
Text3((j - 1) * List_n + i).text = num2 / num1
, A7 h/ D4 T8 ]& U- l( f9 P
Else
# z3 m5 M6 f+ e7 S/ T
Text3((j - 1) * List_n + i).text = 1 / Val(Text3((i - 1) * List_n + j).text)
S# ^* t) t# [( B5 `
End If
& h& n' s! P" h: y/ X y1 \
End If
! }9 A1 _1 Z! B7 q8 K( w+ ?
Next j
& X+ ?& D E# y2 q$ [+ F
Next i
1 @1 s0 D: _/ _- E% w7 W N
L = MsgBox("您确定以上的数据吗？", 49, "提示")
, @* t$ l! y+ W! l% F% s2 f
If L <> 1 Then
8 \3 ^% E4 n! ^# D& A3 p! \
Exit Sub
1 f4 V2 [% ?' ^& u+ g5 J
End If
: ?% p0 J; [5 O% R; `. Z
Call caculation(Combo1.ListIndex + 1, List_n, Text3)
. y: `# r" P( p! e3 f7 r. z: ~
If Selected(Combo1.ListIndex + 1) = Combo1.ListIndex + 1 Then
0 M/ M* m) r2 n# J: Q
h = MsgBox("重新输入新数据吗？", 3)
% _5 [/ E0 _6 G, K2 c" L3 {
Select Case h
; n+ z' n3 z, I4 W2 S! r& i
Case 1
5 {5 \! m3 p. Y: V
GoTo op
& P" n- m3 s" Y" t
Case 2
$ R3 i5 R0 V* R: Y8 b/ y* X: W
Exit Sub
5 f/ i! t' [1 u9 i+ n: D7 F# i
Case 7
4 m; b% E% d8 T1 E$ c, H: }$ w, r
Exit Sub
2 I& O$ O& N: m& a+ V9 \. N' ^
End Select
* r4 A o5 m0 X/ F
End If
. R# X% O5 n( o1 r
op: Selected(Combo1.ListIndex + 1) = Combo1.ListIndex + 1
( ^9 G8 {$ s k
Call check
: y* z4 `( D6 g! y4 ^9 C
'结果说明
& {- t$ y% G4 I6 ~! \- M
For i = 1 To List_n
4 B0 j, L; o4 f. k @$ a {; p
! ?6 _7 @9 Y/ v$ b
. d* P) O2 z0 J8 S; Z
Next i
. y- m2 N$ ~2 X0 o. O1 x9 H
If fly1 = 1 And fly2 = 1 Then
; Q/ Y) H3 o, @, t2 O5 F2 k4 a: y
Command1.Enabled = False
1 y* q: X+ ?& n% h5 b: ]
Command2.Enabled = False
, c4 |# {' X) d& y
For i = 1 To List_n
3 O" r: K& d1 `/ {6 T
ftoa(i) = 0
8 v. }: f& Y- C
For j = 1 To List_m
4 s0 \( ~$ Q2 o& [
ftoa(i) = ftoa(i) + AAs(j, i) * AAs(0, j)
% s4 \2 d Q6 [( o! E4 e8 H1 K
Next j
+ ^) O& \' C \9 _( q2 k0 @
strline = strline + Str(ftoa(i)) + " "
# q2 L( }* S' a6 m; h; g6 N' A
Next i
# V1 Q" s/ v/ ]* j3 \# `; D
j = MsgBox("各方案对目标的权数为：" + Chr(10) + Chr(13) + strline, 64, "结论")
% n! ^% [1 B( h
/ @5 I: l5 B& r& _* M2 k
End If
- V7 M- B: s8 _* s6 y$ n
" j0 }5 Q& F2 `0 h% O( i% h' M2 j
For i = 1 To List_n
' b0 z1 j' U! W1 ~
For j = 1 To List_n
+ a* s9 E H* P% A; N4 t
Text3((i - 1) * List_n + j).Visible = True
3 \/ x' f+ N1 p1 K- m
Text3((i - 1) * List_n + j).text = ""
* n6 G+ D0 J7 S. k
If i > j Or i = j Then
( ~7 D& l2 {) u+ z( d, Z
Text3((i - 1) * List_n + j).Enabled = False
) I s/ n' b% E% G9 ?
Text3((i - 1) * List_n + j).BackColor = &H868754
. Q8 i) v. F3 f, e+ r
End If
# ~/ W- Z# v& T, M
Next j
! u, N, V! y7 d" ~
Next i
+ U1 `2 J' B# p1 v4 n
End Sub
( p# o6 j4 E( O `- P' H& |9 B
注意上面的Text3是一个文本框控件的数组！
作者:
mildseven
时间:
2005-4-28 17:11
<
>谢谢！</P><
>但我要C 或是 VC的啊</P>
作者:
mokung
时间:
2009-5-9 01:40
3#
madio
# s7 e5 E& F% ^1 O7 g: c% D
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
>呜呜～～～，没人顶？？</P><>各位大gg,大jj们，救我啊！</P>>谢谢！</P><>但我要C 或是 VC的啊</P>