编写“字符串生成”程序，实现如下功能：在文本框 Text1 中（字符位置)输入多个正整数 (以“，”为分割符和结束符），单击“生成”按钮 Command1,程序以这些整数为位置信息，依次从文本框 Text2 中（字典内容）提取字符并连接成字符串，最后将字符串显示在标签 Label1 中（生成内容）。
程序运行界面如下图所示。

(1)要使程序运行时，窗体 Form1 标题显示“字符串生成”，可在 Form_Load 事件过程中添加语句__________ (单选，填字母:

A．Form1 = "字符串生成" /

B．Forml.Text="字符串生成"/

C．Form1.Caption="字符串生成"）。

(2)实现上述功能的 VB 程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim s As String, t As String, c As String
Dim i As Integer, p As Integer
s = "": t = ""
For i = 1 To Len(Text1.Text)

c = Mid(Text1.Text, i, 1)

If  c = "," Then

p = Val(t)
s = s + Mid(Text2.Text, p, 1)
t = ""
Else
t = ①_________________    
End If
Next i
Label1.Caption =   ②___________________ 
End Sub
（3）若文本框 Text1 中输人内容的结束符缺失（即输人内容为 1,18,9,9)，单击“生成”按钮后，标签 Label1 中显示的内容是__________________________________。

显示今天距离2019年元旦的天数。

单精度型数有_________________法和____________法两种表示方法。

VB中的常量分为____________常量和______________常量。

保存一个VB程序时需要保存两个文件：（  ）

A．工程文件和 .vbp	B．窗体文件和 .frm文件
C．vbp文件和 .frm文件	D．模块文件和 .bas文件

下列声明语句中错误的是_________。

A．Const   var1=123	B．Dim  var2=’abc’
C．dim   a,b as string	D．dim  var3   as integer

Rnd函数不可能为下列_______值。

A．0.6

B．1

C．0.1234

D．0.0005

若单选按钮被选中,其VALUE属性的值是(  ）

A．0

B．1

C．TRUE

D．FALSE

以下程序输出的结果是（  ）。
Option Base 1
Private Sub Command1 Click( ）
Dim a%(3,3)
For i=1 To 3
For j=1 To 3
a(i,j)=i*j
Print a(i,j);〃〃;
Next j
Print
Next i
End Sub

A．1 2 3 2 3 1 3 2 3

B．1 2 3 1 2 3 1 2 3

C．1 2 3 2 4 6 3 6 9

D．1 1 1

有如下程序：

 Dim a(3,3) As Integer

 For m = 1 To 3

 For n = 1 To 3
a(m,n)=(m-1)*3+n
Next  n

 Next m

    For m = 2 To 3
For n = 1 To 2
Print a(n,m);
Next n
Next m
运行后输出结果是： (  ）

A．2 5 3 6

B．2 3 5 6

C．4 7 5 8

D．4 5 7 8