地鐵票價計算程式VB流程圖及VB程式

時間 2021-07-09 16:25:12

1樓:化凌晴

同意樓上

至少我回答問題不是看重錢什麼的

是幫人幫得心安理得

2樓:oo蒼雪

學習樓上的精神。助人為樂!!!

3樓:爛掉の蘿蔔

這種上課考試類的

估計給300分都不一定有人做

自己好好學學把

4樓:匿名使用者

好好學習才是關鍵,這樣以後才不後悔

如何用vb設計一個地鐵票價查詢系統?

5樓:匿名使用者

地鐵票價查詢系統

這個沒意義吧!按公里收費的,還是按站臺收費的。這個只需要計算就ok了!!

用vb編寫一個收款計算程式**

6樓:匿名使用者

rivate sub command1_click() select case text2.text case "+" text4.text = str(val(text1.

text) + val(text3.text)) case "-" text4.text = str(val(text1.

text) - val(text3.text)) case "*" text4.text = str(val(text1.

text) * val(text3.text)) case "/" if val(text3.text) = 0 then text4.

text = "除數不能為0" else text4.text = str(val(text1.text) / val(text3.

text)) end if end select end subprivate sub command2_click() unload me end sub

編寫應用程式(vb),計算上網費用,計算方法如下

7樓:柳葉鴻漸書生

private sub command1_click()dim h as integer, c as singleh = val(inputbox("請輸入上網時間", "輸入"))select case h

case -1

endcase is < 10

c = 25

case is < 50

c = 2 * h

case is < 100

c = 1.5 * h

case is < 200

c = 1 * h

case is > 200

c = 200

end select

msgbox "上網費用為" & c & "元", vbokonly, "輸出"

end sub

求計算函式最值點的vb程式語言(副流程圖)

8樓:匿名使用者

dim a as double,b as double,c as double

dim x as double

a=inputbox("請輸入a")

b=inputbox("請輸入b")

c=inputbox("請輸入c")

if a>0 then

x= '你的表示式,我畫的圖我沒看清楚print x

elseif a<0 then

x= '你的表示式,我畫的圖我沒看清楚print x

endif

商品總額計算程式vb程式設計**編寫。

9樓:甜咖啡很甜

簡單,窗體加3個文字框,2個命令按鈕

private sub operation_click()texte3.text=val(text2.text)*(text1.text)

end sub

private sub clear_click()text1.text=""

text2.text=""

text3.text=""

end sub

求流程圖和編寫vb**!

10樓:物理公司的

86 /*迴圈演算法計算小數字的階乘, 0 <= n < 10 */87 int calcfactorial(int n)88 96

97     return result;

98 }

vb的流程圖怎麼計算

11樓:聽不清啊

就是把箭頭右邊的表示式算出值後,賦值給箭頭左邊的變數。

假設s=10,a=3

則s←s*a後,s的值變為30

a←a+1後,a的值變為4

蘇州地鐵票價,蘇州地鐵票價計算辦法

起步價是2元,可以坐6公里 丶丿不懂得 起步價2元可乘6公里,6至16公里每1元可乘5公里,16至30公里每1元可乘7公里,30公里以上每1元可乘9公里。 看高德地圖有明確標價 蘇州地鐵票價計算辦法 來日方長 蘇州軌道交通票價採取里程分段計價方法,實行 遞遠遞增 起步價2元可乘6千米,6至16千米每...

上海地鐵費用是怎麼計算的,上海地鐵票價怎麼算的

票價計算 分段計票價。軌道交通實行按乘坐里程計費的分段票價制,即 0 6公里 含6公里 3元,6 16公里 含16公里 4元,16公里以遠每10公里增加1元。要是你坐的次數多的話可以買 一日票 18元,24小時內隨便坐幾次。6公里以內3元,6 16公里4元,16 26公里5元,26 36公里6元,3...

成都地鐵票價如何 按站 按距離算

成都地鐵票價已經確定,1 2號線一期線路採用2元起價的區間計價制,坐完全程最高5元。採用此計價方式的地鐵1號線一期 共17個站 全程票價4元,2號線一期 共20個站 全程票價5元 考慮1 2號線 一期 之間換乘因素,最高單程票票價為5元。在購票優惠方面,使用普通天府通卡乘坐地鐵的,其票價按對應的單程...