1樓:旅初彤
private sub command1_click()
label3.caption = ""
dim month as integer
if text1.text = "" then
msgbox "請輸入月份!"
else
if val(text1.text) > 12 or val(text1.text) < 1 then
text1.text = ""
msgbox "你輸入的月份不合法!"
else
for i = 1 to val(text1.text)
if val(text1.text) = 12 or val(text1.text) = 1 or val(text1.text) = 2 then
label3.caption = "冬"
else
if val(text1.text) = 3 or val(text1.text) = 4 or val(text1.text) = 5 then
label3.caption = "春"
else
if val(text1.text) = 6 or val(text1.text) = 7 or val(text1.text) = 8 then
label3.caption = "夏"
else
if val(text1.text) = 9 or val(text1.text) = 10 or val(text1.text) = 11 then
label3.caption = "秋"
end if
end if
end if
end if
next i
end if
end if
end sub
編寫vb程式 輸入一個月份,輸出季節(春夏秋冬) 謝謝大佬 就詳解
2樓:二哥哥
給你說下思路吧;
接收控制檯輸入的月份(1-12之間);
寫一個while迴圈,判斷這個輸入的數字是幾,如果是1,輸出春,結束迴圈;如果是2,輸出春,結束迴圈;......如果是12,輸出冬,結束程式;for迴圈也是可以的,那麼就是判斷輸入的數字是在哪個範圍內,假設是1-3中的的一個,輸出春....
vb程式設計共12題,高手請進,做完後有賞分
3樓:匿名使用者
題目太多,分數太少.....
如果每道題目50分的話,pm給我你的郵箱
4樓:匿名使用者
汗 樓上的 還真的做的..真有這閒情
5樓:匿名使用者
=.=很嚇人。沒時間做
6樓:匿名使用者
不知道樓主到底拿這些題來做什麼.
暑假作業??
vb程式設計s=1+(1+2)+(1+2+3)+(1+2+3+4)+...+(1+2+3+4+...+n)用for單迴圈求前30項的和
7樓:匿名使用者
vb程式設計
程式設計是編寫程式的中文簡稱,就是讓計算機為解決某個問題而使用某種程式設計語言編寫程式**,並最終得到相應結果的過程。
為了使計算機能夠理解人的意圖,人類就必須要將需解決的問題的思路、方法、和手段通過計算機能夠理解的形式告訴計算機,使得計算機能夠根據人的指令一步一步去工作,完成某種特定的任務。這種人和計算機之間交流的過程就是程式設計。
程式設計:設計具備邏輯流動作用的一種逗可控體系地【注:程式設計不一定是針對計算機程式而言的,針對具備邏輯計算力的體系,都可以算程式設計】
例子:①比如編寫一段**程式②編寫一個控制裝置體系。
vb程式設計。輸入整數n,計算1!+2!+3!….+n!的值,並在窗體上輸出。要求分別用for,while 兩種迴圈實現
在c語言中 語句 printf("%d%d%%d%d",1+2,5/2,-2*4,11%3)是怎樣運算的
8樓:匿名使用者
先算1+2=3,這個沒什麼要說的
再計算 5/2=2(整型數與整型數計算,結果也為整型數.5/2=2.5,取整得2)
再計算 -2*4=-8,這個也沒什麼要說的
最後 11%3=2(11/3取餘數) 關於取餘計算.我想說一下,就是隻有整型數才能進行取餘計算. 特殊情況,如果m小於n,m%n=m.
輸出框輸出的是32-82(沒有空格)
還想說一下關於printf的問題.就以本題為例.如果%d的個數少於輸出項的個數,則多餘的項不輸出.如果%d的個數多於輸出項的個數.則多項的%d會輸出不定值.
還有,就是printf是按從左向右的順序輸出的.但是輸出項部分.是以從右向左的順序運算的.
也就是說.本例中.是先運算11%3=2,最後運算1+2=3,但是輸出時,還是自左向右.
這點需要注意...(函式引數的計算順序是自右向左)
關於習題嘛.我覺得你到書店裡買一本好點的二級習題就可以了.最重要的是反覆的做,自己總結知識點.不然.做再多的習題,也沒有用.
祝你成功!
9樓:匿名使用者
在函式裡,引數是從右向左進行的
int a=5;
printf("%d %d",a,++a);
結果是6 6
注意:在某些編譯器中是從左向右
vb程式設計題設計程式求s=1/2+3!/4+......+(n-1)!/n 的值並輸出,其中n是從鍵盤輸入大於1的正整數 5
10樓:
function out(n)
for i=1 to n
baiout=out+cj(i-1)/i
next
end function
function cj(n)
for i=1 to n
cj=n*i
next
end function
for n=1 to 5
隨便du寫的
zhi 對不對不曉dao得回
你自己答算
11樓:李清塵
private b,n as intergerprivate function jc(m as interger) as interger
jc = 1
if m > 1 then
for i = 1 to m
jc = jc * i
next i
end if
end function
private sub text1_keydown(keycode as integer, shift as integer)
n = text1.text
if keycode = 13 then
for j = 1 to n
b = b + jc(j) / j
next j
end if
msgbox b , vbok + vbinformation , "輸出"
end sub
用vb程式設計任意輸入數輸出其中最大值
private sub command1 click a val inputbox 請輸入第一個數 b val inputbox 請輸入第二個數 print 你輸入的數分別是 a 和 bprint 其中較大數是 if a b then print a else print b end if end ...
VB,輸入一段英文,根據出現頻率的高低輸出出現前五的單詞
這些英文是用空格隔開的麼?dim zimu 26 b 26 as integer,str as string dim a as byte,temp as integerstr lcase textbox1.text for i 1 to 26 zimu i 0 next for i 1 to len...
程式設計序,輸入實數x的值,按下列公式計算並輸出y值解方程
include using namespace std int main else else cout include double fun double x for test int main 編一個程式,輸入實數x的值,按下列公式計算並輸出y值 include double fun double...