西北農林科技大學VB第二章實習作業

2021-07-31 16:48:32 字數 2081 閱讀 8960

第二章實習作業

(1)已知直角三角形的兩條直角邊長,求斜邊長

private sub label4_click()

a = text1.text

b = text2.text

label4.caption = sqr(a ^ 2 + b ^ 2)

print label4

end sub

(2)給小學生隨機出兩位數和一位數的加法題

private sub command1_click()

a = int(rnd * 90 + 10)

b = int(rnd * 10 + 1)

label1.caption = a & "+" & b & "=?"

end sub

(3)用文字框輸入乙個帶小數的數,對輸入的數四捨五入保留2位小數。

private sub text1_change()

a = round(text1.text, 2)

print a

end sub

(4)輸入某人姓名,判斷是否你的本家

private sub command1_click()

if left(text1.text, 1) = "張" then

text2.text = "是本家"

else

text2.text = "不是本家"

end if

end sub

(5)任意輸入西安地區的固定**號碼(原為7位),將其公升為8位(在原號碼前面加8)。如原號碼為029-*******,公升位後為029

private sub command1_click()

text2.text = left(text1, 4) & 8 & right(text1.text, 7)

end sub

(6)輸入書39頁format語句,檢視執行結果

private sub form_load()

text1.text = format(123456.789

end sub

(7)利用日期與時間函式建立中文電子日曆

private sub timer1_timer()

cur_year = year(date)

cur_month = month(date)

cur_day = day(date)

cur_weekday = "星期" & choose(weekday(date), "日", "一", "二", "三", "四", "五", "六")

label1.caption = cur_year & "年" & cur_month & "月"

label2.caption = cur_day

label3.caption = cur_weekday

label4.caption = time

end sub

(8)利用datediff函式計算現在春節已過去了多少天

private sub command1_click()

print datediff("d", #1/30/2014#, date)

end sub

(9)輸入某學生的一門成績,判斷是否過關

private sub command1_click()

a = text1.text

if a >= 60 and a <= 100 then

msgbox "合格"

elseif a >= 0 and a <= 59 then

msgbox "不合格"

else: msgbox "輸入資料不合理「"

end if

end sub

選做題:

(10)某商場招聘,輸入某人條件,判斷是否夠招工條件,招聘條件為身高1.7公尺以上並為女性。

選作private sub command1_click()

a = text1.text

b = text2.text

if a = "女" and b >= 1.7 then

msgbox "符合招聘條件「"

else: msgbox "不符合招聘條件「"

end if

end sub

西北農林科技大學

西北農林科技大學2011年美術類錄取分數線 西北農林科技大學2010年藝術類專業錄取分數統計正式公布,其中我校藝術類專業為藝術設計 美術類 專業,2010年面向全國計畫招生90名。序號省份專業課文化課綜合分 最高分 最低分 平均分 最高分 最低分 平均分 最高分 最低分 平均分 6 四川 183 1...

西北農林科技大學考研複試經驗

西北農林科技大學複試一般情況下開始於4月中旬,當你確定你能夠進入複試的時候,你就要開始為你的最後一戰做準備了。根據我當年的情況,淘汰率還是很高的。那會我們專業進複試的有18個人,但是只有6個名額,可見淘汰率有多高了。根據專業不同其實複試過程也不盡相同。當時我們是這麼總成績的,考研分數 筆試分數 面試...

建築結構選型西北農林科技大學

建築結構選型 考點 西北農林科技大學 1.結構選型的原則是什麼?a 滿足使用功能的要求 b 滿足建築造型的需要 c 充分發揮結構自身的優勢 d 考慮材料和施工條件 e 盡可能降低造價 f 設計理念和方法 2.梁柱的形式 受力與變形有什麼樣的特徵?a 形式 按材料不同分為 木樑 石梁 鋼梁 鋼筋混凝土...