北航选修课VB(A)大作业
《二、认识VB的开发环境》作业设计方案-高中信息技术人教版选修1
《认识VB的开发环境》作业设计方案（第一课时）一、作业目标本作业设计旨在帮助学生认识VB（Visual Basic）的开发环境，了解VB的基本界面和常用功能，为后续的编程学习打下基础。
通过本作业，学生应能熟练掌握VB开发环境的各项操作，为进一步学习VB编程做好准备。
二、作业内容1. 预习任务：学生需提前预习VB开发环境的相关知识，了解VB的基本界面和常用功能，包括菜单栏、工具栏、代码编辑窗口等。
2. 实践操作：第一课时主要进行的是对VB开发环境的熟悉与操作。
学生需按照教师提供的步骤，依次打开VB开发环境，熟悉其界面布局，了解各部分功能。
3. 任务实施：学生需完成以下操作：（1）打开VB开发环境，并熟悉菜单栏、工具栏等基本界面元素。
（2）了解并尝试使用代码编辑窗口，包括语法高亮、自动补全等功能。
（3）尝试创建新的工程文件，并保存。
（4）了解并使用调试工具，如断点、单步执行等。
4. 拓展学习：学生可自主探索VB开发环境的其它功能，如窗体设计、控件使用等，并记录下自己的学习心得和疑问。
三、作业要求1. 操作规范：学生在进行实践操作时，需按照教师提供的步骤进行，确保操作的准确性和规范性。
2. 记录详尽：学生在完成任务实施的过程中，需详细记录自己的操作步骤和遇到的问题，以便于课后复习和解决问题。
3. 独立思考：学生在拓展学习中，应积极思考，主动探索，不依赖他人的帮助。
4. 按时完成：学生需在规定的时间内完成作业，并按时提交。
四、作业评价1. 准确性评价：评价学生操作步骤的准确性，是否按照教师提供的步骤进行操作。
2. 规范性评价：评价学生操作的规范性，如代码书写、界面操作等是否规范。
3. 创新性评价：评价学生在拓展学习中的创新思维和探索精神。
4. 综合评价：综合以上几个方面对学生的作业进行评价，给予相应的分数和评价意见。
五、作业反馈1. 教师反馈：教师需在批改作业后，针对学生的操作情况给予详细的反馈，指出学生的优点和不足，提出改进意见。
VB大作业
2
VB 程序设计教案
语句N End if 4 select case语句 5 提供简单选择的控件(单选钮optionbutton , 复选框checkbox)程序举例 例一:某航空公司规定在旅游旺季7-9月份,如果订票超过20张,票价优惠15%,20张以下,优惠5%; 在旅游淡季1-5月份,10月份,11月份,如果定票超过20张,票价优惠30%,20张以下,优惠20%;其他 情况一律优惠10%.
private sub command1_click() dim m as integer, n as intger, r as integer m=val(text1.text) n=val(text2.text) select case m case is<=5,10,11 if n<20 then r=20 else r=30 case 7 to 9 if n<20 then r=5 else r=15 case else r=10 end select label4.caption="所订票的优惠率为:" & str(r) & "%" end sub private sub form_Load() text1.text=month(date) end sub private sub text1_gotfocus() text1.selstart=0 text1.selength=len(text1.text)
(2) if (条件) then 语句序列1 else 语句序列2 (3) iif(条件,语句序列1,语句序列2) 2 块结构条件语句 if (条件) then
语句序列1 else 语句序列2 end if 3 if的嵌套结构 If (条件1) then
大学考试《可视化程序设计（VB）》A卷及答案
一、单项选择题（共10题、总分30分、得分30分）1. 下列哪个语句定义了包含8个元素的单精度数组（） (本题分数：3 分，本题得分：3 分。
)A、Dim a(2,4) As SingleB、 Dim a(1 to 8)!C、Dim a!(7)D、 Dim a(1 to 2,3 to 6) As Long2. 下列关于菜单访问键和快捷键的说法正确的是（） (本题分数：3 分，本题得分：3 分。
)A、若一菜单项的Caption属性为“打开(&O)”，则其快捷键是Ctrl+OB、快捷键指用于执行一个命令的功能键或组合键，可以在菜单编辑器中将快捷键设为Alt+FC、可以为任意的菜单项都添加快捷键或访问键D、通过访问键打开某个子菜单时，必须先使焦点位于其上一级菜单3. 如果要退出Do…Loop循环，可使用语句（）。
(本题分数：3 分，本题得分：3 分。
)A、ExitB、 Exit DoC、 Exit ForD、Exit For4. 若有数组说明语句：Dim t(1 To 10) As Variant，则t被定义为（）。
(本题分数：3 分，本题得分：3 分。
)A、数值数组B、可调数组C、字符串数组D、可变类型数组5. 在下列关于对话框的叙述中，错误的是（）： (本题分数：3 分，本题得分：3 分。
)A、作为对话框窗体的Borderstyle、ControlBox、MaxButton和MinButton应分别设置为l、True、False和 False。
B、语句frmAbout．Show vbModeless，frmMain将 fmAbout窗体显示为 fmMain的无模式子窗体。
C、可以将对话框分成两种类型：模式的和无模式。
D、语句frmAbout．Show将frmAbout作为无模式对话框显示。
6. 在窗体上有一按钮Command1，其事件过程如下，则按下Command1窗体上显示的是（）Private Sub Command1_Click()Dim i As IntegerScale (0, 0)-(10, 10)For i = 1 To 3DrawStyle = iDrawWidth = iLine (0, i + 1)-Step(8, 0)CurrentY = CurrentY + 1NextEnd Sub (本题分数：3 分，本题得分：3 分。
2016北航《VB程序设计》考核要求答案
北航《VB程序设计》考核要求一、填空题(每空4分，共60分)1、设有如下程序段：a$="BeijingShanghai"b$=Mid(a$,InStr(a$,"g")+1)执行上面的程序段后，变量b$的值为 Beijing。
2、以下程序段的输出结果是__3__。
num =0While num<=2num = num+1WendPrint num3、窗体上有一个名称为List1的列表框，一个名称为Text1的文本框，一个名称为Label1、Caption属性为“Sum”的标签，一个名称为Command1、标题为“计算”的命令按钮。
程序运行后，将把1～100之间能够被7整除的数添加到列表框。
如果单击“计算”按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果。
以下是实现上述功能的程序，请填空。
Private Sub Form_Load()For i=1 To 100If i Mod 7 =0 Then___list1.additem i__End IfNextEnd SubPrivate Sub Command1_Click()Sum =0For i=0 To__ List1.ListCount -1___Sum =Sum+___List1.List(i)____NextText1.Text=SumEnd Sub4、本程序的功能是利用随机数函数模拟投币，方法是：每次随机产生一个0或1的整数，相当于一次投币，1代表正面，0代表反面。
在窗体上有三个文本框，名称分别是Text1、Text2、Text3，分别用于显示用户输入投币总次数、出现正面的次数和出现反面的次数。
程序运行后，在文本框Text1中输入总次数，然后单击“开始”按钮，按照输入的次数模拟投币，分别统计出现正面、反面的次数，并显示结果。
以下是实现上述功能的程序，请填空。
Private Sub Command1_Click()Randomizen=CInt(Text1.Text)n1=0n2=0For i=1 To__n__r=Int(Rnd*2)If r=___1____Thenn1=n1+1Elsen2=n2+1End IfNextText2.Text=n1Text3.Text=n2End Sub5、阅读程序：Option Base 1Private Sub Form_Click()Dim a(3) As IntegerPrint "输入的数据是：";For i=1 To 3a(i)=InputBox("输入数据")Print a(i);NextPrintIf a(1)<a(2) Thent=a(1)a(1)=a(2)a(2)=___t____End IfIf a(2)>a(3) Thenm=a(2)ElseIf a(1)>a(3) Thenm=___a(3)___Elsem=__a(1)___End IfPrint "中间数是：";mEnd Sub程序运行后，单击窗体，在输入对话框中分别输入三个整数，程序将输出三个数中的中间数。
《第1课绚丽舞台——初识VB》作业设计方案-初中信息技术清华大学版12九年级上册自编模拟
《绚丽舞台——初识VB》作业设计方案（第一课时）一、作业目标本作业旨在帮助学生初步认识VB（Visual Basic）编程环境，了解VB的基本界面和常用功能，培养学生对于编程的基本兴趣和初步的编程思维。
通过实际操作，让学生体验编程的乐趣，为后续的VB学习打下坚实的基础。
二、作业内容1. 了解VB界面：学生需打开VB编程环境，熟悉其界面布局，了解工具栏、代码编辑窗口等基本组成部分的功能。
2. 认识基本控件：学生需掌握VB中常用的控件，如按钮、文本框等，并尝试在窗体上添加、移动和调整控件的位置。
3. 编写简单代码：学生需学习并尝试编写简单的VB代码，如输出“Hello, VB！”等语句，了解代码在程序中的作用。
4. 保存和运行程序：学生需学会如何保存自己的VB程序，并了解如何运行程序以及查看运行结果。
三、作业要求1. 学生需独立完成作业，不得抄袭他人成果。
2. 对于每个环节的操作步骤，学生需详细记录并加以解释。
3. 学生在完成作业过程中，应保持耐心和细心，遇到问题可查阅相关资料或向老师请教。
4. 作业完成后，学生需对自己的作品进行自评，总结学习过程中的收获和不足。
四、作业评价1. 评价标准：本作业的评价标准主要包括学生对VB界面的熟悉程度、对基本控件的掌握情况、代码编写的能力以及程序的保存和运行情况等。
2. 评价方式：教师将对学生的作业进行批改，根据学生的完成情况和作业质量给出相应的评价和指导。
同时，学生也可进行互评，互相学习和交流。
五、作业反馈1. 教师反馈：教师将根据学生的作业情况，给出详细的批改意见和建议，帮助学生发现问题并加以改进。
2. 学生自我反馈：学生需对自己的作品进行自评，总结学习过程中的收获和不足，为后续的学习提供参考。
3. 同学间互助反馈：鼓励学生之间进行互评和交流，互相帮助解决问题，共同进步。
六、附加建议1. 学生可在完成作业后，尝试编写一些简单的VB小程序，如计算器、小游戏等，以加深对VB编程的理解和掌握。
成人《VB程序设计》标准化大作业(答案)1
作业1一、单项选择题1.Visual Basic是一种面向对象的可视化程序设计语言，采取了 A 的编程机制。
(A)事件驱动 (B)按过程顺序执行 (C)从主程序开始执行 (D)按模块顺序执行2.在Visual Basic中最基本的对象是 C ，它是应用程序的基石，是其他控件的容器。
(A)文本框 (B)命令按钮 (C)窗体 (D)标签3.多窗体程序是由多个窗体组成。
在缺省情况下，VB在应用程序执行时，总是把 B指定为启动窗体。
(A)不包含任何控件的窗体 (B)设计时的第一个窗体(C)包含控件最多的 (D)命名为Frm1的窗体4.有程序代码如下：Text1. Text= "Visual Basic"则：Text1，Text和"Visual Basic"分别代表 C 。
(A)对象，值，属性 (B)对象，方法，属性(C)对象，属性，值 (D)属性，对象，值5.Visual Basic是一种面向对象的程序设计语言， A 不是面向对象系统所包含的三要素。
(A)变量 (B)事件 (C)属性 (D)方法6.Visual Basic的一个应用程序至少包含一个 B 文件，该文件存储窗体上使用的所有控件对象和有关的、对象相应的过程和代码。
(A)模块、方法、事件、程序 (B)窗体、属性、事件、程序(C)窗体、程序、属性、事件 (D)窗体、属性、事件、模块7.以下不属于Visual Basic的工作模式是 A 模式。
(A)编译 (B)设计 (C)运行 (D)中断8.在VB集成环境创建VB应用程序时，除了工具箱窗口、窗体中的窗口、属性窗口外，必不可少的窗口是 C 。
(A)窗体布局窗口 (B)立即窗口 (C)代码窗口 (D)监视窗口9.保存新建的工程时，默认的路径是 B 。
(A)My Documents (B)VB98 C)＼ (D)Windows10.将调试通过的工程经“文件”菜单的“生成 .exe文件”编译成 .exe后，将该可执行文件拿到其他机器上不能运行的主要原因是 A 。
《第1课绚丽舞台——初识VB》作业设计方案-初中信息技术清华大学版12九年级上册自编模拟
《绚丽舞台——初识VB》作业设计方案（第一课时）一、作业目标本作业旨在通过初识VB（Visual Basic）的学习，使学生能够：1. 了解VB的基本概念和界面组成；2. 掌握VB中基本控件的使用方法；3. 培养学生对编程的兴趣和初步的编程思维。
二、作业内容本课时作业内容主要包括以下几个方面：1. 了解VB简介与历史背景：学生需查阅相关资料，了解VB 的起源、发展及其在编程领域的重要性。
2. VB界面探索：学生需打开VB开发环境，熟悉VB的界面组成，包括工具箱、属性窗口、代码窗口等。
3. 基本控件操作：学生需学习并实践使用VB中的按钮、标签、文本框等基本控件，了解其属性和事件。
4. 简单程序编写：学生需尝试编写一个简单的VB程序，如一个点击按钮后弹出消息的示例。
三、作业要求为保证作业质量，特提出以下要求：1. 安全性：在操作过程中，学生需注意保护个人电脑安全，不随意下载未知程序或文件。
2. 独立性：鼓励学生独立完成作业，遇到问题可寻求老师或同学的帮助，但不得抄袭他人成果。
3. 准确性：作业中的每个步骤需准确无误，尤其是程序编写部分，要确保程序能够正常运行。
4. 整洁性：作业书写需整洁规范，代码注释清晰，便于后续复习与他人参考。
四、作业评价本作业的评价将按照以下标准进行：1. 正确性：作业完成是否正确，是否符合作业要求；2. 创新性：学生在完成作业过程中是否有新颖的思路或方法；3. 规范性：作业书写是否规范，代码注释是否清晰；4. 独立性：作业是否为学生独立完成，有无抄袭现象。
评价结果将分为优秀、良好、及格和不及格四个等级，作为学生平时成绩的一部分。
五、作业反馈为提高教学质量和学生学习效果，本作业将设置以下反馈机制：1. 教师批改：教师将对每份作业进行批改，指出其中的优点和不足；2. 课堂讲解：教师将在课堂上对共性问题进行讲解，帮助学生查漏补缺；3. 同学互助：鼓励学生之间相互交流，分享编程经验和技巧；4. 家长反馈：及时与家长沟通，了解学生在家中的学习情况，共同促进学生学习进步。
VB数学型大作业题目
VB数学型大作业题目下面题目中任选两个完成。
1.歌星大奖赛在歌星大奖赛中，有10个评委为参赛的选手打分，分数为1~100分。
选手最后得分为：去掉一个最高分和一个最低分后其余8个分数的平均值。
请编写一个程序实现。
算法提示：这个问题的算法十分简单，但是要注意在程序中判断最大、最小值的变量是如何赋值的。
2.求最大数问555555的约数中最大的三位数是多少？算法提示：根据约数的定义，对于一个整数N，除去1和它自身外，凡能整除N的数即为N的约数。
因此，最简单的方法是用2到N-1之间的所有数去除N，即可求出N的全部约数。
本题只要求取约数中最大的三位数，则其取值范围可限制在100到999之间。
3.高次方数的尾数求13的13次方的最后三位数算法提示：解本题最直接的方法是：将13累乘13次方截取最后三位即可。
但是由于计算机所能表示的整数范围有限，用这种“正确”的算法不可能得到正确的结果。
事实上，题目仅要求最后三位的值，完全没有必要求13的13次方的完整结果。
研究乘法的规律发现：乘积的最后三位的值只与乘数和被乘数的后三位有关，与乘数和被乘数的高位无关。
利用这一规律，可以大大简化程序。
4.杨辉三角形在屏幕上显示杨辉三角形11 11 2 11 3 3 11 4 6 4 11 5 10 10 5 1......................................算法提示：杨辉三角形中的数，正是(x+y)的N次方幂展开式各项的系数。
本题作为程序设计中具有代表性的题目，求解的方法很多，这里仅给出一种。
从杨辉三角形的特点出发，可以总结出：1)第N行有N+1个值(设起始行为第0行)2)对于第N行的第J个值：(N>=2)当J=1或J=N+1时：其值为1J!=1且J!=N+1时：其值为第N-1行的第J-1个值与第N-1行第J个值之和本程序应是根据以上递归的数学表达式编制的。
5.该存多少钱假设银行一年整存零取的月息为0.63%。
vb大作业(简单)
1、编写一个计算矩形面积的通用过程，然后调用该过程计算矩形的面积。
分析：本题需要设计一个求矩形面积的Sub通用过程。
设计步骤如下：①建立应用程序用户界面和添加控件，并设置各对象的属性。
设置下图所示。
②编写事件代码。
2、一个有9个元素的一维数组，随机产生9个两位数赋值给该数组，从中找出最大值、最小值和平均值。
分析：首先声明一个有9个元素的一维数组，利用随机函数随机产生9个两位数赋值给该数组。
然后，对每个数组元素值进行比较，从中找出最大值、最小值和平均值。
设计步骤如下：①建立应用程序用户界面和添加控件，并设置各对象的属性。
在窗体上添加1个框架，7个标签和3个按钮控件。
设置如图所示。
②编写事件代码。
求最大、最小、平均值3、将一个数组按照元素值从大到小重新排序。
分析：数组元素排序有多种方法，比如选择排序法。
首先找出最大数，将它放在第一个数的位置。
在余下的n-1个数中再找出最大数，放在第二个数的位置。
依次类推，最终将数组元素按照从大到小排序。
设计步骤如下：①建立应用程序用户界面和添加控件，并设置各对象的属性。
设置如图所示。
②编写事件代码。
4π分析：首先找出公式中无穷乘积各项的规律。
设第n 项的分母为P n ，则第n+1项的分母为P n+1n 项乘积为S n ，则前n 项乘积为S n+1=2 S n / P n+1。
根据以上分析，画出流程图所示。
设计步骤如下：①建立应用程序用户界面和添加控件，并设置各对象属性。
如图所示。
②当程序运行时，输入小数位数，单击“计算”，在下方的文本框中显示计算结果。
5、利用Do…Loop循环语句求从1到100的累加和。
分析：采用累加的方法，用变量numberSum来存储从1到100的累加和。
用变量n来存放“加数”（加到numberSum中的数），从1开始到100为止。
根据以上分析，画出流程图所示。
设计步骤如下：①建立应用程序用户界面和添加控件，并设置各对象属性。
②编写“计算”命令按钮的Click事件代码：③运行程序，当单击“计算”按钮，结果如图5-6所示运行程序，当单击“计算”按钮，结果如图所示。
VB程序设计（2014大作业）
VB程序设计（2014大作业）第一篇：VB程序设计(2014大作业)《VB程序设计》大作业一、大作业的内容本次大作业要求学生根据所学知识以及个人爱好，设计开发一个VB应用小程序。
要能体现出：1．《VB程序设计》各种语句的综合使用能力；2．《VB程序设计》各种相关控件的使用能力；3．根据具体的设计题目，设计清晰、美观界面的能力；4．一定的综合设计能力。
二、大作业的要求本次大作业应满足以下要求：实用性：应用程序要有明确的应用主题，有一定的实用价值。
结构性：应用程序具有良好的程序结构。
可读性：应用程序具有较好的可读性。
全面性：应用程序应包含比较全面的功能。
友好性：合理使用VB提供的各种控件，设计友好、美观的使用界面。
三、大作业的步骤1．根据个人兴趣、爱好，以及提交时间的要求，自己确定设计题目（可参考附件1）； 2．查找与设计题目相关的资料；3．进行应用程序总体结构、使用功能的设计；4．进行应用程序的界面设计和源程序代码的编写； 5．上机编辑、调试程序；6．保存应用程序, 并生成可执行文件； 7．撰写设计报告。
四、设计报告的基本格式设计报告的基本内容至少包括封面、正文、总结三部分。
(1）．封面(包括：题目、班级、姓名、指导教师、完成日期等信息)(2)．正文1、课题的选材过程（设计思路）；2、设计的将要达到的目标；3、总体设计结构与功能；（1）总体设计结构介绍（绘制：结构流程图）（2）各功能模块运行界面的功能、算法和操作步骤；4、设计结果分析；（运行结果展示、正确性分析）(3)．总结（感想、收获、启发、存在的问题）五、课程大作业提交（1）形式设计报告 + 源程序文件(含可执行文件)其中：<1>设计报告的封面统一（附件2）；<2>源程序文件（含*.vbp；*.frm；*.exe）打包压缩成一个文件，以学号+姓名（例如： 11020741姓名）为文件名。
（2）时间2014年5月10日之前；（3）方法纸质报告及压缩文件交各班学委，按顺序排好后由学委统一上交；附件一：参考题目1、《班级信息系统》描述：如同班级和每个成员的成长日记，信息量大，生动活泼，有纪念意义。
北航数值分析A大作业3
北航数值分析A大作业3-CAL-FENGHAI.-(YICAI)-Company One1一、算法设计方案1、解非线性方程组将各拟合节点（x i ，y j ）分别带入非线性方程组，求出与(,)i i x y 相对应的数组te[i][j]，ue[i][j]，求解非线性方程组选择Newton 迭代法，迭代过程中需要求解线性方程组，选择选主元的Doolittle 分解法。
2、二元二次分偏插值对数表z(t,u)进行分片二次代数插值，求得对应（t ij ，u ij ）处的值，即为),(j i y x f 的值。
根据给定的数表，可将整个插值区域分成 16 个小 的区域，故先判断t ij , u i j 所在，的区域，再作此区域的插值，计算 z i j ，相应的Lagrange 形式的插值多项式为：112211(,)()()(,)m n k r k r k m r n p t u l t l u f t u ++=-=-=∑∑ 其中11()m w k w m k w w k t t l t t t +=-≠-=-∏ (k=m-1, m, m+1)11()n w r w n r w w r y y l u y y +=-≠-=-∏ (r=n-1, n, n+1)3、曲面拟合从k=1开始逐渐增大k 的值，使用最小二乘法曲面拟合法对z=f(x,y)进行拟合，当710-<σ时结束计算。
拟合基函数φr (x)ψs (y)选择为φr (x)=x r ，ψs (y)=y s 。
拟合系数矩阵c 通过连续两次解线性方程组求得。
[]rsc *=C ，11()()T T T --=C B B B UG G G 其中0011101011[()]1k k r i k x x x x x x x ϕ⎡⎤⎢⎥⎢⎥==⎢⎥⎢⎥⎢⎥⎣⎦B ，0011101011[()]1k k s j k y y y y G y y y ψ⎡⎤⎢⎥⎢⎥==⎢⎥⎢⎥⎢⎥⎣⎦[(,)]i j f x y =U4、观察比较计算)5,,2,1,8,,2,1)(,(),,(****⋅⋅⋅=⋅⋅⋅=j i y x p y x f j i j i 的值并输出结果，以观察),(y x p 逼近),(y x f 的效果。
北航《VB语言程序设计》在线作业一1
B. 关系表达式
C. 算术表达式
D. 逻辑表达式
满分：4 分
正确答案:C
8. 假定有以下循环结构： Do until 条件 循环体 Loop 则下列说法正确的是什么 。
A. 如果"条件"是一个为0的常数，则一次循环体也不执行
B. 如果"条件"是一个为0的常数，则至少执行一次循环体
满分：4 分
正确答案:C
17. 设置一个单选按钮（OptionButton ）所代表选项的选中状态，应当在属性窗口中改变的属性是（ ） 。
A. Caption
B. Name
C. Text
D. value
满分：4 分
正确答案:D
18. 常用控件的Style属性值是（ ） 。
A. -1
B. 0
C. 1
D. 2
满分：4 分
正确答案:A
10. 数学关系式3≤x<10表示成正确的VB表达式为（ ）
A. 3<=x<10
B. 3<=x AND x<10
C. x>=3 OR x<10
D. 3<=x AND <10
满分：4 分
正确答案:B
11. 如果要在程序中显示一个弹出式菜单，那么要调用Visual Basic中提供的什么方法 。
A. Print
B. Move
C. Refresh
D. PopupMenu
满分：4 分
正确答案:D
12. OPTION EXPLICIT语句不可以放在（ ） 。
A. 字符常量
《第1课绚丽舞台——初识VB》作业设计方案-初中信息技术清华大学版12九年级上册自编模拟
《绚丽舞台——初识VB》作业设计方案（第一课时）一、作业目标本作业旨在通过初识VB（Visual Basic）的学习，使学生能够：1. 了解VB的基本概念和特点。
2. 掌握VB的基本界面和操作方法。
3. 初步学会使用VB进行简单的编程操作。
二、作业内容本作业内容主要围绕VB的基础知识和基本操作展开，具体包括：1. VB简介：学生需了解VB的起源、发展和应用领域，理解其作为编程工具的重要性和优势。
2. VB界面认识：学生需熟悉VB的界面布局，了解各部分功能，如工具箱、属性窗口、代码窗口等。
3. 基本操作实践：学生需动手实践，如创建新项目、添加控件、设置属性等基本操作。
4. 简单编程实践：学生需编写简单的VB程序，如输出“Hello World”等简单语句，体验编程的乐趣和基本逻辑。
三、作业要求为确保学生能够顺利完成本作业，特提出以下要求：1. 学生需认真阅读教材和教师提供的资料，充分理解VB的基本概念和特点。
2. 学生需亲自操作计算机，按照教师指导进行界面认识和基本操作实践。
3. 在编写简单程序时，学生需独立思考，尝试解决问题，并记录下遇到的问题和解决方法。
4. 作业完成后，学生需将完成的程序和操作过程进行截图或录像，并附上详细的操作步骤和心得体会。
四、作业评价本作业的评价将从以下几个方面进行：1. 学生对VB基本概念和特点的理解程度。
2. 学生完成基本操作实践的准确性和熟练程度。
3. 学生编写简单程序的逻辑性和创新性。
4. 学生的问题解决能力和学习态度。
评价结果将分为优秀、良好、一般和需努力四个等级，并给予相应的鼓励和建议。
五、作业反馈为帮助学生学习和成长，教师将根据学生的作业完成情况进行反馈：1. 对优秀和良好的同学进行表扬和鼓励，激发其学习兴趣和动力。
2. 对一般的同学给予指导和建议，帮助他们发现问题并改进。
3. 对需努力的同学进行重点关注和辅导，帮助他们尽快提高学习效果。
同时，教师还将定期组织学生进行交流和讨论，分享学习经验和技巧，促进学生的共同进步。
《三、 VB开发环境的三种状态》作业设计方案-高中信息技术人教版选修1
《VB开发环境的三种状态》作业设计方案（第一课时）一、作业目标通过本次作业，学生应能够：1. 熟练掌握VB开发环境的三种状态（设计、运行、中断）2. 了解每种状态的功能和操作方法3. 能够在VB开发环境中切换这三种状态二、作业内容1. 设计状态：要求学生打开VB开发环境，将一个简单的程序界面设计好，包括标题栏、菜单栏、工具栏等。
学生需要确保界面布局合理，功能按钮清晰可见。
2. 运行状态：学生在设计好程序界面后，需要点击“运行”按钮，使程序在窗口中运行。
在此过程中，学生应观察程序的运行结果，确保程序的正常运行。
3. 中断状态：在程序运行过程中，如果出现错误或异常情况，需要使用中断状态来暂停程序的执行，查看错误信息，进行调试和修复。
学生应熟悉如何使用中断按钮或快捷键来中断程序的执行。
三、作业要求1. 每位学生需独立完成作业，不允许抄袭和作弊。
2. 作业完成后，需提交一份电子版作业，包括程序界面截图和描述性的文字说明。
3. 作业提交时间：下课前，或指定时间内提交。
四、作业评价1. 评价标准：根据学生提交的作业情况进行评价，主要依据包括：界面设计是否合理、运行结果是否正确、中断操作是否熟练。
2. 评价方式：教师评价和学生互评相结合。
教师对学生的作业进行整体评价，同时鼓励学生之间互相评价，促进交流和学习。
3. 优秀作业展示：对于优秀的作业，可以展示在班级的学习园地或推荐给学校展示，以激励学生的学习热情和积极性。
五、作业反馈1. 学生反馈：学生在完成作业后，如有任何疑问或需要帮助的地方，都可以向教师或同学寻求反馈。
教师会及时给予解答和帮助。
2. 教师反馈：教师根据学生的作业情况，进行反馈和指导。
对于普遍存在的问题或困难，教师会在课堂上进行讲解和解答。
对于个别学生的问题，教师可以单独给予指导和帮助。
3. 家长反馈：家长也可以参与到作业反馈中来，与教师共同关注孩子的学习情况，共同促进孩子的成长和发展。
通过本次作业，学生可以更加深入地了解和掌握VB开发环境的三种状态，为后续的学习和开发打下坚实的基础。
《三、 VB开发环境的三种状态》作业设计方案-高中信息技术人教版选修1
《VB开发环境的三种状态》作业设计方案（第一课时）一、作业目标本作业旨在帮助学生理解VB开发环境的三种状态及其作用，提高他们的编程技能和实际操作能力。
二、作业内容1. 打开Visual Basic（VB）开发环境，分别展示三种状态：新建项目、运行程序和调试程序。
要求学生描述每种状态下的界面布局和功能。
2. 针对每种状态，设计一个简单的程序，并运行和调试。
学生需要记录在调试过程中遇到的问题及解决方法。
3. 总结三种状态下的操作体验，以及VB开发环境在实际编程中的重要性。
三、作业要求1. 独立完成作业，不允许抄袭和团队作业。
2. 按照要求展示和描述开发环境的状态，并说明每个程序的实现过程和调试方法。
3. 提交作业时，请附上遇到的问题及解决方案，以便老师检查作业完成情况。
4. 作业完成后，整理成一份总结报告，字数不少于500字。
四、作业评价1. 评价标准：作业完成质量、问题解决能力、总结报告的逻辑性和表达能力。
2. 评价方式：老师根据学生提交的作业和总结报告进行评分，同时参考学生在课堂上的表现和互动情况。
五、作业反馈1. 学生提交作业后，老师会及时给予反馈，指出作业中的问题和优点，并给出改进建议。
2. 老师将优秀作业展示在班级学习园地上，鼓励其他学生向优秀同学学习。
3. 对于普遍存在的问题，老师会在课堂上进行集中讲解，确保所有学生都能正确理解VB开发环境的三种状态及其应用。
六、实施步骤1. 课前准备：老师准备好VB开发环境的演示视频和相关程序代码，以便在课堂上进行讲解和演示。
2. 课堂讲解：老师首先介绍VB开发环境的三种状态及其作用，然后演示每个程序的实现过程和调试方法。
针对学生在操作中可能遇到的问题，老师会进行详细解答。
3. 作业布置：老师将作业要求和评价标准告诉学生，并鼓励他们积极思考、勇于实践。
4. 提交作业：学生可以在课后通过互联网或电脑室完成作业，并将完成的作业和总结报告提交给老师。
5. 作业评价与反馈：老师在批改完学生作业后，将给出评价和反馈，并针对普遍存在的问题进行集中讲解。
第五次VB大作业心得体会（范文大全）
第五次VB大作业心得体会（范文大全）第一篇：第五次VB大作业心得体会第五次VB大作业心得体会第五次VB小组作业，跨越了VB计算机绘图的期末考试，终于在五个人的一致努力下，画上了圆满的记号。
至此，本学期VB计算机绘图的学习，也告一段落。
本次作业的内容，是对AutoCAD的二次开发。
身为一名学机械的大学生，未来机械方面的工作者，AutoCAD是我们必不可少的工具。
尽管AutoCAD软件本身已具有十分强大的功能，但是，掌握对软件的二次开发，无疑可以使软件更加贴近我们。
在不断的完善中，真正的让软件为我所用，方便快捷的适应自己的要求。
相比于前面几次的作业，本次作业的最大特点是AutoCAD二次开发方面在教材中并未提及。
因此，如果想要很好的完成本次作业，需要我们自己通过利用图书馆、网络等资源进行信息的采集、筛选、整合以及应用，最终达到一个完善的结果。
随着本次作业的结束，VB计算机绘图的课程也结束了。
然而，学习的过程是一个不断完善、发展自己知识结构和充实知识内容的过程。
这就决定了学习是没有尽头的。
而在学习的过程中不断积累的经验、总结的方法更是远比知识本身更加宝贵的。
我们在这样的作业中，感受到团队意识的重要，实际上只是有这样的意识是不够的，它更是一种能力。
交流、沟通以及判断的能力。
在日后的学习中，这样的能力必将使我们对知识的掌握和理解更加深刻。
甚至让我们对人与人的关系有着不同的理解。
此外，信息的搜集、筛选、整合、应用这些能力也必将是我们今后的工作和学习中所接触和应用频繁的能力。
很庆幸这些我们在VB小组作业的过程中都得到了锻炼。
在这里，对为VB作业做出努力的小组成员以及为我们提供知识和锻炼能力机会的老师说一声感谢。
希望在今后的学习工作中，会以这学期的努力为种子，收获更多更好的果实。
第二篇：第五次党课小结党课心得体会党课作业坚持在前进路上自上次积极分子党校结业已经近一年了，感受是很不一样的，其中有值得坚持的，也还有值得反省改正的，经验与教训都是那么深刻。
《二、 认识VB的开发环境》作业设计方案-高中信息技术人教版选修1
《认识VB的开发环境》作业设计方案（第一课时）一、作业目标本次作业旨在帮助学生熟悉Visual Basic（VB）的开发环境，了解其基本组成和常用工具，为后续编程学习打下基础。
二、作业内容1. 打开VB开发环境，熟悉工具栏、菜单栏、窗体设计器等基本组成；2. 尝试使用VB编写一个简单的程序，例如“Hello World”程序，以熟悉开发环境的使用；3. 记录自己在操作VB开发环境过程中的问题和收获，并思考如何解决这些问题。
三、作业要求1. 独立完成作业，不得抄袭；2. 按照作业要求，认真填写程序运行结果和心得体会；3. 作业完成后，将截图和电子版文档提交至学习平台。
四、作业评价1. 评价标准：作业完成情况、问题解决情况、心得体会的深度和广度；2. 评价方式：学生自评、小组互评、教师评价相结合。
五、作业反馈教师将对每位学生的作业进行反馈，包括问题指正、建议和鼓励。
同时，学生也可在作业平台上查看其他同学的作业，相互学习，共同进步。
在操作VB开发环境的过程中，同学们可能会遇到以下问题：1. 工具栏和菜单栏不显示或无法使用，这可能是由于软件安装出现问题或版本不兼容导致的；2. 窗体设计器无法创建或修改程序界面，这可能是由于版本不兼容或权限问题导致的；3. 程序运行出现错误或异常，这可能是由于语法错误或逻辑错误导致的。
针对以上问题，同学们可以参考相关文档和教程进行解决。
如仍有问题，可随时与老师和同学讨论，共同学习进步。
本次作业的完成情况将作为后续编程学习的基础，希望同学们认真对待，按时完成。
同时，也欢迎同学们在完成作业的过程中，积极探索VB开发环境的更多功能和应用，为后续编程学习打下更加坚实的基础。
最后，感谢同学们对信息技术课程的支持和配合，让我们一起在VB的开发环境中探索和成长！作业设计方案（第二课时）一、作业目标通过本次作业，学生应能够：1. 熟练掌握VB开发环境的各个组成部分；2. 了解VB开发环境的基本操作；3. 能够在VB开发环境中进行简单的编程操作。
《三、VB开发环境的三种状态》作业设计方案-高中信息技术人教版选修1
《VB开发环境的三种状态》作业设计方案（第一课时）一、作业目标本作业设计旨在通过实践操作，使学生能够：1. 了解VB开发环境的三种基本状态。
2. 掌握在每种状态下，VB开发环境的主要功能和操作方法。
3. 培养学生的编程思维和实际操作能力，为后续的VB编程学习打下基础。
二、作业内容本作业内容主要围绕VB开发环境的三种状态展开，具体包括：1. 设计任务背景：编写一个简单的计算器程序。
- 要求学生首先进入“设计”状态，通过拖拽控件、设置属性等方式，完成计算器界面的设计。
- 接着进入“运行”状态，对设计好的界面进行测试，确保各项功能正常运行。
- 最后进入“调试”状态，对程序中出现的错误进行调试，直至程序完全无误。
2. 操作步骤详解：- “设计”状态：详细介绍如何使用VB的控件工具箱，如何将控件拖拽到窗体上，如何设置控件的属性等。
- “运行”状态：展示如何启动程序、运行程序，并指出常见的运行错误及处理方法。
- “调试”状态：讲解如何使用VB的调试工具，如设置断点、单步执行等，以及如何查看和修改程序中的错误。
3. 重点难点解析：- 重点：三种状态下VB开发环境的操作方法和功能。
- 难点：理解并掌握VB的编程逻辑和调试技巧。
三、作业要求1. 学生需按照作业内容，独立完成VB开发环境的三种状态的实践操作。
2. 在实践过程中，需详细记录操作步骤和遇到的问题及解决方法。
3. 作业需以计算器程序的设计、运行和调试过程为核心，展现对三种状态的运用能力。
4. 作业提交时，需附上程序运行和调试过程的截图或视频，以证明实践的真实性。
四、作业评价1. 评价标准：操作步骤的完整性、问题的解决能力、程序的运行效果和调试技巧的运用等。
2. 评价方式：教师根据学生提交的作业和课堂表现进行综合评价。
3. 评价结果：分为优秀、良好、及格和不及格四个等级，并给出相应的建议和改进意见。
五、作业反馈1. 教师需及时批改作业，并给出详细的反馈意见。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
2010－2011学年第一学期课程大作业1.编写程序，建立并输出一个10x10的矩阵，该矩阵主对角线元素为1，其余元素为0编辑界面Private Sub Command1_Click()Dim a(1 To 10, 1 To 10) As Long, i As Long, j As LongMe.Cls: Me.AutoRedraw = TrueFor i = 1 To 10For j = 1 To 10If i <> j Then a(i, j) = 0 Else a(i, j) = 1Print " " & a(i, j);NextPrint vbCrLfNextEnd Sub2.对10名运动员的百米短跑比赛成绩进行排序，并按格式分行输出成绩排名表。
运行界面Private Type StuNo As String * 3Time As SingleEnd TypeSub Command1_Click()Dim s(1 To 10) As Stus(1).No = "207"s(2).No = "156"s(3).No = "453"s(4).No = "096"s(5).No = "339"s(6).No = "077"s(7).No = "231"s(8).No = "276"s(9).No = "122"s(10).No = "302"s(1).Time = 14.5s(2).Time = 14.2s(3).Time = 15.2s(4).Time = 15.7s(5).Time = 14.9s(6).Time = 15.1s(7).Time = 14.7s(8).Time = 13.9s(9).Time = 13.7s(10).Time = 14.5Dim i, j, n As IntegerDim si As StuFor i = 1 To 9For j = i + 1 To 10If s(i).Time > s(j).Time Thensi = s(i)s(i) = s(j)s(j) = siEnd IfNextNextPrint "名次"; Tab(10); "运动员号"; Tab(25); "成绩" PrintFor n = 1 To 10Print n; Tab(10); s(n).No; Tab(25); s(n).TimePrintNextEnd Sub3. 编写二进制整数转换十进制整数的函数，编写十进制实数（考虑整数部分和小数部分）转换二进制实数的函数。
运行界面Private Function TwotoTen(ByVal varString As String) '二进制转为十进制Dim SLen As Long, I As Long, returnNum As LongSLen = Len(varString)For I = 0 To SLen - 1returnNum = returnNum + Val(Mid(varString, I + 1, 1)) * (2 ^ (SLen - I - 1))NextTwotoTen = returnNumEnd FunctionPrivate Sub Command1_Click()Print " " & TwotoTen(InputBox("请输入欲转换的二进制整数"))End SubPrivate Function TentoTwo(ByVal varNum As Single)‘十进制小数转换为二进制小数‘十进制小数转换成二进制小数采用"乘2取整，顺序排列"法。
具体做法是：用2乘十进制小数，可以得到积，将积的整数部分取出，再用2乘余下的小数部分，又得到一个积，再将积的整数部分取出，如此进行，直到积中的小数部分为零，或者小数部分为1，此时1位二进制的最后一位。
或者达到所要求的精度为止。
‘然后把取出的整数部分按顺序排列起来，先取的整数作为二进制小数的高位有效位，后取的整数作为低位有效位。
Dim returnString As String, ModNum, I As Integer, z, x As Single ‘整数部分Dim s As Stringz = Int(varNum)x = varNum - Int(varNum)If z > 1 Or z = 1 ThenDo While z > 0If z < 1 Then Exit DoModNum = Int(z) Mod 2z = z \ 2returnString = Trim(Str(ModNum)) + returnStringLoopEnd If‘小数部分If x > 0 ThenFor I = 1 To 20x = 2 * xs = s & Str(Int(x))x = x - Int(x)NextEnd IfTentoTwo = returnString$ + "." + sEnd FunctionPrivate Sub Command2_Click()Print "" & TentoTwo(InputBox("请输入欲转换的十进制小数"))End Sub4. '建立一个图表显示应用程序? (文件?图形?多重窗体?对话框设计?菜单和控件综合设计)'数据源：某测试项目中不同功能模块所发现软件问题的类型统计数据，例如：'系统崩溃或挂起：29个软件问题'功能失效或数据丢失：15个软件问题'功能容错性问题：89个软件问题'用户易用性问题：76个软件问题'界面或文字问题：23个软件问题'用户使用菜单和对话框来输入/改动不同功能模块的软件问题数量统计信息，请使用随机文件来存取图表数据源；'Chart类型必须是平面饼图；'需要自行绘制图例区域、图表标题；'各个系列数据的显示颜色可以通过菜单和对话框改变；'所有的操作和显示选择均需通过菜单、对话框完成，请自行设计。
'必须自己使用图形方法来绘制图表，不得使用MSChart控件完成该作业。
运行结果'建立一个图表显示应用程序? (文件?图形?多重窗体?对话框设计?菜单和控件综合设计)'数据源：某测试项目中不同功能模块所发现软件问题的类型统计数据，例如：'系统崩溃或挂起：29个软件问题'功能失效或数据丢失：15个软件问题'功能容错性问题：89个软件问题'用户易用性问题：76个软件问题'界面或文字问题：23个软件问题'用户使用菜单和对话框来输入/改动不同功能模块的软件问题数量统计信息，请使用随机文件来存取图表数据源；'Chart类型必须是平面饼图；'需要自行绘制图例区域、图表标题；'各个系列数据的显示颜色可以通过菜单和对话框改变；'所有的操作和显示选择均需通过菜单、对话框完成，请自行设计。
'必须自己使用图形方法来绘制图表，不得使用MSChart控件完成该作业。
Private Type quetypeQ As String * 10g As IntegerEnd TypePrivate Type colorr As Integerg As Integerb As IntegerEnd TypePrivate Type quetype2Q As String * 10g As IntegerP As SingleEnd TypeDim c(100) As colorConst PI = 3.141592654Dim question As quetypeDim questions(100) As quetype2Dim record As IntegerPublic total As IntegerPublic totalrec As IntegerPrivate Sub about_Click()Dim a As Integera = MsgBox("制作者：39092113 赵天浩。
版权所有，违者巧合。
未解决手动任意换色的问题以及第一块饼为白色的问题。
", vbYesNoCancel, "也不中！") End SubPrivate Sub bing_Click()Dim x, y, z As IntegerDim j As IntegerDim start(100) As Singletotalrec = LOF(1) / Len(question)total = 0ClsFor j = 1 To totalrecGet #1, j, questionquestions(j).Q = question.Qquestions(j).g = question.gtotal = total + questions(j).gNextFor j = 1 To totalrecquestions(j).P = questions(j).g / totalstart(j) = questions(j).P * 2 * PI + start(j - 1)NextFor j = 0 To totalrec - 1FillStyle = 0FillColor = RGB(j / totalrec * 225, j / totalrec * 225, j / totalrec * 225)Circle (7000, 3000), 2500, , -(start(j)), -(start(j + 1))NextFor j = 1 To totalrecCurrentX = 7000CurrentY = 3000 + 200 * jPrint questions(j).Q; questions(j).P * 100; "%"NextEnd SubPrivate Sub color_Click()Form2.Show (1)End SubPrivate Sub Command1_Click()Close #1Open App.Path & "\record.dat" For Random As #1 Len = Len(question) totalrec = LOF(1) / Len(question)If Text1.Text = "" ThenMsgBox "请输入出现的问题"Exit SubElsequestion.Q = Text1.Textquestion.g = Text2.TextPut #1, record, questionrecord = record + 1Text1.Text = ""Text2.Text = "1"Label3.Caption = "纪录数为：" & record - 1End IfEnd SubPrivate Sub Command2_Click()Close #1Kill App.Path & "\record.dat"record = 1Open App.Path & "\record.dat" For Random As #1 Len = Len(question) totalrec = LOF(1) / Len(question)Label3.Caption = "纪录数为：" & totalrec' With Label4' If totalrec > 0 Then' Get #1, record, question' Print question.Q, Tab(20); question.G' record = record + 1' totalrec = totalrec - 1' Else' MsgBox "OK!"' End If' End WithEnd SubPrivate Sub exit_Click()Close #1Unload Form1End SubPrivate Sub Form_Load()Open App.Path & "\record.dat" For Random As #1 Len = Len(question) totalrec = LOF(1) / Len(question)record = totalrec + 1Label3.Caption = "纪录数为：" & totalrecEnd SubPrivate Sub Form_Unload(Cancel As Integer)Close #1End Sub'Private Sub Label4_load()'Dim i As Integer'If totalrec > 0 Then' For i = 1 To totalrec' Get #1, record, question' record = record + 1' totalrec = totalrec - 1' Next'End SubForm2代码Private Type colorr As Integerg As Integerb As IntegerEnd TypePrivate Type quetypeQ As String * 10g As IntegerEnd TypePrivate Type quetype2Q As String * 10g As IntegerP As SingleEnd TypeDim c(100) As colorConst PI = 3.141592654Dim question As quetypeDim questions(100) As quetype2Private Sub Command1_Click()totalrec = LOF(1) / Len(question)Dim x, y, z As IntegerDim j As IntegerDim total As IntegerDim start(100) As SingleForm1.totalrec = LOF(1) / Len(question)Form1.ClsFor j = 1 To Form1.totalrecGet #1, j, questionquestions(j).Q = question.Qquestions(j).g = question.gtotal = total + questions(j).gNextFor j = 1 To Form1.totalrecquestions(j).P = questions(j).g / totalstart(j) = questions(j).P * 2 * PI + start(j - 1)NextFor j = 0 To Form1.totalrec - 1Form1.FillStyle = 0Form1.FillColor = RGB(Rnd * 225, Rnd * 225, Rnd * 225)Form1.Circle (7000, 3000), 2500, , -(start(j)), -(start(j + 1)) NextFor j = 1 To Form1.totalrecForm1.CurrentX = 7000Form1.CurrentY = 3000 + 200 * jForm1.Print questions(j).Q; questions(j).P * 100; "%"NextEnd Sub。