97视频免费观看2区_无码A级毛片免费视频内谢_JAPANESEXXXX日本熟妇伦视频_国产精品主播在线_黄色大片视频观看性感_久久精品国际

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重新編輯 ]
wang115828
學習
級別: 略有小成
精華主題: 0
發帖數量: 96 個
工控威望: 259 點
下載積分: 549 分
在線時間: 49(小時)
注冊時間: 2009-04-07
最后登錄: 2024-07-25
查看wang115828的 主題 / 回貼
1樓  發表于: 2010-04-30 17:15
學習了

主站蜘蛛池模板: 毛片com| 亚洲精品天堂成人片AV在线播放 | 亚洲视频在线播放免费 | 中文字幕亚洲自拍 | 久久国产亚洲高清观看 | 国产伦国产伦老熟300部 | 91九色精品国产一区二区 | 91免费看| 视频一区亚洲 | 河马视频无广告免费追剧软件 | 扒开狂揉难受sm | 亚洲综合精品国产一区二区 | 在线成人爽A毛片免费软件 成年无码AV片在线狼人 | 老司机在线观看免费视频 | 扒开老师裙子狂揉视频 | 中国特级黄色毛片 | 东京热一区二区三区无码视频 | 天天躁日日躁狠狠躁一级毛片 | 国产农村aaaaa特黄a∨毛片 | 久久久久人妻综合免费无码 | 日本AAAAA片爽快免费中国 | 妞干网免费看 | 国产麻豆成人精品av | 欧美国产中文动漫日韩欧美在线 | 少妇午夜啪爽嗷嗷叫视频 | www.日韩精品 | 日韩一区二区国产 | 一二三四在线观看免费中文在线观看 | 全色 图片区小说区偷拍区 超碰97观看 | 亚洲综合av一区 | 中文字幕一区不卡 | 在线免费观看污视频 | 亚洲理论一区 | 男人用嘴添女人下身免费视频 | 扒开双腿狂躁老师爽出白浆视频 | free性chinese台湾videos | 好看的中文字幕第一页 | 黑人啊灬啊灬啊灬快灬深 | 亚洲综合AV永久无码精品一区二区 | 亚洲中文无码永久免弗 | 色情无码初拍人妻 |