浅谈如何建立三层体系结构的ASP应用程序随着互连网应用的深入和发展，三层体系结构的应用模式也得到更多人的青睐。本文介绍了三层结构应用程序的概念和优点，并结合一个实例介绍了如何建立三层结构的ASP应用程序。
一、两层结构的ASP应用有何缺点
在Browser/Server 应用程序开发领域，微软公司的IIS/ASP以其强大的功能，良好的扩展能力，及与其它微软产品的一致性，迅速地流行起来。它能使一个具有VB/VC经验的程序员，很快地成为一个Web程序员，开发出看上去非常专业的应用。但是，ASP有一个天生的缺点，就是ASP代码和HTML代码是混在一起的，ASP程序员既需要考虑与数据库打交道，需要关心如何与HTML配合，有时还需要用ASP直接生成HTML代码。其结果是，当程序逻辑足够复杂时，.asp源文件非常长；而且，无论客户提出用户界面的改变，还是商业逻辑的改变(比如，在考试系统中，"合格"的标准可能从达到60分就算合格，改为进入前100名才算合格)，都需要对.asp文件进行改动，而商业逻辑的改变，很可能需要改动很多文件。
二、三层结构的概念
在传统的Client / Server应用中，也存在着上述同样的问题，多层结构的应用正是在对C/S 结构的总结基础上产生的，并且也已经扩展到了B/S应用开发领域。即将应用划分为三层(可以有更多层，但三层最常见): 用户界面层，商业逻辑层，数据库层。用户界面层负责处理用户的输入和向用户的输出，但并不负责解释其含义(出于效率的考虑，它可能在向上传输用户输入前进行合法性验证)，这一层通常用前端工具(VB，VC，ASP等)开发;商业逻辑层是上下两层的纽带，它建立实际的数据库连接，根据用户的请求生成SQL语句检索或更新数据库，并把结果返回给客户端，这一层通常以动态链接库的形式存在并注册到服务器的注册簿(Registry)中，它与客户端通讯的接口符合某一特定的组件标准(如COM，CORBA)，可以用任何支持这种标准的工具开发;数据库层负责实际的数据存储和检索。有了这样的结构，上面的问题迎刃而解:还是以考试系统中的合格标准为例，在客户端所有需要显示合格人员名单的地方，调用这样一个函数GetQualifiedList，至于这个函数如何编写，如何与数据库打交道，以至访问的是何种数据库都与其无关(你一定有过这样的经历，在一种数据库系统上运行得很好的SQL语句，有时换到另一种数据库系统上必须加以修改); 在中间层DLL中实现这个GetQualifiedList函数，如果用户对"合格"的定义变了，只需要修改这个函数就可以了，只要此函数的入口参数和返回内容不变，在客户端不需作任何改动。在这里，我们看到了面向对象编程的特性之一封装性的优点，而这一点在开发大型应用时尤其有用--我们可以把开发人员分成两组，一组负责开发界面层，另一组负责开发商业逻辑层，双方只要按照事先商定的函数接口，并行地开发就可以，而不必向从前那样，后面的工作必须等前面的工作完成后才能开始。当然，这样的开发模式需要很好的项目协调和文档作支持。
你也许会问，如果我把这些函数些在一个单独的文件中，再在需要调用的地方把它包含进来，不是同样能达到目的吗? 第一，这种方法效率不高，无论你把这些函数分散到多少个文件中，当你需要调用其中一个时，总会包含进一些实际上并不需要的函数，这无疑加重了服务器的负担，对服务器性能要求较高的Web应用尤其如此。而DLL只在需要时才调入内存且只调入需要的函数，并且多个应用程序实例可以共享同一个DLL实例；第二，设想一个员工，有20个属性(工号，姓名，年龄，性别......)，现在给定某工号，要求返回此员工所有信息。此时如果单纯用函数，只能定义20个全局变量，在函数中改变这些变量值，或者定义一个有20个传参(by reference)参数的函数。显然，第一种方法很麻烦而一旦增加一个属性后一种方法就需要更改函数接口。而在一个对象里，既包含成员方法(即函数和过程)，也包括成员属性。如果我们采用对象的方法，则在函数中只需要改变对象的属性，在函数外可以直接引用改变了的对象属性值。这种方法有些类似第一种方法，但1.属性值无需在函数外逐一说明；2.这些属性值只属于对象，与对象无关的代码不会无意地改变属性值；3.一旦对象被释放，这些值会被一起释放。
三、如何开发三层结构的ASP应用程序
ASP具有良好的扩充性，我们访问数据库时，采用的时ADO对象，访问文件时，采用的是文件系统对象(FSO)，其实这时程序已经是三层结构的应用程序了，只不过由于是利用内置的对象而为意识到罢了。这些对象都遵循COM/ActiveX接口，因此我们自己开发的对象也要遵循这个接口。下面，我们就以上文提到的"合格"标准为例，演示如何创建自己的三层结构的ASP应用。
1、在数据库系统中建立如下数据库表:
Employee: EMPLID char (5) not null，
Name char (10) not null，
Gender char (1) not null，
Score int not null
此表存储员工信息和考试成绩，为简单起见，这里只包含工号，姓名和性别三项，并且只有一门考试，EMPLID为主键。
2、建立动态链接库
启动VB(这里以VB为例，你可以用你喜欢的任何支持ActiveX接口的开发工具开发)，新建一工程，工程类型为ActiveX DLL。在工程中新建一个类，取名为Employee。你可以Class Builder可视化的向类中填加属性和方法，也可以直接手工编辑。首先填加EMPLID属性如下：Private msEMPLID as string
Property Let EMPLID(sEMPLID as string)
msEMPLID=sEMPLID
End Property
Property Get EMPLID() as string
EMPLID=msEMPLID
End Property
一般地讲，每一个属性都应该有Property Let和Property Get两个方法，它们分别当向属性赋值和读取属性值时被调用。如果某个属性只被赋值而从不被读取(这种情况多发生在对应数据库表的主键的属性上)，则Property Get方法可以省略。Property Let方法不能省略。你可以仿照上面的程序再建立Name，Gender和Score三个属性。然后创建如下方法:
Public Sub Create(EMPLID as string)
dim conn as new Connection
dim rs as new Recordset
dim sql as string
'Suppose that you create a DSN in the control panel, the connectionstring property
'can also be dsn-less string
conn.ConnectionString="dsn=dsnname;uid=username;password=pwd"
conn.open
sql="select * from Employee where EMPLID='" & EMPLID & "'"
with rs
.open sql,conn,1,3
if .eof and .bof then
exit sub
else
msEMPLID=trim(.Fields("EMPLID"))
msName=trim(.Fields("Name"))
msGender=trim(.Fields("Gender"))
msScore=.Fields("Score")
end if
.close
end with
set rs=nothing
conn.close
set conn=nothing
End Sub
这里根据EMPLID创建Employee对象，注意数据库中的值是赋给三个私有变量，而不是直接赋值给属性，如果你单步调试就会发现，给msEMPLID赋值会调用Property Let EMPLID，也就是给属性赋值。
下面我们再创建一个类Employees，并填加如下方法:
private colQualifiedList as new Collection
private mnCurrentIndex as integer
Public Sub GetQualifiedList()
dim conn as new Connection
dim rs as new Recordset
dim sql as string
'Suppose that you create a DSN in the control panel, the connectionstring property
'can also be dsn-less string
conn.ConnectionString="dsn=dsnname;uid=username;password=pwd"
conn.open
sql="select EMPLID from Employee where Score>=60 order by Score desc"
with rs
.open sql,conn,1,3
if .eof and .bof then
exit sub
else
do while not .eof
dim oEmployee as new Employee
oEmployee.Create trim(.Fields("EMPLID"))
colQualifiedList.Add oEmployee
set oEmployee=nothing
loop
end if
.close
end with
set rs=nothing
conn.close
set conn=nothing
End Sub
首先请注意VB中创建类实例的语法dim oEmployee as new Employee，后面会看到，在ASP中创建类实例的语法是不同的。这个方法检索成绩大于等于60的员工工号，并据此创建一个Employee对象，再将此对象加入私有的集合对象中。下面两个函数遍历集合中的元素: Public Function GetFirst() as Employee
if colQualifiedList.count>0 then
mnCurrentIndex=1
set GetFirst=colQualifiedList.Item(1)
else
set GetFirst=nothing
end if
End Function
Public Function GetNext() as Employee
mnCurrentIndex=mnCurrentIndex+1
if mnCurrentIndex>colQualifiedList.count then
set GetNext=nothing
else
set GetNext=colQualifiedList.Item(mnCurrentIndex)
End if
End Function
也许你会说，为何不把集合声明Public，这样在ASP中不是可以直接引用吗？确实，这样也行得通，编程实现起来也更简单些，但是，这样做破坏了封装性原则。因为数据以何格式存储完全是商业逻辑层的事，与用户界面层无关，假设有一天你因为每种原因放弃了用集合来存储数据的设计，而改用数组或记录集(Recordset)来存储，那你只需要修改GetFirst和GetNext两个函数，用户界面层完全无需修改。
至此类文件创建完毕，将工程文件存为test.vbp，选File菜单下的Make test.dll选项将其编译。
3、注册动态链接库
启动Web Server 上的
Microsoft Transaction Server (Start--Windows NT Optionpack4--Internet Information Server--Internet Service Manager)，展开Microsoft Transaction Server--Computer--My Computer--Package Installed，点鼠标右键选New--Package--Create Empty Package，输入包名Test(这里Test是任选的名字，不一定要与DLL同名)，OK-Interactive User-the current Logon user--Finish。双击Test--Component，右键选Component-New-Component-Install New component(s)-- Add File，选择你刚编译好的DLL文件，MTS会发现DLL中有两个类Employee和Employees。至此DLL注册完毕。
4、编写ASP程序
Qualified Employee List
| Employee ID | Name | Gender | Score |
| <%=oEmployee.EMPLID%> | <%=https://www.doczj.com/doc/2f12335990.html,%> | <%=oEmployee.Gender%> | <%=oEmployee.Score%> |
注意在ASP中创建类实例的语法set oEmployees=server.createobject("Test.Employees")，其中Test是DLL的名字，Employees是类的名字; 当然，如果一个函数的返回值是一个对象，类似set oEmployee=oEmployees.GetFirst()这样的语法也是可以的。
至此，一个完整的三层结构的应用程序已经完成了，让我们看以下，如果把"合格"的定义改为:只有成绩进入前100名才算合格，程序需要做那些修改。事实上，如果你的数据库系统是SQL Server，你只需把SQL语句改为:
sql="select top 100 EMPLID from Employee order by Score desc" 就已经可以了，即使为了跨数据库系统的兼容性，我们也只需要对GetQualifiedList做如下修改：
sql="select EMPLID from Employee order by Score desc"
with rs
.open sql，conn，1，3
if .eof and .bof then
exit sub
else
i=1
do while (not .eof) and (i<=100)
dim oEmployee as new Employee
oEmployee.Create trim(.Fields("EMPLID"))
colQualifiedList.Add oEmployee
set oEmployee=nothing
i=i+1
loop
end if
.close
end with
...
然后把DLL重新编译，注册就可以了，ASP程序完全不必修改。
四、一些说明和注意事项
1、由于这个例子比较简单，在Employee类中可以没有Create方法，而在Employees类中将员工的所有信息(工号，姓名，性别，成绩)都读出来并将其赋给Employee对象对应的属性。但在实际应用中，当Employee对象的属性增多，或表的数量增多，表之间关系变复杂时，还是本文所示的方法更有效，代码重用的机会更大。
2、当DLL被修改后，在MTS中只能将其删除后重新注册，因为每次重新编译后在注册表中对象的ID值都将重新生成。
3、从ASP中调用带参数的类方法和函数时，所有的变量参数一定要用相应的类型转换函数转换后再传入，否则会引起类型不匹配错误，因为VBScript中只有Variant类型，它不能自动转换成其它类型。例如，有如下的函数定义:
Public Function Fun1(p1 as string，p2 as integer) as integer
End Function
在ASP程序中应如下调用:
<%
p1=obj.property1 ' Property1 is a string property
p2=obj.property2 'Property2 is an integer property
a=obj.Fun1(cstr(p1)，cint(p2))
a=obj.Fun1("aaa"，10) ' constant parameter need not be changed
%>
而下面的两种写法是错误的:
<%
p1=obj.property1 ' Property1 is a string property
p2=obj.property2 'Property2 is an integer property
a=obj.Fun1(p1，p2) ' incorrect，p1 and p2 are variant variables
p1=cstr(p1)
p2=cint(p2)
a=obj.Fun1(p1，p2) ' still incorrect
%>
这里第二种写法仍然是错误的，即使经过了类型转换，p1和p2仍然是Variant变量。在VBScript中，数据类型和类型转换函数只在表达式运算中起作用，变量只有Variant一种类型。
结束语
以上对多层结构的理论和实践进行了一番探讨，希望能对您的开发有所帮助。这里还有一个问题，即类和类的成员该如何设计。这既涉及面向对象编程的理论，也需要一定的实践经验。请参考相关的OOP理论书籍并在实践中不断总结，相信您一定能设计出自己的完美的多层结构的应用程序。
重庆科技学院 《https://www.doczj.com/doc/2f12335990.html,动态网站设计》 课程设计报告 学院:_电气与信息工程学院_ 专业班级:计科2012-02 学生姓名:学号: 设计地点（单位）__ _ 计算机基础自主学习中心 __ _ 设计题目:_ 图书信息管理系统设计_______ 完成日期：2014年 6 月 27 日 指导教师评语: ______________________ _________________ _______________________________________________________________________ _______________________________________________________________________ _________________________________________________________ __________ _ 成绩（五级记分制）:______ __________ 指导教师（签字）:________ ________
重庆科技学院 课程设计任务书设计题目：图书信息管理系统 学生姓名 课程名称动态网页设计 —https://www.doczj.com/doc/2f12335990.html, 专业班级 计科2012—02 地点实验楼I栋：I301等起止时间2014 年6月 23 日至 2014年 6 月 28日 设计内容及要求1、设计内容： 为方便学院对图书进行管理，模拟实现一个图书信息管理系统，该系统需提供以下功能： 1）注册 2）登录 3）用户管理 4）管理员在页面添加删除图书 5）其他用户进入图书馆简介 2、解决方法： 1）需求分析，建立该系统的功能模块框图以及界面的组织和设计； （2）分析系统中的各个实体及它们之间的关系； （3）根据问题描述，设计系统的类层次； （4）完成类层次中各个类的描述； （5）完成类中各个成员函数的定义； （6）完成系统的应用模块； （7）功能调试； （8）完成系统总结报告。 设计参数（1）设计题目，需求分析（2）结果显示 （3）界面美观 （4）报告格式规范 进度要求周一：明确设计任务，学习相关基础知识周二：熟悉各知识点，进行基础练习 周三：根据题目要求，进行设计和实现周四：根据题目要求，进行设计和实现周五：程序测试
《VB程序设计》综合复习资料习题
《VB程序设计》综合复习资料 第一章Visual Basic程序设计概述 一、填空题 1、Visual Basic是一种面向__________的可视化程序设计语言，采取了__________的编程机制。 2、在VB中工程文件的扩展名是____________，窗体文件的扩展名是____________，标准模块文件的扩展名是____________。 3、执行“工程”菜单下的__________命令，可选择并添加ActiveX控件。 4、Visual Basic 6.0用于开发__________环境下的应用程序。 二、选择题 1、下面不是VB工作模式的是（） A．设计模式B．运行模式C．汇编模式D．中断模式 2、可视化编程的最大优点是（） A．具有标准工具箱 B．一个工程文件由若干个窗体文件组成 C．不需要编写大量代码来描述图形对象 D．所见即所得 3、下列不能打开属性窗口的操作是（） A．执行“视图”菜单中的“属性窗口”命令 B．按F4键C．按Ctrl+T D．单击工具栏上的“属性窗口”按钮 4、下列可以打开立即窗口的操作是（） A．Ctrl+D B．Ctrl+E C．Ctrl+F D．Ctrl+G 5、Visual Basic的编程机制是（） A．可视化B．面向对象C．面向图形D．事件驱动 三、简答题 1、代码窗口主要包括哪几部分？ 第 2 页共 32 页
2、在工程资源管理器窗口中，主要列出了哪三类文件？ 3、窗体布局窗口的主要用途是什么？ 4、VB的基本特点是什么？ 5、怎样理解可视化设计？ 6、怎要理解事件驱动编程？ 第二章简单的VB程序设计 一、填空题 1、设置是否可以用Tab键来选取命令按钮，应该用______________属性。 2、一个控件在窗体的位置由_______和________属性决定，其大小由__________和_________属性决定。 3、利用对象的属性setfocus可获得焦点，对于一个对象，只有其visible属性和____________属性为true，才能接受焦点。 4、设置控件背景颜色的属性名称是______________________。 5、所有控件都具有的共同属性是__________________属性。 6、一般情况下，控件有两个属性项的缺省值是相同的，这两个属性项是_______________。 7、VB中的每个对象（控件）都有一组特征，这组特征称为__________，我们通过修改它可以控制对象的外观和操作。 8、通常情况下，VB中一个工程主要包括如下四个文件：窗体文件、工程文件、类模块文件和_____________文件，后者的扩展名为.Bas，通常由Basic语言编写，是一个可共用的子程序。 9、VB有三种工作模式，分别是设计（Design）模式、_____________和中断（Break）模式。 二、选择题 1、以下能够触发文本框Change事件的操作是（） A．文本框失去焦点B．文本框获得焦点 C．设置文本框的焦点D．改变文本框的内容 2、应用程序设计完成后，应将程序保存，保存的过程是（） A．只保存窗体文件即可 B．只保存工程文件即可 第 3 页共 32 页
两栋三层钢筋混凝土框架结构施工 结构设计 第一章编制依据
1.2工程勘察和调查资料 由勘测报告，地基承载力特征值f ak 165KPa。属于II类场地，地 下水位在地表下6-7m。施工场地宽阔。 1.3主要图集 表1-4主要图集 1.4主要标准 表1-5主要标准 第二章工程概况 2.1工程的建设概况 本工程为合肥某药品有限公司的A、B 两栋3 层钢筋混凝土框架结构办
公楼，位于合肥市高新区望江西路路边，抗震按七度三级设防，耐火等级为二级，由安徽众成医药食品工程设计有限公司设计，合理使用年限为50年。各项施工准备工作要在5月份完成；6 月至11 月为施工期。两栋楼房的建筑、结构完全相同，平面呈一字型。 2.2 工程的设计概况 2.2.1 建筑设计 两栋楼房的建筑、结构完全相同，平面呈一字型。两楼并列，相邻两 山墙轴线距离为8.0m。每个建筑总面积1065平方米；房屋总宽为 14.69 米，长为24.4 米，首层地标高为± 0.00 ，室外地面标高为－ 0.45 ，女儿墙压顶标高为＋11.40 米；层高均为3.60 米。室内装修主要采用白灰砂浆，外喷106 涂料，室外装饰以马赛克为主，窗间墙为干粘石，腰线、窗套为贴面砖。散水为混凝土一次抹光。 2.2.2 结构设计 基础结构 该工程采用的是独立柱基础，挖基坑-夯实-做垫层-做钢筋骨架- 浇筑混凝土。基础的埋深为1.00 －1.50m。 主体结构 主体上的混凝土的等级为C30,钢筋的直径? 25?? 12 （H级）、? 12?? 6 （I 级）。 1）首层地面：20厚1: 2水泥砂桨，压实抹光，60厚C15混凝土， 100 厚碎石压实，素土夯实。框架部份楼地面为10 厚1：2 水泥砂桨面层压实抹光，15 厚1：3 水泥砂桨找平层，钢筋混凝土楼板上清理 干净 2）屋面防水做法：20厚1: 2.5水泥砂桨粉面且抹光，刷油粒子铺高分子卷材一层，20 厚1：2.5 水泥砂桨找平，三粘四油，20 厚水泥砂桨找平
《软件项目设计》课程设计任务书 计算机科学与技术专业 课程设计时间：2014.12.1~12.13 电气与信息工程学院2014年11月
Java程序设计课程设计任务书 一、课程设计目的 《软件项目设计》课程设计，属于集中实践教学环节，，是完成教学计划达到教学目标的重要环节，是教学计划中综合性较强的实践教学环节，它对帮助学生全面牢固地掌握课堂教学内容、培养学生的实践和实际动手能力、提高学生全面素质具有很重要的意义。《软件项目设计》是一门实用性和实践性都很强的课程，课程设计环节应占有更加重要的地位。本课程要求用https://www.doczj.com/doc/2f12335990.html,/JAVA EE技术设计一个网站，提高综合应用所学知识的能力，积累开发Web应用程序的编程经验，提高编程与调试能力，团队协作能力，本课程设计应达到以下教学目的： 1、掌握使用https://www.doczj.com/doc/2f12335990.html,/JAVA EE开发WEB应用程序所需的知识和技能 2、提高利用https://www.doczj.com/doc/2f12335990.html,/JAVA EE开发WEB应用程序的能力； 3、加深学生对于数据信息及其网络管理利用的理解； 4、培养系统设计的整体思想、学习编写技术文档 5、提高学生的网站设计与开发能力； 6、使学生掌握利用软硬件资源发布一个具体网站的操作过程。 7、培养独立学习、吸取他人的经验、探讨技术的习惯，培养团队协作能力 二、课程设计任务及要求
本课程主要训练学生综合运用https://www.doczj.com/doc/2f12335990.html,/java ee技术、数据库技术以及面向对象技术的知识,针对实际问题进行web应用程序的设计和实现,每个学生完成一个老师提供的课题或自选课题。 学生要发挥自主学习的能力，充分利用时间，安排好课程设计的时间计划，并在课程设计过程中不断检测自己的计划完成情况，及时向教师汇报。 供选择的课题（也可自选，但需征得指导教师同意。） 1、企业员工信息管理系统 2、学生成绩管理系统 3、餐饮经营管理系统 4、教学文档管理系统 5、计算机等级考试报名系统 6、在线计算机等级考试系统 7、网上图书销售系统 8、烟草销售管理系统 9、教师教学、科研工作量管理系统 10、校园音乐点播放系统 11、校园二手物品交易系统 ………
第一套试题 一、选择题（每题2分，共30分） 1.在VB环境中，工程文件的扩展名是( C ) （A）.frm （B）.bas （C）.vbp （D）.frx 2.下面4项中不属于面向对象系统三要素的是( A ) （A）变量（B）事件（C）属性（D）方法 3. \、/、Mod、*这4个算述运算符中，优先级别最低的是( C ) （A）\ （B）/ （C）Mod （D）* 4.要使Print方法在Form_Load事件中起作用，要对窗体的( C )属性进行设置（A）BackColor （B）ForeColor （C）AutoRedraw （D）Caption 5.不论何控件，共同具有的属性是( B ) （A）Text （B）Name （C）ForeColor （D）Caption 6.要使Form1窗体的标题栏显示“欢迎使用VB”，以下语句正确的是( D ) （A）Form1.Caption=“欢迎使用VB”（B）Form1.Caption=ˊ欢迎使用VBˊ（C）Form1.Caption=欢迎使用VB （D）Form1.Caption=〞欢迎使用VB〞 7.VB提供了结构化程序设计的3种基本结构，这3种基本结构是( D ) （A）递归结构，选择结构，循环结构（B）选择结构，过程结构，顺序结构 （C）过程结构，输入、输出结构，转向结构（D）选择结构，循环结构，顺序结构 8.给变量赋值a=123+MID(“123456”,3,2)，a变量中的值是( D ) （A）“12334”（B）123 （C）12334 （D）157 9.下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是( D ) （A）If sex=“男”And age＜40 And InStr(duty,“教授”)＞0 Then n=n+1 （B）If sex=“男”And age＜40 And (duty=“教授”Or duty=“副教授”) Then n=n+1 （C）If sex=“男”And age＜40 And Right(duty,2)= “教授” Then n=n+1 （D）If sex=“男”And age＜40 And duty=“教授”And duty=“副教授” Then n=n+1 10.若要清除列表框的所有内容，可用来实现的方法是( C )
建筑工程 设计说明 一、建筑层数：三层结构形式：框架结构 建设总高度：12.45m 安全等级：二级 室内外高差：450mm 屋面防水等级：二级 耐火等级：二级设计抗震烈度：8度 二、1.尺寸单位：图中尺寸单位除注明者外，柱高以米计，其他均以毫米计。 2.室内±0.0001高出室外0.45m,±0.000相应的绝对标高放线时由甲方与施工单位现场确定。 3.墙体材料：250厚混凝土砌块。 4.地面排水：a.各有水房间找1%坡，坡向地漏。 b.入口处平台向室外找坡1%，找坡后完成面高处低于室内完成面20mm。 5.门窗：a.外门窗坐樘中。 b.内门坐樘开启方向为平开。 c.所有开启扇处均加以设纱扇、纱窗。 6.油漆维护：所有外露铁件均刷银粉漆，做法图集。 7.构造柱做法详见图16。 8.防潮层做法：在墙体0.060处铺设20厚1∶2水泥砂浆加5%防水粉。 三、建筑构造用料做法： 1.地面：地16＃陶瓷地砖地面用于卫生间外地面见详细做法 地26＃陶瓷地砖卫生间地面用于卫生间见详细做法 2.楼面：楼16＃陶瓷地砖楼面用于除卫生间外楼面 楼26＃陶瓷地砖卫生间楼面用于卫生间 楼36＃PVC塑胶卷材楼面（做详见说明）用于净化区部分楼面 3.踢脚：踢脚16＃.面砖踢脚用于除卫生间外楼地面部分 4.墙裙：裙16＃釉面砖墙裙用于卫生间部分 5.室内墙面：内墙16＃水泥砂浆墙面用于除踢脚墙裙以外部分 6.天棚：顶16＃.彩钢板吊顶吊顶采用50厚彩钢复合析，内填不燃材料 顶26＃.水泥砂浆顶棚要求耐火等级不低于1.0小时，用于净化区，吊顶高2.2m。 7.外墙面：外墙16＃涂料外墙面见立面图 涂料16＃乳胶漆 8.屋面：屋16＃.高聚改性沥青卷材防水层面 9.台阶：台16＃.地砖面层台阶
《VB程序设计基础》试题 一、选择题：（每空 2 分，共 20 分） 1. 与传统的程序设计语言相比,Visual Basic最突出的特点是___________。 A. 结构化程序设计 B. 程序开发环境 C. 事件驱动编程机制 D. 程序调试技术 2. Visual Basic 是一种面向对象的程序设计语言，构成对象的三要素是________。 A. 属性、事件、方法 B. 控件、属性、事件 C. 窗体、控件、过程 D. 窗体、控件、模块 3. 窗体模块保存在一个扩展名为__________的文件中。 A. bas B. vbp C. vbg D. frm 4. 下面正确的赋值语句是_________。 A. x+y=30 B. y=π*r*r C. y=x+30 D. 3y=x 5. 设S=“492”，表达式Right（S,1）+Left（S,1）+Mid（S,2,1）的值为__________。 A.“492” B.“249” C.“294” D.“429” 6. 将数学表达式a≤b≤c写成Visual Basic表达式，正确的是__________。 A. a<=b<=c B. a<=b Or b<=c C. a<=b And b<=c D. a<=b Not b<=c 7.为了把焦点移到文本框，所使用的方法是___________。 A. SetFocus B.Visible C.Refresh D.GetFocus 8. INT（100*RND）产生的随机整数的闭区间是_____________。 A.[0，100] B.[1，100] C.[1，99] D.[0，99] 9. 一个数组说明为Dim a(0 to 5，1 to 5) As Integer，则该数组共有_________个 元素。 A. 5 B. 36 C. 30 D. 不确定 10. 下面过程定义语句合法的是____________。
ASPNET 开发及应用课程设计报告 专业计算机科学与技术 班级1401班 设计人张丽媛 指导教师李光敏 时间2017年6月5
目录 第一章引言 ................................................................................................................- 0 - 1.1本课题的研究背景 ..............................................................错误！未定义书签。 1.2本课题的研究意义 ..............................................................错误！未定义书签。 1.3现行研究存在的问题及解决办法 ......................................错误！未定义书签。第二章系统分析 ........................................................................错误！未定义书签。 2.1 系统需求分析 .......................................................................错误！未定义书签。 2.2采用的关键技术介绍 ..........................................................错误！未定义书签。 2.3可行性分析 ..........................................................................错误！未定义书签。 2.3.1技术可行性 ...................................................................错误！未定义书签。 2.3.2操作可行性 ...................................................................错误！未定义书签。 2.3.3社会效益可行性 ...........................................................错误！未定义书签。第三章系统概要设计 ..................................................................错误！未定义书签。 3.1系统总体设计 ......................................................................错误！未定义书签。 3.1.1运行环境 .......................................................................错误！未定义书签。 3.1.2系统流程 .......................................................................错误！未定义书签。 3.1.3系统结构 .......................................................................错误！未定义书签。 3.2数据库概要设计 ..................................................................错误！未定义书签。 3.2.1逻辑结构设计 ...............................................................错误！未定义书签。 3.2.2物理结构设计 ...............................................................错误！未定义书签。第四章系统详细设计 ..................................................................错误！未定义书签。 4.1系统界面的详细设计 ..........................................................错误！未定义书签。 4.2数据库详细设计 ..................................................................错误！未定义书签。第五章系统实现 ..........................................................................错误！未定义书签。 5.1系统开发环境 ......................................................................错误！未定义书签。 5.2系统实现 ..............................................................................错误！未定义书签。 5.3系统运行环境要求 ..............................................................错误！未定义书签。 5.4系统部署 ..............................................................................错误！未定义书签。第六章性能测试与分析 ..............................................................错误！未定义书签。第七章课程设计总结与展望 ......................................................错误！未定义书签。参考文献........................................................................................错误！未定义书签。
《程序设计语言VB》课程习题集 一、单选题 1. Visual Basic是一种面向（）的程序设计语言。 A. 用户 B. 事件 C. 程序 D. 对象 2.在Visual Basic6.0中规定工程文件的扩展名是（）。 A. vbp B. for C. frm D. bas 3. Visual Basic6.0中规定窗体文件的扩展名是（）。 A. for B. frm C. vbp D. bas 4.如何使一个标签或按钮控件在运行时不可用（）。 A. 把它的Visible属性设置成False B. 把它的Visible属性设置成True C. 把它的Enabled属性设置成False D. 把它的Enabled属性设置成True 5.控件的字体可在属性窗口的（）属性中调整？ A. Font B. Color C. Text D. Caption 6.若要将某命令按钮设置为默认命令按钮。则应设置为True的属性是（）。 A. Value B. Cancel C. Default D. Enabled 7.在VB中，记录对象数据的是（）。 A. 方法 B. 事件 C. 属性
8.在文本框上显示文本的属性是（）。 A. Value B. Text C. Print D. Enabled 9. InputBox函数返回值的类型为（）。 A. 字符串 B. 数值 C. 变体 D. 数值或字符串（视输入的数据而定） 10.设有语句：a = InputBox("请输入数值:","输入示例", "100") 程序执行后,若从键盘上输入数值20并按回车键,则变量a的值是（）。 A. 字符串"20" B. 字符串"120" C. 默认值100 D. 数值120 11.下列控件中可用于接受用户输入文本，又可用于显示文本的是（）。 A. Label控件 B. TextBox控件 C. Timer控件 D. CommandButton控件 12.语句PRINT "25*4"的输出结果是（）。 A. 25*4 B. "100" C. 100 D. 出现错误信息 13.只能用来显示字符信息的控件是（）。 A. 文本框 B. 标签框 C. 图片框 D. 图像框 14.下列可作为Visual Basic变量名的是（）。 A. A%A B. 4A C. ?xy D. Stemp 15.下列哪个符号不能作为VB中的变量名（）。 A. timefly
A S P.N E T 课程设计报告 设计题目：学生选课系统设计系（部）：信息科学系 专业：计算机科学与技术学生姓名: 学号:
一、设计任务 设计一个学生选课系统。 基本要求： 1、有母板页和内容页，母板页包含Logo、导航、搜索、版权信息（学号姓名） 2、至少两种页面主题 3、实现基本系统功能 4、人员/会员管理，要实现增删查改 5、具体的题目要体现特色 6、其他扩展功能（加分项） 基本系统功能： 实现人员/物品信息增删查改、站内信息、人员管理 二、任务分工 三、需求分析 3.1 学生需求分析 学生可以登录到系统，如果还没有账户，首先注册账户，或者在学生登失败时提醒注册账户。学生登录到系统后可以查看有关课程、自己的信息、已选课信息，查收收到的信息，修改自己的信息（包括登录密码、联系方式等），学生可以选课、听课、下载资料、上传问题等。 3.2 教师需求分析 教师可以登录到系统，如果还没有账户，首先注册账户，或者在教师登失败
时提醒先注册账户。教师登录系统后，可以向管理员申请注册新的授课信息，查看自己授课信息。 3.3 管理员需求分析 管理员可以登录到系统，注册账号，删除学生和教师的账户信息，安排本系统可以进行的课程，发布公告，推荐最新课程等。 四、 总体设计 4.1 系统的功能模块图 图1 系统功能框图 系统的总体功能如图1所示，……(简单说明) 4.2重要功能的流程图 4.2.1 XXX 功能流程图 后台主要包括商品管理、订单管理以及用户等信息管理，包括对用户评论的回复，其业务流程如图2所示。 选课系统 学生 教师 管理员 注册账户 修改信息 网上选课 上课 注册账户 修改信息 申请授课 发放资料 注册账户 修改信息 修改、删除学生或老师信息 交流界面 交流界面
优质文档VB程序设计考试题库——考试专用 1、题目：(事件)单击窗体(响应)用输入框输入一自然数，判断是"正数"、"负数或"零"，并根据输入的数用消息框显示"正数"、"负数”或"零"。 2、题目：(事件)单击窗体。(响应)求200~300之间既能被3整除又能被7整除的数。并求出所有数之和存入变量SUM中 3、题目：单击窗体。(响应)已知S=1+1/4+1/9+1/16+1/25+…+1/100，结果输出在窗体上。 4、题目：(事件)单击窗体。(响应)在窗体上打印数列2/1,3/2,5/3,8/5,13/8…的前10项，并求其和，将和保存在变量s中。 5、题目：(事件)双击窗体。(响应)把一元钞票换成一分、二分和五分的硬币每种至少有一枚），求出其所有的换法，把结果输出在窗体上。将所有的换法的数目存入变量N中 6、题目：单击窗体。)求1!+2!+3!+4!+5!并将结果输出到窗体上。结果存入变量S中 7、题目：(事件)单击窗体。(响应)生成一个一维数组(10个数组元素依此为： ' 15、23、72、43、96、23、3、65、88、17 写程序求出这个数组中的最大值、最小值和平均值，并输出在窗体上。将最大值，最小值，平均值分别存入变量Max,Min,Aver中 8、题目：(事件)单击窗体。(响应)在窗体上输出100~200之间的所有合数。求出所有数之和存入SUM中所谓合数是指自然数中能被1和本数整除以外,还能被其他数整除的数。 9、题目：(事件)单击窗体。(响应)求10~20之间所有素数的乘积并输出在窗体上。将结果存入变量L中。 10、题目：(事件)单击窗体。(响应)求1 - 1/2 + 1/3 - 1/4 + ……+ 1/99 - 1/100的值。将结果存入变量J中。 1题 n = InputBox("输入一个自然数") If n > 0 Then result = "正数" ElseIf n < 0 Then result = "负数" ElseIf n = 0 Then result = "零" End If MsgBox "输入的数据" & n & "为：" & result 2题 Dim i As Integer For i = 201 To 300 If ((i Mod 3) = 0) And ((i Mod 7) = 0) Then Print (CStr(i)) sum = sum + i End If Next Print sum 3题 Dim i As Integer
第一章设计基本资料 §1.1 工程概况 工程名称：承德某办公楼为三层钢筋混凝土框架结构体系，建筑面积约为1800㎡。办公楼建筑层高分别为：3.9m、3.6m、3.6m，结构层高分别为：4.9m、3.6m、3.6m。室内外高差为0.45m，建筑设计使用年限50年。 §1.2设计资料 一、气象资料 =0.4KN/㎡ 1、基本风压：W 2、基本雪压：0.30KN/㎡ 二、抗震设防烈度：抗震设防烈度为6度，属于Ⅱ类场地土，设计地震分组为第二组。 =180KN/㎡,不冻胀，标准冻深1m，常三、地质条件：场地土为中砂，承载力特征值f ak 年地下水位低于-2.5m。 四、材料： 1、混凝土：梁、柱、板均使用C30混凝土。 2、钢筋：纵向受力钢筋采用热轧钢筋HRB335,其余采用热轧钢筋HPB235。
第二章 结构布置及计算简图 §2.1 结构布置及梁,柱截面尺寸的初选 §2.1.1平面形状验算 根据设计规范，结构高宽比H/B （B 是建筑物平面轮廓线较小的边长）控制在3以下。办公楼高11.70m ，宽14.92m, H/B=0.78<3,符合要求。同样建筑物长宽比L/B=41.02/14.92=2.75<5（L/B 宜小于4，不应大于5）也满足要求。 §2.1.2梁柱截面尺寸初选 主体结构共3层，底层高为3.9m ，其余各层高为：3.6m ；内外墙的做法：外墙做法：外墙砌240厚陶粒空心砌块，内墙砌200厚陶粒空心砌块；门窗详见门窗表；楼层屋盖均为现浇钢筋砼结构。 一、梁截面尺寸的估算： 1、框架主梁截面尺寸： （1）AB 、CD 跨：L=6000㎜ 0)81 ~121(l h ==500mm ~750mm,取600㎜ h b )21 ~31(==200mm ~300mm ，取250㎜(框架梁的宽度不宜小于200mm ) =≤≤5.32b h 2.4，故框架横向AB 、CD 跨框架梁截面尺寸为b ×h=250 ㎜×600㎜ （2）BC 跨：L=2400 0)81 ~121(l h ==200mm ~300mm,取450㎜ h b )2 1 ~31(==100mm ~150mm ，取200㎜(框架梁宽度不宜小于200mm) =b h 2.25>2，故框架横向BC 跨框架梁截面尺寸为b ×h=200㎜×450㎜, （3）①②、②③、③④、⑤⑥、⑥⑦、⑦⑧跨：L=6000㎜ 0)81 ~121(l h ==500mm ~750mm,取600㎜ h b )2 1 ~31(==200mm ~300mm ，取250㎜ =b h 2.4,故①②、②③、③④、⑤⑥、⑥⑦、⑦⑧跨框架梁的截面尺寸为b ×h=250㎜×600㎜ （4）④⑤跨：L=4500mm 0)8 1 ~121(l h ==375mm ~563mm,取450㎜
索引 一、在窗体上画一个文本框，其名称为Text1，Text属性为空白。再画一个命令按钮，其名称为C1，Visible属性为False。编写适当的事件过程。程序运行后，如果在文本框中输入字符，则命令按钮出现。 二、计算圆的周长和面积：在窗体中添加一个文本框（Text1）和一个对应的标签（Label1），再添加两个命令按钮（Command1和Command2）和一个图片框（Picture1）。程序运行时，当单击Command1按钮后，计算圆的周长；当单击Command2按钮后，计算圆的面积；计算结果输出在图片框中。（要求在未输入半径前两个按钮呈灰色不可用。） 三、在窗体上添加三个文本框和对应的三个标签，标签的标题分别是“个位”、“十位”、“百位”。程序运行时，当单击窗体后，随机产生一个【100，999】区间内的整数，将它的个位、十位、百位数字分别显示在对应的文本框中。 四、设计一个计算程序：在窗体上添加四个文本框和四个对应的标签，标签的标题分别是“语文”、“数学”、“外语”、“平均成绩”，三个命令按钮，标题分别为“清除”、“计算”、“退出”。程序运行后，用户按“清除”按钮，则清除文本框中显示的内容，按“计算”按钮，则计算三科平均成绩，将计算结果显示在第四个文本框中（计算结果保留小数点后一位）。单击退出按钮则程序退出。 五、某税务部门征收所得税，规定如下：（1）收入200元以内，免征。（2）收入在200~400元，超过200元的部分纳税3%。（3）收入超过400元的部分，纳税4%。（4）当收入达5000元或超过时，将4%税金改为5%。编程序实现上述操作。 六、给定三角形的三条边的边长，计算三角形的面积。编写程序，首选判断给出的三条边能否构成三角形，如可以构成，则计算并输出该三角形的面积，否则要求重新输入。当输入-1时结束程序。 七、编程求100以内的全部素数。 八、编程打印钻石图案。 九、输出杨辉三角形。 十、有一个数组，包含了10个不同的随机整数（20~90），要求计算出它们的平均值，并输出这个数组中最接近于平均值的数。 十一、在一个窗体上建有包含三个命令按钮的控件数组和一个文体框。编程实现当按下标题不同的命令按钮时，使文体框中文字的字体发生相应的变化。 十二、编程求1000以内的完全数。所谓完全数是指这样的自然数：它的各个约数（不包括该数本身）。如28=1+2+4+7+14就是一个完全数。
课程名称：课程设计 姓名：刘阳 学号：0219 所在专业：软件工程 所在院系：信息工程学院辅导教师：宁星 日期：2015年1月15日
目录 一、课程设计的目的 (1) 二、课程设计要求 (1) 三、课题及内容 (1) 四、流程图 (2) 五、数据库 (2) 六、页面代码 (3) 1、登陆页面 (3) 2、用户中心页面 (5) 3、个人信息页面 (9) 4、首页页面 (13) 5、注册页面 (17) 6、发布信息页面 (19) 7、聊天室页面 (21) 七、课程设计小结 (23)
一、课程设计的目的 通过利用进行web应用程序的设计与开发，加深对web 程序开发的基本知识的理解，掌握动态页面设计的基本方法和步骤，掌握程序调试的一般方法和技巧。培养基本理论分析、解决实际问题的能力及锻炼写设计总结报告的能力。 二、课程设计的基本要求 1. 本课程设计要求学生用技术开发一个动态网站，利用B/S结构，能将客户端的用户请求提交给服务器端的程序处理。服务器端程序能完成数据的插入、删除、更新以及将用户请求的查询数据返回客户端。 2. 课程设计结束后，每位同学独立提交一份web课程设计报告，内容包括总体设计和算法分析，主要流程，测试数据及测试过程，遇到的问题及解决方法等 3. 界面截图里要有代表性的数据。 三、课程设计的内容 题目：基于Web的房屋出租信息发布系统 功能要求： 1. 用户管理功能，包括：用户注册，登录认证，修改个人信息； 2. 房屋出租信息发布：注册用户登录后可发布，查询，
修改，删除自己发布的房屋出租信息； 3. 房屋信息查询：游客可按房屋类型，所处街道或出租价格查询相应的房屋出租信息。 4. 简易论坛或聊天室 四、流程图 五、数据库 SQL Server 中数据库里建立了三张表，分别是User表（用户信息表）、Fw表（房屋出租信息表）和chat表（聊天记录表）。
V B程序设计试题及答案（一） 一、单选题 1. VB6.0是一种面向B 的编程环境。 (A) 机器(B) 对象 (C) 过程(D) 应用 2. 要使FormI窗体的标题栏显示"欢迎使用VB"，以下D 语句是正确的。 (A) Forml.Caption=“欢迎使用VB” (B) Forml.Caption='欢迎使用VB' (C) Forml.Caption=欢迎使用VB (D) Forml.Caption="欢迎使用VB" 3. 若要使命令按钮不可操作，要对A 属性进行设置。 (A) EnabIed (B)Visible (C) Backcolor (D)Caption 4. 如果在窗体上已经创建了一个文本框对象TextI，可以通过C 事件获得输入键值的ASCII码。 (A) Change (B) LostFocus (C) KeyPress (D) GotFocus 5. 下面A 是合法的变量名。 (A) X_yz (B) 123ab。(C) integer (D) X-Y 6. 以下关系表达式中，其值为False的是A 。 (A) "ABC">"AbC" (B) "女">"男" (C) "BASIC"=UCase("basic) (D) "123"<"23" 7. 为了给x、y、z三个变量赋初值1，下面正确的赋值语句是A 。 (A) x=1:y=1:z=1 (B) x=1,y=1,z=1 (C) x=y=z=1 (D) xyz=1 8. VB提供了结构化程序设计的三种基本结构，三种基本结构是D 。 (A)递归结构、选择结构、循环结构 (B)选择结构、过程结构、顺序结构 (C)过程结构、输入输出结构、转向结构 (D)选择结构、循环结构、顺序结构 9. 下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是 D 。 (A) If sex="男" And age=4O And InStr(duty，"教授")>O Then n=n+l (B) If sex="男" And age=4O And (duty="教授" Or duty="副教授") Then n=n+l (C) If sex="男" And age=4O And Right(duty，2)="教授" Then n=n+l (D) If sex="男" And age=4O And duty="教授" And duty="副教授" Then n=n+l 10.下列关于Do…Loop循环结构执行循环次数的描述正确的是D 。 (A) Do While…Loop循环和Do…Loop Until循环至少都执行一次 (B) Do While…Loop循环和Do…Loop Until循环可能都不执行 (C) Do While…Loop循环至少执行一次和Do…Loop Until循环可能不执行 (D) Do While…Loop循环可能不执行和Do…Loop Until循环至少执行一次 11.以下B 是正确的For…Next结构。 (A) For x=1 To Step 10 (B) For x=3 To -3 Step -3 ……
《.NET WinForm编程》课程设计题目：智能QA系统的设计与实现 学院/ 系软件学院 专业信息管理与信息系统专业（日英强化）年级 2009级 学号 00988**** 作者姓名 **** 2012年 7月 5日
本次课程设计题目为智能QA系统的设计与实现，首先介绍了QA技术的现状，然后提出一个基于QA的数字信息化领域的架构，并对相关关键技术进行了讨论，最后说明了QA在数字信息化领域的应用前景。 本系统由三个模块组成，QA管理模块、答案管理模块和信息查询模块。QA管理模块包括信息的新增，修改，删除。答案管理模块实现了答案的基本操作，信息查询模块要求在输入查询条件后，会根据一定的逻辑输出答案。由于各模块的分开及进入系统前验证用户身份，也加强了各种信息的安全性及保密性。 根据系统所需功能，决定以Windows XP为开发平台，采用SQL Server 2005做后台数据库，选择功能强大的Visual Studio 2008为开发工具，利用软件工程思想和方法，总体上用结构化生命周期法进行系统分析和设计，采用快速原型法来实现，系统本系统界面友好，与目前市场上的主流游戏软件大体一致，而且操作更加简单，使用方式和微软各种软件（Windows、Office）基本相同，减少了用户学习、使用本游戏系统的额外负担。本文通过系统概述、系统分析、系统设计、系统实施、开发总结五章，详细的说明了系统的开发过程，最后并对整个开发过程进行了总结。 该系统使用了功能强大的.NET WinForm开发技术，使用了基于MVC机制的三层架构。操作方便，可维护性强。经过大量的测试，基本符合用户需求。 关键字：智能OA；信息查询；三层架构；C#
VB程序设计试题及答案（一） 一、单选题 1. 是一种面向B 的编程环境。 (A) 机器(B) 对象 (C) 过程(D) 应用 2. 要使FormI窗体的标题栏显示"欢迎使用VB"，以下D 语句是正确的。 (A) =“欢迎使用VB” (B) ='欢迎使用VB' (C) =欢迎使用VB (D) ="欢迎使用VB" 3. 若要使命令按钮不可操作，要对A 属性进行设置。 (A) EnabIed (B)Visible (C) Backcolor (D)Caption 4. 如果在窗体上已经创建了一个文本框对象TextI，可以通过C 事件获得输入键值的ASCII码。 (A) Change (B) LostFocus (C) KeyPress (D) GotFocus 5. 下面A 是合法的变量名。 (A) X_yz (B) 123ab。(C) integer (D) X-Y 6. 以下关系表达式中，其值为False的是A 。 (A) "ABC">"AbC" (B) "女">"男" (C) "BASIC"=UCase("basic) (D) "123"<"23" 7. 为了给x、y、z三个变量赋初值1，下面正确的赋值语句是A 。 (A) x=1:y=1:z=1 (B) x=1,y=1,z=1 (C) x=y=z=1 (D) xyz=1 8. VB提供了结构化程序设计的三种基本结构，三种基本结构是D 。 (A)递归结构、选择结构、循环结构 (B)选择结构、过程结构、顺序结构 (C)过程结构、输入输出结构、转向结构 (D)选择结构、循环结构、顺序结构 9. 下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是 D 。 (A) If sex="男" And age=4O And InStr(duty，"教授")>O Then n=n+l (B) If sex="男" And age=4O And (duty="教授" Or duty="副教授") Then n=n+l (C) If sex="男" And age=4O And Right(duty，2)="教授" Then n=n+l (D) If sex="男" And age=4O And duty="教授" And duty="副教授" Then n=n+l 10.下列关于Do…Loop循环结构执行循环次数的描述正确的是D 。 (A) Do While…Loop循环和Do…Loop Until循环至少都执行一次 (B) Do While…Loop循环和Do…Loop Until循环可能都不执行 (C) Do While…Loop循环至少执行一次和Do…Loop Until循环可能不执行 (D) Do While…Loop循环可能不执行和Do…Loop Until循环至少执行一次 11.以下B 是正确的For…Next结构。 (A) For x=1 To Step 10 (B) For x=3 To -3 Step -3 … … Next x Next x