vb儿 童 生 长 监 测

儿童生长监测

一、什么是生长监测

二、为什么要进行生长监测

三、怎样进行生长监测

什么是生长监测？

是对个体儿童体格生长的常见指标进行定期连续的测量，将每次测量的体重、身高值标记在生长发育图上，描绘个体儿童的生长曲线，通过观察分析该曲线在生长发育图中的走向，早期识别生长速度减慢或加速现象，及时防治营养偏差，保障儿童健康成长。

为什么要进行生长监测？

及早发现生长偏离（儿童体格生长有规律性）。

寻找导致偏离的可能原因

采取干预措施纠正偏离，促使儿童沿着正常轨迹生长。

是健康教育的有效手段

儿童体格生长规律

体格生长连续，但增长速率各时期不同

体格生长是一个连续的过程，非匀速，在不同年龄阶段增长速率是不同的。

总的趋势为先快、稳定、猛增、渐停止。

即生后第一年以较快的速度增长，是第一个生长高峰；第二年后生长速度趋于稳定；青春期生长速度又加快，是第二个

生长高峰；以后渐渐停止。

体格生长的个体差异

受遗传、营养、疾病、环境等多种因素的影响

怎样进行生长监测

（一）、监测指标

基本指标：①体重;②身长(高) ;③头围（3岁以下, ＜2岁以下测量有意义，特别是1岁以内）。

体重

是最易获得的;体重能灵敏反映儿童生长与近期营养状况；受营养、疾病的影响，易于波动。

身长（高）【2岁以内测身长，2岁以上测身高】。（新要求）婴幼儿身长增长受长期的、严重营养问题的影响；

年长儿身高发育主要受种族、遗传、内分泌等因素的影响。

身长（高）的增长较体重稳定

身长的增长受遗传、内分泌、宫内生长水平的影响较明显，短期的疾病与营养波动不易影响其身长，出生约50cm，1岁75cm，2岁87cm，2岁以上以每年6—7cm递增。

正常儿童身高、体重估计公式:

头围

头围反映脑和颅骨的发育程度；头围的大小、头型与遗传、疾病有关；头胸交叉时间与儿童营养状况有关。过大过快提高，脑积水；过小提示脑发育不良的可能。胎儿期脑发育最翭，出生时平均34cm，1岁46cm，2岁48cm，2—15岁增长6—7cm。WHO参考值，头胸交叉1岁，我国延至15月龄，提示我国儿童胸廓生长较落后，除营养因素外，可能与不重视爬的训练和胸廊锻炼有关。

（二）、生长监测频率

生后第一年检查4次（满月、3、6、8个月进行）；

生后第二、第三年每6个月检查1次（一般在生后12、18、24、30、36个月进行）；

4至6岁每年检查1次。

对于生长异常、营养不良、患病儿童适当增加监测频率。

（三）、生长监测的重要工具

——生长监测图

（四）、指标测量方法

三个基本条件：①精确的测量仪器（定期校正）；②标准化的测量技术;③训练有素的测量者.

体重

量具要求杠杆秤，误差不超过50g。

测量方法

儿童体位：婴儿可平卧，1-3岁可坐位，3岁以上可站位，两手自然下垂，不可扶着儿童，也不可接触其他物体或身体扭动，以免影响准确性。读数记录以公斤为单位，至小数点后两位。

身长

量具要求2岁以下婴幼儿使用卧式量板；

量具刻度误差不超过0.1cm。

测前准备

检查头板是否与底板成直角，足板是否倾斜。

受测儿童应脱去鞋、袜、帽，以保证测量的准确性。

测量方法

儿童体位：仰卧于量板中央，面向上，两耳在同一水平，头顶接触头板，双膝伸直，足底与底板垂直。

测量者：位于儿童右侧；左手按住受测儿童两膝，使其下肢相互接触并紧贴足板，右手移动足板，使足板接触两侧足跟。

读数：测量时应保持足板与底板垂直，双侧有刻度的量板应注意两侧读数一致。测量结果以cm为单位，记录到小数点后一位。

2 岁以下

关键:

固定膝关节、固定头

身高

量具要求2岁以上儿童使用立式身高计，量具刻度误差不超过0.1cm。

测前准备

测量前注意检查立柱是否固定牢靠，立柱与滑测板是否成直角。

受测儿童应脱去鞋、袜、帽，以保证测量的准确性。

测量方法

儿童体位：取立正姿势，头部保持正直位置，两眼直视，

．．．．．

胸部稍挺起，腹部稍后收，两臂

．．．．．．．．．．．．．．．．．．．．．．．．．．．自然下垂。脚跟并拢，脚尖分

开约

