VB第七章自测题及答案
第7章自测题及其参考答案7．1一维数组自测题一．单项选择题（共30分，每小题10分）1．下列一维数组说明语句错误的是（）。
a)Dim b(100) AS Doubleb)Dim b(-5 To 0) AS Bytec)Dim b(-10To –20) AS Integerd)Dim b(5 To 5) AS String2．若有数组说明语句为：Dim a(-3 To 8) 则数组a包含元素的个数是（）。
a)5 b)8 c)11 d)123．设有数组说明语句：Dim c(1 To 10)，则下面表示数组c的元素选项中（）是错误的。
a)c(i-1) b)c(5+0.5) c)c(0) d)c(10)二．写出下面事件过程的执行结果（共30分，每小题15分）１．Private Sub Command1_Click()Dim s(1 To 6) As IntegerFor i = 1 To 6s(i) = iNext iFor i = 1 To 3For j = 4 To 6t = s(i)s(i) = s(j)s(j) = tNext jNext iFor i = 1 To 6Print s(i);Next iEnd Sub２．Private Sub Command1_Click()Dim f(10) As Integerf(0) = 1: f(1) = 1For i = 2 To 10f(i) = f(i - 2) + f(i - 1)Next iFor i = 0 To 9If i Mod 4 = 0 Then PrintPrint f(i),Next iEnd Sub三．程序填空题（共40分，每空10分）1．下面事件过程的功能是从键盘上输入20个数，统计其中非负个数和计算所有非负数之和，在横线上填上适当内容。
Private Sub Command1_Click()Dim a(3) As Single, s As Single, count%For i = 1 To 3a(i) = InputBox("a(" & Str(i) & ")=")Next is = 0: count = 0For i = 1 To 3If （1） ThenGoTo LElse（2）count = count + 1End IfL: Next iPrint "count="; countPrint "s="; sEnd Sub２．下面事件过程的功能是：用随机函数产生10个10到100之间的随机整数存放到一维数组a中，并求a中的最小值及最小值在数组a中的位置，在横线上填上适当内容。
Private Sub Command1_Click()Dim a(10) As Integer, i%, max%, index%RandomizeFor i = 1 To 10a(i) = Int(91 * Rnd + 10)Print a(i);Next iPrintmax = a(1): index = 1For i = 2 To 10If （3） Then max = a(i): （4）Next iPrint "数组a中的最小值为："; maxPrint "最小值所在位置为："; indexEnd Sub参考答案一．单项选择题1．c 2. d 3. c二．写出下面事件过程的执行结果1．6 5 4 3 2 12．1 1 2 35 8 13 2134 55三．程序填空题1．（1）a(i) < 0 （2）s = s + a(i)2．（3）a(i) < max （4）index = i７．２二维数组自测题一．单项选择题（共30分，每小题10分）1．下列数组说明语句中正确的是（）。
a)Dim a(-1 To 5,8)AS Stringb)Dim a(n,n)AS Integerc)Dim a(0 To 8,5 To –1)AS Singled)Dim a(10,-10)AS Donble2．设有数组说明语句：Dim b（－１To２，－２To２），则数组b中元素的个数是（）。
a) 12 b) 15 c) 16 d) 203．设有数组说明语句：Dim c（－１To１，１To５），则下列表示数组c的元素选项中（）是正确的。
a)c(i+j) b)c(i)(j) c)c(i+1,i-1) d)c(1,0)二．阅读下列事件过程写出执行结果（共30分，每小题15分）1．Private Sub Command1_Click()Dim a(1 To 9) As IntegerDim b(1 To 3, 1 To 3) As IntegerDim i%, j%For i = 1 To 9a(i) = iNext iFor i = 1 To 3For j = 1 To 3b(i, j) = a(i * j)If j <= i Then Print b(i, j),Next jPrintNext iEnd Sub２．Private Sub Command1_Click()Dim a(1 To 5, 1 To 5) As Integer, i%, j%For i = 1 To 5For j = 1 To 5If i <= j Then a(i, j) = 1 Else a(i, j) = i - j + 1Next jNext iFor i = 1 To 5For j = 1 To 5Print a(i, j);Next jPrintNext iEnd Sub三．程序填空题（共40分，每空10分）1．设某班有30个学生参加英语、高等数学和VB考试，下面事件过程的功能是求该班每个学生的总分和三门课程都在85分以上者。
Private Sub Command1_Click()Dim s(1 To 30, 1 To 3) As IntegerDim i%, j%, sum%For i = 1 To 30For j = 1 To 3s(i, j) = InputBox("请输入第" & Str(i) & "个学生" & "第" & Str(j) & "门课成绩")Next jNext iFor i = 1 To 30sum = 0For j = 1 To 3sum = （１）Next jPrint "第" & Str(i) & "个学生分数总和为:"; sumIf （２） ThenPrint "该学生三门课均为85分以上！"End IfNext iEnd Sub2．下面事件过程的功能是检查一个二维数组是否对称（对所有的i和j都有a（i，j）＝a（j，i）），在横线上填上适当内容。
Private Sub Command1_Click()Dim i%, j%, flag%Dim a(1 To 3, 1 To 3) As Integerflag = 1For i = 1 To 3For j = 1 To 3a(i, j) = InputBox("请输入第" & Str(i) & "第" & Str(j) & "列元素的值：")Next jNext iFor i = 1 To 3For j = 1 To 3If （３） Then flag = 0: GoTo lNext jNext il: If （４） Then Print "No" Else Print "Yes"End Sub参考答案一．单项选择题1． a 2. d 3. c二．阅读下列事件过程写出执行结果１．１２４３６９２．１１１１１２１１１１３２１１１４３２１１５４３２１三．程序填空题１．（１）sum + s(i, j)（２）s(i, 1) >= 85 And s(i, 2) >= 85 And s(i, 3) >= 85２．（３）a(i,j)<>a(j,i) （４）flag = 0７．３数组的其他定义形式自测题一．填空题（共40分，每空８分）１．数组元素个数可以改变的数组称为（）；数组元素可以存放不同类型数据的数组称为（）。
２．数组刷新新语句用于（）。
若被刷新的数组是数值数组，则把该数组的所有元素置（）；若被刷新的数组为字符串数组，则把该数组的所有元素置（）。
二．单项选择题（共20分，每小题10分）。
１．若有数组说明语句：Dim a()AS Integer，则a被定义为（）。
a)定长数组b)可调数组c)静态数组d)可变类型数组２．若有数组说明语句：Dim t(1 To 10)AS Variant,则t被定义为（）。
a)数值数组b)可调数组c)字符串数组d)可变类型数组三．写出单击三次命令按钮Ｃommand1后下列事件过程的输出结果（20分）Private Sub Command1_Click()Dim a(1 To 5) As IntegerStatic s(1 To 5) As IntegerDim i%ClsFor i = 1 To 5a(i) = a(i) + 2s(i) = s(i) + 2Next iPrint "数组a:"For i = 1 To 5Print a(i),Next iPrintPrint "数组s:"For i = 1 To 5Print s(i),Next iEnd Sub四．下面事件过程的功能是从键盘上输入若干个数据存放到一维数组a中，并求出这组数据的平均值，在横线上填上适当内容。
（20分）Private Sub Command1_Click()Dim n%, i%（１）n = InputBox("请输入数据个数：")（２）For i = 1 To na(i) = InputBox("请输入第" & Str(i) & "个数据：")Next iFor i = 1 To nSum = Sum + a(i)Next iPrint "平均值："; Sum / nEnd Sub参考答案一．填空题１．可调数组、可变类型数组２．清除指定数组内容、０、空字符串二．单项选择题１． b 2. d三．数组a:２２２２数组s:６６６６四．（１）Dim a() As Integer（２）ReDim a(n)７．４记录类型自测题一．单项选择题（共40分，每小题10分）１．设有以下语句Type Stuname As String*10Score As SingleEnd TypeDim Stul As Stu,Stu2 As Stu则下面叙述中错误的是（）。
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第七章测试题
VB第七章测试题Visual Basic 6.0第七章测试题⼀、填空题1、⽂件管理控件有___________，__________，___________。
2、⽤于连接驱动器个数的属性是_________。
3、在⽬录列表框控件中，返回当前⽬录中⼦⽬录个数的属性是_________，返回当前路径的索引的属性是_________。
当前展开的⽬录⽤索引值_____表⽰。
当前展开⽬录以下的⽬录范围是___________ 。
4、在⽂件列表框控件中返回是否在⽂件列表框控件中进⾏复选的属性是__________。
5、当在⽂件列表中单击⼀个⽂件时发⽣_______事件。
6、⽂件访问的类型有3种：________，_______，_________。
7、顺序⽂件中记录的长度是_______的，随机⽂件中记录的长度是______的。
8、打开顺序⽂件的⽅式有三种，分别是_______，_______，______。
9、⽂件号取值范围是______________。
10、缓冲区⼤⼩不超过________字节，默认______字节。
11、关闭顺序⽂件的语句是_________。
12、在顺序⽂件中⽤来测试⽂件⼤⼩的函数是______。
13、⽤来测试⽂件末尾的函数是________。
14、定义记录类型的语句是_______。
15、打开随机⽂件时，应选择__________ ⼦句。
16、对随机⽂件进⾏读写分4个步骤：_______________,____________________,______________________,______________________________。
17、在随机⽂件中，将记录读⼊变量的语句是________，将变量写⼊记录的语句是_________。
18、FSO对象模型包含在____________类型库中。
要引⽤该对象可选择_______菜单中的_______命令。
19、若要访问⼀个已有的驱动器、⽂件夹和⽂件，可以使⽤___________________对象中的_________,_________,_________⽅法。
VB笔试章节练习试卷7(题后含答案及解析)
VB笔试章节练习试卷7(题后含答案及解析) 题型有：1. 选择题 2. 填空题选择题（每小题2分，共70分）下列各题A、B、C、D四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上。
1．以下不属于标签属性的是______。
A．FontB．ValeC．CaptionD．Index正确答案：B2．以下关于图片框控件的说法中，错误的是______。
A．可以通过Print方法在图片框中输出文本B．清空图片框控件中图形的方法之一是加载一个空图形C．图片框控件可以作为容器使用D．用Stretch属性可以自动调整图片框中图形的大小正确答案：D3．将文本框的ScrollBars属性设置为非零值却没有效果，原因是______。
A．文本框中没有内容B．文本框的MultiLine属性值为FalseC．文本框的MulfiLine属性值为TrueD．文本框的Locked属性值为True正确答案：B4．在窗体上面显示一个名称为Text1的文本框和一个名称为Command1的命令按钮，编写如下事件过程：Private Sub Command1_Click( ) Text1.Text=“Visual”ME．Text1=“Basic”Text1=“Program”End Sub 程序运行后，如果单击命令按钮，则在文本框中显示的是______。
A．VisualB．BasicC．ProgramD．出错正确答案：C5．使用文本框显示文字时，只能显示8个字符，则需设定它的______属性为8。
A．CaptionB．PasswordCharC．MaxLengthD．Value正确答案：C6．要使文本框能显示多行文字，则需设定它的______属性为True。
A．CaptionB．PasswordCharC．MulfiLineD．Value正确答案：C7．列表框的______属性代表着列表框中项目的数目。
A．ListB．ListlndexC．ListCountD．Seleted正确答案：C8．当计时器控件的______属性为True时，计时器控件的______事件经过一定的时间间隔就发生一次，时间间隔由______属性决定。
[原创]vb教程答案第七章
![[原创]vb教程答案第七章](https://360docs-1393072327.cos.ap-beijing.myqcloud.com/f90b9778a5e9856a56126091.webp)
[原创]vb教程答案第七章1(略2(略3(略4((1) BASIC(2) 6 262 62-2 98(3) 2347(4)10 812 -105 212 105( 编写一个摄氏温度与华氏温度转换的通用过程。
摄氏温度(C)与华氏温度(F)转换的公式如下:F=C×9?5，32Private Sub Command1_Click()Dim c As Single, f As Singlec = Text1.TextCall zhh(c, f)Text2.Text = fEnd SubPrivate Sub zhh(cs As Single, fs As Single) fs = cs * 9 / 5 + 32End Sub6( 编写一个验证一个数是否是素数的通用过程。
Private Sub Form_Click()Dim n As Integer, flag As Booleann = InputBox("输入一个整数:", "判断素数") Call sushu(n, flag)If flag ThenMsgBox Str(n) + "是素数"ElseMsgBox Str(n) + "不是素数"End IfEnd SubPrivate Sub sushu(m As Integer, f As Boolean) Dim i As IntegerFor i = 2 To Int(m / 2)If m Mod i = 0 Then Exit For Next iIf i = Int(m / 2) + 1 Thenf = TrueElsef = FalseEnd IfEnd Sub7( 编写程序找出1-100之间的所有孪生素数。
Option Base 1Option ExplicitPrivate Sub Form_Click()Dim prime(50) As Integer, i As Integer, lprime() As Integer, lj As IntegerDim k As Integer, m As Integer, j As Integerprime(1) = 2m = 1For i = 3 To 99 Step 2For k = 2 To Sqr(i)If i Mod k = 0 Then Exit ForNext kIf k > Sqr(i) Thenm = m + 1prime(m) = iEnd IfNext iCall pd(prime, m, lprime, lj)For i = 1 To ljPrint lprime(i);If i Mod 2 = 0 Then PrintNext iEnd SubPrivate Sub pd(p() As Integer, n As Integer, lp() As Integer, j As Integer)Dim i As IntegerFor i = 1 To n - 1If p(i + 1) - p(i) = 2 Then ReDim Preserve lp(j + 2)lp(j + 1) = p(i)lp(j + 2) = p(i + 1)j = j + 2End IfNext IEnd Sub8(利用随机函数Rnd()生成20个在1~100之间的各不相同的正整数，并在窗体上显示出来。
VB实习第七章
实习内容：例题7-1以下程序段用来在C盘根目录下建立一个名为test.txt的顺序文件。
例题7-2某班30名同学学习成绩如表7-2所示。
建立一个名为“student.txt”的顺序文件存放该班同学的学习成绩，每条记录包括学号、姓名、高数、英语、物理、计算机刘向数据。
例题7-3对例题7-2中生成的“student.txt”文件记录进行如下处理：（1）计算每个学生的平均成绩。
（2）将平均成绩大于或等于80分的记录写入“student1.txt”文件中。
例题7-4统计例题7-3中生成的“student1.txt”文件中的记录数。
例题7-5将例题7-2生成的顺序文件“student.txt”读出，按随机方式写入随机文件“student2.txt”中。
例题7-6从随机文件“student2.txt”中读出数据，计算平均成绩，并将大于或等于80分的学生成绩写入另一个随机文件“student3.txt”中。
例题7-7以二进制模式建立一个数据文件，其中的内容是随机产生的100个大写字母。
例题7-8以二进制方式读取文件text。
Txt，并将结果显示在文本框中。
例题7-9编写一个复制文件的程序。
例题7-10编写一个加密软件，要求将源文件按“字节逐位倒排序加密法”，加密。
习题7-3把随机产生的200个4位整数存入顺序文件file1.txt中。
事件代码为：Private Sub Command1_Click()Dim a(1 To 200) As Integer, i%, n%, m%For i = 1 To 200a(i) = Int(Rnd * 9000 + 1000)Next iOpen "H:\VB实习\周晓伟\实验七\file1.txt" For Output As #1For m = 1 To 200Write #1, a(m);If m Mod 20 = 0 ThenPrint #1,End IfNext mCloseEnd Sub运行结果为：习题7-4从第三题的file1.txt文件中读出数据存入数组a中，从中挑选出所有各位和百位是偶数的数据存入数组b中，并存储到随机文件file2.txt中。
VB第七章习题答案
上海立信会计学院班级：学号：姓名：指导教师：系部：专业：习题七 p1911.框架的作用是什么如何在框架中创建控件答：框架的作用：（1）对单选按钮进行分组，每一组单选按钮都是独立的，对一组单选按钮进行操作不会影响其他组单选按钮的选择。
（2）对窗体上现有控件进行分组，提供视觉上的区分和总体的激活或屏蔽特性。
在窗体上创建框架及其内部控件时，必须先建立框架，然后在其中建立各种控件。
在框架内创建控件的方法如下：（1）先单击工具箱上的工具，然后利用出现的“+”指针，在框架内适当位置拖拉出适当大小的控件，不能使用双击工具箱上工具的自动方式。
（2）如果要用框架对窗体中现有控件进行分组，则应先选定控件，然后剪切（Ctrl+X）到剪切板，最后粘贴（Ctrl+V）到控件上。
2.如果要让定时器每30s产生一个Timer事件，则InterVal属性应设置为多少答：Interval属性值的单位是ms（），因此要让定时器每30s产生一个Tiner事件，则Interval属性值应设置为30000。
5.在使用“字体”对话框之前必须设置什么属性答：在显示字体对话框之前必须设置Flags属性，指示选用何种字体，否则将发生不存在字体错误。
6.热键与快捷键有什么区别应如何实现答：如果要通过键盘来访问菜单项，则需要为菜单项定义热键与快捷键。
热键是菜单项中带有下划线的字符，建立热键的方法是在菜单标题的某个字符前加上一个“&”符号，显示时这一字符下面有一个下划线，表示该字符是一个热键字符。
快捷键不是用来打开菜单，而是直接去执行相应的操作。
要为菜单项指定快捷键，只要打开快捷键下拉式列表框并选择一个键，则菜单项标题的右边就会显示快捷键名称。
9.简述窗体之间数据互访如何才能实现。
答：在多重窗体程序中，不太窗体之间可以互相访问，即一个窗体可以访问另一个窗体中的数据。
两个窗体之间访问有下列三种情况：（1）一个窗体可以直接访问另一个窗体上控件的属性，形式如下：另一个窗体名.控件名.属性（2）一个窗体直接访问在另一个窗体中定义的全局变量，形式如下：另一个窗体名.全局变量名（3）在模块中定义公共变量实现相互访问，这是最常用的方法。
vb练习题(有答案)(打印)
《大学Visaul Basic程序设计》复习题第一章Visual Basic程序设计概述第一题:是非题(共10分,每项1分)1. VB6.0只能运行在Windows 2000下,不能运行在Windows 98下。
13A.对B.错√2. 用户控件和系统控件都可以加载到工具箱上,并且永久保留。
4A.对B.错√第二题、单选题(共45分,每项1.5分)1. VB中的工具栏可以从______菜单上的“工具栏”命令中移进或移出。
15A.工具B.编辑C.视图√D.调试2. 在VB的集成环境中创建VB应用程序时,除了工具箱窗口、窗体设计窗口、属性窗口外,必不可少的窗口是______。
2A.窗体布局窗口B.立即窗口C.代码窗口√D.监视窗口第二章VB的编程机制第一题:是非题(共10分,每项1分)1. 在事件驱动的应用程序中,代码是按照预定的路径执行的。
15A.对B.错√2. 标签控件即可以用来显示用户不能编辑和修改的文本,也可以用来编辑和修改文本。
9A.对B.错√3. 每一个控件实质上都是一个微型程序。
2A.对√B.错4. 窗体上的控件同样可以借助于剪贴板进行剪切、复制和粘贴。
A.对√B.错第二题、单选题(共45分,每项1.5分)1. 文本框没有_____属性。
21A.EnabledB.VisibleC.BackColorD.Caption√2. 文本框(Text1)中有选定的文本,执行Text1.SelText=”Hello”的结果是___。
9A.“Hello”将替换掉原来选定的文本√B.“Hello”将插入到原来选定的文本之前C.Text1.SelLength为5D.文本框中只有“Hello”3. 要判断“命令按钮”是否被鼠标单击,应在“命令按钮”的______事件中判断。
3A.ChangB.KeyDownC.Click√D.KeyPress4. 如果文本框的Enabled属性设为False,则___。
6A.文本框的文本将变成灰色,并且此时用户不能将光标置于文本框上B.文本框的文本将变成灰色,用户仍然能将光标置于文本框上,但是不能改变文本框中的内容√C.文本框的文本将变成灰色,用户仍然能改变文本框中的内容D.文本框的文本正常显示,用户能将光标置于文本框上,但是不能改变文本框中的内容第三题、简单程序(共15分,每项1.5分)1. 以下程序的输出结果是______。
vb习题答案(1-9章)最全的
第一章VB程序设计概述二、选择题CADAB ACDAB CBDBB第二章VB可视化编程基础二、选择题ABDCA CACBC DADAD BDBBB三、填空题1.可视2.LEFT TOP WIDTH HEIGHT3.按字母序4.查看代码5.工具、选项6.Form1 Font7.Multiline8.只读属性9.工程属性通用Form1.show10.tabindex 0第三章VB语言基础二、选择题BCADB ADBBC DBCBA DAABB三、填空题1.整型、长整型、单精度、双精度2.sin(30*3.14/180)+sqr(x+exp(3))/abs(x-y)-log(3*x)3.160 今天是：3-224.False5.-4 3 -3 3 -4 46.“CDEF”7.(x mod 10)*10+x\108.(35\20)*20=20 ( 35 \ 20 ) * 20 = 209.x mod 3=0 or x mod 5=010.27.6 8.2 8 1 100 397 true false第四章VB程序控制结构二、选择题DBCAD ABCAB D25BAC CBACB DABBC三、填空题1.字符型整型2. 1 2 33.x>74.x<amin5.10246.117.128.6 I “*”;9.0 100 i+1 10.2*I 6 “*”;三、编程题1.Private Sub Form_Click()Dim n As Integer, i As Integer, s As Longs = 1n = Val(InputBox("请输入一个整数:"))For i = 1 To ns = s * iNext iMsgBox n & "！=" & sEnd Sub2．Private Sub Form_Click()Dim i%, k%For j = 3 To 100k = Int(Sqr(j))For i = 2 To kIf j Mod i = 0 Then Exit ForNext iIf i > k Theny$ = y$ & " " & jEnd IfNext jMsgBox y, , "显示质数"End Sub3．Private Sub Form_Click()Dim i%, s%For i = 1 To 100s = s + iNext iMsgBox "1+2+3+……+100=" & sEnd Sub4．Private Sub Form_Click()Dim x%, y%For x = 1 To 50For y = 1 To 33z = 100 - x - yIf 2 * x + 3 * y + 0.5 * z = 100 ThenPrint "小鸡、公鸡、母鸡分别为："; x; y; z End IfNext yNext xEnd Sub5.Private Sub Command1_Click()Dim a%, b%, c%, p!, s!doa = Val(InputBox("请输入三角形的第一条边"))if a=-1 then exit dob = Val(InputBox("请输入三角形的第二条边"))c = Val(InputBox("请输入三角形的第三条边"))If a + b > c And a + c > b And b + c > a Thenp = (a + b + c) / 2s = Sqr(p * (p - a) * (p - b) * (p - c))Print sElseMsgBox "你输入的三边不能构成三角形，请重新输入"End IfloopEnd Sub6. Private Sub Form_Click()Dim i As Integer, j As Integer,k as integerFor i = 1 To 8For k=1 to 8-iPrint spc(3);Next kFor j = 1 To 2 * i - 1Print i;Next jPrintNext iEnd Sub7. Private Sub Form_Click()Dim i As Integer, j As Integer, k As IntegerFor i = 1 To 30For j = 1 To 30For k = 1 To 30If i ^ 2 + j ^ 2 = k ^ 2 ThenPrint i & " ^ 2 + " & j & "^ 2 =" & k & "^ 2"End IfNext kNext jNext iEnd Sub8．Private Sub Form_Click()Dim x As Integer, a As Integer, b As Integer, c As Integer, ss As String ss = ""For x = 100 To 999a = Int(x / 100)b = Int((x - 100 * a) / 10)c = x - 100 * a - 10 * bIf a ^ 3 + b ^ 3 + c ^ 3 = x Thenss = ss & " " & xEnd IfNext xPrint ssEnd Sub9．Dim sr As Long, r As Singlesr = Val(InputBox("请输入收入："))Select Case srCase Is < 200r = 0Case 200 To 400r = (sr - 200) * 0.04Case 400 To 5000r = sr * 0.04Case Is >= 5000r = sr * 0.05End SelectPrint "收入为" & sr & "时所缴纳的税为：" & rEnd Sub10.Private Sub Form_Click()Dim t As Single, wf As Singlet = Val(InputBox("请输入上网时间:"))Select Case tCase Is < 10wf = 50Case 10 To 60wf = t * 6Case Is >= 60wf = t * 4End SelectIf wf >= 200 Thenwf = 200End IfPrint "上网时间为" & t & "小时上网的费用为：" & wf End Sub11. Private Sub Form_Click()Dim yf As Integeryf = Val(InputBox("请输入月份"))Select Case yfCase 12, 1, 2MsgBox yf & "月份是冬季"Case 3, 4, 5MsgBox yf & "月份是冬季"Case 6, 7, 8MsgBox yf & "月份是冬季"Case 9, 10, 11MsgBox yf & "月份是冬季"Case ElseMsgBox "输入错误，请重新输入"End SelectEnd Sub12.if的方法Private Sub Form_Click()Dim x As Single, f As Singlex = Val(InputBox("请输入一个数"))If x < 0 Thenf = 2 * x - 1ElseIf x = 0 Thenf = 4 * xElseIf x > 0 Thenf = 7 * x - 5End IfPrint "f(" & x & ")=" & fEnd SubSelect case语句：Private Sub Form_Click()Dim x As Single, f As Singlex = Val(InputBox("请输入一个数"))Select Case xCase Is < 0f = 2 * x - 1Case 0f = 4 * xCase Is > 0f = 7 * x - 5End SelectPrint "f(" & x & ")=" & fEnd Sub第五章数组一、选择题DCACD DBCDC BADAD二、填空题1.名称Index2.preserve3.变体4.235.1 2 3 1 4 16.1 2 3 2 4 67. max max=arr1(i)三、编程题1.Option Base 1Private Sub Form_Click()Dim a(10) As Integer, i%, temp%For i = 1 To 10a(i) = Val(InputBox("请输入第" & i & "个整数")) Next iPrint "原来各元素的值为："For i = 1 To 10Print a(i);Next iFor i = 1 To 5temp = a(11 - i)a(11 - i) = a(i)a(i) = tempNext iPrintPrint "交换后各元素的值为："For i = 1 To 10Print a(i);Next iEnd Sub2.Option Base 1Private Sub Form_Click()Dim a As Variant, b As Variant, c As Variant, i%a = Array(2, 8, 7, 6, 4, 28, 70, 25)b = Array(79, 27, 32, 41, 57, 66, 78, 80)ReDim c(8)For i = 1 To UBound(a)c(i) = a(i) + b(i)Next iFor i = 1 To UBound(c)Print c(i);Next iEnd Sub3.Option Base 1Private Sub Form_Click()Dim a() As Variant, i%, j%, n%, m%, max%, hh%, lh%n = Val(InputBox("请输入一个整数:"))m = Val(InputBox("请输入一个整数:"))ReDim a(n, m)For i = 1 To n - 1For j = 1 To m - 1a(i, j) = Int(Rnd * 101 + 50)If max < a(i, j) Then max = a(i, j): hh = i: lh = jNext jNext iPrint "最大值为:"; max; "所在的行号为："; hh; "所在的列号为:"; lh End Sub4.Option Base 1Private Sub Form_click()Dim a(50) As Integer, b(9) As Integer, i%, j% For i = 1 To 50a(i) = Int(Rnd * 90 + 10)j = Int(a(i) / 10)b(j) = b(j) + 1Next iFor j = 1 To 9Print b(j);Next jEnd Sub5.Option Base 1Private Sub Command1_Click(Index As Integer) Select Case IndexCase 0Text3 = Val(Text1) + Val(Text2)Case 1Text3 = Val(Text1) - Val(Text2)Case 2Text3 = Val(Text1) * Val(Text2)Case 3Text3 = Val(Text1) / Val(Text2)End SelectEnd Sub6.Private Sub Form_click()Dim s!, i&, j&i = 3s = 1j = 0Doj = j + 1s = s + (-1) ^ j / ii = i + 2Loop While 1 / i > 10 ^ (-6)Print 4 * sEnd Sub7.Option Base 1Private Sub Form_click()Dim a(40) As Long, i As Integera(1) = 1a(2) = 1For i = 3 To 39a(i) = a(i - 1) + a(i - 2)Next iFor i = 1 To 40Print a(i);Next iEnd Sub8.冒泡法：Option Base 1Private Sub Form_click()Dim a(10) As Single, ok As Boolean, i%, j%, x!For i = 1 To 10a(i) = Val(InputBox("请输入第" & i & "个数"))Print a(i);Next iFor i = 10 To 2 Step -1ok = TrueFor j = 1 To i - 1If a(j) > a(j + 1) Thenx = a(j)a(j) = a(j + 1)a(j + 1) = xok = FalseEnd IfNext jIf ok Then Exit ForNext iPrintPrint "冒泡排序的结果为："For i = 1 To 10Print a(i);Next iEnd Sub选择法：Option Base 1Private Sub Form_click()Dim a(10) As Single, p!, i%, j%, min!For i = 1 To 10a(i) = Val(InputBox("请输入第" & i & "个数"))Print a(i);Next iFor i = 1 To 9p = iFor j = i + 1 To 10If a(j) < a(p) Then p = jNext jIf p <> i Thenmin = a(i)a(i) = a(p)a(p) = minEnd IfNext iPrintPrint "排序后的结果为："For i = 1 To 10Print a(i);Next iEnd Sub第六章过程一、选择题CDBAB DBCCC ABCBD CDB二、填空题1.sub function2.形式实际3.内存的同一地址4.myf(a%,b() as integer ) as Boolean5.值传递地址传递6.lbound ubound7.局部8.通用任何过程9.2 5 9 10.2411.2 12.30 7013.-1三、编程题1. Option Base 1Private Sub Form_Click()Dim m1%, m2%, b() As IntegerFor i = 3 To 7 Step 2ReDim b(i)For j = 1 To ib(j) = Int(Rnd * 90 + 10)Print b(j);Next jm1 = b(1)m2 = b(1)Call mm(m1, m2, b())PrintPrint "最大值为:"; m1Print "最小值为:"; m2Next iEnd SubPublic Sub mm(max%, min%, a() As Integer) Dim i%For i = LBound(a) To UBound(a)If a(i) > max Then max = a(i)If a(i) < min Then min = a(i)Next iEnd Sub2.sub过程：Public Sub jc(n%, s&)Dim i%s = 1For i = 1 To ns = s * iNext iEnd SubPrivate Sub Form_click()Dim s&, a%, b%, c%, s1&a = Val(InputBox("请输入一个整数:"))b = Val(InputBox("请输入一个整数:"))c = Val(InputBox("请输入一个整数:")) Call jc(a, s1)s = s1 + sCall jc(b, s1)s = s1 + sCall jc(c, s1)s = s1 + sPrint a & "!+" & b & "!+" & c & "!=" & s End SubFunction过程：Public Function jc(n%) As LongDim i%, s%s = 1For i = 1 To ns = s * iNext ijc = sEnd FunctionPrivate Sub Form_click()Dim s&, a%, b%, c%, s1&a = Val(InputBox("请输入一个整数:"))b = Val(InputBox("请输入一个整数:"))c = Val(InputBox("请输入一个整数:"))s1 = jc(a) + jc(b) + jc(c)Print a & "!+" & b & "!+" & c & "!=" & s1 End Sub3.Public Sub jo(n As Integer)If n Mod 2 = 0 ThenPrint "false"ElsePrint "true"End IfEnd Sub4.Private Sub Form_click()Dim b(1 To 100) As Integer, i%For i = 1 To 100b(i) = Int(Rnd * 100 + 1)Next iCall sort(b())For i = 1 To 100If i Mod 10 = 0 Then PrintPrint b(i);Next iEnd SubPublic Sub sort(a() As Integer)Dim n%, ok As Boolean, k As Integern = UBound(a)For i = 1 To n - 1ok = TrueFor j = 1 To n - iIf a(j) > a(j + 1) Thenk = a(j): a(j) = a(j + 1): a(j + 1) = k: ok = False End IfNext jIf ok Then Exit ForNext iEnd Sub5.Private Sub Form_click()Dim b(1 To 10) As Integer, i%For i = 1 To 10b(i) = Val(InputBox("请输入第" & i & "个整数")) Next iCall sort(b())Print "排序后的结果"For i = 1 To 10Print b(i);Next iEnd SubPublic Sub sort(a() As Integer)Dim n%, p%, k As Integern = UBound(a)For i = 1 To n - 1p = iFor j = i + 1 To nIf a(j) < a(p) Then p = jNext jIf p <> i ThenMin = a(i)a(i) = a(p)a(p) = MinEnd IfNext iEnd Sub6.Public Sub gys(m%, n%)Dim r%, t%If m <> 0 And n <> 0 ThenIf m < n Thent = m: m = n: n = tEnd Ifr = m Mod nDo While r <> 0m = nn = rr = m Mod nLoopEnd IfEnd Sub7.Public Sub ws(n%, s%)Dim k%, i%For i = 1 To n - 1If n Mod i = 0 Then s = s + iNext iEnd SubPrivate Sub Form_click()Dim m%, sum%, c$For m = 1 To 999sum = 0Call ws(m, sum)If sum = m Then c = c & sum & " " Next mMsgBox cEnd Sub8.Public Function ef(a(), k%, wz%) As Integer Dim i%, low%, mid%, top%low = LBound(a)top = UBound(a)Do While low <= topmid = (low + top) / 2If k > a(mid) Thenlow = mid + 1ElseIf k = a(mid) Thenwz = midExit FunctionElsetop = mid - 1End IfLoopwz = -1End Function9.Function MaxGY(x As Integer, y As Integer) Dim Temp As IntegerTemp = x Mod yIf Temp = 0 ThenMaxGY = yElseMaxGY = MaxGY(y, Temp)End IfEnd FunctionPrivate Sub Form_click()Dim m%, n%m = Val(InputBox("请输入第一个整数："))n = Val(InputBox("请输入第二个整数：")) Print "最大公约数是:"; MaxGY(m, n)End Sub10. Function Ss(n%)If n = 1 ThenSs = 10ElseSs = Ss(n - 1) + 2End IfEnd FunctionPrivate Sub Form_click()Dim r%, x%r = 5x = Ss(5)Print "第5个小孩的岁数为:"; xEnd Sub第七章应用程序界面设计一、选择题BCDCA CDBBD CADAA CADBD DAAAB CAA二、填空题1.form1.show unload form12.form2.show form1.hide3.属性方法事件4、工程属性工程属性5．子窗体主窗体6、keypress list(i) additem7.0 list1.listindex list1.listcount-18、1000 true time() 9、AA10、下拉式组合框、简单组合框和下拉式列表框第八章VB图形操作一、选择题DCCDA CDAAA BABBC CAAA二、填空题1、不会也不会 2.、Scaleheight Scalewidth3、(300,-150)4、右上5、twip6、0~157、B 8、-2π~09、逆10、drawwidth11、右上12、move13、cls 14、坐标原点、坐标度量单位、坐标轴的长度与方向15、VB程序设计vbprogramming三、编程题1、Private Sub Command1_Click()Const pi = 3.14159P1.Circle (Val(Text1), Val(Text2)), Val(Text3)End SubPrivate Sub Command2_Click()P1.ClsText1 = ""Text2 = ""Text3 = ""End Sub2、Private Sub Form_Load()Pic1.Picture = LoadPicture("F:\VB程序设计\上课课件\tea.jpg")End SubPrivate Sub Pic1_Click()Pic2.Picture = Pic1.PicturePic1.Picture = LoadPicture("")End Sub3、Dim a1!, b1!Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) a1 = Xb1 = YEnd SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Circle (a1, b1), Sqr((a1 - X) ^ 2 + (b1 - Y) ^ 2)End Sub4、Dim a1!, b1!Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Thena1 = Xb1 = YEnd IfEnd SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 1 ThenLine (a1, b1)-(X, Y), vbGreen, BFEnd IfEnd Sub5、Private Sub Form_Click()Scale (-200, 200)-(200, -200)Dim i!For i = 0 To 140 Step 20Line (-i - 10, i + 10)-(i + 10, -i - 10), , BNext iEnd Sub第9章vb文件操作一、选择题BDDCC BBAAB二、填空题1、驱动器列表框、目录列表框和文件列表框2、change 3\file1.path=dir1.path4、name “D:\old.doc” as “c:\new.doc”5、dir1.path=drive1.drive file1.path=dir1.path6、filecopy “d:\text.doc”,”e:\text.doc”7、eof 8、input not eof(1)9、for inputFor outputnot eof(1)str1Close #110、pattern 11、空12、字节。
vb参考答案
第1章认识Access2003一、选择题1. C2. B3. C4. A5. D6. B7. A二、填空题1. Office2003办公软件，数据库管理2. 标题栏，菜单栏，工具栏，工作区，状态栏，任务窗格3. 一条记录，一个字段4. 一对一，一对多，多对多5. 查看，分析，更改数据，数据来源6. 打印输出7. Internet三、判断题1．× 2．√ 3．× 4．√ 5．√6．× 7．× 8．√ 9．× 10.√四、简答题1．启动Access2003的方法有3种：通过“开始”菜单启动；通过桌面快捷方式启动；通过“开始”菜单中的Access2003选项启动。
2．退出Access2003的方法有5种：单击主窗口的“关闭”按钮；在菜单栏中选择“文件→退出”命令；双击控制菜单图标；单击控制菜单图标，在弹出的下拉菜单中单击“关闭”命令；直接按Alt+F4键。
3．使用Access2003的帮助系统主要有3种方法：使用“帮助”任务窗格；使用“Office 助手”；使用上下文帮助。
4． Access2003数据库的对象包括表、查询、窗体、报表、数据页、宏和模块7种。
5．通过阅读“罗斯文”示例数据库可以帮助用户理解Access数据库的相关概念，掌握Access2003的相关操作。
第2章数据库和表的创建一、选择题1．D 2．C 3．D 4．C 5．D 6．B 7．B二、填空题1．数据库2．设计，数据表3． OLE对象4．是/否5．主键6． 0000三、判断题1．√ 2．× 3．√ 4．× 5．×6．√ 7．× 8．√ 9．× 10．√四、简答题1．创建数据库有三种方法：使用空数据库、使用“本机上的模板”和利用“Office Online 模板”创建数据库；创建表有三种方法：使用“向导”、使用“通过输入数据创建表”和使用“表设计器”。
第七章维生素练习和答案_食品营养学
第七章维生素一、填空1、维生素D的缺乏症有、骨质软化症、和。
2、水溶性维生素包括和。
3、烟酸缺乏引起的“3D”症状包括、和。
4、谷类是膳食中族维生素的重要来源。
5、与胎儿“神经管畸形”形成密切相关的维生素是。
6、硫胺素缺乏引起的脚气病主要有、、急性暴发性脚气病三种类型。
7、硫胺素在条件下易被氧化失活，缺乏它易引。
8、当出现口角炎、口腔黏膜溃疡时，很可能与水溶性维生素缺乏有关。
9、维生素B2的化学名称为。
10、人体暗适应能力下降与缺乏相关。
11、维生素D缺乏症在成人表现为，在婴幼儿表现为。
二、选择1、具有激素性质的维生素是。
A.维生素B1B. 维生素B2C. 维生素DD. 维生素PP2、维生素B2缺乏体征之一是。
A.脂溢性皮炎B.周围神经炎C.“3D”症状 D.牙龈疼痛出血3、含维生素C最多的蔬菜是。
A.大白菜B.油菜C.柿子椒D.大萝卜4、野果的营养特点是。
A.富含维生素C和胡萝卜素B. 富含维生素B1C. 富含维生素A和DD. 富含维生素E5、豆芽中富含。
A.维生素EB.叶酸C.维生素BD.维生素C6、几乎不能通过乳腺，故母乳中的含量很低。
A.维生素AB.维生素BC.维生素CD.维生素D7、婴幼儿佝偻病主要是由缺乏引起的。
A.维生素AB.维生素CC.维生素DD.硫胺素8、增加维生素能作为亚硝酸化合物的阻断剂。
A.维生素AB.维生素BC.维生素CD.维生素D9、下列哪种维生素具有抗氧化功能?A.维生素AB.维生素B2C.维生素CD.维生素D10、以下属于脂溶性维生素的选项是。
A.维生素B1、维生素B2B.维生素A、维生素DC.维生素B1、维生素CD. 维生素E、维生素C三、名词解释1、维生素：是维持人体正常生理功能所必需的一类微量低分子有机化合物的总称。
2、食品添加剂：为改善食品质和色、香、味，以及为防腐和加工工艺的需要而加入食品中的化学合成或天然物质。
四、简答(一)简述维生素的特点。
①维生素或其前体都在天然食物中存在，但没有一种天然食物含人体所需的全部维生素。