编写一个具有下列功能的VB程序：在文本框Text1中输入一串字符，单击“统计”按钮Command1，在标签Label1中输出字符串的长度。运行界面如图所示，在划线处填入合适的语句或表达式，完成程序。

Dim s As Integer
Private Sub Form_Load()
Command1.Caption = " "
End Sub
Private Sub Command1_Click()
s =
Label1.Caption = "共有" + Str(s) + "个字符"
End Sub

编写VB程序，实现如下功能：在文本框Text1、Text2中分别输入一个正整数，单击“计算累加和”按钮（Command1），在标签Label3中显示起始值和结束值之间所有奇数的累加和，界面如1图所示：
 
1图    2图
（1）在设计程序界面时，使用“控件工具箱”中（第11题-2图）的 （填编号）添加命令按钮，要使命令按钮Command1上显示“计算累加和”，应修改命令按钮的
属性值。
（2）为实现上述功能，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim x1 As Integer,x2 As Integer,n As Integer
Dim sum As Long
x1=Val(Text1.Text)
x2=Val(Text2.Text)
sum=0
If  x1<x2  Then n="1" Else ①
For i=" x1" To x2 Step n
If   ②  Then
sum=sum+i
    ③
Next i
Label3.Caption=“从”& x1 & “到”& x2& “之间所有奇数的累加和=”&Str(sum)
End Sub

下列选项中，不属于计算机程序设计语言的是

A．C++

B．VB

C．Pascal

D．Excel

能得到一个大于等于20且小于50随机整数的VB表达式是（   ）

A．Int(rnd*50)-20

B．Int(rnd*30+20)

C．Int(rnd*31+20)

D．Int(rnd*30)+1

下列程序的功能是在text1中输入的自然数，分解为3个互不相同的质数（三个质数的和等于输入的自然数），并把分解产生的质数按升序顺序显示在左边的列表框中。例如，输入20，那么在列表框中会显示如下图所示结果。其中，上述界面中“分解”按钮的名称是“Command1”，程序中函数f(x)的功能是判断x是否为质数，如果是质数则返回值为true，否则返回false.

请在下列程序代码的基础上按照要求设计该程序, 完善程序中的划线部分。
Dim n As Integer, a1 As Integer, a2 As Integer, a3 As Integer
Function f(x) As Boolean
f = True
For i =" 2" To Sqr(x)
If x Mod i =" 0" Then _____( 1 )_____
Next i
End Function
Private Sub Command1_Click()
n = _______( 2 )_______
For a1 =" 2" To n
For a2 =" a1" To n
For a3 =" a2" To n
If _______( 3 )_______ And f(a1) And f(a2) And f(a3) Then
List1.AddItem (Str(a1) + " " + Str(a2) + " " + Str(a3))
End If
Next a3
Next a2
Next a1
End Sub
(1)
(2)
(3)