在Visual Basic中 ，下列(    )类型属于字符串型。

A．Integer

B．Single

C．String

D．Boolean

在Visual Basic中，执行语句x=Asc(Chr(Abs(-70)))，则变量x的数据类型是 （  ）

A．实数型

B．字符型

C．整数型

D．逻辑型

小王设计“模拟撤销”程序，需要用一个“历史记录”，“历史记录”是在对字符串s进行插入或删除时，将每步操作信息依次存储得到的，操作信息由操作符（“+”表示插入，“－”表示删除）、操作位置和操作字符串（只包含英文字母）构成，例如，“+23abc”表示在字符串s第23个位插入了“abc”，“模拟撤销”过程按照“历史记录”的逆序进行，将字符串s的内容恢复到初始状态。对字符串“Book”的操作与撤销过程，如下图所示。

小王编写的“模拟撤销”VB程序如下，文本框 Text1中的内容是撤销前字符串，文本概Text2中的内容是历史记录，单击“撤销”按钮Command1后，在标签Label1中显示撤销过程，程序运行界面如由下图所示。
 
（1）实观上述功能的VB程序如下，在程序中出现的对象没有Caption属性的是______ 。（选填，填字码：

A．Label1  /

B．Command1  /

C．Text1和Text2）

（2）请在划线处填入合适代码。
Private Sub Command1_Click()
Dim s As String, t As String, ch As String
Dim c As String, num As String, ss As String
Dim n As Integer, i As Integer
s = Text1.Text: t = Text2.Text
c = "": num = "": ss = s
For i = Len(t) To 1 Step -1
___________________   
If ch >= "a" And ch <= "z" Or ch >= "A" And ch = "Z" Then
c = ch + c
ElseIf ch >= "0" And ch <= "9" Then
num = ch + num
Else
n = Val(num)
If ch = "－" Then
s = Mid(s, 1, n - 1) + ____________________________  
Else
s = Mid(s, 1, n - 1) + Mid(s, n + Len(c), Len(s) - n - Len(c) + 1)
End If
ss = ss + "→" + s
c = "": num = ""
End If
Next i
Label1.Caption = ss
End Sub
（3）运行该程序，若文本框Text1中的内容是"April"，文本框Text2中的内容是”－3p+3ri－6e”，单击撤销按钮，For循环语句执行完成后，字符串s的值是_____________。

在VB中，用于定义单精度型数据类型的关键字是（   ）

A．Integer

B．Double

C．Single

D．Long

字符串删除与插入:给定一个长度不超过100位的字符串S，现有以下两种操作指令：
指令1（删除）：给出一个字符串S1，在字符串S中找到最左边的一个字符串S1，将其删除，若在S中不存在字符串S1，则字符串S不变。
例如：S=“China is a big family,it is big”   S1=“big”
则执行指令1后，S=“China is a family,it is big”
若S1=“small”，则S不变。
指令2（插入）：给出一个字符串S2，和一个整数w，将S2插入到S中以w开始的位置。
例如：S=“a big family”   S2=“very ”   w=3
则执行指令2后，S=“a very big family”
注意S中“a”后有一个空格，S2中“y”后有一个空格
实现上述功能的VB程序如下。请在划线处填入合适代码。
Dim S As String
Private Sub Command1_Click()  ’单击Command1实现删除指令
Dim S1 As String
S = Text1.Text
S1 =" Text2." Text
S = del(S1)
Text5.Text = S
End Sub
Private Sub Command2_Click()  ’单击Command2实现插入指令
Dim S2 As String, W As Integer
S = Text1.Text
S2 = Text2.Text
W = Val(Text4.Text)
S =     (1) ’调用函数，实现插入指令
Text5.Text = S
End Sub
Function del(S1 As String) As String  ’在字符串S中查找并删除S1
Dim S3 As String
For i =" 1" To Len(S) - Len(S1) + 1
S3 = ""   ’S3表示从位置i开始，取出长度和S1相同的字符串
For j =" i" To i + Len(S1) - 1
S3 =" S3" + Mid(S, j, 1)
Next j
If     (2)  Then   ’如果找到S1，则将S1删除
S =" Mid(S," 1, i - 1) + Mid(S, i + Len(S1), Len(S) - Len(S1) - i+ 2)
del = S
Exit Function    ’删除左边的第一个S1后，退出函数，以保证只删除一次
End If
Next i
End Function
Function add(S2 As String, W As Integer) As String
S =  Mid(S, 1, W - 1) + S2 + (3)       ’将S2插入W开始的位置
add = S
End Function