vb第8周补充作业
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。
编写程序实现之。
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 & "秒。