1樓：匿名使用者
建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
2樓：談彤蠻清妍
x=val(inputbox("請你輸入x的值")ifx<0
then
y=1-2*x
else
y=1+x
endif
printy
用vb編寫一段計算分段函式
3樓：匿名使用者
x=val(inputbox("請你輸入x的值")if x<0 then
y=1-2*x
else
y=1+x
end if
print y
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編碼計算分段函式
8樓：反倒是屠禮品
#include
int main()
{int x,y;
scanf("%d",&x);
if(0
該程式的分段函式如下：
f(x)=3x+2 (0 f(x)=1 (x=0) f(x) = x*x (x<0) 如果輸入x值不再取值範圍內，列印go die... 學好程式設計最重要的是自己要思考，要想。不然沒有任何進步。 vb程式設計~~~建立乙個應用程式，用select語句計算分段函式 9樓：匿名使用者 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 10樓：匿名使用者 1-x (x<0) 2x-1 (0 x <10) y= 3x2+10 (10x<20) 100-5x (x 20) 這個沒有看明白，是全部是一組，還是一組中間有二個 比方1-x and x<0或者其它的解法 11樓： 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編寫輸入乙個數分段函式 12樓：碧血玉葉花 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 vb 乙個分段函式 程式設計錯誤 求解 13樓： private sub form_click()dim x as integer, y as integerx = val(inputbox("請輸入x值:"))if x <= 10 then y = 2 * x + 3 else if 10 < x <= 20 then y = x * x + 5 else if x > 20 then y = lnx + x end if '加 end if '加 end if 或者：private sub form_click()dim x as integer, y as integerx = val(inputbox("請輸入x值:"))if x <= 10 then y = 2 * x + 3 elseif 10 < x <= 20 theny = x * x + 5 elseif x > 20 then y = lnx + x end if print y print y print y end sub 14樓：匿名使用者 一般乙個if 和乙個 end if配對，除非在一行寫完if就可以不用end if 寫程式時最後用縮排格式，這樣會看的比較清楚當然也可以像2樓那樣用else if 也可以private sub form_click()dim x as integer, y as integerx = val(inputbox("請輸入x值:"))if x <= 10 then y = 2 * x + 3 else if 10 < x <= 20 then y = x * x + 5 else if x > 20 then y = lnx + x end if end if end if //由於有3個if，所以要用3個end if，這裡補上3個就可以了 print y print y print y end sub vb程式設計，大神幫忙。分段函式 15樓：陽光上的橋 function ***(byval x)if x<=0 then ***=-1 elseif x<1 then ***=sqrt(x) else ***=x*x*x+2 end if end function vb題 計算分段函式 急！！！ 16樓：匿名使用者 答案選擇c 如果b對的話，當x=5時，y=1；這是不對的。 答案選擇c 17樓：baby楊穎時代 5657837567568 的,忽略了乙個溢位問題,1 3 5 49 結果肯定不是乙個整數能存放得了的.我用了乙個函式 大數乘法 可以計算,只要結果的位數在陣列下標上限允許的範圍內都行 private sub command1 click dim s as string s 1 for i 1 to 50 step 2 s c... 為了方便講解，上下程式段換了下位置，不影響實際功能 首先，不顯示的原因是在fun函式中沒有返回值，所以不顯示，因為在 fun 函式中，最後是將值賦給f，沒有任何意義，所以應該是 f a b c，變為 fun a b c 講解如下 private sub command1 click 點選命令按鈕事件... 以前做過類似的題，不過當時是簡單處理，忽略 中間的內容 bust 破產的 一文不名的 be clean dead bust 窮得 一文不名you are bust you are bust你破產了 sorry to trouble you 抱歉麻煩你 正學著html語言呢，急求編寫一段簡單的c 小程... 閉上眼睛 才能看見最乾淨的世界。用英語翻譯一段文字 如何用英語翻譯一段文字 30 把單詞乙個乙個的翻譯出來 英語是，主語 謂語 賓格 再按照漢語的語序翻譯過來，最後加上標點就可以了。我考過中口知道一點，你可以將大概的先翻出來，後面再進行修改，一字一字的翻的話，句子不連貫，比較生硬，一些詞翻不出來沒事... 據我所知，這樣的問題，一般基本上都是中介的問題。正規日方公司一般不會搞到那樣的程度。另外，好多研修生去之前，明知這樣的事情，非要去。不知事情的真偽，僅作為譯文吧。入國管理局 局長殿 我 私 機構 仲介 xx會社 研修生 xx會社 研修生 関 法律 違反 入國管理局 噓 報告 行 報告 報告內容 1 ...用vb編寫一段程式，計算1 50所有奇數的乘積
vb中的一段程式
求一段C 小程式，急求編寫一段簡單的C 小程式！！！
一段文字英語翻譯，翻譯一段文字用英語
幫忙翻譯一段日語 100分