VB程序设计教程 实验2答案.docVIP

41011066付乾峰资源1103实验2 自测练习1，程序 Private Sub Command1_Click() Dim s s = Text1.Text Label1.Caption = Left(s, 2) End Sub Private Sub Command2_Click() Dim s s = Text1.Text Label2.Caption = Right(s, 2) End Sub Private Sub Command3_Click() Dim s s = Text1.Text Text1.Text = Label1.Caption Label2.Caption End Sub 截图 自测练习2，程序 Private Sub Command1_Click() Dim m%, a%, b%, c%, d% m = Val(Text1.Text) a = m Mod 10 b = m \ 10 Mod 10 c = m \ 100 Mod 10 d = m \ 1000 a = (a + 7) Mod 10 b = (b + 7) Mod 10 c = (c + 7) Mod 10 d = (d + 7) Mod 10 Print 加密前的4位整数是 m Print 加密后的结果是 a b c d End Sub Private Sub Command2_Click() End End Sub 截图 “我和校庆合张影，我给校庆送祝福” ——北京科技大学学生公寓九斋活动策划 活动名称 “我和校庆合张影，我给校庆送祝福” ——北京科技大学学生公寓九斋活动 活动意义 在校庆前，表达九斋学员对北科60年校庆的祝福 展现九斋学子积极向上的精神风貌 3.加深学生与楼层长之间的友谊便于以后的管理 4.调动大家对校庆的热情与关注欲望 5.增进同学与同学之间的联系 活动地点及时间 地点：九斋一楼大厅校篮球场 时间：2011年3月20日-25日 活动对象 北京科技大学九斋公寓所有学生 内容： 活动时间推进表 时间 任务 3月19日-3月24日 成立策划小组，完成活动策划，确定活动主题、模式、流程等基本情况； 成立出题组、宣传组、财务组、后勤保障组进行前期的活动准备 3月24日-3月29日 ①向九斋全体学员征集照片； ②给每个宿舍成员一张祝福卡片，征集好的祝愿词； ③采购奖品； ④做好前期活动宣传 3月29日~4月6日 将收集的照片编辑，美化，用计算机软件做成照片墙展布； 安排工作人员及明确分工； 派层长去照一些反应九斋成员精神风貌的特写照片 继续做好宣传，让同学们多多配合 4月6日-4月15 找到展布打印店，将做成的照片打印成展布； 购置合适大小的展板用来贴祝愿词 4月15日-4月22日 将做成的展布挂在篮球场边的围栏； 将写上祝愿词的展板放在九斋宿舍内。 将活动成果转化及后期宣传 根据建议墙的同学们意见进行适当调整 2.活动宣传途径 （1）条幅、展板的平面宣传 （2）人人平台及微博的网络宣传 （3）楼、层长与宿舍长信息平台的短信宣传 经费预算 项目 资金预算/元 合计 1000 （不清楚展板展布的收费情况，等具体了解后再做详细预算） 活动中应注意的问题和细节： 2、各工作人员必须保持高度责任感，明确此次活动不仅是在为同学服务，同时也涉及到学生楼、层长以及学生公寓自律委员会的信誉问题。 注：本次活动最终解释权归北京科技大学学生自律管理委员会九斋 北京科技大学学生自律委员会公寓九斋 二〇一二年三月十九日