无码精品人妻一区二区三区入口-无码精品人妻一区二区三区夜夜嗨-无码精品人妻一区二区三区颖A片-无码精品日本一区二区桃花岛-无码精品网站-无码精品一

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
謝謝各位了,非常感謝

主站蜘蛛池模板: 四虎黄色影院 | 18禁日本黄无遮挡网站 | 欧美乱大交在线观看 | 国产亚洲日韩欧美色图 | 国产对白精品刺激一区二区 | 一区二区三区国产好的精华液 | 日韩精品视频在线播放 | 久久精品视频全国免费看 | 久久精品一区二区三区毛片网站大全 | 97在线视频人妻无码男人三区免费在线播放天堂97久久 | 国产v片在线播放免费观看大全 | 成人一区天堂老师的秘密中文字幕bd | 成人a片一二三区免费观看乱码小说 | 国产成人人综合亚洲欧美丁香花 | 红桃影院在线免费观看 | 精品国产一区二区三区不卡蜜臂 | 欧美 在线 另类 春色 小说 | 国产a级理论片无码 | 高潮欧美老妇 | 国产女同一区二区在线 | 国产成人va视频在线观看 | 高清性色生活片免费播放网 | 2024国产精品无码 | 国产一区二区三区免费赤裸裸 | 成人午夜特黄AAAAA片男男 | 插老师进去了好大好舒服小说 | 国产欧美日韩精品一区二区三区 | 激情做人爱视频在线观看 | a级片日韩亚洲视频中文版 a级片视频 | 撕开胸罩胸奶头玩大胸动态图片 | 丁香啪啪综合成人亚洲 | 欧美黄无码无遮挡大开眼戒 | 中文无码欧美人妻日韩精品 | 国产亚洲精品久久久久婷婷瑜伽 | 国产一线二线三线www | 国产精品99久久久久久www黄 | 二区三区蜜桃 | 精品福利视频一区二区三区 | 国产人妻一区二区 | 久久青草亚洲av无码麻豆 | 久久久青草青青国产亚洲免观 |