VB程序设计教程 实验2答案
第二次VB实验答案
第二次VB实验答案一：实验目的1.掌握正确书写表达式、赋值语句的规则2.掌握常用函数的使用3.掌握InputBox与MsgBox的使用4.掌握Print方法和Format格式的使用二：实验内容实验B,1Private Sub Command1_Click()Me.Text1 = Int(Rnd * 10 + 0)Me.Text2 = Int(Rnd * 90 + 10)Me.Text3 = Int(Rnd * 900 + 100)End SubPrivate Sub Command2_Click()Me.Text4 = (Val(Me.Text1) + Val(Text2) + Val(Text3)) / 3 Me.Text4 = Format(Val(Text4), "0.00")End SubPrivate Sub Command3_Click()Me.Text1 = ""Me.Text2 = ""Me.Text3 = ""Me.Text4 = ""End Sub实验B,2Private Sub Command1_Click()n = (Log(2)) / (Log(1 + 0.008))Text1 = Format(n, "0")End Sub实验B,3Private Sub Command1_Click()Dim g%, s%, b%, x%x = Val(Text1.Text)b = x \ 100s = (x \ 10) Mod 10g = x Mod 10Me.Text2 = g * 100 + s * 10 + bEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 ThenIf Not IsNumeric(Text1) ThenMsgBox "输入非数值数据，请重新输入", , "数据检验"Text1 = ""Text1.SetFocusEnd IfEnd IfEnd SubPrivate Sub Text1_LostFocus()If Not IsNumeric(Text1) Or Len(Text1) <> 3 ThenMsgBox "输入非3位数，请重新输入", , "数据检验"Text1 = ""Text1.SetFocusEnd IfEnd Sub实验B,4Private Sub Form_Click()Me.Text1 = UCase(bel1)Me.Text2 = Len(bel1)Me.Text3 = Left(bel1, 11)Me.Text4 = Mid(bel1, 12, 6)Me.Text5 = Right(bel1, 5)End SubPrivate Sub Command1_Click()Label2.Caption = "Val函数的结果"Text2 = Val(Text1.Text)End Sub实验B,6Private Sub Command1_Click()PrintFor i = 1 To 5Print Tab(17 - 2 * i); String(2 * i - 1, "★"); String(11 - 2 * i, "☆"); String(2 * i - 1, "★") Next iEnd SubPrivate Sub Command2_Click()ClsEnd SubPrivate Sub Form_Resize()Form1.Width = 4560Form1.Height = 3500End Sub实验B,7Private Sub Command1_Click()x = InputBox("请输入一个正实数")Picture1.Print "平方=" & Format(x ^ 2, "0.000") & " "; "平方根=" & Format(x ^ (1 / 2), "0.000") & " "; "立方=" & Format(x ^ 3, "0.000") & " "; "立方根=" & Format(x ^ (1 / 3),"0.000")End Sub习题二答案2-1、类是同类对象集合的抽象，规定了这些对象的公共属性和方法。
VB程序设计教程实验指导与习题解答上机答案
自测1程序代码Private Sub Command1_Click()Label1.FontSize = Label1.FontSize + 3 End SubPrivate Sub Command2_Click()Label1.FontBold = TrueEnd SubPrivate Sub Command3_Click()Label1.FontUnderline = TrueEnd SubPrivate Sub Command4_Click()Label1.FontSize = 10Label1.FontBold = FalseLabel1.FontUnderline = FalseEnd Sub初始窗口：单机放大之后窗口：单机下划线之后窗口：单击加粗之后窗口：单击还原之后窗口：自测2程序代码Private Sub Command1_Click() Label1 = "visual basic"Text1 = "程序设计题"End SubPrivate Sub Command2_Click() Text1 = "visual basic"Label1 = "程序设计题"End Sub初始窗口：单击显示之后窗口：单击交换之后的窗口：自测题3Private Sub Command1_Click()Label1.FontSize = Label1.FontSize * (0.5) End SubPrivate Sub Command2_Click()Label1.Top = Label1.Top + 30Label1.Width = Label1.Width + 20Label1.Alignment = 1End Sub—初始窗口：单击缩小两倍之后的窗口：单击向右下角移动之后的窗口：—自测题4程序代码Private Sub Command1_Click()Form1.Caption = "VB学习"Print "简单的VB程序设计"End SubPrivate Sub Command2_Click()Cls—End SubPrivate Sub Command3_Click()EndEnd SubPrivate Sub Command3_Click()EndEnd Sub初始化窗口：单击显示之后的窗口：—单击清除之后的窗口：单击退出之后的窗口：自测题5程序代码Private Sub Command1_Click()Text1.Text = ""Text2.Text = ""End SubPrivate Sub Command2_Click()Text3.Text = Val(Text1.Text) + Val(Text2.Text) End SubPrivate Sub Command3_Click()EndEnd Sub初始化窗口：单击运算之后窗口：单击清除之后的窗口：单击退出之后的窗口：自测练习 1Private Sub Command1_Click() Dim a$a = Text1.TextLabel1.Caption = Left(a, 2) End SubPrivate Sub Command2_Click() a = Text1.TextLabel2.Caption = Right(a, 2) End SubPrivate Sub Command3_Click()—Text1.Text = Label1.Caption & Label2.CaptionEnd Sub初始窗口界面输入字符串截取前两个字符截取后两个字符字符串连接自测练习 2Private Sub Form_Click()Dim a%, b%, c%, d%, e%, f%, g%, h%, i%, j%, k%, l% a = 7349e = a Mod 10 '个位d = (a \ 10) Mod 10 '十位c = (a \ 100) Mod 10 '百位b = a \ 1000 '千位i = (e + 7) Mod 10 '个位h = (d + 7) Mod 10 '十位g = (c + 7) Mod 10 '百位f = (b + 7) Mod 10 '千位j = ii = f '交换后的个位f = j '交换后的千位k = hh = g '交换后的十位g = k '交换后的百位l = f * 1000 + g * 100 + h * 10 + iText1.Visible = False—Print "加密前的4位整数是7439"; (Chr(10)); "加密后的结果是"; lEnd Sub初始界面单击窗体运行后的界面自测练习 1Private Sub Form_Click()Dim a%, b%, c%, d%, e%, f!a = Val(InputBox("输入第一个数", "输入一个数", 8))b = Val(InputBox("输入第一个数", "输入一个数", 7))c = a + bd = a - be = a * bf = a / bf = Fix(f * 100 + 0.5) / 100MsgBox "x+y=" & c & Chr(10) & "x-y=" & d & Chr(10) & "x*y=" & e & Chr(10) & "x/y=" & f, , "输出的结果"End Sub自测练习 2Private Sub Form_Click()Dim a%, b%, c%, d%, e%, f!a = Val(InputBox("输入第一个数的值"))b = Val(InputBox("输入第二个数的值"))c = Val(InputBox("输入第三个数的值"))d = Val(InputBox("输入第四个数的值"))e = a + b + c + df = e / 4—Print "和="; ePrint "平均值="; fEnd Sub自测练习 3Private Sub Form_Click()Dim h%, f%, x%, y%h = Val(InputBox("输入总头数")) f = Val(InputBox("输入总脚数")) x = (4 * h - f) / 2y = (f - 2 * h) / 2Print "笼中鸡的头数为"; x; "只" Print "笼中兔的头数为"; y; "只"End Sub自测练习1：Private Sub Form_Click() Dim a%, b%, c%a = Val(InputBox("请输入第一条边", "边长"))b = Val(InputBox("请输入第二条边", "边长"))c = Val(InputBox("请输入第三条边", "边长"))If a + b > c And a + c > b And b + c > a ThenIf a * a + b * b = c * c Or a * a + c * c = b * b Or b * b = c * c = a * a ThenPrint "直角"ElseIf a = b And b = c ThenPrint "等边三角形"ElseIf a = b Or a = c Or b = c ThenPrint "等腰三角形"ElsePrint "一般三角形"End IfElsePrint "不是三角形"End IfEnd Sub不是三角形运行结果：初始窗口：输入三条边：运行结果：直角三角形运行结果：—等边三角形运行结果如下：等腰三角形：一般三角形自测练习2：—Private Sub Form_Click()Dim a%, b!a = Val(InputBox("请输入"))If a Mod 2 = 0 And a Mod 3 = 0 And a Mod 5 = 0 Thenb = Sqr(a)Print a, bElseEndEnd IfEnd Sub初始化窗口：输入一个数：—运行结果：自测练习 3Private Sub Command1_Click()Dim a%, b%a = Val(Text1.Text)Select Case a > 0Case a < 20MsgBox "行李费为0.2元/kg", , "行李费"Case a >= 20 And a < 50MsgBox "行李费为0.3元/kg", , "行李费"Case a >= 50 And a < 100MsgBox "行李费为0.4元/kg", , "行李费"Case Elseb = 0.2 * 100 + (a - 100) * 0.5: MsgBox "行李费为" & b & "元", , "行李费"—End SelectEnd Sub初始窗口：输入10：输入25：输入55：—输入120：自测练习 1Option Base 1Private Sub Form_Click()Dim i%, a(1 To 20) As Integer—a(1) = 1: a(2) = 1Print a(1);Print a(2);For i = 3 To 10a(i) = a(i - 1) + a(i - 2)Print a(i);Next iPrintFor i = 11 To 16a(i) = a(i - 1) + a(i - 2)Print a(i);Next iPrintFor i = 17 To 20a(i) = a(i - 1) + a(i - 2)Print a(i);Next i初始界面：运行结果界面：自测练习 2Option Base 1Private Sub Form_Load() Form1.Width = 10000 Form1.Height = 5000 End SubPrivate Sub Command1_Click()Dim i%, j%, t%, a(1 To 4, 1 To 4) As Integer For i = 1 To 4For j = 1 To 4a(i, j) = Int(Rnd * 10) + 1Picture1.Print a(i, j);Next jPicture1.PrintNext iPicture3.Print "对角线的元素如下" For i = 1 To 4Picture3.Print a(i, i);Next iPicture3.PrintFor i = 1 To 4Picture3.Print a(i, 5 - i);Next iFor i = 1 To 4t = a(1, i)a(1, i) = a(4, i)—a(4, i) = tNext iFor i = 1 To 4t = a(i, 2)a(i, 2) = a(i, 3)a(i, 3) = tNext iFor i = 1 To 4For j = 1 To 4Picture2.Print a(i, j);Next jPicture2.PrintNext iEnd Sub运行初始界面：运—运行结果界面：自测练习 1Sub itostr(a As Integer)Dim b%, c$—a = Val(Text1.Text)While a >= 1c = Chr(a Mod 10 + 48) & ca = a \ 10WendText2.Text = cEnd SubPrivate Sub Command1_Click()Dim a As Integera = Val(Text1.Text)Call itostr(a)End Sub运行初始界面：运行结果界面：验证其他数字：自测练习2：Public Function area(n) As Double Dim c#, d#, e#, s#n = Val(Text2.Text)c = (1 - 0) / nWhile e <= 1d = I * c:e = (I + 1) * cs = s + (Sin(d) + Sin(e)) * c / 2I = I + 1Wendarea = sEnd Function—Private Sub Command1_Click()Dim s As DoubleCall area(n)Text1.Text = area(n)End Sub运行初始界面：运行结果：自测练习 3Private Sub Form_click()—n = Val(InputBox("请输入n的值"))x = Val(InputBox("请输入x的值"))Print "e的值="; es(n, x)End SubPrivate Function es(n, x)Dim a As Double, b As Double, c As Double, i As Integera = 1:b = 1:c = 1For i = 1 To na = x * a:b = b * i:c = c + a / bNext ies = cEnd Function运行初始界面：输入数据：—运行结果：自测练习4：For i = 1 To 4For j = i + 1 To 5If a(i) > a(j) Thent = a(i): a(i) = a(j): a(j) = t— End IfNext jNext iFor i = 1 To 5Print a(i); " ";Next iFor i = 1 To 5If Y < a(i) Thent = a(i): a(i) = Y: Y = tEnd IfNext iFor i = 1 To 6a(6) = tNext iEnd FunctionPrivate Sub Command1_Click()Dim i#, a%(1 To 6), Y%Y = Val(InputBox("输入y的值", "输入数据"))Insertfun a%(), YPrint—For i = 1 To 6Print a(i); " ";Next iEnd Sub运行初始界面：插入数据：运行结果：41011060蓝志鹏资源1102 实验8自测练习1：Private Sub Command1_Click()If Ch1.Value = 1 ThenText1.Text = "报名参加羽毛球比赛"End IfIf Ch2.Value = 1 ThenText1.Text = "报名参加乒乓球比赛"End IfIf Ch1.Value = 1 And Ch2.Value = 1 ThenText1.Text = "报名参加羽毛球，乒乓球比赛" End IfEnd Sub运行初始界面：运行结果：自测练习4：Private Sub Form_Load() Label1.Alignment = 2Label1.FontSize = 24Label1.FontName = "黑体" Label1.ForeColor = &HFF&—End SubPrivate Sub Option1_Click()Label1.Caption = "我是学生"End SubPrivate Sub Option2_Click()Label1.Caption = "我是教师"End SubPrivate Sub Option3_Click()Label1.Caption = "我是工人"End SubPrivate Sub Option4_Click()Label1.Caption = "我是农民"End Sub运行初始界面：—运行结果：。
VisualBasic程序设计教程第三版课后习题答案
VisualBasic程序设计教程第三版课后习题答案《VB程序设计》综合复习资料第⼀章Visual Basic程序设计概述⼀、填空题1、V isual Basic是⼀种⾯向__________的可视化程序设计语⾔，采取了__________的编程机制。
2、在VB中⼯程⽂件的扩展名是____________，窗体⽂件的扩展名是____________，标准模块⽂件的扩展名是____________。
3、执⾏“⼯程”菜单下的__________命令，可选择并添加ActiveX控件。
4、V isual Basic 6.0⽤于开发__________环境下的应⽤程序。
⼆、选择题1、下⾯不是VB⼯作模式的是（）A．设计模式B．运⾏模式C．汇编模式D．中断模式2、可视化编程的最⼤优点是（）A．具有标准⼯具箱B．⼀个⼯程⽂件由若⼲个窗体⽂件组成C．不需要编写⼤量代码来描述图形对象D．所见即所得3、下列不能打开属性窗⼝的操作是（）A．执⾏“视图”菜单中的“属性窗⼝”命令B．按F4键C．按Ctrl+TD．单击⼯具栏上的“属性窗⼝”按钮4、下列可以打开⽴即窗⼝的操作是（）A．Ctrl+D B．Ctrl+E C．Ctrl+F D．Ctrl+G5、V isual Basic的编程机制是（）A．可视化B．⾯向对象C．⾯向图形D．事件驱动三、简答题1、代码窗⼝主要包括哪⼏部分？2、在⼯程资源管理器窗⼝中，主要列出了哪三类⽂件？3、窗体布局窗⼝的主要⽤途是什么？4、VB的基本特点是什么？5、怎样理解可视化设计？6、怎要理解事件驱动编程？第⼆章简单的VB程序设计⼀、填空题1、设置是否可以⽤Tab键来选取命令按钮，应该⽤______________属性。
2、⼀个控件在窗体的位置由_______和________属性决定，其⼤⼩由__________和_________属性决定。
3、利⽤对象的属性setfocus可获得焦点，对于⼀个对象，只有其visible属性和____________属性为true，才能接受焦点。
VB程序设计习题及答案第2章VisualBasic语言基础知识
第2章 Visual Basic语言基础知识2．1 Visual Basic定义了几种数据类型，变量有哪几种数据类型，常量有哪几种数据类型。
【答】Visual Basic基本数据类型：1. 字符串型（String）：字符串分为变长字符串和定长字符串两种。
2. 数值型：数值型数据分为整型数和浮点数两类。
3. 货币型（Currency）4. 变体型（Variant）5. 字节型（Byte）6. 布尔型（Boolean）7. 日期型（Date）8. 对象型（Object）Visual Basic中包含两种常量，即文字常量和符号常量。
变量的基本数据类型：Byte（字节型），Boolean（布尔型），Integer（整型），Long （长整型），Single（单精度型），Double（双精度型），Currency（货币型），Date（日期型），Object（对象型），String（变长字符串），String（定长字符串），Variant（变体型、数字），Variant（变体型、字符）2．2 符号常量和变量有什么不同点?【答】符号常量一经定义，就不能在程序中的其他位置改变其值。
变量的值在程序中可以改变。
2．3 指出下列正确的变量名：g(1-k) 6adhs *sss kL2.1 Printx+1 ahi π .ex3 j5h【答案】正确的变量名：ahi，j5h2．4 指出下列正确的数字形式-1.25 ±0.123 89E D2585 10^(2.7) 3^5【答案】2．5 下列表达式若有错误，请改正（1） ts+cos(300) (2) (x+y)^(25÷s)（3） [(X1+X2)*(X1-3)-6]*7 (4) (X÷-2)+sin(1.2+π)【答案】(1) ts+cos(30*3.141593/180)(2) (x+y)^(25/s)(3) ((X1+X2)*(X1-3)-6)*7(4) (X/(-2))+sin(1.2+3.141593)2．6 写出下列数学式的Visual Basic表达式（1） sin(a)[cos(b)+1.5]（2） (x1+4)5(e2-a)（3） 36[(x1+π)(x1÷3.3)-b]（4） x-2π)【答案】Visual Basic表达式：(1) sin(a)*(cos(b)+1.5)(2) (x1+4)^5*(Exp(2)-a)(3) 36*((X1+3.141593)*(x1/3.3)-b)(4) x^（-2）+5.8*sin(3.5*3.141593)第3章顺序结构程序设计3．1 下列语句是否有错？若有，请改正。
vb程序设计教程参考答案
1、B2、A3、B4、答：属性：红色、充满氢气；事件：松手、针刺；方法：飞走、爆破。
5、答：事件是指对象能够识别并作出反映的外部刺激。
事件驱动又称消息驱动，事件驱动程序设计是指每个事件对应有相应的程序代码，仅在该事件发生时，该段代码才会被执行。
事件发生的顺序决定了代码执行的顺序，因此每次执行应用程序时，程序代码并不是按照程序编写的顺序来执行的。
6、答：VB是一个包括界面设计、程序编码、调试、编译并创建可执行程序的集成开发环境。
VB的集成开发环境的主界面中包含：标题栏、菜单栏、工具栏、控件箱、工程资源管理器、属性窗口、“窗体布局”窗口、窗体设计器、代码编辑器等元素组成。
7、答： VB菜单条通常情况下有：文件、编辑、视图、工程、格式、调试、运行、查询、图表、工具、外接程序、窗口、帮助等13项菜单项组成。
8、答：工具栏可自行定义。
标准工具栏中通常情况下有：添加标准exe工程、添加窗体、菜单编辑器、打开工程、保存工程、剪切、复制、粘贴、查找、撤消、重复、启动、中断、结束、工程资源管理器、属性窗口、窗体布局窗口、对象浏览器、工具箱、数据视图窗口、可视化元件管理器等按钮组成。
9、答：创建VB应用程序的一般步骤为：创建界面；设置窗体和控件属性；编写代码；保存工程；运行并调试程序；检查并排除错误；创建可执行文件。
10、Private Sub Command1_Click()Label1.Caption = "I love vb,I hate vb"End Sub1、2、3、S1 输入待判断自然数： N（N>=2）；S2 i=2；S3 判断i是否小于N-1，若不是转S5S4 判断N除以i的余数是否为0,如果不是则i=i+1转S3；S5 判断i是否等于N，若是输出“是素数”，否则输出“不是素数”。
4、S1 输入待判断自然数： N；S2 将N转换成字符S，计算S的长度K；S3 i=1；S4 判断i是否小于K-1，若不是转S6；S5 判断S中的第i位和第K-i+1位是否相等,如果是则i=i+1转S4，如果不是则转S6；S6 判断i是否是中间位数，若是输出“是回文数”，否则输出“不是回文数”。
vb实验报告(答案)
2）属性设置
控件对象属性属性值
Text1 Name Txt1
Command1 Name Cmd1
Cmd1 Caption计算
Txt1 Caption全国计算机等级考试二级
3）代码设计
Private Sub Cmd1_Click()
Print Txt1.SelText
End Sub
17、在名称为Form1的窗体上画一个文本框，其名称为Text1，编写适当的事件过程。程序运行后，如果单击窗体，则可使文本框移到窗体的左上角；而如果改变文本框中的内容，则可使文本框移到窗体的右上角。
2、已知字符串A的值为“AbcDe“，现在把它全部转换为大写字母，正确的语句是______Ucase(“AbcDe“)________。
3、有如下程序
a=300 : b=20
a=a + b : b=a–b
a=a–b
print a
print b
分析该程序的功能是_____a与b互换______
4、可以同时删除字符串前导和尾部空白的函数是（C）。
A. ShowB. Hide C. LoadD. Unload
3、在窗体上有多个控件，要实现程序运行后焦点默认在某一控件上，应该设置的属性是（C）。
A.设置Enabled的值为TrueB.设置TabIndex的值为1
C.设置TabIndex的值为0D.设置Index的值为0
4、设窗体上有一个文本框Text1，要求只能显示信息，不能输入，则应设置（B）。
Text1.Left = Text1.Left + 50
End Sub
14、在窗体上部设置一个文本框（text1），文本框的下面设置3个命令按钮，其中左边按钮（command1）中标有“单击此按钮”，中间按钮（command2）中标有“清除”，右边按钮（command3）中标有“程序结束”。当程序运行时，用鼠标单击左边按钮时，屏幕上部的文本框中显示“欢迎使用vb6.0”;如果单击中间按钮，则清除文本框中显示的内容；而如果单击右边的按钮，则结束程序。
VB实验报告参考答案(本部)
实验报告参考答案（本部）实验一VB集成开发环境实验内容（3）：四、设计流程①界面设计：在窗体上画一个标签。
②属性设置：标签的width设为2000，height设为300。
有边框是BordStyle设为1，背景透明是BackStyle设为0。
显示“等级考试”是将caption设为“等级考试”，居中是将Alignment 设为2。
③代码设计：无五、关键代码（注意：解题方法有多种，其它方法只要能完成实验任务也是正确的）无六、调试和测试结果至少要写测试结果正确，如果写了调试中出现的典型问题及解决方法，分数给高些实验二简单的VB程序设计实验内容（3）：四、设计流程①界面设计：在窗体上画一个标签、一个命令按钮。
②属性设置：固定边框是BordStyle设为1，背景透明是BackStyle设为0。
③代码设计：分别在3个事件过程form_load()，form_click(),Cmd1_click()中编程。
其中图片从网上下载，与工程文件、窗体文件保存在同一目录，代码中使用相对路径app.path。
五、关键代码（注意：解题方法有多种，其它方法只要能完成实验任务也是正确的）Private Sub Form_Load()Form1.Picture = LoadPicture(App.Path + "\tu.jpg")Form1.Caption = "我的变化"End SubPrivate Sub Form_Click()LBL1.Top = 0LBL1.Left = 0End SubPrivate Sub Cmd1_Click()Cmd1.Height = 1500Cmd1.Width = 2000End Sub六、调试和测试结果至少要写测试结果正确，如果写了调试中出现的典型问题及解决方法，分数给高些实验三数据类型及其运算四、设计流程①界面设计：在窗体上画1个文本框、1个标签、6个命令按钮。
VB程序设计教程 实验2答案
41011066付乾峰资源1103实验2 自测练习1，程序Private Sub Command1_Click()Dim ss = Text1.TextLabel1.Caption = Left(s, 2)End SubPrivate Sub Command2_Click()Dim ss = Text1.TextLabel2.Caption = Right(s, 2)End SubPrivate Sub Command3_Click()Dim ss = Text1.TextText1.Text = Label1.Caption & Label2.CaptionEnd Sub截图自测练习2，程序Private Sub Command1_Click() Dim m%, a%, b%, c%, d%m = V al(Text1.Text)a = m Mod 10b = m \ 10 Mod 10c = m \ 100 Mod 10d = m \ 1000a = (a + 7) Mod 10b = (b + 7) Mod 10c = (c + 7) Mod 10d = (d + 7) Mod 10Print "加密前的4位整数是" & mPrint "加密后的结果是" & a & b & c & dEnd SubPrivate Sub Command2_Click()EndEnd 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日①将做成的展布挂在篮球场边的围栏；②将写上祝愿词的展板放在九斋宿舍内。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
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、各工作人员必须保持高度责任感，明确此次活动不仅是在为同学服务，同时也涉及到学生楼、层长以及学生公寓自律委员会的信誉问题。
注：本次活动最终解释权归北京科技大学学生自律管理委员会九斋北京科技大学学生自律委员会公寓九斋
二〇一二年三月十九日。