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

18063219
級(jí)別: *
精華主題: * 篇
發(fā)帖數(shù)量: * 個(gè)
工控威望: * 點(diǎn)
下載積分: * 分
在線時(shí)間: (小時(shí))
注冊(cè)時(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
我寫(xiě)的程序存在的問(wèn)題:shape1顯示正常,其余兩個(gè)顯示綠色沒(méi)問(wèn)題,但若要顯示紅色不能顯示,任然是綠色,不發(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重新編輯 ]
wang115828
學(xué)習(xí)
級(jí)別: 略有小成
精華主題: 0
發(fā)帖數(shù)量: 96 個(gè)
工控威望: 259 點(diǎn)
下載積分: 549 分
在線時(shí)間: 49(小時(shí))
注冊(cè)時(shí)間: 2009-04-07
最后登錄: 2024-07-25
查看wang115828的 主題 / 回貼
1樓  發(fā)表于: 2010-04-30 17:15
學(xué)習(xí)了

主站蜘蛛池模板: 777爽死你无码免费看一二区 | 国产精品一区自拍 | 亚洲国产精品嫩草影院久久 | 99热久久精品免费精品 | 99视频国产热精品 | 成人免费a级毛片无码片在线播放 | 国产午夜精品一区二区三区小说 | 天天色宗合 | 久久午夜福利免费无码 | 国产精品二区二区三区 | av最新在线观看 | 国产高清成人在线观看 | 黄色免费观看视频网站 | 草草影院精品一区二区三区 | 欧美成人一区亚洲一区 | 三级国产三级在线 | 日韩欧美一区二区三区不卡视频 | 久久这里只有精品视频99 | 成人一级毛片 | 亚洲成a人片7777网站 | A级国产大片在线免费观看 色视频一区二区 | 狠狠干天天操 | 51ⅴ精品国产91久久久久久 | 国产亚洲精品一区二区三区 | 国产超碰人人做人人爰 | 精品无码中出一区二区 | 国产精品丝袜 | 久久免费看少妇高潮V片特黄 | 日本最新一区二区 | 国语av在线 | 免费观看电视在线高清视频大全 | 北条麻妃一区二区免费播放 | 久久久久久久中文字幕 | 亚洲精品二三区 | 国产交换一区二区三区 | 精品一区二区久久久久久按摩 | 国产精品白浆无码流出免费看 | 亚洲永久字幕 | 草的我好爽视频 | 久久91精品国产一区二区三区 | 污污的网站免费在线观看 |