三a级做爰片免费观看玉蒲团,伊人久久亚洲综合av影院,午夜永久免费爽爽爽影院,西川唯久久久久久久综合

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
我寫的程序存在的問(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重新編輯 ]
ydp
級(jí)別: *
精華主題: * 篇
發(fā)帖數(shù)量: * 個(gè)
工控威望: * 點(diǎn)
下載積分: * 分
在線時(shí)間: (小時(shí))
注冊(cè)時(shí)間: *
最后登錄: *
查看ydp的 主題 / 回貼
1樓  發(fā)表于: 2010-04-30 12:24
問(wèn)題找到了,a1 = Val(Text1.Text),這樣的寫法,是取整數(shù),而且 你設(shè)置的是有小數(shù)點(diǎn)
本帖最近評(píng)分記錄:
  • 下載積分:+1(vili) 熱心助人
    ydp
    級(jí)別: *
    精華主題: * 篇
    發(fā)帖數(shù)量: * 個(gè)
    工控威望: * 點(diǎn)
    下載積分: * 分
    在線時(shí)間: (小時(shí))
    注冊(cè)時(shí)間: *
    最后登錄: *
    查看ydp的 主題 / 回貼
    2樓  發(fā)表于: 2010-04-30 12:25
    兩種解決問(wèn)題,一就,你把所有數(shù)據(jù)都變大100倍,不要小數(shù)(好多似類的數(shù)量都是這樣數(shù))
    本帖最近評(píng)分記錄:
  • 下載積分:+1(18063219)
  • 下載積分:+1(vili) 熱心助人
    ydp
    級(jí)別: *
    精華主題: * 篇
    發(fā)帖數(shù)量: * 個(gè)
    工控威望: * 點(diǎn)
    下載積分: * 分
    在線時(shí)間: (小時(shí))
    注冊(cè)時(shí)間: *
    最后登錄: *
    查看ydp的 主題 / 回貼
    3樓  發(fā)表于: 2010-04-30 12:26
    另外一種就,你把字符串,轉(zhuǎn)為FU點(diǎn)數(shù)
    ydp
    級(jí)別: *
    精華主題: * 篇
    發(fā)帖數(shù)量: * 個(gè)
    工控威望: * 點(diǎn)
    下載積分: * 分
    在線時(shí)間: (小時(shí))
    注冊(cè)時(shí)間: *
    最后登錄: *
    查看ydp的 主題 / 回貼
    4樓  發(fā)表于: 2010-04-30 12:33
    Dim a1 As Double
    Dim a2 As Double
    Dim K as double //定義水位
    a2 = CDbl(Text1.Text)
    a2 = CDbl(Text1.Text)
    k = CDbl(水位的字符串)
    if k <= a2 then
      Shape1.FillColor = vbRed
    end if
    if k >= a1 then
      Shape1.FillColor = vbGreen
    end if
    本帖最近評(píng)分記錄:
  • 下載積分:+1(vili) 熱心助人

    天堂网亚洲系列亚洲系列| 久久人久久人久久人久久| 洪真英av韩国精品三级| 成人欧美日韩天堂高清性| 高潮喷吹无码电影www| 产后52天有黄色分泌物| 精品国产三级片| 亚洲男人天堂在线视频观看| 日本骚妇大嫩阴蒂18P| 在线成人A毛片免费播放| 韩国三级2828理论电影| 老司机精品视频免费网址| 日韩欧美好看的剧情片免费| 91麻豆精品国产自产在线| 大鸡巴插B视频| 黑鸡巴搞逼欧美| 骚逼 母狗 日本 内射| 激情五月天 欧美 国产| 日韩中文字幕第一页在线| 紧身牛仔裤少妇一区二区| 成人 在线 综合 视频| 亚洲天天堂天堂激情性色| 国产三级小视频在线观看| 白日美人无删减完整视频 | 落后的欧洲和先进的亚洲| 丁香与公丁香有什么区别| 看啪逼淫秽视频| 美少妇嫩穴视频| 卡通动漫亚洲综合第1页| 美女被黑人肏到高潮视频| 久久久久99精品成人品| 被大鸡吧插进逼里操视频| 少妇毛又多又黑又大又粗| 哪里有免费看的黄片少妇| 日本专区一区二区三区在线| 国产亚洲精品一区二区不卡| 国产人妻宾馆与情人在线| XXX中国肥老太XXX| 网友自拍偷拍区日韩欧美| 加勒比中文字幕在线播放| 国内精品伊人久久久久妇|