QQ登录

只需要一步,快速开始

 注册地址  找回密码
查看: 6988|回复: 9
打印 上一主题 下一主题

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

[复制链接]
字体大小: 正常 放大
mildseven        

2

主题

0

听众

22

积分

升级  17.89%

该用户从未签到

新人进步奖

跳转到指定楼层
1#
发表于 2005-4-6 13:06 |只看该作者 |倒序浏览
|招呼Ta 关注Ta
苦难女求层次分析法(AHP)的vc或vc++程序或软件,望热心人士帮帮忙,急用!![em19][em19][em18][em18][em18][em06]
zan
转播转播0 分享淘帖0 分享分享0 收藏收藏0 支持支持0 反对反对0 微信微信
mildseven        

2

主题

0

听众

22

积分

升级  17.89%

该用户从未签到

新人进步奖

回复

使用道具 举报

madio        

3万

主题

1312

听众

5万

积分

  • TA的每日心情
    奋斗
    2024-7-1 22:21
  • 签到天数: 2014 天

    [LV.Master]伴坛终老

    自我介绍
    数学中国站长

    社区QQ达人 邮箱绑定达人 优秀斑竹奖 发帖功臣 风雨历程奖 新人进步奖 最具活力勋章

    群组数学建模培训课堂1

    群组数学中国美赛辅助报名

    群组Matlab讨论组

    群组2013认证赛A题讨论群组

    群组2013认证赛C题讨论群组

    转一个vb写的代码!

    Private Sub Command1_Click()
    ) M. ?. b) c* J) u& {4 ZDim num As Integer
    ( `2 g% ^8 N6 `/ |7 ^# EDim num0, num1, num2 As Double5 z! o/ {; q$ u
    strline = ""7 U( F1 K* U/ \: i+ Z) ?4 X4 g
    fly1 = 1
    0 x, j! R5 o( r. c- rOn Error Resume Next# z& }; ^' Q8 B1 H9 D& v
      For i = 1 To List_n
    , R5 U/ ~9 y+ z5 w! u; D  For j = 1 To List_n! J: ^& ?1 F; D8 n7 w
      Text3((i - 1) * List_n + j).Enabled = True4 s( [* h( g" u3 k
      Next j
    : a/ [0 O0 J2 j" b+ L8 c  Next i! u, O1 V( T# u0 z# x, W
    For i = 1 To List_n- o" W& I* W6 Q7 r, M5 G+ Z# K
      For j = i To List_n3 j+ f6 B( ~/ l, V3 z
      If i = j Then
    5 J8 ^5 h" s" Y/ i) A    Text3((i - 1) * List_n + j).text = " 1"
    # G+ q6 d- k8 H) S0 G/ W" w' F3 S3 J  Else
    / O: `! B7 y8 w2 e" x1 P) v   num = 1* ]  G6 Q6 N9 M5 G
       num1 = 1
    - P% k  o# x4 g( c# D/ P/ @9 l   num2 = 15 R5 `3 S" @6 y+ j
       num = InStr(num, Text3((i - 1) * List_n + j).text, "/")
    # U8 L- I: Y" r" w( H# ~3 b* [9 I    If num <> 0 Then
    # z4 j6 U. H" t- n: F0 ~3 l     num1 = Val(Left(Text3((i - 1) * List_n + j).text, num))1 o, I/ G& c; G6 i/ K
         num2 = Val(Right(Text3((i - 1) * List_n + j).text, Len(Text3((i - 1) * List_n + j).text) - num))
    * u7 o2 |0 t) D9 U2 _+ B; |     Text3((i - 1) * List_n + j).text = num1 / num2
    & w0 m3 O, \2 }* q3 J     Text3((j - 1) * List_n + i).text = num2 / num1
    2 h. B3 g  D% O- H- d0 d5 [- E  s: Y    Else- ?3 e8 g4 F; j1 ]9 B
         Text3((j - 1) * List_n + i).text = 1 / Val(Text3((i - 1) * List_n + j).text)# l- A+ H! g6 H
        End If. ^+ A; Z  B* F5 B4 q% C, [
      End If0 {- `9 |& m5 q
    Next j" D; s. \5 P$ E  k* N
    Next i
    / ~& t3 h0 {- l, @4 c9 @5 D, UL = MsgBox("您确定以上的数据吗?", 49, "提示")
    8 L$ v+ y) J( o6 C% o4 ?If L <> 1 Then
      X6 P8 h: B' P( p( N2 ^5 DExit Sub
    ! M3 r+ J/ O$ _) H/ L# ?* a+ w$ AEnd If
    " J2 ]" B/ v8 ^9 aCall caculation(Combo1.ListIndex + 1, List_n, Text3)1 |" Y9 d- ~( T* T
    If Selected(Combo1.ListIndex + 1) = Combo1.ListIndex + 1 Then
    - P, Z/ t. k0 E7 x" n" g1 sh = MsgBox("重新输入新数据吗?", 3)
    5 F' z: q/ D, |/ Z8 j& ]Select Case h
    2 i+ K( L* `  f9 o) {; z! Q, u8 e3 VCase 1
    5 P* z8 f* z- ~3 Z, J8 J5 Y" X- k  GoTo op8 p6 h. i1 R4 J" o
    Case 2
    3 B2 \7 c. l* n, o6 I  Exit Sub+ h$ T1 ^+ L7 v3 @/ i6 [# L
    Case 78 D" [4 x$ ~, Q
       Exit Sub. _% K. X7 A' g6 K5 f4 p+ }
    End Select2 I% i: x) {' \8 K" \0 g+ ]4 g
    End If
    4 [& Z8 |; ~+ e# U9 x2 _op: Selected(Combo1.ListIndex + 1) = Combo1.ListIndex + 1% L, E# g) q/ v$ R4 _
    Call check
    - U/ e9 O+ j% d- d5 b$ G'结果说明
    $ r) z* A! w: }For i = 1 To List_n
    % c& I% ~  G: z* `7 V6 V" }2 `. h, _* [' x/ @

    ) Y- k# T5 x2 \( h+ s; uNext i
    ! D8 j" z, g# Y: ^: oIf fly1 = 1 And fly2 = 1 Then1 W( O1 G* B% V3 Q' I4 F; i
    Command1.Enabled = False9 C& Z; a. j' M& Q8 `0 m* Z. k
    Command2.Enabled = False/ S9 R( ?6 }$ T
      For i = 1 To List_n
    * v" X3 a, e: _; c, B. W, D    ftoa(i) = 0
    ! E) K7 C/ L& v2 _  a" B% J1 X4 j4 c    For j = 1 To List_m7 Y  u5 M* Z0 e3 F
         ftoa(i) = ftoa(i) + AAs(j, i) * AAs(0, j)2 W( T) e0 z* @$ w9 z
        Next j* v* Y2 t( w+ e2 U8 C( h
        strline = strline + Str(ftoa(i)) + "  "7 _/ O# w' }" m8 T# S' D% c
      Next i
    : B  l# A3 c4 h5 R" a# D+ k6 s# ^$ pj = MsgBox("各方案对目标的权数为:" + Chr(10) + Chr(13) + strline, 64, "结论")
    , Y, z( L- ?, d/ ^8 R; w+ d
    & C# E* C! b: uEnd If5 o  N6 \# h4 x- s0 D6 k
    , ~7 P5 W: t: b0 J# `9 j) p
    For i = 1 To List_n: f6 d+ \8 n. [# X/ G* n
       For j = 1 To List_n
    8 P. L$ b0 |' o. E4 g/ W    Text3((i - 1) * List_n + j).Visible = True: h/ [2 J' p# ?. A. X! m/ i/ U$ u1 o
        Text3((i - 1) * List_n + j).text = ""
    % ]  J% c% J4 z4 T6 n  X) v' Y/ n9 w% K   If i > j Or i = j Then
    1 d( Q' u$ M9 O; A& \    Text3((i - 1) * List_n + j).Enabled = False
    & f  J$ i, t3 o4 P+ i8 i    Text3((i - 1) * List_n + j).BackColor = &H868754
    8 W0 J* v& ?- N" s; s: P* Y   End If3 r# h2 t8 H! L
       Next j
    * b1 _$ i/ T6 a; FNext i7 b  [' a( `5 U+ N1 x. E) t3 f. F* z
    End Sub
    - C4 H3 y7 K4 J注意上面的Text3是一个文本框控件的数组!
    数学建模社会化
    回复

    使用道具 举报

    mildseven        

    2

    主题

    0

    听众

    22

    积分

    升级  17.89%

    该用户从未签到

    新人进步奖

    回复

    使用道具 举报

    mokung 实名认证       

    0

    主题

    4

    听众

    99

    积分

    升级  98.95%

    该用户从未签到

    回复

    使用道具 举报

    ywwnudt        

    0

    主题

    3

    听众

    33

    积分

    升级  29.47%

    该用户从未签到

    新人进步奖

    回复

    使用道具 举报

    frainbbs        

    1

    主题

    4

    听众

    106

    积分

    升级  3%

    该用户从未签到

    回复

    使用道具 举报

    spurs1988        

    0

    主题

    3

    听众

    63

    积分

    升级  61.05%

    该用户从未签到

    新人进步奖

    回复

    使用道具 举报

    chaikeen 实名认证       

    0

    主题

    6

    听众

    547

    积分

    升级  82.33%

  • TA的每日心情
    开心
    2011-5-28 10:40
  • 签到天数: 1 天

    [LV.1]初来乍到

    新人进步奖

    回复

    使用道具 举报

    16

    主题

    21

    听众

    3372

    积分

    升级  45.73%

  • TA的每日心情
    开心
    2013-10-25 15:56
  • 签到天数: 4 天

    [LV.2]偶尔看看I

    自我介绍
    活泼,爱交友

    发帖功臣 新人进步奖

    群组数学建模

    群组数学趣味、游戏、IQ等

    群组我行我数

    群组Mathematica研究小组

    群组LINGO

    回复

    使用道具 举报

    您需要登录后才可以回帖 登录 | 注册地址

    qq
    收缩
    • 电话咨询

    • 04714969085
    fastpost

    关于我们| 联系我们| 诚征英才| 对外合作| 产品服务| QQ

    手机版|Archiver| |繁體中文 手机客户端  

    蒙公网安备 15010502000194号

    Powered by Discuz! X2.5   © 2001-2013 数学建模网-数学中国 ( 蒙ICP备14002410号-3 蒙BBS备-0002号 )     论坛法律顾问:王兆丰

    GMT+8, 2026-9-1 20:58 , Processed in 0.516441 second(s), 103 queries .

    回顶部