1.求vb判断数字区间程序源码
2.äºè¿å¶çåç ãè¡¥ç ãåç 详解
求vb判断数字区间程序源码
Private Sub Command1_Click()
Dim a As Variant, b As Variant
a = Array(0, 3, 4, 5, 9, , , , , , , , , , )
b = Array(1, 2, 6, 7, 8, , , , , , , , )
For i = 0 To UBound(a)
If a(i) = Val(Text1.Text) Then Text2.Text = "第一区间": Exit Sub
Next
For i = 0 To UBound(b)
If b(i) = Val(Text1.Text) Then Text2.Text = "第二区间": Exit For
Next
End Sub
一个按钮 2个text
äºè¿å¶çåç ãè¡¥ç ãåç 详解
计ç®æºä¸ï¼å¹¶æ²¡æåç ååç ï¼åªæ¯ä½¿ç¨è¡¥ç ï¼ä»£è¡¨æ£è´æ°ã
使ç¨è¡¥ç çæä¹ï¼å¯ä»¥æåæ³æè´æ°ï¼è½¬æ¢ä¸ºå æ³è¿ç®ãä»èç®å计ç®æºç硬件ã
ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼
æ¯å¦é表ï¼æ¶é转ä¸åï¼å¨ææ¯ å°æ¶ã
åæ¨ 3 å°æ¶ï¼å¯ä»¥ç¨æ£æ¨ 9 å°æ¶ä»£æ¿ã
9ï¼å°±ç§°ä¸ºï¼3 çè¡¥æ°ã
计ç®æ¹æ³ï¼ï¼3 = 9ã
对äºåéï¼åæ¨ X åï¼å°±å¯ä»¥ç¨æ£æ¨ ï¼X 代æ¿ã
ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼
å¦æï¼éå®äºä¸¤ä½åè¿å¶æ° (0~)ï¼å¨æå°±æ¯ ã
é£ä¹ï¼åä¸ï¼å°±å¯ä»¥ç¨ + 代æ¿ã
ããï¼1 =
ãã + = (1)
忽ç¥è¿ä½ï¼åªå两ä½æ°ï¼è¿ä¸¤ç§ç®æ³ï¼ç»æå°±æ¯ç¸åçã
äºæ¯ï¼ å°±æ¯ ï¼1 çè¡¥æ°ã
å ¶å®è´æ°çè¡¥æ°ï¼å¤§å®¶å¯ä»¥èªå·±æ±ï¼
æ±åºäºè´æ°çè¡¥æ°ï¼å°±å¯ç¨å æ³ï¼ä»£æ¿åæ³äºã
ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼
计ç®æºä¸ä½¿ç¨äºè¿å¶ï¼è¡¥æ°ï¼å°±æ¹ç§°ä¸ºãè¡¥ç ãã
常ç¨çå «ä½äºè¿å¶æ¯ï¼ ~ ã
å®ä»¬ä»£è¡¨äºåè¿å¶ï¼0~ï¼å¨æå°±æ¯ ã
é£ä¹ï¼ï¼1ï¼å°±å¯ä»¥ç¨ = 代æ¿ã
æ以ï¼ï¼1 çè¡¥ç ï¼å°±æ¯ = ã
åçï¼ï¼2 çè¡¥ç ï¼å°±æ¯ = ã
继ç»ï¼ï¼3 çè¡¥ç ï¼å°±æ¯ = ã
ããã
æåï¼ï¼ï¼è¡¥ç æ¯ = ã
计ç®å ¬å¼ï¼è´æ°çè¡¥ç ï¼ï¼è¿ä¸ªè´æ°ã
æ£æ°ï¼ç´æ¥è¿ç®å³å¯ï¼ä¸éè¦æ±è¡¥ç ã
ãããä¹å¯ä»¥è¯´ï¼æ£æ°æ¬èº«å°±æ¯è¡¥ç ã
ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼
è¡¥ç çåºç¨å¦ï¼ 7ï¼3 = 4ã
ç¨è¡¥ç ç计ç®è¿ç¨å¦ä¸ï¼
ãããã7 çè¡¥ç ï¼
ãããï¼3çè¡¥ç ï¼
ï¼ï¼ç¸å ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼
ãããå¾ï¼ãã(1) = 4 çè¡¥ç
èå¼è¿ä½ï¼åªä¿çå «ä½ï¼ä½ä¸ºç»æå³å¯ã
è¿å°±æ¯ï¼ä½¿ç¨è¡¥ç ï¼å æ³å°±ä»£æ¿äºåæ³ã
æ以ï¼å¨è®¡ç®æºä¸ï¼æä¸ä¸ªå æ³å¨ï¼å°±å¤ç¨äºã
åç ååç ï¼é½æ²¡æè¿ç§åè½ã
ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼ï¼
åç ååç ï¼æ¯«æ ç¨å¤ã计ç®æºä¸ï¼æ ¹æ¬å°±æ²¡æå®ä»¬ã