成人免费AA片在线观看-成人免费a级毛片-成人免费a级毛片无码片2022-成人免费a级毛片无码网站入口-成人免费ā片在线观看-成人免费a视频

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í)了

手机看片久久国产免费 | 亚洲国产成人精品女人久久久 | 日本极品少妇videossexhd 国产精品久免费的黄网站 欧美成人精品三级网站 | 国产在线不卡一区二区三区 | 国产精品视频一区二区三区不卡 | 美国大片成人性网 | 中文字幕人妻丝袜成熟乱 | 国内精品视频一区二区三区八戒 | 人妻激情偷乱视频一区二区三区 | 久久国产精品一国产精品 | 欧美jizzhd精品欧美 | 毛片线看免费观看 | 在线观看亚洲av每日更新 | 2021国产精品视频网站 | 欧美午夜刺激影院 | 在线观看免费人成视频 | 精品爆乳一区二区三区无码av | 中文字幕在线日亚州9 | 免费极品av一视觉盛宴 | 久久久国产乱子伦精品 | 九九精品视频一区二区三区 | 麻豆蜜桃av蜜臀av色欲av | 色欲一区二区三区精品a片 久久人妻少妇嫩草av蜜桃 | 国产在线视频区 | 精品国产a∨无码一区二区三区 | 国内老熟妇对白xxxxhd | a久久久久一级毛片护士免费 | 无码无套少妇毛多18pxxxx | 国产一级高清免费观看 | 大肉大捧一进一出好爽视频动漫 | 极品美女扒开粉嫩小泬图片 | 免费无码又爽又刺激高潮视频 | 国产一级一片免费播放视频 | 亚洲欧美日韩精品久久 | 亚洲中文字幕精品久久 | 91网址在线播放 | 99精品国产自在现线观看 | 91全国探花精品正在播放 | 亚洲色偷偷色噜噜狠狠99 | 囯产精品一品二区三区 | 91在线视频在线观看 |