如果x=4，那么以下运算结果为True的表达式是 (　　)

A．x<="4" And x>="6"	B．x>4 Or x>=6
C．x<4 Or x>6	D．Not x<>4

将文本框Text1中的数据赋值到数值型变量n中，正确的语句是（  ）

A．n = text1	B．n = Text1.text
C．n = Str(Text1.text)	D．n = Val(Text1.text)

分析完善程序。
以下是求解一元二次方程ax²+bx+c=0(a≠0)的主要VB程序片段，请你补全代码：
a=Val(InputBox(“a=”))
b=Val(InputBox(“b=”))
c=Val(InputBox(“c=”))
d=________________________’求判别式d
If d>0 Then
x1=(-b+Sqr(d))/(2*a)
x2=(-b-Sqr(d))/(2*a)
Print “x1=”;x1
Print “x2=”;x2
End If
If ________________ Then
Print”x=”;-b/(2*a)
End If
If d<0 Then
Print “无实数解！”
End If

对输入的两个整数a和b，找出其中的较大者赋给c并输出。解决该问题的算法流程图如右图所示，流程图中虚线框部分的内容可为

A．

B．

C．

D．

有一组数：1、2、4、7、……，其第1个数是1，第2个数比第1个数大1，第3个数比第2个数大2，第4个数比第3个数大3，以此类推。求其前20项的和。
以下VB程序实现上述功能，请把程序中的①、②出填写完整。
Dim i As Integer, p As Integer, s As Integer
i = 1
p = 1
s = 0
Do While ______①______
s =" s" + p
i =" i" + 1
______②______
Loop
Print s