1樓：老牛帶你看奇聞
在窗體上放一個命令按鈕，將**複製到窗體裡，程式執行單擊一次命令按鈕可輸入一次n的值
**如下：
private sub command1_click()dim n, y as single
n = inputbox(" 請輸入n的值")select case n
case is < 0
y = 2 * n + 5
case 0
y = 0
case is > 0
y = 3 * n - 1
end select
msgbox "y=" & y
end sub
2樓：在世貿天階灌籃的高飛燕草
看我的一行
private sub command1_click()dim n, y as single
n = inputbox(" 請輸入n的值")y = iif(x<0,2 * n + 5,iif(x = 0,0,3 * n - 1))
msgbox "y=" & y
end sub
3樓：軍廣英綦錦
這位仁兄是個新手吧！彆著急，慢慢來！加油！
dimn,yas
integerifn
<0theny=
3*n+
2elseifn=
0theny=
0elseif
n>0theny=
2*n-
1endif
4樓：韌勁
dim x as integer
if x < 0 then
elseif x >= 0 and x < 10 thenelseif x >= 10 and x < 30 thenelseif x >= 30 and x < 50 thenelse
end if
1、vb6.0編寫程式，計算下列分段函式，要求輸入x的值，輸出y的值。(30分，其中介面設計詳細全面2分）：
5樓：紅山人
'1、編
來寫程式，計算下列分段源函式，要求輸入x的值bai，輸出y的值。(30分，du其中介面zhi設計詳細全面2分）：dao
'y=sin(πx/20) 0<=x<10'y=x2/10 10<=x<100
'y=1100-x 100<=x<200'y=990 x>=200
const pi = 3.1415926
private sub form_click()show
dim x!, y!
x = val(inputbox("請輸入x值"))if x >= 0 and x < 10 theny = sin(pi * x / 20)
elseif x >= 10 and x < 100 theny = x ^ 2 / 10
elseif x >= 100 and x < 200 theny = 1100 - x
elseif x >= 200 then
y = 990
end if
print "x="; x; "y="; yend sub
用vb編寫一段計算分段函式
6樓：匿名使用者
x=val(inputbox("請你輸入x的值")if x<0 then
y=1-2*x
else
y=1+x
end if
print y
怎樣在vb中編一個分段函式
7樓：逛街老鼠人人豬
在窗體上放一個命令按鈕，將**複製到窗體裡，程式執行單擊一次命令按鈕可輸入一次n的值
**如下：
private sub command1_click()dim n, y as single
n = inputbox(" 請輸入n的值")select case n
case is < 0
y = 2 * n + 5
case 0
y = 0
case is > 0
y = 3 * n - 1
end select
msgbox "y=" & y
end sub
8樓：天蠍魔君
private sub form_activate()dim x, y as long '不知道x,y能否取float型的 先看整形的
x = inputbox("請輸入一個x的值，取值範圍為-1000，+1000")
if x < 0 then
y = x ^ 2 + 1
elseif x >= 0 then
y = x ^ 2 - 1
end if
單分支 和雙分支 區別在於 「 elseif x >= 0 then」 換成else 就是單分支的
注意下x和y的取值範圍 因為x過大 y的值有可能越界希望對你有幫助
print "y=" & y
end sub
9樓：匿名使用者
private sub command1_click()dim x as long, y as longx = val(text1.text)
if x < 0 then
y = x ^ 2 + 1
else
y = x ^ 2 - 1
end if
text2.text = str(y)
end sub
用條件語句編寫程式求下面的分段函式y的值：
10樓：匿名使用者
樓主是不是指的用c語言裡面的a?b:c這個條件語句？
如果是的話，可以這麼寫
x<2?y=x:(x<=10?y=2x:y=-3x)
11樓：匿名使用者
使用什麼語言？
c語言#include
void main()
c++語言
#include
void main()
pascal語言
program pp;
varx,y:real;
begin
write('請輸入一個數x:');
readln(x);
if x<2 then
y=x;
else
if (x<=10) then
y=2*x
else
y=-3*x;
writeln('y=',y);
end.
basic語言
dim x,y as single
x=val(inputbox("請輸入一個數x",,0))if x<2 then
y=xelse
if (x<=10) then
y=2*x
else
y=-3*x
endif
endif
print("y=",y)
vfp語言
clear
input "請輸入一個數x" to x
if x<2 then
y=xelse
if (x<=10) then
y=2*x
else
y=-3*x
endif
endif
? "y=",y
12樓：匿名使用者
if x<2 then
y=xelse
if x>10 then
y=2x
else
y=-3x
end if
end if
13樓：匿名使用者
呵呵，不是照著抄就行了嗎？if(x < 2) y = x;else if(x >= 2 && x <= 10) y = 2 * x;else y = -3 * x;
vb分段計算
14樓：聽不清啊
private sub command1_click()x = val(text1)
if x <= 0 then y = abs(x) else y = log(x)
text2 = y
end sub
1vb60編寫程式計算下列分段函式要求輸入的
1 編 來寫程式，計算下列分段源函式，要求輸入x的值bai，輸出y的值。30分，du其中介面zhi設計詳細全面2分 dao y sin x 20 0 x 10 y x2 10 10 x 100 y 1100 x 100 x 200 y 990 x 200 const pi 3.1415926 pri...
VB編寫程式，計算並輸出下面級數前n項中 n 50 奇數項的和。1 2 3 2 3 4 3 4 5n n 1n
private sub mand1 click dim i as long,sum as longfor i 1 to 50 step 2sum sum i i 1 i 2 next msgbox 級數 bai前du50項奇 zhi數項 dao和為專 屬 sum end sub 編寫程式，計算並輸出...
vb程式，編寫程式，將陣列a（10）中的元素向左迴圈移動，即a 1 a 2 ,a 2 a 3）a 10 a
很容易實現！var n as integer m a 1 for i 1 to 9 n a i a i a i 1 a i 1 n next 下面是我在電子 中進行的測試 dim a 10 as integer sub yu for i 1 to 10 a i i cells i,1 a i nex...