成月温度（这个月的温度）

成年人正常体温平均在36～37℃之间（腋窝），超出这个范围就是发热，成年人体温37.5度不正常。在健康状态时，如饮食正常，衣着适宜，人体的体温一般是比较恒定的，即保持在37℃上下，而不因外界环境温度的改变而变化。扩展资料：体温影响因素：1、性别因素一般女性较男性稍高，女性在月经前期和妊娠早期轻度升高，排卵期较低，这种波动主要与孕激素分泌周期有关， 女性的体内脂肪较男性为高这也应该是一个原因。这种昼夜有规律的波动，是由于人们长期的生活方式如活动、代谢、血液循环等相应的周期性变化所形成的。

成年人的正常体温

成年人正常体温平均在36～37℃之间（腋窝），超出这个范围就是发热，成年人体温37.5度不正常。

37.3-38℃是低热，38.1-41℃是高热。在健康状态时，如饮食正常，衣着适宜，人体的体温一般是比较恒定的，即保持在37℃上下(介于36.2℃～37.2℃)，而不因外界环境温度的改变而变化。

扩展资料：

体温影响因素：

1、性别因素

一般女性较男性稍高，女性在月经前期和妊娠早期轻度升高，排卵期较低，这种波动主要与孕激素分泌周期有关， 女性的体内脂肪较男性为高这也应该是一个原因。

2、年龄因素

新生儿体温易受外界温度的影响而发生变化。因为新生儿中枢神经系统发育尚未完善，皮肤汗腺发育又不完全，从而体温调节功能较差，容易波动。儿童代谢率高，体温可略高于成人。老年人由于代谢率低，故体温偏低。

3、昼夜因素

一般清晨2－6时体温最低，下4－8时体温最高，其变动范围约在0.5-1℃之间。这种昼夜有规律的波动，是由于人们长期的生活方式如活动、代谢、血液循环等相应的周期性变化所形成的。

参考资料来源：百度百科-正常体温

参考资料来源：百度百科-体温

请问成人跟小孩的正常体温各是多少呢？

【正常体温】体温在人体各个部位是不一样的，每日早、晚也不一样：在一天的生物节律中，清晨2～5

时体温最低，下午5～7

时最高，但一天之内相差应小于1℃

。男女之间也有差异：女子体温一般比男子约高0.3

℃

。女子体温还与月经有关。所以说，人体体温有一个较稳定的范围，但并不是恒定不变的不一样。一、成人正常体温正常人口腔温度：36.5～37.4℃

，腋窝温度较口腔温度低：0.3

～0.6℃

，直肠温度（也称肛温）较口腔温度高：0.3

～0.5

℃。二、未成年人正常体温口腔体温：36.7℃～37.7℃之间

；腋窝温度范围：36.0℃～37.4℃；直肠温度范围：36.9℃～37.9℃之间

成人的正常体温是多少?

正常成人安静状态下，口腔温度为36.3~37.2摄氏度，直肠温度为36.5~37.7摄氏度，腋下温度为36.0~37.0摄氏度，体温可随昼夜，年龄，性别，活动，情绪和药物等因素的影响出现生理性变化，但变化幅度不大，一般不超过0.5~1.0 .

体温在人体各个部位是不一样的，每日早、晚也不一样：在一天的生物节律中，清晨2～5 时体温最低，下午5～7 时最高，但一天之内相差应小于1℃ 。女子体温还与月经有关。所以说，人体体温有一个较稳定的范围，但并不是恒定不变的不一样。成人正常体温正常人口腔温度：36.5～37.4℃ ，腋窝温度较口腔温度低：0.3 ～0.6℃ ，直肠温度（也称肛温）较口腔温度高：0.3 ～0.5 ℃。

VB中如何从Access数据库中提取出一个月温度数据并绘制成月曲线

以下是vb从数据库中提取每日对应的温度曲线图代码。

Private Sub Command1_Click()

Dim i   As Integer

Dim conn  As New ADODB.Connection

Dim rs     As New ADODB.Recordset

Set conn = New ADODB.Connection

Set rs = New ADODB.Recordset

conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="  App.Path  "\tep.mdb"

conn.Open

rs.Open "select  *  from  mrwdb", conn, adOpenKeyset, adLockOptimistic

'  Set MSChart1.DataSource = rs

With MSChart1

'// 以线条方式显示

.chartType = 3

'// 把刻录改为手工方式

.Plot.Axis(VtChAxisIdY).ValueScale.Auto = False

'// 设置最大值

.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 50

'// 设置最小值

.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0

'// 设置每格为 1

.Plot.Axis(VtChAxisIdY).ValueScale.MinorDivision = 1

'// 增加测试数据

.ColumnCount = 1

'//轴坐标标题

.Plot.Axis(VtChAxisIdX, 0).AxisTitle = "日期"

.Plot.Axis(VtChAxisIdY, 0).AxisTitle = "温度"

'//轴坐标标题字体大小的设置

.Plot.Axis(VtChAxisIdX, 0).AxisTitle.VtFont.Size = 15

.Plot.Axis(VtChAxisIdY, 0).AxisTitle.VtFont.Size = 25

'//设置图表标题

.Title.Text = "日期和温度对应折线图"

'// 将图表作为图例的背景。

.ShowLegend = False

'// 标记每个点的值

For i = 1 To .Plot.SeriesCollection.Count

.Plot.SeriesCollection(i).DataPoints(-1).DataPointLabel.LocationType = VtChLabelLocationTypeAbovePoint

Next

If rs.RecordCount  0 Then

rs.MoveFirst

Else

Exit Sub

End If

For i = 0 To rs.RecordCount - 1

.RowCount = rs.RecordCount

.Row = i + 1

.RowLabel = CStr(rs("日期"))

.Data = rs("温度")

rs.MoveNext

Next

End With

End Sub

最终调试效果图如下：