2 * 3^2 + 2 * 8 / 4 + 3^2的值是[ ]

A．64

B．31

C．49

D．22

可作为VB变量名的是[ ]
A.A-1

A．2S

B．A.4

C．A_B

下列不属于VB常量类型的是(   )

A．数值型

B．字符型

C．布尔型

D．时间型

下列是单精度型数据的有( )

A．25%

B．32.789

C．5&

D．1.2D4

表达式6*7/8 Mod 9的值是_______。

A．4

B．5

C．6

D．7

设有数组定义语句：Dim a(5) As Integer，Listl 为列表框控件。下列给数组元素赋值的语句，错误的是（ ）。

A．a(3)=3

B．a(3)=VAL(InputBox(“InputData”）

C．a(3)=Listl.ListIndex

D．a=Array(1,2,3,4,5,6)

下列程序的执行结果是( ）
PRIVATE  SUB  FORM__CLICK( ）
X=INT(RND)+5
IF   X   THEN   PRINT   X  ELSE  PRINT  X+2
END  SUB

A．0

B．7

C．出错

D．5

编写“字符串生成”程序，实现如下功能：在文本框 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 中显示的内容是__________________________________。

某算法的部分流程图如右图所示，执行这部分流程后，输出a,b的值分别是

A．5,8

B．4,8

C．5,11

D．4,11

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