vb第8周补充作业
vb实验八综合实验答案
实验八综合实验（4个学时）一、实验目的1．掌握常用控件的使用。
2．掌握下拉菜单的设计方法。
3．掌握创建多重窗体程序的有关技术。
4．了解常用事件及过程。
5．掌握顺序文件的打开、关闭和读写操作。
6．掌握三种鼠标事件的用法。
7．综合运用所学的知识，编写具有可视化界面的应用程序。
二、实验内容利用菜单、对话框、选择结构语句、循环结构语句、多窗体、常用控件、过程等知识点进行综合程序设计。
具体要求：1．在主窗体上，设计下拉式菜单：数值计算画图与动画顺序文件退出n! 编写画图程序读写古诗1+3+…+99 S6.1（说明：S6.1表示实验六的第1题）2．分别单击菜单项n!( 要求从键盘键入n的值)，1+3+5+….99时，要求在主窗体中设置Label1显示题目，Label2显示结果界面如下图。
1）Form1中的代码设计如下：Private Sub accumulate_Click()Dim i As Integer, sum As IntegerFor i = 1 To 99sum = sum + iNext iLabel1.Caption = "1+2+3+4+…+99="Label2.Caption = sumEnd SubPrivate Sub factorial_Click()Dim a As IntegerLabel1.Visible = TrueLabel2.Visible = Truea = InputBox("请输入n的值", "注意")La bel1.Caption = "1×2×…×" & a & "="s = 1For i = 1 To as = s * iNext iLabel2.Caption = sEnd Sub2）将从键盘上输入n = 9时的运行界面剪切下来粘贴在下面。
VB课后练习答案.doc
VB课后练习答案P12第一章课后练习答案:一、选择题二、填空题第二章（P39）选择题答案：填空题答案：1.Cmdl, Click2.Text 1.Text二"Hello"P64第三章课后练习答案一、选择题二、填空题1.(Y Mod 4=0 And Y Mod 10000) Or Y Mod 400=0 2.a<>0 And b*2-4*a*c>=0 3.X Mod 5=0 And X Mod 2=0 或 Tnt(x/5)=X/5 And Int(X/2)=X/2 4. 注意：返回的均是字符型。
第四章课后答案：P79一、选择题答案为：$$41.50010二、填空题三、程序设计题（提示）1、鸡的头数为x,兔的头数为y,则可列方程式:\x-\- y = h （兀 * 2 + y * 4 =于求得x, y 的值再在窗体上输出结果。
2、 利用Format 格式函数，再通过窗体的Print 将格式化后的信息输出到窗体上。
3、 厶员I 的周长=2加" $岡的面积=加25、通过Inputbox 函数或用文本框输入三边和圆的半径a,b,c, r,利用公式：. a + b + cn 二 ---------2 S 三角形面积=Jh （h - - b ）（h - c ）P97第五章课后练习答案:第9题| D一、选择题答案D 改为:30二、填空题第］题Y Mod 4二0 And Y Mod 100二0 Or Y Mod 400二0 第2题笫3题笫4题Private Sub Command l_Click()X=Val(Textl.Text)Select Case XCase Is>200. Isv-10()Print “xv 100 Or x>200"Case ls<=0Y=l()()-XCase Isv二100Y=100+XCase Is<=200Y=400End SelectText2.Text=yEnd Sub三、程序设计题(提示)1、判断条件：假设一个整数为xX Mod 3=0 Or x Mod 5=0 或x/3=x\3 Or x/5=x\52、选项按钮的知识点在P182,利用该控件的Wlue属性判断是否选中该项。
可视化编程(VB) 第8章～第10章补充习题
要求：1．大作业文件夹的取名规范：专业-班级-姓名。
例如：计算机-1班-马杰计算机-2班-常云博信管-1班-赵桑子信科-1班-阮荣磊2．大作业文件夹中含有：①已完成的本次“补充习题”作业的Word2003版文档电子版；②本次“补充习题”作业中标有题序号的每道编程题的.vbp文件和.frm文件。
3．按上述取名规范，在主讲教师指定的时间内．．．．．．．．．．．，将已完成的大作业文件夹压缩之后，发至：4．将完成的大作业电子版打印出来，粘贴到自己的作业本上。
5．独立完成大作业，严禁抄袭。
可视化编程 (VB)补充作业第8章循环结构补充作业题1．有如下程序：Private Sub Form_Click()A = 0For j = 1 To 20 Step 2A = A + j \ 5Next jPrint AEnd Sub运行后，输出的结果是___ B____。
A．12 B．16C．40 D．1002．有一个分数序列：2/1 ， 3/2， 5/3， 8/5， 13/8，……；求这个序列前20项的和。
请将程序补充完整。
注意：不得增行或删行，也不得更改程序的结构。
Private Sub form_click()Dim s As SingleDim t1 As Integer, t2 As Integer, t As IntegerDim I As Integers = 0t1 = 2t2 = 1I = 0DO while _ I <20______S=___t1/t2_______t = t1 + t2____t2=t1______________t1=t________I = I + 1Print I; t1; t2; sLoopPrint sEnd Sub3．有如下程序：Private Sub Form_click()A = 0For j = 1 To 10A = A + j \ 2 + j Mod 3Next jPrint AEnd Sub运行后，输出的结果是___D____。
vb课程设计一人
vb课程设计一人一、课程目标知识目标：1. 让学生理解VB编程的基本概念，掌握变量、常量的定义和使用方法。
2. 使学生掌握顺序结构、选择结构和循环结构的编程方法。
3. 培养学生运用VB编写解决实际问题的程序，如计算器、小游戏等。
技能目标：1. 培养学生运用VB编程语言进行问题分析、设计和实现的能力。
2. 培养学生利用调试工具进行程序调试，找出并修正错误的能力。
3. 培养学生运用模块化编程思想，提高代码的可读性和可维护性。
情感态度价值观目标：1. 激发学生对计算机编程的兴趣，培养主动探索、自主学习的精神。
2. 培养学生良好的编程习惯，注重代码规范，提高编程素养。
3. 培养学生合作交流、分享成果的意识，提高团队协作能力。
课程性质：本课程为选修课程，适用于有一定计算机基础的学生。
学生特点：学生具备基本的计算机操作能力，对编程有一定兴趣，但编程经验不足。
教学要求：结合学生特点，采用案例教学、任务驱动等方法，注重实践操作，让学生在动手实践中掌握编程知识。
将课程目标分解为具体的学习成果，便于教学设计和评估。
二、教学内容本课程教学内容主要包括以下几部分：1. VB编程基础：- 变量与常量的定义和使用- 数据类型与运算符- 程序的基本结构（顺序结构、选择结构、循环结构）2. 界面设计：- 控件的使用（按钮、文本框、标签等）- 界面布局与设计3. 编程实践：- 编写简单的计算器程序- 编写小游戏（如：猜数字、贪吃蛇等）4. 程序调试与优化：- 使用调试工具进行程序调试- 代码优化与模块化编程5. 综合项目实践：- 结合所学知识，完成一个综合性的项目教学内容安排和进度：1. 第1-2周：VB编程基础2. 第3-4周：界面设计3. 第5-6周：编程实践4. 第7-8周：程序调试与优化5. 第9-10周：综合项目实践教材章节关联：1. VB编程基础——教材第1章2. 界面设计——教材第2章3. 编程实践——教材第3章4. 程序调试与优化——教材第4章5. 综合项目实践——结合教材各章节内容进行三、教学方法为了提高教学质量，激发学生的学习兴趣和主动性，本课程将采用以下多样化的教学方法：1. 讲授法：教师通过生动的语言、形象的表达，向学生传授VB编程的基本概念、语法规则等理论知识，为学生打下扎实的编程基础。
VB8
将 ScaleHeight、ScaleWidth、ScaleLeft 与 ScaleTop 属性设置为任何值都自动将 ScaleMode 设置为 0。
8.1.2
坐标刻度
重定义坐标轴方向和度量单位 属性ScaleWidth，ScaleHeight的值可确定对象坐标系X轴与Y轴的正向 及最大坐标值。缺省时其值均大于0，此时，X轴的正向向右，Y轴的正向向下。 对象右下角坐标值为(ScaleLeft+ScaleWidth，ScaleTop+ScaleHeight)。 如果ScaleWidth的值小于0，则X轴的正向向左，如果ScaleHeight的值小 于0，则Y轴的正向向上。
Form1.ScaleLeft = -150
Form1.ScaleTop = 100
Form1.ScaleWidth = 300 Form1.ScaleHeight = -200
(-150,100)
(150,-100)
3. Scale 方法
[对象.]Scale[(xLeft,yTop)-(xRight,yBottom)] 对象的左上角坐标值 对象的右下角坐标值
8.1.1
坐标系
坐标系用于确定容器中点的位置，任何容器的默认原点坐标都是容
器的左上角（0,0）。坐标系包括横坐标（X轴）和纵坐标（Y轴），从
原点出发向右方向为X轴的正方向，垂直向下是Y轴的正方向。x值是指 点与原点的水平距离，y值是指点与原点的垂直距离。 VB中的容器包括窗体（Form）、框架（Frame）和图片框 （PictureBox）等。因此在上图中文本框的位置坐标是以窗体为容器的 坐标，而不是屏幕的坐标。 坐标系的原点、方向和刻度都可以通过设置而改变。
8.1.3
VB-08
VB 程序设计基础课件
第8讲 窗体设计 讲
8.2 窗体对象的常用属性
教学内容 字型属性 学习要求 上机实验 课后作业 程序源码 运行效果 启动VB
字型属性由一组值为True|False的属性组成： 的属性组成： 字型属性由一组值为 的属性组成 FontBold 属性：设置字型是否为粗体； 属性：设置字型是否为粗体； FontItalic 属性：设置字型是否为斜体； 属性：设置字型是否为斜体； FontStrikethru 属性：设置字型是否有中线； 属性：设置字型是否有中线； FontUnderline 属性：设置字型是否有下划线。 属性：设置字型是否有下划线。 这些属性只能在代码中设置，格式如下： 这些属性只能在代码中设置，格式如下： [窗体名 <字型属性名 窗体名]. 字型属性名 窗体名 字型属性名>=True|False 例如： 例如：Form1.FontItalic=True
VB 程序设计基础课件
第8讲 窗体设计 讲
8.2 窗体对象的常用属性
教学内容 学习要求 上机实验 课后作业 程序源码 运行效果 启动VB FontName 属性
该属性用于设置在窗体上输出字符的字体。 该属性用于设置在窗体上输出字符的字体。该属性只能通 过代码进行设置。 过代码进行设置。 格式： 窗体名 窗体名] 字体名"> 格式：[窗体名 . FontName=< "字体名 字体名 例如：Form1.FontName="黑体 黑体" 例如：Form1.FontName="黑体" Form1.FontName="楷体 楷体_GB2312" 楷体
Picture 属性
该属性用于设置在窗体上显示一幅图片。 该属性用于设置在窗体上显示一幅图片。在“属性”对话 属性” 框中设置时，将弹出一个“加载图片”对话框， 框中设置时，将弹出一个“加载图片”对话框，可以从中选择 一个图形文件。若需要通过代码设置Picture属性，则需要使用 属性， 一个图形文件。若需要通过代码设置 属性 LoadPicture() 函数。 函数。 例如：Form1.Picture= 例如： LoadPicture("C:\Windows\Cloud.Bmp")
vb实验八
Dim a(), b(), c(), d()Private Sub Command1_Click()Dim sumsum = 0For i = 1 To UBound(b)sum = sum + b(i)Next iForm2.Caption = "数学的平均分" & " " & sum / UBound(b) Form2.Visible = TrueForm2.Print "低于平均分数的同学有"For i = 1 To UBound(b)If b(i) < sum / UBound(b) Then Form2.Print a(i)Next iEnd SubPrivate Sub Command2_Click()Dim sumsum = 0For i = 1 To UBound(c)sum = sum + c(i)Next iForm2.Caption = "物理的平均分" & " " & sum / UBound(c) Form2.Visible = TrueForm2.ClsForm2.Print "低于平均分数的同学有"For i = 1 To UBound(c)If b(i) < sum / UBound(c) Then Form2.Print a(i)Next iEnd SubPrivate Sub Command3_Click()Dim sumsum = 0For i = 1 To UBound(d)sum = sum + d(i)Next iForm2.Caption = "英语的平均分" & " " & sum / UBound(d) Form2.Visible = TrueForm2.ClsForm2.Print "低于平均分数的同学有"For i = 1 To UBound(d)If b(i) < sum / UBound(d) Then Form2.Print a(i)Next iEnd SubPrivate Sub Form_Load()Form2.Visible = FalseText1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""Frame1.Caption = "学生成绩查询"Frame2.Caption = "各科平均分及找出低于平均分者" Label1.Caption = "数学"Label2.Caption = "物理"Label3.Caption = "英语"Label4.Caption = "总分"Command1.Caption = "数学"Command2.Caption = "物理"Command3.Caption = "英语"Open App.Path & "姓名.txt" For Input As #1Do While Not EOF(1)n = n + 1ReDim Preserve a(n)Input #1, a(n)List1.AddItem a(n)LoopClose #1Open App.Path & "数学.txt" For Input As #2Do While Not EOF(2)t = t + 1ReDim Preserve b(t)Input #2, b(t)LoopClose #2Open App.Path & "物理.txt" For Input As #3Do While Not EOF(3)q = q + 1ReDim Preserve c(q)Input #3, c(q)LoopClose #3Open App.Path & "英语.txt" For Input As #4 Do While Not EOF(4)e = e + 1ReDim Preserve d(e)Input #4, d(e)LoopClose #4End SubPrivate Sub List1_Click()l = List1.TextFor i = 1 To UBound(a)If l = a(i) Then z = iNext iText1.Text = b(z)Text2.Text = c(z)Text3.Text = d(z)Text4.Text = b(z) + c(z) + d(z)End SubPrivate Sub Command1_Click()Form2.Visible = FalseEnd SubPrivate Sub Form_Load()AutoRedraw = TrueCommand1.Caption = "确定"End Sub。
膳食补充剂
膳食补充剂（25）
（3）经FDA批准的，如“叶酸与降低新 生儿神经管缺陷的危险”和“钙与降低 骨质疏松的危险”等，可以用在符合宣 传要求的产品，作为标签的补充； （4）GMP； （5）成立“膳食补充剂委员会”
膳食补充剂（21）
UL的正确认识 依据： • 人群流行病学调查 • 动物的危险性（安全性）评估 • 体外实验 以上的科学资料制订的
膳食补充剂（22）
• UL是该营养素对人体无毒副作用 （NOAEL）的最高可摄入水平。
• UL并非人体有益作用的适宜量；也 非过量摄入而无潜在毒性。
• UL值包括膳食＋水＋其它来源的总 和。
个月、出生后2岁持续增加。 • 一般母乳中DHA含量为0.3%，
AA为0.5%-0.7%
膳食补充剂（5）
DHA、AA
• 56名足月婴儿，在出生后5天至17周中开 始食用含DHA、AA的饮食直至18个月。
发现摄入DHA、DHA+AA可提高大脑发 育指数（MDI）；4月龄时和血浆RBCDHA有明显联系；18个月时MDI试验表 明，早期摄入DHA是提高MDI的主要的 决定因素（12个月时无关）。
制订指南。 名称：膳食补充剂；营养素补充剂；
维生素与矿物质补充剂（VMS）。 VMS的定义、范围。 维生素与矿物质的产品；不包括其它
营养素或植物成分。
膳食补充剂（17）
为什么要用VMS？ 1.没时间吃正经（正式）饭，只能用快餐
或零食； 2.老龄化、体力活动减少，导致食物量减
少； 3.特殊生理状况下（如绝经期妇女）难于
VB8
Next Print "最大值为"; max
循环嵌套
For i= 1 to 5
P96
将一个完整的循环结构插入到另一个循环结构中
For j= 3 to 1 step -1
Print "i="; i, "j="; j
Next j
Next i
Ctrl+Break 强行退出死循环
Do ... Loop 循环语句
条件 语句组 条件
语句组
Do While |Until 条件 语句组 Loop
Do 语句组 Loop While|Until
条件
Exit Do可中途退出循环
计 数 循 环 流 程 图
循环变量=初值
For 循环变量 = 初值 To 终值 [Step 步长 ]
循环变量未超出终值？ True 循环体
False
循环变量=循环变量+步长
Next 循环变量
实验：输入10个同学考试的等级，如果A计5 分，B计4分，以此类推，求这10个同学的平 均成绩。
Dim i%, sum%, mark$, aver! For i= 1 to 10 mark = InputBox("请输入成绩") Select case Ucase(mark) Case ”A” : sum = sum + 5 Case ”B” : sum = sum + 4 Case ”C” : sum = sum + 3 Case ”D” : sum = sum + 2 Case ”E” : sum = sum + 1 Case Else : i = i – 1 ‘人为改变循环变量的值，不提倡 End Select Next 不能改成 i，为什么？ aver = sum / 10 Print "平均为："; aver
VB学习指导练习题答案
练习题一参考答案1.3.1 单项选择题1.3.2 多项选择题1.3.3 分析判断题1.3.4 程序设计题【习题1-49】编写一个华氏温度F 与摄氏温度C 之间转换的应用程序，界面如图1-4所示。
其中F 与C 之间的关系为：3259+=C F 。
参考程序如下：Private Sub Command1_Click() Dim f As Single, c As Single f = V al(Text1.Text) c = (f - 32) * 5 / 9 Text2.Text = Str(C) End SubPrivate Sub Command2_Click() Dim f As Single, c As Single c = V al(Text2.Text) f = 9 / 5 * c + 32 Text1.Text = Str(f)End Sub【习题1-50】编程将弧度值转换为角度值（度、分、秒）的形式，然后在窗体上显示出来。
程序运行界面如图1-5所示。
【提示】利用InputBox()输入弧度值，首先把弧度值转换为原始角度值，然后取整得到角度值，再把原始角度值减去度值，将结果转化为分值，采用类似思维即可求出结果。
参考程序如下：Private Sub Form_Click()Dim s As Single, a As Integer, b As Integer, c As Integer Const pi As Single = 3.14159图1-4 华氏温度与摄氏温度的转换图1-5 弧度值转换为角度值s = V al(InputBox("请输入弧度值:")) s1 = s s = s * 180 / pi a = Int(s) s = s - a s = s * 60 b = Int(s) s = s - bc = s * 60Print "输入的弧度值" & s1; "对应的角度值为:" Print a & "度" & b & "分" & c & "秒。
大学Visual Basic课程VB8
vb课程设计系统
vb课程设计系统一、课程目标知识目标：1. 让学生掌握VB（Visual Basic）编程语言的基本语法和结构，包括变量声明、数据类型、运算符、控制结构等。
2. 培养学生运用VB语言设计简单的程序，解决实际问题。
3. 使学生了解计算机编程的基本思想，理解程序设计的步骤和流程。
技能目标：1. 培养学生具备使用VB编程环境进行代码编写、调试和运行的能力。
2. 培养学生运用控制结构（如顺序、循环、分支）进行程序设计的能力。
3. 培养学生通过分析问题，运用所学知识进行程序设计，解决实际问题的能力。
情感态度价值观目标：1. 培养学生对计算机编程的兴趣，激发学习动力。
2. 培养学生具备良好的编程习惯，注重代码规范，提高代码质量。
3. 培养学生具备团队协作精神，善于沟通交流，共同解决问题。
课程性质：本课程为信息技术课程，旨在培养学生的编程思维和实际操作能力。
学生特点：学生为初中年级，具有一定的计算机操作基础，对编程有一定的好奇心和兴趣。
教学要求：结合学生特点和课程性质，采用案例教学、任务驱动、分组讨论等教学方法，注重理论与实践相结合，提高学生的实际操作能力。
在教学过程中，关注学生的个体差异，进行有针对性的指导。
通过本课程的学习，使学生能够掌握基本的VB编程技能，为后续学习打下坚实基础。
二、教学内容1. VB编程基础：- 变量与数据类型- 运算符与表达式- 程序结构（顺序结构、循环结构、分支结构）- 常用函数与过程2. 窗体与控件：- 窗体设计基础- 常用控件的使用（如按钮、文本框、标签等）- 事件处理3. 程序设计方法：- 需求分析- 算法设计- 代码编写与调试4. 实践项目：- 设计一个简单的计算器- 设计一个个人资料管理系统- 设计一个简易的抽奖程序教学大纲安排：第一周：VB编程基础（变量、数据类型、运算符）第二周：程序结构（顺序结构、循环结构）第三周：程序结构（分支结构）、常用函数与过程第四周：窗体与控件、事件处理第五周：实践项目一（设计计算器）第六周：实践项目二（设计个人资料管理系统）第七周：实践项目三（设计简易抽奖程序）第八周：复习与测试教学内容与教材关联性：本教学内容紧密结合教材，按照教材章节顺序进行教学，确保学生能够系统、全面地掌握VB编程知识。
08VB 数组(教案)
计算机程序应用基础（VB）
授课题目
数组
学时数
3
课型
理论课
授课对象
本科
授课时间
第asic程序设计教程（第3版）高等教育出版社
教学
目的
及
要求
1.掌握数组的概念及声明
2.掌握数组的基本操作
3.掌握一种排序算法(选择排序或冒泡排序)
4.掌握一维和二维数组的基本编程技巧
5.了解多维数组的编程技巧
教学主要内容
时间分配
1．数组的概念
数组的概念
定长数组及声明
多维数组及声明
二维数组及声明
动态数组及声明
2．数组的基本操作和排序
数组的输入
用Array函数为一维数组的赋值
数组的输出
求数组和、最值、位置
交换元素
数组排序
3．综合应用
分类统计
1
1学时
2
1.5学时
3
0.5学时
教学重点及
基本概念
数组的概念
定长数组及声明
数组的输入、输出
用Array函数为一维数组赋值
二维数组的应用
常用算法
选择排序，矩阵的处理
复习：
教材第5章的5.1, 5.2, 5.5
课后作业：
教材习题五：1，2，3，4，5（4），5（6），6（1），6（2）
二维数组及声明
数组的输入
数组的输出
求数组和、最值、位置
数组排序
分类统计
教
学
难
点
定长数组及声明
二维数组及声明
数组的输入
数组的输出
数组排序
教学方法
实例演示：
各种算法的演示程序
计算机VB第8章课后练习参考答案
第八章后习题参考答案一、单选题1．C 2. D 3. C 4. B 5. B二、填空题1．通用2．过程，Static ID As Integer3．模块级4．可变参数三、程序阅读题1．50 10025 10012 1002．1 2 44 7 1212 20 33四、思考题1．出错。
2．出错，因为赋值号的左边应为函数名Fact，不能为函数调用。
实验：1．Private Sub DToB(A As Long)Dim B As String, a1 As Longa1 = AB = ""Do While A <> 0B = (A Mod 2) & BA = A \ 2LoopPrint "十进制数"; a1; "转换二进制数为"; BEnd SubPrivate Sub Command1_Click()Dim A As LongA = InputBox("请输入十进制数")DToB (A)End Sub2．Option ExplicitFunction Prime(ByV al A As Long) As BooleanDim I As IntegerFor I = 2 To Sqr(A)If A Mod I = 0 Then Exit ForNext IIf I > Sqr(A) ThenPrime = TrueElsePrime = FalseEnd IfEnd FunctionPrivate Sub Command1_Click()Dim A As Long, B As LongDim N As LongDoN = V al(InputBox("请输入一个偶数"))Loop While N / 2 <> N \ 2 Or N < 6For A = 3 To N / 2 Step 2If Prime(A) ThenB = N - AIf Prime(B) ThenMsgBox Str(N) & "=" & Str(A) & "+" & Str(B)Exit ForEnd IfEnd IfNext AEnd Sub3．方法1，使用模块级变量，其值在各个过程中可用，且在静态存储区，应用程序结束运行时才释放。
vb语言写点餐系统课程设计
vb语言写点餐系统课程设计一、课程目标知识目标：1. 让学生掌握VB语言的基本语法和程序结构，能运用所学知识编写简单的点餐系统程序。
2. 让学生理解点餐系统的功能需求，学会分析问题、设计算法并实现功能模块。
技能目标：1. 培养学生运用VB语言进行程序设计的能力，提高编程实践技能。
2. 培养学生分析问题、解决问题的能力，提高逻辑思维和创新能力。
情感态度价值观目标：1. 培养学生对计算机编程的兴趣和热情，激发学习积极性。
2. 培养学生团队协作意识，学会与他人共同探讨、解决问题。
3. 培养学生关注社会生活，了解信息技术在实际应用中的价值。
课程性质：本课程为实践性较强的课程，旨在通过VB语言编程实现点餐系统，让学生在实际操作中掌握编程知识和技能。
学生特点：学生具备一定的计算机操作基础，对VB语言有初步了解，但对程序设计方法和技巧掌握不足。
教学要求：结合学生特点和课程性质，注重理论与实践相结合，强化编程实践，培养学生实际操作能力和问题解决能力。
通过课程学习，使学生在知识、技能和情感态度价值观方面取得具体的学习成果。
二、教学内容1. VB语言基础回顾：变量、数据类型、运算符、控制结构（顺序、选择、循环）。
2. VB界面设计：窗体、控件的基本属性和事件，菜单设计。
3. 点餐系统功能分析：需求分析，模块划分，功能描述。
4. 点餐系统数据库设计：数据表设计，数据访问对象（DAO）的使用。
5. 点餐系统功能实现：点餐、查看菜单、下单、结账等模块的编程实现。
6. 点餐系统测试与优化：测试用例设计，系统性能优化。
7. 项目总结与展示：总结编程过程中的经验教训，展示作品，互相评价。
教学内容安排与进度：第1周：VB语言基础回顾，熟悉开发环境。
第2周：VB界面设计，学习窗体和控件的使用。
第3-4周：点餐系统功能分析，进行数据库设计。
第5-6周：点餐系统功能实现，编写程序代码。
第7周：点餐系统测试与优化，完善系统功能。
第8周：项目总结与展示，进行作品交流和评价。
大学生vb课程设计
大学生vb课程设计一、课程目标知识目标：1. 理解VB（Visual Basic）语言的基本语法和编程结构；2. 掌握VB中数据类型、变量、常量的定义与使用；3. 学会使用VB进行顺序结构、选择结构和循环结构的编程；4. 熟悉VB中常用控件的使用，如文本框、按钮、标签等；5. 了解VB中事件驱动编程的概念及其应用。
技能目标：1. 能够运用VB编写简单的程序，解决实际问题；2. 学会使用VB进行基本的算法设计和实现；3. 掌握利用VB进行界面设计和人机交互；4. 培养独立分析问题、设计程序解决方案的能力。
情感态度价值观目标：1. 培养学生积极的学习态度，激发对编程的兴趣和热情；2. 培养学生的团队合作意识，学会与他人共同解决问题；3. 培养学生严谨、细致的编程习惯，提高编程素养；4. 引导学生认识编程在现代社会中的重要作用，增强社会责任感。
本课程针对大学生开设，考虑到学生的认知水平和实际需求，课程目标既注重基础知识的学习，又强调实践技能的培养。
通过本课程的学习，使学生能够掌握VB编程的基本技能，培养编程思维，提高解决实际问题的能力。
同时，注重培养学生的情感态度和价值观，使其在学习过程中形成积极向上、严谨细致的学习态度，为未来的学习和工作打下坚实基础。
二、教学内容1. VB概述与集成开发环境- 了解VB的发展历程、特点及应用领域；- 学会使用VB的集成开发环境，熟悉工具栏、菜单栏等操作。
2. 基本语法与数据类型- 学习VB中的数据类型、变量、常量的定义与使用；- 掌握基本运算符、表达式和赋值语句。
3. 控制结构- 学习顺序结构、选择结构（If条件语句、Select Case语句）；- 学习循环结构（For循环、While循环、Do循环）。
4. 常用控件- 熟悉文本框、按钮、标签等控件的使用；- 学习使用列表框、组合框、菜单等高级控件。
5. 事件驱动编程- 了解事件驱动编程的基本概念；- 学会编写事件处理过程，实现简单的人机交互。
vbjs08
全国计算机水平考试（安徽考区）二级上机模拟系统 xbyin Page 1 4/28/2013解法一：Private Sub Command1_Click()If Ch1.Value = 1 And Ch2.Value = 1 ThenLab1.Caption="报名参加"&Ch1.Caption& "和"& Ch2.Caption & "比赛 ElseIf Ch1.V alue = 1 And Ch2.V alue = 0 ThenLab1.Caption = "报名参加" & Ch1.Caption & "比赛"ElseIf Ch1.V alue = 0 And Ch2.V alue = 1 ThenLab1.Caption = "报名参加" & Ch2.Caption & "比赛"ElseLab1.Caption = "不参加比赛"End IfEnd Sub解法二： Private Sub Command1_Click() If Ch1.Value = 1 Then Lab1.Caption = "报名参加篮球比赛" End If If Ch2.V alue = 1 Then Lab1.Caption = "报名参加排球比赛" End IfIf Ch1.V alue = 1 And Ch2.Value = 1 ThenLab1.Caption = "报名参加篮球和排球比赛" End IfIf Ch1.V alue = 0 And Ch2.Value = 0 Then Lab1.Caption = "不参加比赛" End If End Sub参考程序如下： Dim s As Single, n As Integer, t As Single, i As Integer Private Sub C1_Click() s = 1 n = 1Do n = n + 1 t = 1 For i = 1 To 2 * n - 1 t = t * i Next i s = s + (-1) ^ (n - 1) / t Loop Until 1 / t < 0.00001 Text1.Text = s 操作步骤如下：1. 新建一个工程，在属性窗口将窗体名称改为“Menu1”，将工程名称改为“Vbcd ”；保存工程，将窗体文件命名为“Menu1.Frm ”，工程文件命名为“Menu1.Vbp ”,皆保存在考生文件夹中。
VB模拟训练8
VB 模拟训练八12.在程序运行中，要想使可操作的按钮变成不可操作，则应设置为False 的属性是（）。
(A) Visible (B) Enabled (C) Canceled (D)Default14.在V isual Basic 中，要将一个窗体装载到内存进行预处理，但不显示，应该使用那种语句：（） (A) Show (B) Hide (C) Load (D) Unload15.在V isual Basic 中，要将一个窗体从内存中释放，应使用（）语句。
(A) Show (B) Hide (C)Load (D)Unload 16.图像框中的stretch 属性为true 时，其作用是（）。
(A) 只能自动设定图像框长度 (B) 图形自动调整大小以适应图像控件 (C)只能自动缩小图象 (D)只能自动扩大图像17.在运行程序的过程中，当执行“复制”（mnuEditCopy ）命令时，使“粘贴”（mnuEditPaste ）命令变为可用，则应做如下处理（）。
(A) Private Sub mnuEditPaste_Click() …mnuEditPaste.Enabled = True End Sub(B) Private Sub mnuEditCopy_Click() …mnuEditPaste.Enabled = True End Sub19.图象框（image ）和图片框(Picture)在使用时有所不同，以下叙述中正确的是（）。
(A) 图片框比图像框占内存少 (B) 图象框内还可包括其他控件 (C) 图片框有Stretch 属性而图象框没有 (D) 图像框有Stretch 属性而图片框没有 21.在窗体上面画一个命令按钮，然后编写如下事件过程： Option Base 1Private Sub CommAnd1_Click() Dim aa = Array(1, 2, 3, 4) j = 1For i = 4 To step - 1 s = s + a(i) * j j = j * 10 Next iPrint s End Sub运行上面的程序，单击命令按钮，其输出结果是（）。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
1，已知：f0=f1=0, f2=1, f n=f n-1-2f n-2+f n-3 (n>3)
求在前21个数中，负数的个数。
2，根据下面泰勒级数求x的正弦值。
3，由用户输入若干个非零的整数（以0为结束标记,可用MsgBox ），有两个标签显示用户输入数据的最小值及正数和负数的个数（如下）。
输入数据的最小值为：XXX
其中正数为XX个，正数为XX个。
4.请打印N行杨辉三角形。
5，计算并输出三位数的所有素数的平方根之和。
6，计算1~10之间奇数之和以及偶数之和。
7，输出1000以内能被三整数且个位数为6的所有正数，一行输出6个。
8，找出2~99之间的所有同构数。
同构数：正数与其平方数为一组同构数，如5和25为一组同构数，25和625为一组同构数。
9，以下公式求S的值。
12．编写程序验证哥德巴赫猜想(任何充分大的偶数都可由两个素数之和表示)。
将4至100之间所有偶数分别用两个素数之和表示。
输出格式为：
4=2+2
6=3+3
8=3+5
……
100=3+97
13．编写程序求2至10000之间的所有“完数”。
所谓“完数”是指除自身之外的所有因子之和等于自身的数。
如28是一个完数,因为28的因子有：1、2、4、7、14,,且：28=1+2+4+7+14
14.输入x值,按下列公式计算cos(x)。
精度要求7位有效数字,最后一项<1E-7。
编写程序实现之。