．．．．．．．．．．．．．．．．．．．．。．．60．．度。脚跟、臀部和两肩胛间三点同时接触立柱测量者：测量者位于儿童右侧；手扶滑测板使之轻轻向下滑动，使滑板与头顶点接触，同时观察被测者姿势是否正确。

读数：读取滑测板底面垂直交于立柱上刻度的数字。测量

结果以cm为单位，记录到小数点后一位。

．．．．．．．．．．

脱鞋

足后跟并拢

立正

双上肢自然下垂

双肩放松

头围

量具要求软尺，刻度误差不超过0.1cm。

测前准备测量前将软尺全长与标准尺(2cm长、有精确mm刻度的钢尺)比较，相差不应超过0.5cm。

测量方法

儿童体位：受测儿童取立位或坐位。

测量者：测量者位于儿童前方或右侧；左手拇指将软尺零．．．．．．．．．．．．．．．．．．．．．

点固定于头部右侧，软尺下缘放于眉弓上缘，软尺从头部右侧．．．．．．．．．．．．．．．．．．．．．．．．．．．

绕经枕骨粗隆最高处回至零位。．．．．．．．．．．．．．．

读数：测量时软尺应紧贴皮肤，左右对称。测量结果以

．．

．．．．．cm

为单位，记录到小数点后一位。．．．．．．．．．．．．．．

（五）、儿童体格生长的评价

评价指标选择+评价方法选择+评价标准选择

目前我国常用标准WHO新标准（2006年）

评价指标选择

年龄的体重：与近、远期的营养状况相关，是评价儿童营养与健康状况的常规指标，应该在每次体检中进行。

年龄的身高：是反映人体骨骼生长的重要指标，常用来表示全身线性生长的水平和速度。如果身高增长缓慢或停止则反映有较长时间的营养供应不足或疾病等阻碍生长的危险因素存在。

身高的体重：（3-6岁）

评价方法选择

均值离差法（标准差法）尤其适合于群体评价

根据数值所处的位置，以均值加减

．．．．．．．．．．．．．．．．．．．．．．．．2．个标准差分成三个等

级评价，即上、中、下。

．．．．．．．．．．．

中：数值大于或等于中位数

．．．．．．．．．

．．．至小于或等于中位数．．．．．．．．．．-．2SD

+2SD

．．．．．.．

．．．．之间的范围

下：数值小于中位数-2SD的范围或小于P3

0—5岁女童年龄的体重标准差单位数

以均值减2个标准差以下为营养不良的界值点，将营养不

．．．．

良分为：

．．．．Array年龄别体重（下）

．．．．．．．．低体重

．．．

年龄别身高（下）

．．．．．．．．生长迟缓

．．．．

身高别体重（下）

．．

．．．．．．．．消瘦

超重或肥胖

．．．．．

年龄别体重（上）

．．．．．．．．

身高别体重（上）

．．．．．．．．

举例:

曲线图法（生长发育监测图）

用于纵向评价（生长速度评价）即对某一单项体格生长指标进行连续测量（纵向观察）所获得该项指标在某一时间段中的增长值即为该项指标的生长速度。

标准化生长监测图是将不同年龄的生长参照值按百分位法或标准差单位的等级绘成曲线图。

11

（六）监测步骤：

（1）测量体重、身高

（2）计算实足年龄

（3）画点在横座标上找出儿童的实足年龄月龄，再从纵坐标上找出本次的体格测量值，相交处画出园点。

（4）连线将本次画的园点和前次画的园点连接起来。

（5）评价

观察每次的测量值是否都正常（界值点外生长）

评估小儿的体重曲线在生长监测图中的走向。

曲线在正常范围内，走势向上，并与参考曲线平行，说明体重增长正常，表示营养状况良好；

若在正常范围以下，或曲线持平或下降，表示存在营养不良或有潜在营养不良的危险因素；

若曲线持续在正常范围以上表示可能有营养过剩的趋势。

VB控件属性大全

1.01、窗体(FORM)的常用属性 属性说明 (Name)窗体的名称 ActiveControl返回焦点所在的控件,该属性设计阶段不可用,运行时只读。 Appearance 外观效果,取值为： 0 平面 1 3D(立体) AutoRedraw 是否自动刷新或重画窗体上所有图形[获得或设置从绘图(graphics)方法到一个持久性位图的输出],取值为： True False BackColor背景颜色,可从弹出的调色板选择。 BorderStyle 设置边界类型,取值为： 0 None(无边界框架) 1 FixedSingle(窗口大小固定不变的单线框架) 2 Sizable(窗口大小可变的标准双线框架) 3 FixedDialog(窗口大小固定的对话框窗体) 4 FixedToolWindow(窗口大小固定的工具箱窗体) 5 Sizable ToolWindow(窗口大小可变的工具箱窗体) Caption窗体的标题 ClipControls 决定Paint事件的graphics方法是重画整个对象,还是重画新显示的区域。取值为： True或False ControlBox 是或有控制框, 取值为：True 有 False 无 DrawMode 设定窗体上绘图(graphics方法),Shape,Line等控件的输出外观,有16种可选： 1 黑色 2 非或笔,设置值15的反相 3 与非笔,背景色以及画笔反相二者共有颜色的组合 4 非复制笔,设置值13的反相 5 与笔非,画笔以及显示色反相二者共有颜色的组合 6 反相,显示颜色反相 7 异或笔,画笔颜色以及显示颜色的异或 8 非与笔,设置值9的反相 9 与笔,画笔以及显示色二者共有颜色的组合

