久久精品人成免费_国产精品久久久久久久白皙女_一级片播放_日韩欧美在线免费_亚洲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重新編輯 ]
18063219
級別: *
精華主題: * 篇
發帖數量: * 個
工控威望: * 點
下載積分: * 分
在線時間: (小時)
注冊時間: *
最后登錄: *
查看18063219的 主題 / 回貼
1樓  發表于: 2010-05-06 08:54
謝謝各位了,非常感謝

主站蜘蛛池模板: 日本潮喷videos | 国产国拍精品亚洲A片男同 18禁美女裸体爆乳无遮挡 | 亚洲色成人网一二三区 | 一本大道大臿蕉无码视频 | 1区2区3区视频| 成人性生交大片免费 | 久久老子午夜精品无码怎么打 | 一区日韩在线 | 中国丰满少妇人妻XXX性董鑫洁 | 欧美精品1区2区 | 免费无遮挡男女视频 | 亚洲欧洲日韩国内高清 | 日韩美一区二区 | 99久久综合狠狠综合久久止 | 亚洲最大无码AV网址 | 少妇激情AV一区二区三区 | 亚洲日韩精品A∨片无码加勒比 | 成人欧美一区二区三区1314 | 日日草av| 国产精品拍自在线观看 | 亚洲国产欧美日韩在线精品一区 | 亚洲欧美婷婷五月色综合 | 色综合伊人色综合网站 | 国产精品久久久久久久久久尿 | 精品无码一区二区三区 | 色老头在线一区二区三区 | 国产一区日韩在线 | 国产V在线最新观看视频 | 国产一级片一区二区 | 看亚洲一级毛片 | 就去色播 | 国产精品偷伦免费视频观看的 | 欧美日韩亚洲另类 | 大地资源第一在线 | 亚洲成在人线aⅴ免费毛片 久中文字幕 | 啊轻点内射在线视频 | 欧美性猛交xxx嘿人猛交 | 精品视频免费观看 | 久色网站 | 视频在线观看入口黄最新永久免费国产 | 亚洲国产精品SSS在线观看AV |