数学建模社区-数学中国
标题:
[求助]苦难女求层次分析法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()
/ }/ ~2 _& Q) n9 D8 v
Dim num As Integer
a# a6 l& O5 I" u' w" H3 H% w
Dim num0, num1, num2 As Double
" B( |5 ]0 r, E- i- ^/ k c
strline = ""
; @# h; H8 c) v D( y8 F* w
fly1 = 1
4 U; X5 ^3 e' J/ ^+ M6 d
On Error Resume Next
0 y# k& ^" B! z
For i = 1 To List_n
' k5 a9 _2 O' G5 P) D
For j = 1 To List_n
! Q% y0 j5 [- k$ Q
Text3((i - 1) * List_n + j).Enabled = True
- F* a9 F3 ^8 {( v
Next j
: G, j9 k, I, o% h+ c* I
Next i
) B! E( ]/ c/ C* M6 R A
For i = 1 To List_n
( E# J8 N6 S; i8 k2 m! u# l8 _
For j = i To List_n
. @- i) H$ r% x0 |
If i = j Then
+ s" ~ g- B8 V0 ?. y# K
Text3((i - 1) * List_n + j).text = " 1"
6 o, x G7 ^$ F/ I$ P2 h8 H9 ^" K
Else
9 r8 W8 l! t" Q/ H4 R
num = 1
: Y ?. s9 E' H( s7 c6 z
num1 = 1
; k* Y( Y* c( F& l; Y
num2 = 1
/ t8 o( {4 D) J" L5 F; w; ?7 r
num = InStr(num, Text3((i - 1) * List_n + j).text, "/")
# s5 D) _' Y/ q# Q; d2 D& I! a3 I2 o
If num <> 0 Then
* R1 X- ]- Z+ Z) c+ n7 \
num1 = Val(Left(Text3((i - 1) * List_n + j).text, num))
& p( G- m3 }& B4 N
num2 = Val(Right(Text3((i - 1) * List_n + j).text, Len(Text3((i - 1) * List_n + j).text) - num))
. i' C3 y1 A4 M8 a' s
Text3((i - 1) * List_n + j).text = num1 / num2
4 [7 ], k: O/ Q0 o
Text3((j - 1) * List_n + i).text = num2 / num1
* l5 H+ B0 @7 C% _- a( q
Else
" f" r0 A3 [. w
Text3((j - 1) * List_n + i).text = 1 / Val(Text3((i - 1) * List_n + j).text)
* U3 _+ |# y; [8 ^" s0 r
End If
3 h6 h/ S* o6 U( W$ n
End If
. I5 ~) M; m9 Z+ o
Next j
, Q7 X; ?+ i% T! [7 T
Next i
4 C' b0 K8 g9 x/ R
L = MsgBox("您确定以上的数据吗？", 49, "提示")
8 N( U. T4 @5 {5 \5 i' n* K8 ~
If L <> 1 Then
% [! V: I2 k2 H: e' O9 S
Exit Sub
) Z) d! l' r8 D6 |' }+ W2 ?" S
End If
# ^: Q% y/ D, ?6 e
Call caculation(Combo1.ListIndex + 1, List_n, Text3)
5 n, X t3 i9 ]6 N. v% F- u; a
If Selected(Combo1.ListIndex + 1) = Combo1.ListIndex + 1 Then
7 w' o3 b% Q1 }
h = MsgBox("重新输入新数据吗？", 3)
) |% ?7 u, C( M: g8 y
Select Case h
5 X) T' _4 @9 m+ V
Case 1
' | S# e/ u( W( w
GoTo op
; u- l e' J: S6 {
Case 2
- o; }2 H0 F1 T* Z2 P" u
Exit Sub
# [' x' }2 t, f1 r% i/ }' [1 F
Case 7
, M+ ?: }' W! E
Exit Sub
1 J+ s3 h; k: J( K3 w0 h% S
End Select
) S$ y) U4 r# U) s# L0 X" v" F
End If
% i# r+ Y$ u3 H$ S5 r1 h$ R& D
op: Selected(Combo1.ListIndex + 1) = Combo1.ListIndex + 1
0 j5 C, d% I+ I2 U
Call check
3 x2 v7 g6 i0 x# O
'结果说明
1 j8 w" X! D: M# D0 ?5 U; a
For i = 1 To List_n
. o& U7 M/ Z( y2 r" E
A9 J) p4 ^" d4 I( o2 |1 }: z
6 m3 c8 ]( i4 s
Next i
3 h* A$ B7 ~- S+ }; @: b
If fly1 = 1 And fly2 = 1 Then
; h+ f' ?( r6 c$ D* d
Command1.Enabled = False
4 t) F% h6 O% Y6 A5 f8 w# v
Command2.Enabled = False
4 \3 L4 A |7 x' |! H
For i = 1 To List_n
! ~3 s# o- P X
ftoa(i) = 0
0 ~: @: `/ l9 F2 D' `0 U
For j = 1 To List_m
% V" \* C* O+ S* C+ }
ftoa(i) = ftoa(i) + AAs(j, i) * AAs(0, j)
1 f# H4 T1 ^- p2 |
Next j
- C4 Q3 B8 i6 E Z0 s
strline = strline + Str(ftoa(i)) + " "
& b3 A; X2 w$ j- V4 e
Next i
* T) F0 @! k0 @& f; o( V B
j = MsgBox("各方案对目标的权数为：" + Chr(10) + Chr(13) + strline, 64, "结论")
5 i W* M. i p, W7 K
" l, d; ?' H: \
End If
/ t6 p' l# v& N$ c5 S
" [( A5 m- _; P( m- L
For i = 1 To List_n
6 @" s& H3 t/ ^: E
For j = 1 To List_n
. s! ], [1 J6 L1 P
Text3((i - 1) * List_n + j).Visible = True
4 q; I+ G9 [" F8 m
Text3((i - 1) * List_n + j).text = ""
: Z# b, b7 g; G
If i > j Or i = j Then
8 Z, @: t8 e2 \9 \2 R
Text3((i - 1) * List_n + j).Enabled = False
7 c+ z4 R8 G4 [* W' K
Text3((i - 1) * List_n + j).BackColor = &H868754
' \, H, ?1 b0 q9 o' D
End If
g+ K1 c# y% V/ Q/ I# P8 w
Next j
) k1 n! a) W" N& y1 x2 N
Next i
7 C) f" W8 w4 m x: E( m
End Sub
# f* B8 i* q0 F# b
注意上面的Text3是一个文本框控件的数组！
作者:
mildseven
时间:
2005-4-28 17:11
<
>谢谢！</P><
>但我要C 或是 VC的啊</P>
作者:
mokung
时间:
2009-5-9 01:40
3#
madio
' N: h/ v% p# N' ^ L
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>