VB程序设计试题与答案-1资料

《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. 下面过程定义语句合法的是____________。

VB程序设计期末模拟试卷

《VB程序设计》期末模拟试卷 一、单项选择 （b ）1．被对象所识别的动作与对象可执行的动作分别称为对象的___________。 A．方法、事件 B．事件、方法 C．事件、属性 D．过程、属性 （ c）2．下列________是Single型变量。 A．Time% B．Name$ C．Sheight! D．CXYZ& （a ）3．以下四个VB的变量名中，合法的是____________。 A．X23 B．$Re C． Len

D．3xy （ d）4．在程序中使用 Dim str1,str2 As Long 语句对变量str1、str2进行声明后，下面正确的说法是________。 A. str1是整型，str2是长整型 B. str1是长整型，str2变体型 C. str1、str2都是长整型 D. str1是变体型，str2是长整型 （b ）5．表达式(&O36>31) and (“A”>”B”) 的结果是 ____________。 A．True B．False C．”&O3631AB” D．&O3631 （c ）6．表达式“100” + 100 和表达式“100” & 100的值分别是 ____________。 A．200、200 B．“100100”、“100100” C．200、“100100”

D．“100100”、200 （b ）7．以下语句执行时，从键盘上输入Zhao，并按回车键。执行结果是________。 Dim a As String A=InputBox("Input", "", "Name") Print a A．Input B．Zhao C．Name D．空字符串 （b）8．语句Print 4 + 5 \ 6 * 7 / 8 Mod 9的运行结果是________。 A．4 B．5 C．6 D．7 （ d）9．在窗体的通用段声明变量时，不能使用__________ 关键字。 A．Dim

VB常用控件属性,事件

vb内部控件使用方法总结 内部控件 控件在VB程序设计中扮演重要的角色，它是VB程序的基本组成部分。合理恰当地使用各种不同的控件，以及熟练掌握各个控件的属性设置，是进行VB程序设计的基础。另外控件应用的好坏直接影响应用程序界面的美观性和操作的方便性。本章详细介绍VB的内部控件的使用方法。 4.1 标签 标签是VB中最简单的控件，用于显示字符串，通常显示的是文字说明信息。但不能编辑标签控件。 使用标签的情况很多，通常用标签来标注本身不具有Caption属性的控件。例如，可用标签为文本框、列表框、组合框等控件来添加描述性的标签。还可编写代码改变标签控件的显示文本以响应运行时的事件。例如，若应用程序需要用几分钟处理某个操作，则可用标签显示处理情况的信息。 4.1.1 常用属性 标签的属性很多，下面介绍几个常用的属性。 （1）Alignment属性 设置标签中文本的对齐方式。其使用语法如下： Object.Alignment[=值] 其中的“值”可以为0，1或2。0(默认值)表示左对齐；1表示右对齐；2表示居中。（2）AutoSize属性 设置控件是否能够自动调整大小以显示所有的内容。其使用语法如下：Object.AutoSize[=True或False] （3）BackStyle属性 设置标签的背景样式。其使用语法如下： Object.BackStyle[=值] 其中的“值”可以为0或1。1(默认值)表示是不透明的；0表示是透明的。 （4）BorderStyle属性 设置标签的边框样式。其使用语法如下： Object.BorderStyle[=值] 其中的“值”可以为0或1。0(默认值)表示无边框；1表示单线边框。 （5）Caption属性 设置标签的文本内容。其使用语法如下： Object.Caption[=字符串] （6）WordWrap属性 设置标签的文本在显示时是否自动折行功能。其使用语法如下： Object.WordWrap[=True或False] 其中True表示具有自动折行功能；False（默认值）表示没有自动折行功能。 4.1.2 常用事件和方法 一般很少使用标签事件，标签的方法中常用的只有Move，其基本语法如下：Move left,top,width,height 其中left，top，width，height分别表示移动目的位置的坐标和大小。left为必要参数，其他三个为可选参数。

vb程序设计试题(含答案)

