免费国精产品自偷自偷免费看_在线看片成人_www.77伦理bt.com_特级黄色一级片_免费夜色污私人影院在线观看_国严精品久久久久久亚洲影视

18063219
級別: *
精華主題: * 篇
發帖數量: * 個
工控威望: * 點
下載積分: * 分
在線時間: (小時)
注冊時間: *
最后登錄: *
查看18063219的 主題 / 回貼
樓主  發表于: 2010-04-29 13:45
某程序的功能是a1<=q<a2,Shape1.FillColor = vbGreen;q<a4,Shape1.FillColor = vbRed
a2<=q<a3,Shape2.FillColor = vbGreen,Shape2.FillColor = vbGreen  ;q<a5,Shape2.FillColor = vbRed
a3<=q<15,Shape3.FillColor = vbGreen,Shape2.FillColor = vbGreen,Shape1.FillColor = vbGreen;q<a6,Shape3.FillColor = vbRed
我寫的程序存在的問題:shape1顯示正常,其余兩個顯示綠色沒問題,但若要顯示紅色不能顯示,任然是綠色,不發生變化。
Private Sub Command2_Click()
Const pi = 3.14159
Dim t As Single, y As Single, p As Single
Dim a1 As Single, a2 As Single, a3 As Single, a4 As Single, a5 As Single, a6 As Single, q As Single



a1 = Val(Text1.Text)
a2 = Val(Text2.Text)
a3 = Val(Text3.Text)
a4 = Val(Text4.Text)
a5 = Val(Text5.Text)
a6 = Val(Text6.Text)
For t = 0 To 24 Step 0.0003
y = -2 * Sin(t * pi / 1.5) + 3

p = y / 5
Text8.Height = Text7.Height * (1 - p)
q = p * 15
Text9.Text = q
Shape1.Refresh
DoEvents
Select Case q


Case 0 To a4
Shape1.FillColor = vbRed
Case a1 To a2
Shape1.FillColor = vbGreen


Case a4 To a5
Shape2.FillColor = vbRed
Case a2 To a3
Shape2.FillColor = vbGreen
Shape1.FillColor = vbGreen


Case a5 To a6
Shape3.FillColor = vbRed
Case a3 To 15
Shape3.FillColor = vbGreen
Shape2.FillColor = vbGreen
Shape1.FillColor = vbGreen


End Select
Next t
End Sub
[ 此帖被18063219在2010-04-29 20:41重新編輯 ]
ydp
級別: *
精華主題: * 篇
發帖數量: * 個
工控威望: * 點
下載積分: * 分
在線時間: (小時)
注冊時間: *
最后登錄: *
查看ydp的 主題 / 回貼
1樓  發表于: 2010-04-30 12:24
問題找到了,a1 = Val(Text1.Text),這樣的寫法,是取整數,而且 你設置的是有小數點
本帖最近評分記錄:
  • 下載積分:+1(vili) 熱心助人
    ydp
    級別: *
    精華主題: * 篇
    發帖數量: * 個
    工控威望: * 點
    下載積分: * 分
    在線時間: (小時)
    注冊時間: *
    最后登錄: *
    查看ydp的 主題 / 回貼
    2樓  發表于: 2010-04-30 12:25
    兩種解決問題,一就,你把所有數據都變大100倍,不要小數(好多似類的數量都是這樣數)
    本帖最近評分記錄:
  • 下載積分:+1(18063219)
  • 下載積分:+1(vili) 熱心助人
    ydp
    級別: *
    精華主題: * 篇
    發帖數量: * 個
    工控威望: * 點
    下載積分: * 分
    在線時間: (小時)
    注冊時間: *
    最后登錄: *
    查看ydp的 主題 / 回貼
    3樓  發表于: 2010-04-30 12:26
    另外一種就,你把字符串,轉為FU點數
    ydp
    級別: *
    精華主題: * 篇
    發帖數量: * 個
    工控威望: * 點
    下載積分: * 分
    在線時間: (小時)
    注冊時間: *
    最后登錄: *
    查看ydp的 主題 / 回貼
    4樓  發表于: 2010-04-30 12:33
    Dim a1 As Double
    Dim a2 As Double
    Dim K as double //定義水位
    a2 = CDbl(Text1.Text)
    a2 = CDbl(Text1.Text)
    k = CDbl(水位的字符串)
    if k <= a2 then
      Shape1.FillColor = vbRed
    end if
    if k >= a1 then
      Shape1.FillColor = vbGreen
    end if
    本帖最近評分記錄:
  • 下載積分:+1(vili) 熱心助人

    主站蜘蛛池模板: 久久女同互慰一区二区三区 | 日韩一级免费 | 亚洲砖区免费 | 日韩一区二区三区在线视频观看 | 日本少妇又色又爽又高潮看你 | 国内外免费激情视频 | 青青午夜| 色欲综合久久中文字幕网 | 91精品国产自产在线老师啪 | 免费看成人 | 国产亚洲欧美日韩在线观看一区二区 | 国产偷视频 | 少妇作爱bbbb免费看 | 中国老太婆xxxhd | 国产亚洲精品日韩综合网 | 亚洲自拍偷拍一区二区三区 | 国产精品毛片大码女人 | 久热综合在线亚洲精品 | 狠狠噜天天噜日日噜无码 | 四虎中文字幕 | 精品护士一区二区三区 | 亚洲精品无码一区二区四区 | 精品少妇人妻av无码专区 | 亚洲色噜噜噜在线观看 | 国产a高清| 亚洲国产精品精 | 深夜看免费网站 | 午夜小视频在线观看 | 国产一区二区三区免费在线观看 | 亚洲国产另类久久久精品性 | 农村乱人伦一区二区 | 嫩草视频网站 | 国产精品无码AV天天爽播放器 | 欧美一级播放 | 欧美77 | 国产无遮挡吃胸膜奶免费看 | 国产精品国产三级国产普通话三级 | 免费又黄又爽又猛大片午夜 | 鲁鲁狠狠狠7777一区二区 | 国产九一视频 | 国产AV区男人的天堂 |