西北农林科技大学VB第二章实习作业

第二章实习作业（1）已知直角三角形的两条直角边长，求斜边长PrivateSubLabel4_Click()a=Text1.Textb=Text2.TextLabel4.Caption=Sqr(a^2+b^2)PrintLabel4EndSub（2）给小学生随机出两位数和一位数的加法题PrivateSubCommand1_Click()a=Int(Rnd*90+10)b=Int(Rnd*10+1)Label1.Caption=a&+&b&=?EndSub（3）用文本框输入一个带小数的数，对输入的数四舍五入保留2位小数。PrivateSubText1_Change()a=Round(Text1.Text,2)PrintaEndSub（4）输入某人姓名，判断是否你的本家PrivateSubCommand1_Click()IfLeft(Text1.Text,1)=张ThenText2.Text=是本家ElseText2.Text=不是本家EndIfEndSub（5）任意输入西安地区的固定电话号码（原为7位），将其升为8位（在原号码前面加8）。如原号码为029-7091234，升位后为029-87091234.PrivateSubCommand1_Click()Text2.Text=Left(Text1,4)&8&Right(Text1.Text,7)EndSub（6）输入书39页format语句，查看运行结果PrivateSubForm_Load()Text1.Text=Format(123456.789,##,#.##)EndSub（7）利用日期与时间函数建立中文电子日历PrivateSubTimer1_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_dayLabel3.Caption=cur_weekdayLabel4.Caption=TimeEndSub（8）利用Datediff函数计算现在春节已过去了多少天PrivateSubCommand1_Click()PrintDateDiff(d,#1/30/2014#,Date)EndSub（9）输入某学生的一门成绩，判断是否过关PrivateSubCommand1_Click()a=Text1.TextIfa=60Anda=100ThenMsgBox合格ElseIfa=0Anda=59ThenMsgBox不合格Else:MsgBox输入数据不合理“EndIfEndSub选做题:（10）某商场招聘，输入某人条件，判断是否够招工条件，招聘条件为身高1.7米以上并为女性。选作PrivateSubCommand1_Click()a=Text1.Textb=Text2.TextIfa=女Andb=1.7ThenMsgBox符合招聘条件“Else:MsgBox不符合招聘条件“EndIfEndSub