第一套试题 一、选择题（每题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 )

VB程序设计编程考试~题及答案~

VB程序设计编程考试题及答案 1.输入3个数，输出最大的数 Private Sub command1_click() Dim max For i = 1 To 3 n = Val(InputBox("输入第" & i & "个数")) If n > max Then max = n End If Next Print "三个数中最大的数是" ; max End Sub 2.有一元二次方程：aX2+bX+c=0，依次输入a，b，c，判断此方程是否有实根 Private Sub Command1_Click() Dim a, b, c, n a = Text1 b = Text2 c = Text3 n = b * b - 4 * a * c If n >= 0 Then Label4 = "方程有根" Else Label4 = "方程无根" End If End Sub 3.输入一个百分制的成绩，若大于等于60，则用消息框弹出，显示“恭喜！成绩通过！”， 若小于60，则弹出消息框，显示“抱歉！成绩没有通过！ Private Sub Form_Load() Text1 = "" End Sub Private Sub Command1_Click() Dim n n = Text1 If n > =60 Then Val (MsgBox("恭喜！成绩通过！")) Else Val (MsgBox("抱歉！成绩没有通过！")) End If End Sub 4.输入一年份，判断它是否为闰年，并显示有关信息。（判断闰年的条件是：年份能被4整 除但不能被100整除，或者能被400整除） Private Sub Command1_Click() Dim y%

[整理]VB程序设计复习题及答案.

中南大学现代远程教育课程（专科）考试复习题及答案 《VB程序设计与应用》 一、选择题：在每小题给出的四个选项中，只有一项是符合题目要求的，请把所选项前的字母填在 题后的括号内。 1. Visual Basic程序中分隔一行中各语句的字符是（）。[ ] A)‘ B): C)\ D)_ 2. 下列可作为Visual Basic的变量名的是（）。[ ] A: Filename B: A（A＋B）C: A%D D : Print 3. 要让菜单项无效，应将（）属性值设置为False。 [ ] A. Visible B. Enabled C. Moveable D. Checked 4. 以下过程是（）事件。 Prviate Sub Form_Load( ) …… End Sub [ ] A: 命令按钮的单击B: 命令按钮的装载 C; 窗体的装载D: 窗体的单击 5. Vb中描述文件扩展名的是（）属性。[ ] A: Drive B: Pattern C: FileName D: Path 6. 关于Visual Basic中事件的说法中，不正确的为（）。[ ] A)事件是由Visual Basic预先定义好的，能够被对象识别的动作 B)DblClick（双击）是Visual Basic中的一种事件 C)一个对象可以识别一个或多个事件 D)对于一个系统提供的对象可以识别哪些事件，需要程序员自己定义 7. 下列控件中可设置滚动条是（）。 [ ] A. 检查框（复选框） B. 框架 C. 文本框 D. 标签框 8. 在Visual Basic中建立一个空窗体，( )不会是其默认名。 [ ] A. Form1 B. Form2 C. Formx D. Form10 9. Const One&=1，则One为（）类型的常数。[ ] A)整型 B)字节型

VB程序设计试题及答案一

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 ……

vb程序设计试题(含标准答案)

