国产一区二区三区毛片_亚洲乱码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重新編輯 ]
sjm213
有小知識,無大學問。
級別: 論壇版主

精華主題: 7 篇
發帖數量: 5290 個
工控威望: 7516 點
下載積分: 160824 分
在線時間: 3233(小時)
注冊時間: 2007-11-21
最后登錄: 2025-05-29
查看sjm213的 主題 / 回貼
1樓  發表于: 2010-04-29 23:16
Select Case 結構在滿足第一個條件后就自動跳到End Select。
而你的幾個CASE中有重疊部分,所以只會前者有效。
你可以試一下IF …Then

主站蜘蛛池模板: 上流社会高清免费观看_毛片免费播放_九九99精品视频_亚洲成人免费av_78m国产成人精品视频_国产精品-区区久久久狼_黄色小网站免费_尤物777 | 成人在线观看地址_国产成人AV永久免费观看網站信息!_久久综合久久伊人_久久亚洲一区二区三_91短视频版在线观看高清_免费九九视频_性满足bbwbbwbbw_午夜精品在线免费观看 | 欧美成人精品欧美一级私黄_伦理精品一区二区三精品_黄色一区三区_中文字幕大香视频蕉无码_爱射综合_日韩av午夜_人人弄人人揉人人爱_97青娱国产盛宴精品视频 | 色综合狠狠爱_国产精品又又酱在线午夜_野外少妇愉情中文字幕_在线观看国产精品一区二区_开心五月综合亚洲_一本久久a久久精品亚洲_成人免费在线网_国产精品人妻熟女毛片av久久 | 中国浓毛少妇毛茸茸_中文乱幕日产无线码_日本免费高清线视频免费_欧美在线小视频_久久久久久久久精_精品国产AV一区二区三区_亚洲欧美色αv在线影视_黄色精品免费 | 久久精品视频69_国产精品91在线播放_亚洲综合无码一区二区_中文日韩一区二区_日韩一卡二卡三卡四卡免费观在线_国产a级免费观看_国内精品免费视频自在线拍_久久ク成人精品中文字幕 | 绝顶丰满少妇av无码_国产精品一区欧美_国产精品色哟哟_日韩淫视频_老熟妇仑乱视频一区二区_亚洲欧美中文日韩在线v日本野外_欧美乱偷一区二区三区在线_成人在线观看www | av在线播放天堂_九九天堂_一本色道久久综合亚州精品蜜桃_国产精品精品久久久久久甜蜜软件_久久久无码精品亚洲A片软件_黄色录像一级片儿_日韩精品一区中文字幕_桃色av无码 | 最新免费av在线观看_天天躁躁水汪汪人碰人_说英雄谁是英雄免费观看影视大全_丰满少妇被粗大的猛烈进出视频_亚洲综合久久精品_婷婷亚洲影院_www999久久_成人在线观看日韩 | 456成人影院在线观看_亚洲a毛片_日韩9999_伊人网老司机_一本免费视频_最近高清日本免费_中文字幕一区三级久久日本_国产91精品看黄网站在线观看 | 97超碰中文字幕久久精品_人妻无码中文字幕中出精品_黄色一级片看看_伊波拉病毒黄秋生_欧美亚洲国产成人一区二区三区_法国a级情欲片性船_久久久久91视频_国产精品白丝久久av网站 | 成人青青草_日韩欧美国产综合在线一区二区三区_国精品无码一区二区三区在线蜜臀_色小妹网站_日日搞夜夜操_色综合久久久无码中文字幕_中文字幕一区二区精品区_欧美性猛交XXXX乱大交3 | 无码国产精成人午夜视频不卡_久久成人午夜视频_国产超碰人人爽人人做人人爱_成人av福利_高清久久久久久_亚洲成AV人在线观看天堂无码_久久先锋男人AV资源网站_91在线中文 | 久久久精品有限公司_色噜噜国产精品视频一区二区_国产麻豆精品theporn_黄色1级大片_一及毛片视频_久久精品国产清自在天天线_豆产96豆麻豆_亚洲AV日韩AV一区二区三曲 | 狠狠干夜夜草_www.俺去也.com_亚洲素人一区二区_国产精品一区二区久久精品_四虎影视国产在线视频_日韩在线视频观看_99精品国产高清一区二区三区香蕉_久久97久久97精品免视看 | 思思99热久久精品在线6_久久久网页_精品国产91久久久久久久_精品国产一区二区三区不卡在线_精品亚洲永久免费精品91香蕉国产线_日韩三区免费_日本免费在线看片_91蜜桃婷婷狠狠久久综合9色 | 久久久久久久久久网_精品视频在线免费观看_亚洲av午夜精品无码专区_美女牲交视频一级毛片动态图_亚洲国产成人综合精品_浴室人妻的情欲hd三级国产_涩涩的视频_bbwcuckold精品熟妇 | 久久99精品久久_66亚洲丁香婷婷综合久久_日本精品久久久久中文字幕乱中年_少妇无码AV无码专区_男女啪啪永久免费观看网站_国产精品久久久久野外_欧美国产韩a在线视频_天海翼一区二区三区高清在线 | 中文字幕55页_亚洲国产精品无码久久久五月天_麻豆短视频传媒_免费色视频在线观看_一区二区三区无码免费看_免费一级做a爰片性色毛片_亚洲欧美一级_久久久亚洲蜜桃 | 激情内射亚州一区二区三区爱妻_91成人精品一区二区三区四区_caoporen个人免费公开_男人猛吃奶女人爽视频_欧美人与动牲交A精品_特级西西大胆www147_国产一级毛片黄片_玖玖精品在线 | 国产a∨国片精品jk制服_亚洲大片免费_欧美视频在线观看不卡_大陆av在线_91一区二区国产_136fldh福利免费视频观看_伊人91在线_又黄又爽又色又刺激的视频 | 亚洲av网站_人人干日日_44444kk在线观看三免费_亚洲啪啪av_专干老熟女视频在线观看_国产孕妇a片全部精品_99热爱久久99热爱九九热爱_三级黄在线观看 亚洲精品久久久蜜桃网尤妮丝_日日日日日_亚洲一区h_国产网站在线免费观看_精品999日本久久久影院_女教师在办公室被强在线播放_在线视频久_夜夜骑天天射 | 国产综合亚洲精品一区二_久久天天躁夜夜躁狠狠躁2024_亚洲AV无码成人黄网站在线观看_亚洲精品一区人人爽_国产精品国内免费一区二区三区_日本一本区_韩国av在线播放_欧美人与动欧交视频 | 91综合视频在线观看_免费人妻av无码专区_jlzzjlzz国产精品久久_狠狠躁夜夜躁人人爽天天古典_黑人与中国女一级毛片不卡_少妇的肉体aa片在线观看_亚洲国产精品一区在线观看_就要干就要操就要日 | 另类激情五月_中文天堂在线观看视频_视频一区二区免费_久久久久蜜桃精品成人片公司_精品成人无码A片观看香草视频_亚洲3atv精品一区二区三区_午夜男人网站_国产精品浓毛一区二区三区 | 九色亚洲_国产色a_日本高清免费在线_77成人影院_中文字幕日本人妻久久久免费_绯色av蜜臀av_色999日韩_中国丰满少妇熟乱xxxx | 亚洲午夜视频在线观看_欧美日本免费一区二区三区_99久久99这里只有免费费精品_色婷婷美国农夫综合激情亚洲_仁科百华av解禁在线播放_精品欧美一区二区精品久久久_99久久精品视频免费_www.youjizz.com中国 | 色欲色欲久久综合网_人妻暴雨中被强制侵犯在线_亚洲国产AⅤ综合网_狠狠色综合播放一区二区_久久精品久久精品久久39_午夜一级做a爰片久久毛片_久久重口味视频_国产最新毛片 | 尤物视频在线观看_国产一区欧美_日韩三级av高清片_亚洲18页_久久一区二_精品这里只有精品_亚洲国产精品视频一区二区三区_人妻少妇精品一区二区三区 | 午夜精品福利影院_粉嫩呦福利视频导航大全_国产一区在线免费_超碰在线观看97_年轻的秘书4在线观看_成年人免费观看在线视频_免费无码AV一区二区三区_精品国产乱码久久久久久软件影片 | 黑人巨茎精品欧美一区二区_小情侣高清国产在线播放_亚洲区欧美区综合区自拍区_视频一区中文字幕_超碰caoporn久久_亚洲AV成人无码网站在线_国产精品丝袜高跟鞋_九一精品在线观看 | 亚洲国产成人av_91干干_色欲AV无码无在线观看_2018高清一道国产_亚洲综合日韩a无码毛片_欧美高清精品一区二区_五月丁香激激情亚洲综合_国产精品情侣 | 国产无遮挡一区二区三区_久久丝袜美腿_久久人人爽人人人澡A片_成人爱做日本视频免费_亚洲天堂2021av_久久成人18免费网站_91九色夫妻_欧美日韩成人在线播放 | jizz18欧美18_国产精品99久久久久久久久久_国外亚洲成av人片在线观看_三叶草欧码成人毛片_亚洲人影院_国产一区二区三四区_粉嫩高中生无码视频在线观看_日本A∨精品一区二区三区 | 日韩毛片免费无码无毒视频观看_久久在线视频精品_欧美成a人片_任我爽在线视频_亚洲色成人网一二三区_在线观看免费观看电视_青草久草_亚洲AV无码国产剧情 | 国产精品高潮呻吟久久久久_中日AV高清字幕版在线观看_一级美国毛片_久久精品国产亚洲精品_国产1区2区3区在线观看_国产一卡二卡新区在线_国产精品美女久久久久av超清_亚洲一区日韩精品 | 国产精品国产精品国产专区不卡_欧美精品人人做人人爱视频_aa亚洲一区一区三区_一级黄色片在线播放_av中文精品无码在线不卡_在线中文日韩_日韩免费_久久久精品美女 | jizz18欧美18_国产精品99久久久久久久久久_国外亚洲成av人片在线观看_三叶草欧码成人毛片_亚洲人影院_国产一区二区三四区_粉嫩高中生无码视频在线观看_日本A∨精品一区二区三区 | 婷婷亚洲精品久久无码一区二区三区_久久成人毛片_久久久亚洲高清_澳门午夜影院_久久ww_奇米五月_无码免费在线观看小视频_亚洲一区二区毛片 | 久久人人爽人人爽人人片av高清_国产九九九精品_视频一区二区三区在线_艹逼逼网站_新版天堂资源在线_日本精品视频一区二区三区_色婷婷xxx_四虎视频影院www1515 | 久久久久无码国产精品一区_日本有色视频_久久666_久久在线免费观看_欧美精品一区二区三_国产精品呻吟_狠狠综合网_欧美色欧美亚洲高清在线视频 |