Private Sub Command1_Click( )

   Dim  s  As  Integer

   Dim  I  As  Integer

   S=0

   For i=1 To 10

      s=s+i\7

   Next i

   Text1.text=str(s)

End sub

该程序段运行后，文本框Text1中显示{#blank#}1{#/blank#} 

Dim s As String, i As Integer, n As Integer

Dim ch As String, ans As Integer

s= Text1.Text

n Len(s): ans=0

For i=1 To n

    ch =Mid (s, i, 1)

    ans =ans *2+ Val(ch)

Next i

Text2 Text ans

若程序运行后Tex2中显示的是“38”，则Text中输入的是（  ）

import math

h = 500

g = 9.8

t = math.sqrt（2*h/g）

hx = g*（t-1）*（-1）/2

hh = h-hx

print（“小球最后1秒下落的位移是：”，hh，“m”）