[讨论]这段代码究竟怎么改？

沙发

想做一名软件编程的学生 [专家分：0] 发布于 2009-07-12 14:22:00

本人QQ：503871002

板凳

想做一名软件编程的学生 [专家分：0] 发布于 2009-07-12 14:58:00

Dim a As String, b As String, c As String, d As String, e As Long
'=================================================
If Label1.Caption = "" And Label2.Caption = "" And Label3.Caption = "" And Label4.Caption = "" Then
MsgBox "颜色必须选择"
Else
'=================================================
  棕色1 = 1
  红色1 = 2
  橙色1 = 3
  黄色1 = 4
  绿色1 = 5
  蓝色1 = 6
  紫色1 = 7
  灰色1 = 8
  白色1 = 9

       黑色2 = 0
       棕色2 = 1
       红色2 = 2
       橙色2 = 3
       黄色2 = 4
       绿色2 = 5
       蓝色2 = 6
       紫色2 = 7
       灰色2 = 8
       白色2 = 9

           黑色3 = 1
           棕色3 = 10
           红色3 = 100
           橙色3 = 1000
           黄色3 = 10000
           绿色3 = 100000
           蓝色3 = 1000000
           紫色3 = 10000000
           灰色3 = 100000000
           白色3 = 1000000000
           金色3 = 0.1
           银色3 = 0.01

               金色4 = ±5
               银色4 = ±10
               无色4 = ±20
'=================================================
    If Label1.Caption = "棕色" Then a = 棕色1

    If Label1.Caption = "红色" Then a = 红色1

    If Label1.Caption = "橙色" Then a = 橙色1

    If Label1.Caption = "黄色" Then a = 黄色1

    If Label1.Caption = "绿色" Then a = 绿色1

    If Label1.Caption = "蓝色" Then a = 蓝色1

    If Label1.Caption = "紫色" Then a = 紫色1

    If Label1.Caption = "灰色" Then a = 灰色1

    If Label1.Caption = "白色" Then a = 白色1

    '========================================================================
    If Label2.Caption = "黑色" Then b = 黑色2

    If Label2.Caption = "棕色" Then b = 棕色2

    If Label2.Caption = "红色" Then b = 红色2

    If Label2.Caption = "橙色" Then b = 橙色2

    If Label2.Caption = "黄色" Then b = 黄色2

    If Label2.Caption = "绿色" Then b = 绿色2

    If Label2.Caption = "蓝色" Then b = 蓝色2

    If Label2.Caption = "紫色" Then b = 紫色2

    If Label2.Caption = "灰色" Then b = 灰色2

    If Label2.Caption = "白色" Then b = 白色2
    '========================================================================
    If Label3.Caption = "黑色" Then c = 黑色3

    If Label3.Caption = "棕色" Then c = 棕色3

    If Label3.Caption = "红色" Then c = 红色3

    If Label3.Caption = "橙色" Then c = 橙色3

    If Label3.Caption = "黄色" Then c = 黄色3

    If Label3.Caption = "绿色" Then c = 绿色3

    If Label3.Caption = "蓝色" Then c = 蓝色3

    If Label3.Caption = "紫色" Then c = 紫色3

    If Label3.Caption = "灰色" Then c = 灰色3

    If Label3.Caption = "白色" Then c = 白色3

    If Label3.Caption = "金色" Then c = 金色3

    If Label3.Caption = "银色" Then c = 银色3

    '=======================================================================
    If Label4.Caption = "金色" Then d = 金色4

    If Label4.Caption = "银色" Then d = 银色4

    If Label4.Caption = "无色" Then d = 无色4

    '=======================================================================
    e = ab * c
    MsgBox "该电子的电阻是" & e
    End If

3 楼

想做一名软件编程的学生 [专家分：0] 发布于 2009-07-12 14:59:00

[img]http://b16.photo.store.qq.com/http_imgload.cgi?/rurl4_b=d47e2817e8ed4858090c0d3690f69ac849bb88e0693a6274fbd1cb62ae56c76982fc47784607e0f8b72a4602da2a05c2e1e6963c4d88b8adf146affa1bb963f907d2c3b5857258a6829a4b7e5c046d1000d631f8[/img]
[img]http://b16.photo.store.qq.com/http_imgload.cgi?/rurl4_b=d47e2817e8ed4858090c0d3690f69ac87bc5bbe3304180ace29ad6056093e8b3507a284d995a229ef232c219f6e7e45ee6fea0947020bc94bdba9b0723d05427952d3b12594ffa4e8c2edc8cf2067e2463411fb1[/img]

4 楼

老大徒伤悲 [专家分：29120] 发布于 2009-07-12 15:56:00

qq空间的图片在这里别人是看不到的。

5 楼

老大徒伤悲 [专家分：29120] 发布于 2009-07-12 22:48:00

e = ab * c
中ab没有被赋值

6 楼

ad48334302 [专家分：60] 发布于 2009-07-24 14:58:00

e=ab*c 中ab 为空所以无论你怎么选择 e计算出来都是0

您尚未登录，请登录后再回复。点此登录或注册

主题：[讨论]这段代码究竟怎么改？

回复列表（共6个回复）

我来回复

程序员工具箱 new

代码片段