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

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 = V al(Text1.Text)

a = m Mod 10

b = m \ 10 Mod 10

c = m \ 100 Mo

d 10

d = m \ 1000

a = (a + 7) Mod 10

b = (b + 7) Mod 10

c = (c + 7) Mo

d 10

d = (d + 7) Mod 10

Print "加密前的4位整数是" & m

Print "加密后的结果是" & a & b & c & d

End Sub

Private Sub Command2_Click()

End

End Sub

截图

“我和校庆合张影，我给校庆送祝福”——北京科技大学学生公寓九斋活动策划

一、活动名称

“我和校庆合张影，我给校庆送祝福”

——北京科技大学学生公寓九斋活动

二、活动意义

1.在校庆前，表达九斋学员对北科60年校庆的祝福

2.展现九斋学子积极向上的精神风貌

3.加深学生与楼层长之间的友谊便于以后的管理

4.调动大家对校庆的热情与关注欲望

5.增进同学与同学之间的联系

活动地点及时间

地点：九斋一楼大厅校篮球场

时间：2011年3月20日-25日

三、活动对象

北京科技大学九斋公寓所有学生

四、内容：

1.活动时间推进表

时间任务

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

（不清楚展板展布的收费情况，等具体了解后再做详细预算）

六、活动中应注意的问题和细节：

1、随时保持与公寓自律委员会中心联系，确保信息的顺畅沟通及工作进度报告；

2、各工作人员必须保持高度责任感，明确此次活动不仅是在为同学服务，同时也涉及到学生楼、层长以及学生公寓自律委员会的信誉问题。

注：本次活动最终解释权归北京科技大学学生自律管理委员会九斋北京科技大学学生自律委员会公寓九斋

二〇一二年三月十九日