国产一区二区三区毛片_亚洲乱码AV中文一区二区_亚洲精品无码专区在线播放_日韩欧美一二_咪咪av影院_欧久久av一区二区

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) 熱心助人

    主站蜘蛛池模板: 丁香婷婷六月综合交清_素人视频在线观看免费_亚洲精品国精品久久99热一_亚洲AV无码无在线观看_亚洲AV无码片一区二区三区_任你操免费视频_亚洲av日韩av天堂久久_色欲天天婬色婬香视频综合网 | a级片免费观看_福利视频一二三在线观看_97色伦午夜国产亚洲精品_国产精品观看_亚洲乱码中文字幕综合234_91看片成人_年轻的朋友hd中字_久久地址 | 午夜精品中文字幕_贪婪欲望之岛在线播放_爱情岛亚洲AV永久入口首页_免费看黄视频在线_亚洲国产A∨无码中文777_中文字字幕码一二区_国产精品亚洲а∨天堂网_国产明星裸体无码XXXX视频 | 国产激情福利_在线观看国产91_国产欧美日韩一区二区三区_国产日韩欧美二区_在人线AV无码免费高潮喷水_少妇一级淫片免费播放_臀蜜av_国产乱码高清区二区三区在线 | 亚洲一区二区三区_成人天堂视频在线观看软件_久久婷婷婷_天天综合色天天_欧美一级片毛片免费观看视频_丰满美女一级毛片_人人干人人舔_九九热国产 | 久久99精品波多结衣一区_国产成人精品一区二三区熟女在线_欧美日韩国产精品成人_性色AV网站_亚洲精品久久久久久久不卡四虎_免费观看成人38网站_国产极品粉嫩福利在线观看_精品裸体舞av | 亚洲欧洲久久av_极品美女国产精品免费一区_老司机网站免费_免费视频入口_人妻网站成熟人妻VA网站_福利视频网站_亚洲天堂第一区_男人粗大一进一出视频 | 亚洲AV无码专区国产乱码京东传媒_色一情一乱一乱一区91Av_av免费在线观看网址_中文字幕精品—区二区_AAA级黄色视频_日本视频一二三区_强行糟蹋人妻HD中文_精品一区2区三区 | 亚洲中文无码成人片在线观看_在线第一页_啊片网站在线观看_香蕉久久影院精品欧美日韩_国产精品中文字幕在线播放_日韩免费在线视频_国产资源久久_成人a片产无码免费视频在线观看 | 日韩精品A片一区二区三区_国产极品粉嫩福利姬萌白酱_国产欧美在线高清_国产青草亚洲香蕉精品久久_天天综合亚洲综合网天天αⅴ_久久综合伊人_人妻精品久久久久中文字幕_欧美日韩网 | 香蕉久久夜色精品国产_亚洲女人被黑人巨大进入_6969视频_综合色久_国产乱对白刺激视频_中文无码一区二区视频在线播放量_性爱视频在线免费_欧美特黄色片 | 成人99一区二区激情免费看_中文字幕乱老妇女一视频_久久网站视频_天天摸夜夜添久久精品_日本深夜福利视频_亚洲日本精品一区二区三区_高h视频在线免费观看_88av导航 | 在线观看免费观看视频_免费理论片手机在线播放_99久久精品费精品国产一区二_日韩一欧美内射在线观看_久草色在线_国产精品乱码一区二区三区四川人_日日草夜夜爽_国产成人免费视频网站视频社区 | 色欲色欲久久综合网_人妻暴雨中被强制侵犯在线_亚洲国产AⅤ综合网_狠狠色综合播放一区二区_久久精品久久精品久久39_午夜一级做a爰片久久毛片_久久重口味视频_国产最新毛片 | se94se欧美_九一在线看_亚洲男女自偷自拍_日韩精品一区二区三区乱码_日韩人妻无码精品系列_天天热天天干_蜜桃免费视频_性视频1819p久久 | 国产精品久久久久影院嫩草_91免费小视频在线观看_jj视频在线播放_97人摸人人澡人人人超一碰_久久精品无码专区免费_黄色av网址大全_亚洲乱色伦图片区小说_97免费人妻无码视频 | 日韩视频三区_色天天爱天天狠天天透_99精品成人_在线观看欧美一级_四虎影院观看视频在线观看_91伦理在线_亚洲AV无码久久_91最新 | 国产69精品久久99不卡的观看体验_一区二区视频网_精久久久久久久_综合激情六月_操操操操操操操_麻豆播放器_久久99久久精品视频_亚洲中文字幕成人无码 | 欧亚一级片_亚洲成人av免费在线观看_亚洲人成网亚洲欧洲无码_国产一级二级在线_狼群社区视频www_超碰免费在线97_青青午夜_国产成人无码A区在线观看导航 | 日韩美a一级毛片国产_91视频官网_JAPAN少妇洗澡VIDEOS_黄色一级视频在线观看_天天干天天操天天搞_亚洲成a人蜜臀av在线播放_777奇米888色狠狠俺也去_99久久精品毛片免费播放高清 | 国色天香2019中文字幕在线观看_亚洲AV无码传区国产乱码O_97在线免费公开视频_熟女无套高潮内谢吼叫_国产精品嫩草影院入口一二三_国产亚洲欧美日韩精品一区二区三区_乱色欧美激情亚洲欧美激情_四虎在线免费观看视频 | 亚洲乱亚洲乱妇19p_色肉色伦交国产69精品_欧洲吸奶大片在线看_四虎免费看黄_国产人妻精品午夜福利免费_在线观看免费视频精品_黄网www_婷婷91 | 一本大道香蕉大在线中文_国产精品久久久久久妇_天天干天天爱天天_18禁美女黄网站色大片在线_98超碰人人_国产丝袜av一区二区三区性色_av毛片无码中文字幕不卡_一区二区三区产品免费精品久久75 | 色吊丝永久性观看网站_JULIAANN熟女俱乐部_国产精品无码专区在线播放_午夜精品久久久_宅男视频免费在线观看视频_欧美成人a视频_91成人免费视频_青草久久网 | 国产高清免费在线_国产美女久久久久_毛片在线不卡_亚洲在线一区二区_超碰免费视_24小时日本在线视频_国产啪视频1000部免费_精品国产一区二区三区四区阿崩 | 色播在线播放_婷婷成人五月天开心激情_国产一区日韩精品_日本人做爰大片免费网站_青青草手机视频在线观看_色xx综合网_色婷婷综合成人av_国产一级毛片国语一级 | 午夜精品福利影院_粉嫩呦福利视频导航大全_国产一区在线免费_超碰在线观看97_年轻的秘书4在线观看_成年人免费观看在线视频_免费无码AV一区二区三区_精品国产乱码久久久久久软件影片 | 久久天天躁狠狠躁夜夜97_午夜福利免费a片在线观看无码_日本乱人伦片中文三区_韩日自拍_夜夜爽夜夜叫夜夜高潮漏水_日本a在线_女人把腿张开男人来桶_夜色导航 | 高清不卡免费视频_猛烈顶弄H禁欲老师H春潮视频_国产老肥熟精品大全_亚洲欧美成人a毛片_亚洲精品在_第一区免费在线观看_免费国产自久久久久三四区久久_亚洲男人的天堂网 | 年轻的秘书在线观看_国产又粗又大又黄_国产精品小视频网站_极品美女无套啪啪_精品久久久久久国产牛牛_无码中文字幕AⅤ精品影院_天天操天天玩_少妇大叫太大太粗太爽了A片软件 | A天堂最新版在线中文_亚洲永久免费视频_精品一区二区三人妻视频_丁香五月网久久综合_网站一级片_男人用嘴添女人私密视频软件_久久不射国产精品_国产精品久久久久99 | 久久国产欧美一区二区_人禽l交免费视频_一色屋精品视频在线观看免费_99久久久无码国产精品免费蜜柚_xxxx欧美丰满大屁股free_人人插人人干_免费在线观看高清视频网站_丰满少妇大尺度慢摇 | 午夜精品久久久内射近拍高清_三级久久久久久久久高潮_在线免费观看av网址_免费国产在线观看_日本熟妇中文字幕三级_国产免费让你躁在线视频_奇米视频888_麻豆午夜影院 | 无套日出白浆17p_1717国产精品久久_www.com久久_欧亚免费视频_清纯唯美一区二区三区_可以在线看的av_久久中文精品视频_9久久婷婷国产综合精品性色 | 尤物视频在线观看_国产一区欧美_日韩三级av高清片_亚洲18页_久久一区二_精品这里只有精品_亚洲国产精品视频一区二区三区_人妻少妇精品一区二区三区 | 国产精品国产三级国产av′_www国产精品_www.精品视频_奇米在线7777在线精品_性生交裸片免费看_91爱观看在线_夜夜草影院_中文字幕亚洲日本 | 超国产女人高潮a片免费视频_91免费视频播放_狠狠综合久久综合88亚洲爱文_国产精品久久人妻无码免费看_www.com色_少妇借种高潮了_久久久久亚洲AV成人无码_大尺度吃奶摸下激烈视频 | av大片免费在线观看_精品熟人一区二区三区四区_热久久久久久久_日本一二三区在线_日日噜噜噜夜夜爽爽狠狠照片_成年免费A级毛片无码_色5月婷婷丁香六月_国产激情欧美 | 51免费看成人啪啪片_亚洲国产二区三区_亚洲精品乱码_亚洲AV无码国产成人_免费观看一二区视频网站_伊人av成人_人妻精品动漫h无码中字_久久极品视频 | 亚洲超碰97人人做人人爱_国产精品日日做人人爱_久久精品夜色国产亚洲av_人妻体内射精一区二区_久久久精品波多野结衣_最新91在线视频_久久9色_国产成视频在线观看 | 国产亚洲精品无码拍拍拍色欲_国产成年视频_永久免费的网站_韩国禁欲贪婪之岛中文版_一级片免费在线_国产一级影片_欧美日韩亚洲国产综合乱_日韩在线视频网 |