题干

崇左的夏天,烈日炎炎,酷热难耐.小明的妈妈为了遮挡热辣辣的阳光,在自行车的前把上安装了遮阳伞.可自从安装了这把伞后,骑车时总感觉自行车的前把好象被人向上提起,这是为什么呢?
上一题 下一题 0.0难度 选择题 更新时间:2020-03-13 03:43:16

答案(点此获取答案解析)

骑车时,等质量的空气在相同的时间内同时通过遮阳伞车的上表面和下表面,由于遮阳伞上表面弯曲,呈圆弧状,所以遮阳伞上部的空气流速快,压强小;下部的空气流动慢,压强大.在这两个压强差的作用下,遮阳伞受到一个向上的升力,感觉车把象被人向上提起

同类题4

【加试题】为破解看病手续烦琐问题,杭州市卫生局、杭州市医疗保险管理服务局、杭州市民卡有限公司推出了“智慧医疗结算”便民服务。持卡人只要在市民卡电子帐户内预充小额费用,就可在医生诊室直接刷卡支付需现金付费的部分。

杭州市民卡是一张集成电路卡,具有信息储存、身份识别、电子支付等功能。每位市民卡的卡号是唯一的,卡内会记录每位市民的姓名、住址、金额等信息。

假设共有100000个市民,市民的卡号、姓名和金额分别存放在数组a、b和数组c中,a(i)是存放第i个市民的卡号,则对应的第i个市民的姓名存放在b(i)中,金额存放在c(i)中。

通过卡号查询其姓名和余额的程序界面如图所示。在文本框Text1中输入卡号,单击“开始查询”按钮,如果找到,就在Label1中显示卡内市民姓名和金额;否则显示“查无此人”。已知卡号按照从小到大排序。请按要求将下列程序补充完整。

Dim a (1 To 100000) As long

Dim b (1 To 100000) As string

Dim c (1 To 100000) As long

Private Sub Command1_Click()

Dim x As Long, i As Long, j As Long, m As Long, f As Boolean

x = Val(Text1.Text)

i = 1: j = 100000: f = False           、

Do While  i<=j and f=false       

          ①        

If x= a(m) Then

        f = True

    ElseIf x< a(m) Then

        j = m - 1

    Else

             ②       

    End If

 Loop

 If f=false Then

        Label1.Caption =”查无此人”

    Else

         Label1.Caption = b(i)+ "卡内余额为"+ Str(c(i)) + "元"

    End If

 End Sub

 Private Sub Form_Load()

     ’ 此过程用于对数组a、b和c进行初始赋值,代码略

 End Sub