小明编写了一个字符重组程序，在文本框 Text1 中输入偶数个字符，单击“重组”按钮 Command1 后，将输入的内容从头、尾至中间依次取字符，组成一个新的字符串 Str2，并在文本框 Text2 中输出。例如在文本框 Text1 中输入字符 "12345678"，程序运行后在文本框 Text2 中显示字符 "18273645"。

实现上述功能的 VB 程序如下，请在划线处填入合适的代码：
Private Sub Command1_Click()
Dim Str1 As String, Str2 As String
Str1 = Text1.Text
Str2 = "" : m = 0
Do while _______________ 
Str2 = Str2 + ___________ 
Str2 = Str2 + ___________
m = m + 1
Loop
Text2.text=str2
End Sub

在 VB 中，若 s="Welcometoyunfun",取出字符"yunfun"，则函数应为（   ）

A．mid(s,10,6)	B．len(s,10,6)
C．len(s, 6 ,10)	D．mid(s, 6 ,10)

函数Int(-3.1)的返回值是（   ）

A．-3

B．3.8

C．-4

D．3

下列哪一个表达式能产生一个属于区间100,999内的整数（ ）

A．Int（Rnd*1000）+100	B．Int（Rnd*900）+100
C．Rnd+998	D．Rnd*1000