Dim n As Integer，s As String

n = 64 :s = ""

Do While n > 0

  s = Str(n Mod 7) + s

  n = n \ 7

Loop

执行该程序段后，变量s的值是（  ）

Private Sub Command1_Click()

Dim a As Integer

Dim b As Boolean

a = (a + 1) * 2

b = a - 1

print a:print b

End Sub

程序运行时，单击命令按钮Command1后，变量a和b的值分别是（  ）

s = "123456789"

g = ""

For i = 1 To 3

n = Len(s)

x = Int(Rnd() * n) + 1

g = g + Mid(s, x, 1)

s = Mid(s, 1, x - 1) + Mid(s, x + 1, n - x)

Next i

在程序执行时，若变量 x 的值依次为3,3,6，则最终变量g的值为（   ）

Private sub Command1_click()

Dim s1 As String, s2 As String, t As String, ch As String

Dim i As Integer

s1 = Text1.Text

i = Len(s1)

t = "": s2 = ""

Do While i > 0

    ch = Mid(s1, i, 1)

    If ch >= "0" And ch <= "9" Then

        t = ch + t

    Else

    s2 = s2 + t +，   ①

    t = ""

End If

i = i + 1    ②

Loop

s2 = s2 + t

Text2.Text = s2

End sub

①{#blank#}1{#/blank#} ②{#blank#}2{#/blank#} 

Private Sub Command1_Click()

   Dim t As Single, h1 As Single, h2 As Single

   Const g = 9.8

   t = Val(Text1.Text)

   h1 = (g * t ^ 2) / 2

   h2 = Int(h1)

   Text2.Text = Str(h2)

End Sub