伊人激情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
我寫(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重新編輯 ]
sjm213
有小知識(shí),無(wú)大學(xué)問(wèn)。
級(jí)別: 論壇版主

精華主題: 7 篇
發(fā)帖數(shù)量: 5291 個(gè)
工控威望: 7517 點(diǎn)
下載積分: 161348 分
在線時(shí)間: 3238(小時(shí))
注冊(cè)時(shí)間: 2007-11-21
最后登錄: 2025-07-10
查看sjm213的 主題 / 回貼
1樓  發(fā)表于: 2010-04-29 23:16
Select Case 結(jié)構(gòu)在滿足第一個(gè)條件后就自動(dòng)跳到End Select。
而你的幾個(gè)CASE中有重疊部分,所以只會(huì)前者有效。
你可以試一下IF …Then
ydp
級(jí)別: *
精華主題: * 篇
發(fā)帖數(shù)量: * 個(gè)
工控威望: * 點(diǎn)
下載積分: * 分
在線時(shí)間: (小時(shí))
注冊(cè)時(shí)間: *
最后登錄: *
查看ydp的 主題 / 回貼
2樓  發(fā)表于: 2010-04-30 12:24
問(wèn)題找到了,a1 = Val(Text1.Text),這樣的寫(xiě)法,是取整數(shù),而且 你設(shè)置的是有小數(shù)點(diǎn)
本帖最近評(píng)分記錄:
  • 下載積分:+1(vili) 熱心助人
    ydp
    級(jí)別: *
    精華主題: * 篇
    發(fā)帖數(shù)量: * 個(gè)
    工控威望: * 點(diǎn)
    下載積分: * 分
    在線時(shí)間: (小時(shí))
    注冊(cè)時(shí)間: *
    最后登錄: *
    查看ydp的 主題 / 回貼
    3樓  發(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的 主題 / 回貼
    4樓  發(fā)表于: 2010-04-30 12:26
    另外一種就,你把字符串,轉(zhuǎn)為FU點(diǎn)數(shù)
    ydp
    級(jí)別: *
    精華主題: * 篇
    發(fā)帖數(shù)量: * 個(gè)
    工控威望: * 點(diǎn)
    下載積分: * 分
    在線時(shí)間: (小時(shí))
    注冊(cè)時(shí)間: *
    最后登錄: *
    查看ydp的 主題 / 回貼
    5樓  發(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) 熱心助人
    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的 主題 / 回貼
    6樓  發(fā)表于: 2010-04-30 17:15
    學(xué)習(xí)了
    vili
    級(jí)別: *
    精華主題: * 篇
    發(fā)帖數(shù)量: * 個(gè)
    工控威望: * 點(diǎn)
    下載積分: * 分
    在線時(shí)間: (小時(shí))
    注冊(cè)時(shí)間: *
    最后登錄: *
    查看vili的 主題 / 回貼
    7樓  發(fā)表于: 2010-05-02 07:53
    就例如,C水位,
    如果當(dāng)前水位在13.5-14之間,你如何顯示??顯示綠色,還是紅色,這個(gè)在你上面的程序沒(méi)有處理。
    18063219
    級(jí)別: *
    精華主題: * 篇
    發(fā)帖數(shù)量: * 個(gè)
    工控威望: * 點(diǎn)
    下載積分: * 分
    在線時(shí)間: (小時(shí))
    注冊(cè)時(shí)間: *
    最后登錄: *
    查看18063219的 主題 / 回貼
    8樓  發(fā)表于: 2010-05-06 08:54
    謝謝各位了,非常感謝

    韩国三级电影姐姐的朋友| sm调教骚逼性奴动态图| 大鸡巴操小骚逼喷水视频| 日韩欧美亚洲香蕉七次郎| 福利姬喷水网站在线观看| 人妻熟女高跟丝袜呻吟啪啪| 成人黄色免费网站app| 欧美多人玩3p视频一区| 操大美女的好看的屄屄网| 国模大尺度一区二区91| 国产大屁股喷水视频在线| 国产精品欧美日韩区二区| 大鸡巴抽插小嫩逼的视频| 欧美色欧美亚洲国产熟妇| 97热这里只有精品国产| 五月婷婷六月丁香综合网| 又粗又大整进去好爽视频| 91精品福利大全在线观看| 大鸡巴操逼装的好满视频| 同房后下体出现黄色分泌物| 亚洲M√高清砖码202| 国产九九九视频在线观看| 久久久久久精品免费毛片| 东京热无码人妻一区二区| 嗯嗯嗯啊啊啊爽啊啊啊啊| 欧美一级黄片在线观看视频| 国产超碰人人做人人爱va| 天天日天天干天天爽天天| 狠狠综合欧美综合欧美色| 久久综合色——综合88| 国产男吸女网站| 欧美40岁熟妇大白屁股| 日日骚网址最新日骚网址| 美国三级吃奶水电影在线| 操操逼逼黄色网站性凌辱| 扣大逼操老逼日小逼视频| 亚洲xxxxx熟妇亚洲| 日本一区日本二区日本三区| 办公室被绑奶头调教羞辱| 性感少妇翘屁股逼逼视频| 91人妻九色porny|