成人免费AA片在线观看-成人免费a级毛片-成人免费a级毛片无码片2022-成人免费a级毛片无码网站入口-成人免费ā片在线观看-成人免费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
謝謝各位了,非常感謝

成人午夜福利视频后入 | 999精品在线视频 | 精品福利一区二区三区免费视频 | 国产精品免费观看久久 | 福利片一区二区 | 成人午夜看片在线观看 | 无码手机线免费观看 | 国产老熟妇精品观看 | 96色视频 | а√资源新版在线天堂 | 国产日产精品一区二区三区四区的特点 | 亚洲无av在线中文字幕 | 久久人妻少妇嫩草av | 一本色道久久99一综合 | 丰满五十六十老熟女hd | 精品一区二区三区在线视频 | 内射无码专区久久亚洲 | 高中生粉嫩无套第一次 | 日韩精品射精管理在线观看 | 国产成人+亚洲欧洲 | 国产精品二区一区二区aⅴ污介绍 | 日日噜噜夜夜狠狠久久丁香五月 | 国产精品对白刺激久久久 | 狠狠色综合7777久夜色撩人 | 大地资源网在线观看免费官网 | 亚洲www啪成人一区二区麻豆 | 狠狠大日本亚洲香蕉亚洲 | 精品+无码+在线观看 | 国产对白国语对白 | 中文字幕色av一区二区三区 | 国产日产欧产精品精品软件 | 国产精品一区二区久久精品 | 久久草视频在线 | 成人做受视频试看60秒 | 亚洲av综合色区无码专区桃色 | 国产精品拍拍拍福利在线观看 | 伊人狠狠色丁香婷婷综合 | 天天躁夜夜躁狠狠是什么心态 | 国产欧美日韩免费一区二区 | 国产精品久久一区二区三区 | 熟妇人妻无码中文字幕 |