在VB窗体中有一个对象，该对象的属性窗口如图所示。下列说法中不正确的是(　　)

A．Left为属性名

B．1560为属性值

C．该对象是可用的

D．根据“Timer1 Timer”可判断窗体名为Timer

素数只能被1和它本身整除，不能被其他自然数整除。编写VB程序实现如下功能：单击“产生奇数并判断”按钮Command1，随机产生一个三位正奇数显示在文本框Text1中，并在文本框Text2中显示其是否为素数的判断结果。例如，当随机产生的三位正奇数为953时，程序运行界面左图所示。

 

 

 (1)在设计程序界面时，应使用上方右图所示“控件工具箱”中的______(填写相应编号)添加文本框Text1。
(2)实现上述功能的VB程序如下，请在划线处填写合适的代码。
Private Sub Command1_Click()
Dim n As Integer, i As Integer
Dim flag As Boolean ’用于标记是否为素数
Randomize
n = Int(①_____________)*2+1
Text1.Text = Str(n)
flag = True ’标记为素数
i = 3
Do While i <= n - 1 And flag = True
If  n Mod i = 0  Then
flag = False
End If 
i = i + 2
Loop
If ②______________ Then
Text2.Text = Str(n) + “是素数”
Else
Text2.Text = Str(n) + “不是素数”
End If
End Sub
(3)以下选项中，与加框处表达式“n Mod i = 0”等价的是___________(单选，填字母）。

A．  n \ i = Int(n / i)

B．n \ i = n/ i

C．n Mod i = n \ i

如下图所示的流程图：

该算法完成的功能是（    ）

A．计算y=1＋2＋3＋4＋5	B．计算y=1×2×3×4×5
C．计算y=1＋2＋3＋4	D．计算y=1＋3＋5＋7

编写VB程序，实现如下功能：单击按钮“确定”，在列表框中输出1-100里所有的完全平方数。程序界面如下图所示：

为实现上述功能，请将以下程序补充完整。
Private Sub Command1_Click()
Dim j As Integer, k As Integer
List1.Clear
For k = 1 To 100

j = Int(Sqr(k))

If __________Then List1.AddItem _______________

Next k
End Sub

设a=2,b=3,c=4,d=5,表达式a>b And c<=d Or 2*a>c 的值是（    ）

A．True

B．False

C．-1

D．1

有如下VB程序段：
For i=1 To 100

For j=i To 100

If j Mod i=0 Then
a(j)=a(j)+1
End If

Next j

Next i
Text1.Text=Str(a(50))
数组各元素初值为0，执行上述程序段后，文本框Textl中输出

A．5

B．6

C．9

D．50

有如下VB程序段:
Dim a(1 To 10)  As  Integer
Pos= -1
i=1
Do While i<=10
　If  i Mod 2=0  Then  a(i)=i*2  Else  a(i)=i
　i=i+1
Loop
i=10
Do While  i>=1
　If  a(i)=12  Then  Pos=i
　i = i-1
Loop
该程序段运行后,变量Pos值是(　　)

A．1

B．2

C．6

D．10

下列程序执行后变量c的值为（ ）
c=0
For i=1 to 10
If i mod 2=0 or i mod 3 =1 then
c=c+1
End If
Next i

A．4

B．5

C．6

D．7

下列VB表达式中，值最大的是（ ）

A．Abs(-8)+Len("Taizhou")

B．Val(Mid("Zhe2017Jiang", 6,2))

C．Int(2*Sqr(49)+7.5)/3

D．10^2 Mod 25\2^2

观察下图，下列说法正确的是（ ）

A．“第一个 VB 小程序”是窗体的 Name 属性值

B．“Label4”是当前选中对象的名称

C．“VB01.vbp”是工程文件名

D．该窗体中共有 3 个对象