1樓：匿名使用者
select case 語句，根據表示式的值，來決定執行幾組語句中的其中之一。
select case 語句示例
本示例使用 select case 語句來判斷變數的值。示例中第二個 case
子句包含了變數值，故只有此區塊內的語句會被完成到。
dim number
number = 8 ' 設定變數初值。
select case number ' 判斷 number 的值。
case 1 to 5 ' number 的值在 1 到 5 之間，包含1 和 5 。
debug.print "between 1 and 5"
' 下乙個 case 子句是本示例中唯一判斷值為 true 的子句。
case 6, 7, 8 ' number 的值在 6 到 8 之間。
debug.print "between 6 and 8"
case 9 to 10 ' number 的值為 9 或 10。
debug.print "greater than 8"
case else ' 其他數值。
debug.print "not between 1 and 10"
end select
2樓：匿名使用者
1-x (x<0)
2x-1 (0 x <10)
y= 3x2+10 (10x<20)
100-5x (x 20)
這個沒有看明白，是全部是一組，還是一組中間有二個 比方1-x and x<0或者其它的解法
3樓：
private sub command1_click()dim x%, y%
x = val(text1.text)
select case x
case is < 0
y = 1 - x
case is < 10
y = 2 * x - 1
case is < 20
y = 3 * x ^ 2 + 10
case else
y = 100 - 5 * x
end select
text2.text = cstr(y)
end sub
private sub command2_click()endend sub
private sub form_load()command1.caption = "計算"
command2.caption = "退出"
end sub
你的題目沒有給出x=0的情況
vb編寫程式，計算分段函式
4樓：老牛帶你看奇聞
在窗體上放乙個命令按鈕，將**複製到窗體裡，程式執行單擊一次命令按鈕可輸入一次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
5樓：在世貿天階灌籃的高飛燕草
看我的一行
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
6樓：軍廣英綦錦
這位仁兄是個新手吧！別著急，慢慢來！加油！
dimn,yas
integerifn
<0theny=
3*n+
2elseifn=
0theny=
0elseif
n>0theny=
2*n-
1endif
7樓：韌勁
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
vb問題。用select case語句方法寫出分段函式？
8樓：匿名使用者
private sub command1_click()dim x as integer, y as doublex = val(inputbox("enter data x:"))select case x
case is > 20
y = x ^ 2 + 3 * x + 2case is >= 10 and x <= 20y = sqr(3 * x) - 2
case is > 0 and x < 10y = 1 / x + abs(x)
end select
print format(y, "#.0000")end sub
用vb編寫一段計算分段函式
9樓：匿名使用者
x=val(inputbox("請你輸入x的值")if x<0 then
y=1-2*x
else
y=1+x
end if
print y
vb程式設計：程式設計計算下列分段函式值
10樓：匿名使用者
if x<0 then
f=x^2+x-6
elseif x<10 and x>=0 and x<>2 and x<>3 then
f=x^2-5*x+6
else
f=x^2-x-1
end if
11樓：孤本輕狂
if x<0 then
f=x^2+x-6
elseif x<10 and x<>2 and x<>3 then
f=x^2-5*x+6
else
f=x^2-x-1
end if
用vb編寫一段分段函式的程式！
12樓：匿名使用者
建text1,text2,command1.**如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
private sub command1_click()dim x as single, y as singlex = csng(text1.text)
select case x
case is < -2
y = 3 * x - 1 - 1 / xcase is < 1
y = sin(x) + 2 ^ x
case else
y = log(x) / log(10) / 2end select
text2.text = y
end sub
13樓：談彤蠻清妍
x=val(inputbox("請你輸入x的值")ifx<0
then
y=1-2*x
else
y=1+x
endif
printy
vb程式設計，vb程式設計
介面設計如下 試編寫 如下 private sub updatestat if list1.listcount 1 thencommand1.enabled falsecommand2.enabled falseelse command1.enabled truecommand2.enabled t...
VB程式設計，vb程式設計是什麼？
完成的程式 dim h as integer,m as integer,s as integer private sub form load label1.fontsize 48 h hour time m minute time s second time timer1.interval 1000...
vb程式設計與應用實訓11 5飄動的氣球
你在窗體上新增三個command,和乙個shape,其它什麼都不用管了，然後輸入以下 就可以了 private sub command1 click if shape1.shape 5 thenshape1.shape 0 else shape1.shape shape1.shape 1end if...