东京热无码人妻系列综合网站_国产精品性色一区二区三区_网站大全免费网站_又爽又黄无遮拦成人网站_黄色影院免费观看_奇米影视在线观看

18063219
級別: *
精華主題: * 篇
發(fā)帖數(shù)量: * 個
工控威望: * 點
下載積分: * 分
在線時間: (小時)
注冊時間: *
最后登錄: *
查看18063219的 主題 / 回貼
樓主  發(fā)表于: 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顯示正常,其余兩個顯示綠色沒問題,但若要顯示紅色不能顯示,任然是綠色,不發(fā)生變化。
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重新編輯 ]
18063219
級別: *
精華主題: * 篇
發(fā)帖數(shù)量: * 個
工控威望: * 點
下載積分: * 分
在線時間: (小時)
注冊時間: *
最后登錄: *
查看18063219的 主題 / 回貼
1樓  發(fā)表于: 2010-05-06 08:54
謝謝各位了,非常感謝

主站蜘蛛池模板: 午在线亚洲男人午在线 | 国产欧美久久精品 | 亚州中文无码aⅤ在线 | 亚洲第六页| 日处女视频 | 国产精品视频一区二区三区四 | 擼擼色在线看观看免费 | 久久久精品2020免费观看 | 99精品国产免费久久久久久按摩 | 经典av在线播放 | 97少妇无码视频在线播放 | 日韩天天操 | 久久天天免费天天免费 | 免费一级毛片观看 | 网络色综合久久 | 国产91精品无码麻豆 | 国产一级内谢一级一内高请 | 国产在线播放一区 | 一级少妇淫片免费播放观看 | 国产1级| 99最新在线视频 | 久久九九99 | 日韩一区二区三区无码免费视频 | 亚洲国产精品成人va在线观看 | 亚洲a成人 | 精精精精xxxx免费视频 | 国产黄色a级毛片 | 日日摸日日碰人妻无码老牲 | 视频精品一区 | 国产精品色欲AV蜜臀麻豆 | 特级欧美牲交a欧美在线 | 91欧美一区二区三区成人 | 国产成人精品午夜片在线观看 | 成人性做爰 | 国产乱淫av公 | 99久久久无码国产精品性色戒 | 久久99精品久久久久久按摩秒播 | 国偷自产视频一区二区久 | 欧美日韩精品久久久免费观看 | 日韩激情无卡视频在线观看 | 国产日韩欧美视频在线观看 |