第一套试题 一、选择题(每题2分，共30分） 1.在ＶB环境中,工程文件的扩展名是( C ) (A）.frm (B)．baｓ（Ｃ）.vbp （D).ｆrx 2．下面4项中不属于面向对象系统三要素的是( A ) (A)变量（B)事件（C)属性（D）方法 3. \、/、Ｍod、*这4个算述运算符中，优先级别最低的是( Ｃ ) （A)＼ (Ｂ）/ （C）Mod (D）* 4.要使Pｒinｔ方法在Ｆoｒm_Load事件中起作用,要对窗体的( C )属性进行设置 （A）ＢackＣoｌor （B）ForeCoｌor （Ｃ）AｕtｏRｅdraｗ（D）Cａptｉon 5．不论何控件,共同具有的属性是（ B ) （A)Text (B)Naｍe （C）FoｒeColoｒ（Ｄ）Ｃaｐtｉoｎ 6.要使Ｆoｒm1窗体的标题栏显示“欢迎使用VB”，以下语句正确的是( D ) （A)Foｒm1.Capｔｉon=“欢迎使用ＶＢ”（B）Form1.Cａption＝ˊ欢迎使用VBˊ (C）Forｍ１．Caption=欢迎使用VB （D)Forｍ1．Caｐｔioｎ=〞欢迎使用ＶB〞 7.VＢ提供了结构化程序设计的３种基本结构，这3种基本结构是( D ) （Ａ)递归结构,选择结构,循环结构 (B)选择结构，过程结构，顺序结构 （C)过程结构,输入、输出结构，转向结构(Ｄ)选择结构,循环结构，顺序结构 8.给变量赋值a=1２3＋MＩD(“１23456”,３,２),a变量中的值是( D ) (A)“1２334”(B)1２3 (C）12334 （Ｄ）157 9.下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数,不正确的语句是( Ｄ ) (A）Ｉf sex=“男”And agｅ＜40 And IｎStｒ(duty,“教授”)＞0 Thｅn n=n+１ （B)If sｅx=“男”And age＜40 And (duty=“教授”Or dutｙ=“副教授”) Theｎｎ=n+1

VB常用控件属性

VB常用控件属性 4.1 标签 标签是VB中最简单的控件，用于显示字符串，通常显示的是文字说明信息。但不能编辑标签控件。 使用标签的情况很多，通常用标签来标注本身不具有Caption属性的控件。例如，可用标签为文本框、列表框、组合框等控件来添加描述性的标签。还可编写代码改变标签控件的显示文本以响应运行时的事件。例如，若应用程序需要用几分钟处理某个操作，则可用标签显示处理情况的信息。 4.1.1 常用属性 标签的属性很多，下面介绍几个常用的属性。 （1）Alignment属性 设置标签中文本的对齐方式。其使用语法如下： Object.Alignment[=值] 其中的“值”可以为0，1或2。0(默认值)表示左对齐；1表示右对齐；2表示居中。 （2）AutoSize属性 设置控件是否能够自动调整大小以显示所有的内容。其使用语法如下： Object.AutoSize[=True或False] （3）BackStyle属性 设置标签的背景样式。其使用语法如下： Object.BackStyle[=值] 其中的“值”可以为0或1。1(默认值)表示是不透明的；0表示是透明的。 （4）BorderStyle属性 设置标签的边框样式。其使用语法如下： Object.BorderStyle[=值] 其中的“值”可以为0或1。0(默认值)表示无边框；1表示单线边框。 （5）Caption属性 设置标签的文本内容。其使用语法如下： Object.Caption[=字符串] （6）WordWrap属性 设置标签的文本在显示时是否自动折行功能。其使用语法如下： Object.WordWrap[=True或False] 其中True表示具有自动折行功能；False（默认值）表示没有自动折行功能。 4.1.2 常用事件和方法 一般很少使用标签事件，标签的方法中常用的只有Move，其基本语法如下： Move left,top,width,height 其中left，top，width，height分别表示移动目的位置的坐标和大小。left为必要参数，其他三个为可选参数。 4.1.3 应用例子 目的：设计一个窗体说明标签的基本应用方法。 首先创建本章工程，在其中添加一个窗体，在该窗体中放置一个标签Label1。该标签的基本属性如下： Name Label1 Caption "中华人民共和国" BorderStyle 1

大学计算机VB程序设计考试题目

实验三 第1题四则运算题 设计如下窗体,为五个命令按钮编写5段代码完成四则运算及退出程序,其中在计算除法时,如果第二个数就是零,在消息框中显示信息“除数为零”。 Public Class Form1 Private Sub Button1_Click(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Button1、Click Dim a, b As Single a = TextBox1、Text b = TextBox2、Text TextBox3、Text = a + b End Sub Private Sub Button2_Click(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Button2、Click Dim a, b As Single a = TextBox1、Text b = TextBox2、Text TextBox3、Text = a - b End Sub Private Sub Button3_Click(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Button3、Click Dim a, b As Single a = TextBox1、Text b = TextBox2、Text TextBox3、Text = a * b End Sub Private Sub Button4_Click(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Button4、Click Dim a, b As Single a = TextBox1、Text b = TextBox2、Text

VB6.0基本控件的属性

VB基本控件的属性，方法经及事件 VB基本控件的属性，方法经及事件 VB基本控件的属性，方法经及事件 所有控件都具有的属性： 1、Name: 表示在代码中用来标识一个控件的名字。 2、Enabled: 表示一个控件是否可以响应一个事件，即该控件可不可用。 值为true: 可以响应；值为false: 不可以看见。 3、Visible: 表示一个控件是否可见。值为true:可以看见；值为false: 不可以看见。所有控件都有具有的事件： 1、KeyDown : 当用户按下键盘上一个键时发生的。 2、KeyUp : 在用户松开键盘上按下的键时发生的。 3、KeyPress : 在Key Down和Key Up事件之间发生。 4、MouseDown : 在鼠标被按下时触发的。 5、MouseUp ：在用户松开鼠标键时发生的。 6、Click ：在用户单击鼠标左键时发生的。 7、DblClick ：在用户双击鼠标时发生的。 一、窗体（Form） 属性： 1、Caption: 表示窗体标题栏的文字。 2、BorderStyle: 一般情况下为默认值，若更改为下列值： 1）值为0：没有窗体标题栏 2）值为1：窗体运行之后不能改变大小 3、WindowState: 设置窗体的大小。 3）值为0：窗体正常大小 4）值为1：窗体最小化 值为2：窗体最大化 4、BackColor: 表示窗体的背景颜色 事件： 1、Initialize（初始化事件）: 在窗体加载和显示之前触发，这个事件只触一次。 2、Load（加载事件）: 用来完成窗体显示之前需要完成的动作。 3、Activate/Deactivate (激活/非激活事件)：是用户在同一个应用程序的两个或多个窗体之间移动时触发的。 4、QueryUnload（条件卸载事件）: 决定窗体是如何关闭的。 触发QueryUnload事件时Unload 的参数和因素有： 1）VbFormControlMenu值为0 ：选中窗体控件菜单中的Close命令。 2）VbFormCode值为1 ：从代码中调用Unload 语句。 3）VbAppWindows值为2 ：终止当前的Windows操作系统。 4）VbFormMDIForm值为4 ：因为终止MDI父窗体而导致MDI子窗体的终止。 5、Terminate(终止事件):在窗体的所有实例从内存中清除时发生，只触发一次。方法： 1、Load:加载窗体，但不在屏幕上显示 2、Unload:卸载窗体，既从屏幕上也从内存中清除窗体。 3、Show:加载窗体并在屏幕上显示窗体。Show分为：

VB程序设计在线考试答案精编

V B程序设计在线考试答 案精编 Document number：WTT-LKK-GBB-08921-EIGG-22986

《VB程序设计》课程综合复习资料 一、单项选择 1．若要使标签控件显示时，不覆盖其背景内容，应设置标签控件的（D ）属性。 A．BACKCOLOR B．BORDERSTYLE C．FORECOLOR D．BACKSTYLE 2．如果要在文本框中输入字符时，只显示某个字符，如星号（*），运行时，在文本框中输入的字符仍然显示出来，而不显示星号，原因可能是（B ） A．文本框的MULTILINE属性值为TRUE B．文本框的LOCKED属性值为TRUE C．文本框的MULTILINE属性值为FALSE D．文本框的LOCKED属性为FALSE 3．下列关于属性设置的叙述错误的是：（ A） A．一个控件具有什么属性是VB预先设计好的，用户不能改变B．一个控件具有什么属性是VB预先设计好的，用户可以改变C．一个控件的属性即可以在属性窗口中设置，也可以用程序代码设置 D．一个控件的属性在属性窗口中设置，还可以利用程序代码为其设置新值 4．下列说法正确的是（C ） A．对象属性只能在“属性窗口”中设置 B．一个新的工程可以在“工程窗口”中建立

C．必须先建立一个工程，才能开始设计应用程序 D．只能在“代码窗口”中编写程序代码 5．下列关于窗体上控件的基本操作错误的是：（A ） A．下一次DEL键只能删除一个控件 B．按下一次DEL键可以同时删除多个控件 C．按住SHIFT键，然后单击每个要选择的控件，可以同时选中多个控件 D．按住ALT键，然后单击每个要选择的控件，可以同时选中多个控件 6．下列关于设置控件属性的叙述正确的是（C ） A．用户必须设置属性值 B．所有的属性值都可以由用户随意设定 C．属性值不必一一重新设置 D．不同控件的属性项都完全一样 7．如果将布尔常量值TRUE赋值给一个整型变量，则整型变量的值为（B ） A．0 B．-1 C．TRUE D．FALSE 8．下列关于控件画法的叙述错误的是（D ） A．单击一次工具箱中的控件图标，只能在窗体上画出一个相应的控件 B．按住CTRL键后单击一次工具箱中的控件图标，可以在窗体上画出多个相同类型的控件

VB程序设计试卷一

2016/2017 学年第一学期 VB程序设计课程考试试题（A）卷 类别继续教育学院拟题人叶臣 适用专业计算机网络技术专科 （答案写在答题纸上，写在试题纸上无效） 一、选择题（每题2分，共30分） 1、VB窗体文件的扩展名是（）。 A．.frm B．.vbp C．.bas D．.res 2、在窗体上已经创建了一个文本框对象Text1，可以通过（）事件获得输入键值的ASCII码。 A．Change B．LostFocus C．KeyPress D．GotFocus 3、以下子过程和函数过程语句说明合法的是（）。 A．Sub f1( ByVal n%( ) ) B．Sub f1( n%( ) ) As Integer C．Function f1%(f1%) D．Function f1(ByVal n%) As Integer 4、不论何控件，共同具有的属性是（）。 A．Caption B．Name C．ForeColor D．Text 5、InputBox函数返回值的类型是（）。 A．整型B．字符型C．可变类型D．数值或字符型 6、赋值语句：a=123 & Mid("123456",3,2)执行后，a变量中的值是（）。 A．"12334" B．123234 C．123 D．157 7、设a=1,b=3,c=4,表达式：Not a<=c Or 4*c=b^2 And b< >a+c的值是（）。 A．-1 B． 1 C．False D．True 8、要使命令按钮不可操作，需要设置其（）属性。 A. Visible B. Enabled C. Caption D. BackColor 9、下面关于多重窗体的叙述中，正确的是（）。 A．作为启动对象的Main子过程只能放在窗体模块内 B. 如果启动对象是Main子过程，则程序启动时不加载任何窗体，以后由该过程根据不同情况决定是否加载或加载哪一个窗体。 C. 如果没有启动窗体，则程序不能执行。 D. 以上都不对。 10、复选框的Value属性为1时，表示（）。 A 复选框未被选中 B 复选框显示为灰色 C 复选框操作有错误 D 复选框被选中 11、为了把焦点移到某个指定的控件，所使用的方法是（）。

VB常用控件

Label控件 Label 控件主要用于在窗体中显示提示信息，常与Text控件一起使用。 属性： Caption 表示标签的内容。 例：Label1.Caption="N&ame:" 控件在窗体中显示Name:,&号跟的字母是快捷键字母，即当我们按下Alt+A时，Label1的Click事件将会发生。 这种快捷键定义方法对于菜单和许多其它控件同样适用。 Font 表示控件的字体。 ForeColor 表示控件的当前颜色。 Enabled 表示控件是否使能。 =True 使能。 =False 禁止(控件显示为灰色)。 Visible 表示控件是否可见 =True 可见。 =False 不可见。 Top,Left,Width,Height 表示控件在窗体中的位置和尺寸。 事件： Click 当点击或按下快捷键时发生，常用于使和它一起使用的Text控件获得输入焦点。 例： Private Sub Label1_Click() Text1.SetFocus End Sub Text控件 Text控件接受用户的输入的字符串数据。 属性： Text 表示用户输入的内容。

例：Label1.Caption=Text1.Text 将Text1控件接收用户输入的数据通过Label1控件显示出来。 SelStart 表示用户选中一段文字的起始位置。第一个字符位置为0。SelLength 表示用户选中文字的长度。 SelText 表示用户选中文字的内容。 例：0123456789 这时：SelStart=5,SelLength=4,SelText="5678" MultiLine 表示是否是多行输入。 =True 是多行输入。 =False 不是多行输入(缺省) 。 ScrollBars 多行情况下是否需要滚动条。 =0 没有。 =1 有水平。 =2 有垂直。 =3 水平、垂直都有。 Password 表示口令字符。Text属性返回用户输入数据，屏幕上显示该字符。方法： SetFocus 使当前控件获得输入交点。 事件： KeyPress 当在控件上按下按键时发生。 Private Sub Text1_KeyPress(KeyAscii As Integer) End Sub KeyAscii 表示用户按键的ASCII码，如果在事件中将它改为0，则认为没有按键。 例：编写只允许输入数字的Text控件。 Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAsciiAsc("9") Then KeyAscii=0 End If

VB内部控件属性解释

VB内部控件属性解释 控件在VB程序设计中扮演重要的角色，它是VB程序的基本组成部分。合理恰当地使用各种不同的控件，以及熟练掌握各个控件的属性设置，是进行VB程序设计的基础。另外控件应用的好坏直 接影响应用程序界面的美观性和操作的方便性。本章详细介绍VB的内部控件的使用方法。 4.1 标签 标签是VB中最简单的控件，用于显示字符串，通常显示的是文字说明信息。但不能编辑标签控件。 使用标签的情况很多，通常用标签来标注本身不具有Caption属性的控件。例如，可用标签为文本框、列表框、组合框等控件来添加描述性的标签。还可编写代码改变标签控件的显示文本以响 应运行时的事件。例如，若应用程序需要用几分钟处理某个操作，则可用标签显示处理情况的信息。 4.1.1 常用属性 标签的属性很多，下面介绍几个常用的属性。 （1）Alignment属性 设置标签中文本的对齐方式。其使用语法如下： Object.Alignment[=值] 其中的“值”可以为0，1或2。0(默认值)表示左对齐；1表示右对齐；2表示居中。 （2）AutoSize属性 设置控件是否能够自动调整大小以显示所有的内容。其使用语法如下： Object.AutoSize[=True或False] （3）BackStyle属性 设置标签的背景样式。其使用语法如下： Object.BackStyle[=值] 其中的“值”可以为0或1。1(默认值)表示是不透明的；0表示是透明的。 （4）BorderStyle属性 设置标签的边框样式。其使用语法如下： Object.BorderStyle[=值] 其中的“值”可以为0或1。0(默认值)表示无边框；1表示单线边框。 （5）Caption属性 设置标签的文本内容。其使用语法如下： Object.Caption[=字符串] （6）WordWrap属性 设置标签的文本在显示时是否自动折行功能。其使用语法如下： Object.WordWrap[=True或False] 其中True表示具有自动折行功能；False（默认值）表示没有自动折行功能。 4.1.2 常用事件和方法 一般很少使用标签事件，标签的方法中常用的只有Move，其基本语法如下： Move left,top,width,height 其中left，top，width，height分别表示移动目的位置的坐标和大小。left为必要参数，其他三个为可选参数。 4.1.3 应用例子 目的：设计一个窗体说明标签的基本应用方法。

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 s = 0 For i = 1 To 10 s = s + 1 / (i ^ i) Next Print (s) 4题 Dim i, j, k, m As Integer s = 0 :i = 2:j = 1 For k = 1 To 10 s = s + i / j m = j Print (CStr(i)) & "/" & CStr(j) j = i i = i + m Next 5题 Dim i, j, k As Integer For i = 1 To 100 For j = 1 To 50 For k = 1 To 20 If ((i + 2 * j + k * 5) = 100) Then Print (CStr(i)) Print (CStr(j)) Print (CStr(k)) n = n + 1 End If Next Next Next 6题 Dim i, j, k As Integer For i = 1 To 5 k = 1 For j = 1 To i

VB程序设计考试试题及答案

月考上机试题 一．选择题：(10*2) 1由单精度浮点型的数据组成的字节数是 A.2 B.4 C.8 D.16 2.可以同时删除字符串前导和尾部空白的函数是 A．Ltrim B．Rtrim C．Trim D．Mid 3.在设计阶段，当双击窗体上的某个控件时，所打开的窗口是 A.工程资源管理器窗口 B.工具箱窗口 C.代码窗口 D.属性窗口 4.在窗体上添加如下命令按钮，然后编写如下事件过程：C Private Sub Command1 _ Click() Dim a(10)As Integer Dim p(3)As Integer k=5 For i=1 To 10 a(i)=i Next i For i=1 To 3 p(i)=a(i*i) Next i For i=1 To 3 k=k+p(i)*2 Next i Print k End Sub 该过程的运行结果为: A.35 B.33 C.31 D.29 5.VB表达式Cos(0)+Abs(1)+Int(Rnd(1))的值是 A.1 B. -1 C. 0 D. 2 6.若m，x，y，均为Integer型变量，则执行下面语句后m值是m=1：X=2：Y=3 m=IIf(X＞Y，X+Y，X-Y) A.-1 B.0 C.1 D. 2 7.设a=″Visual Basic″，下面使b=″Basic″的语句是 A.b=Left(a，8，12) B.b=Mid(a，8，5) C.b=Right(a，5，5) D.b=Left(a，8,5) 8.以下不能运行工程的操作是 A..执行"运行"菜单中的"启动"命令 B.单击工具栏中的"启动"命令 D.按下F5键 C.按下Ctrl+F5键 9.下列关于面向对象程序设计的叙述不正确的是 A.对象具有属性、方法等特性 B.对象之间的通信产生了消息 C.一个对象是一个软件构造块，它包含数据与相关的操作 D.对象的属性不能被改变 10.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Private Sub Command1 _ Click（） Static X As Integer Static Y As Integer Cls Y=l Y=Y+5 X=5+X Print X，Y End Sub 程序运行时，三次单击命令按钮Command1后，窗体上显示的结果为: A.15 16 B.15 6 C.15 15 D.5 6 二．填空题（3*4） 1.计算1*2*3*...*3000，当积大于3000时停止计算。请在_______处将程序补充完整。 Private Sub FormClick() Dim t As Single,j As Integer J=1 For j=1 To 3000 ____t=t*j______________ If t＞3000 Then Exit For Next j Debug.Print j,t End Sub 2.下面程序运行后，输出的结果是_BBBB______。 For J= 1 To 10 A(J)=2*J B(J)=A(J)*2 Next J Print B(J/2+0.1) End 3.设有如下程序：程序运行后，单击窗体，则在窗体上显示的是6 5 4 3，请在_______处将程序补充完整。 Option Base 0 Private Sub Form _ Click（） Dim a Dim i As Integer a=Array(1，2，3，4，5，6，7，8，9) For i=0 To 3 Print a(5-i) Next i End Sub 三．编程题：（34*2） 1. 用随机函数产生10个不大于100的整数存入一维数组a中，并找出这组数中能被3整除余2的数赋值于数组b。点击开始按钮在窗体中显示数组a和数组b。