VB程式中 X小於 8,輸出1 X大於 8且小於0,輸出2 X大於0且小於8,輸出3 X大於8,輸出4。拜謝

時間 2021-10-30 05:55:30

1樓:然後去遠足

private sub form_load()me.show

dim x as integer

x = inputbox("請輸入數字:")if x < -8 then

print "1"

else if x >= -8 and x < 0 thenprint "2"

else if x >= 0 and x < 8 thenprint "3"

else

print "4"

end if

end sub

2樓:網海1書生

if x<-8 then

y=1elseif x<0 then '注意,由於x<-8的情況已經在上面排除了,所以這裡就不需要加x>=-8了,下同

y=2elseif x<8 then

y=3else

y=4end if

或者:y=iif(x<-8,1,iif(x<0,2,iif(x<8,3,4)))

另外,由於textbox文字框控制元件的text屬性是字元型別,當它與數值進行比較時,要先轉為數值在進行比較,比如:

if val(text1.text) < -8 then

你的**中,有三個if,卻只有兩個end if,所以就錯了。建議你要養成良好的書寫**習慣,就是要注意同一結構的**要縮排,比如:

for i = 1 to 9

if .... then

.....

else

if .... then

....

else

if .... then

....

else

....

end if

end if

end if

next i

這樣的話你少寫了什麼就能一眼看出來(比如少了一個end if,那麼最後面的next i就不可能跟for對齊了)。

3樓:難得糊塗

追問回答:

if txterror(i).text

是字元比較應該改為

if val(txterror(i).text)轉換為數字比較。

c++編寫程式用牛頓迭代法求一元方程5x^3—3x^2+2x—8=0 在x=1.1附近的根要求的精

4樓:

#include "iostream"

#include "math.h"

using namespace std;

typedef double (*func) (double);

double y(double x)

double dy(double x)

double newton(double x, func fy, func fdy)  while  (fabs(x-x0) > 1e-6);

return x0;

}int main()

5樓:匿名使用者

#include "stdafx.h"

#include "iostream"

#include "math.h"

using namespace std;

int _tmain(int argc, _tchar* ar**){double x = 1.1;

while(fabs(5*x*x*x-3*x*x+2*x-8)>0.000001)

x = x - (5*x*x*x-3*x*x+2*x-8)/(15*x*x-6*x+2);

cout<<"方程的解為"<

vb中當text1中接收到的資料大於30小於150時顯示在text2,等於0顯示在text3,大於0小於20顯示在text4

6樓:匿名使用者

**如下:

private sub text1_change()if isnumeric(text1) = false then exit sub '不是數字結束

select case val(text1)case is < 0 '小於零,不處理

case is = 0 '等於零

text3 = text1

case is < 20 '大於零,小於20text4 = text1

case is >= 150  '大於等於150,不處理case is > 30  '大於30小於150text2 = text1

end select

end sub

7樓:匿名使用者

option explicit

dim sj as long

private sub psj()

if sj > 30 and sj < 150 thentext2 = sj

elseif sj > 0 and sj < 20 thentext4 = sj

elseif sj = 0 then

text3 = sj

end if

end sub

private sub command1_click()sj = val(text1)

psjend sub

塊if判式中缺了20-30間的值歸屬哪兒。

若3 x 2,12 y 8,則,若3 x 2,12 y 8,則1 x 3 y

因為3 x 2,12 y 8,所以x 2 3,y 8 12,8 2 3,所以x 2 3 2的x分之一,y 8 12 2的y分之三.2 1 x除以2 3 y 2 1 x 2 3 y 3 12 1 4,好了,只剩最後一個問題,2的多少次方等於四分之一,沒錯,2 所以1 x 3 y 2 解 因為3 x 2...

初二數學題,好幾題 (1) X平方(2x)立方 x 3x 8四次方 ,其中x 2 PS 要有過程哦

呼吸 解 2 2x 3 2x 3 4x 2 6x 6x 9 4x 2 9 3 2003x1997 2000 3 2000 3 4000000 9 3999991 4 2x 1 x 1 x 根號2 1 x 其中x 根號2 2x 1 x 1 x 2 1 x 2x 1 xx 2 2 2x 2x 2 x 2...

已知函式f x 2x a,x小於1, x 2a,x大於等於1,若f 1 a f 1 a ,則a的值為

因為很久沒上知道,沒有及時回答你的問題,對不起。你這道題的表述應該寫成 當x 1時,f x 2x a 當x 1時,f x x 2a 若f 1 a f 1 a 則a的值為 這是一個分類討論問題。因為a的不確定性,所以自變數 1 a 和 1 a 我們不清楚它是小於1還是大於等於1,不能確定f 1 a 和...