题目内容

Walking, if you do it vigorously enough, is the overall best exercise for regular physical activity. It requires no equipment, everyone knows how to do it and it carries the (1) risk of injury. The human body is designed to walk. You can walk in parks or along a river or in your neighborhood. To get (2) benefit from walking, aim for 45 minutes a day, an average of five days a week.Strength training is another important (3) of physical activity. Its purpose is to build and (4) bone and muscle mass, both of which shrink with age. In general, you will want to do strength training two or three days a week, (5) recovery days between sessions.Finally, flexibility and balance training are (6) important as the body ages. Aches and pains are high on the list of complaints in old age. The result of constant muscle tension and stiffness of joints, many of them are (7) , and simple flexibility training can (8) these by making muscles stronger and keeping joints lubricated (润滑). Some of this you do whenever you stretch. If you watch dogs and cats, you’ll get an idea of how natural it is. The general (9) is simple: whenever the body has been in one position for a while, it is good to (10) stretch it in an opposite position.A.allowingB.avoidableC.brieflyD.componentE.determinedF.helpingG.increasinglyH.lowestI.maintainJ.maximumK.preventL.principleM.provokeN.seriouslyO.topic (2)处应填()

查看答案
更多问题

窗体上有一个列表框和一个文本框,编写下列两个事件过程: Private Sub Form. Load() List1.AddItem "北京" List1. AddItem "天津" List1. AddItem "上海" Text1. Text="" End Sub Private Sub List1. Click() Print Text1. Text+List1. Text End Sub 程序运行后,在文本框中输入“中国”,然后单击列表框中的“北京”,则输出结果是( )。

A. 中国北京
B. 中国天津
C. 中国上海
D. 北京中国

下列程序要求用户输入一个年份,并能够判断用户输入的年份是否是闰年,横线处应填( )。 Sub EnSure() Dim year As Integer year=Val(InputBox("请输入年份:")) If(year Mod 4=0______year Mod 100<>0)______(year Mod 400=0)Then Print"您输入的是闰年" Else Print"不是闰年,是普通年份" End If End Sub

And And
B. And Or
C. Or Or
D. Or Or

下列程序运行时输出的结果是( )。 Option Base 1 Const a=10 Private Sub Form_Click0 Dim x(a)As Integer k=-1 For i=1 To a x(i)=i*k k=(-1)*k Next i For i=1 To 10 Print x(i) Next i End Sub

A. 1 3 5 7 9 10
B. -1-3-5-7-9
C. -1 2-3 4-5 6-7 8-9 10
D. 1-2 3-4 5-6 7-8 9-10

下列程序代码实现生成20个0~100之问的随机整数,存于数组中,打印数组中大于50的数,并求这些数的和。请选择正确的程序段( ),完成程序。 Private Sub Command1 Click() Dim arr(1 To 20) For i=1 To 20 arr(i)=______ Text1. Text=Text1. Text&arr(i)&Chr(13)&Chr(10) Next i Surn=0 For Each X______ If X>50 Then Print Tab(20);X Sum=Sum+X End If NextX Print Tab(20);"Sum=";Sum End Sub

A. Int(Rnd*99+1)In arr
B. Int(Rnd)In arr
C. Int(Rnd*99+1)In arr()
D. Int(Rnd)In arr()

答案查题题库