现有以下程序：Private Sub Command1_Click（)c1=0c2=0For i=1 To 100If i mod 3 = 0 Thenc1=c1+1ElseIf i Mod 7 =0 Thenc2=c2+1End IfNextPrint c1+c2End Sub此程序运行后输出的是在1~100范围内（）。

现有以下程序：

Private Sub Command1 Click（）

c1=0

c2=0

For i=1 To 100

If i Mod 3=0 Then

c1=c1+1

Else If i Mod 7=0 Then

c2=c2+1

End If

Next i

Print c1+c2

End Sub

此程序运行后输出的是在1～100范围内（）。

A.同时能被3和7整除的整数个数

B.能被3或7整除的整数个数(同时被3和7整除的数只记一次)

C.能被3整除，而不能被7整除的整数个数

D.能被7整除，而不能被3整除的整数个数

设有如下程序： Private Sub Command1_Click() Dim Sum As Double， x As Double sum=0 n = 0 For i= 1 To 5 x = n / i n = n + 1 sum=sum+x Next End Sub 该程序通过For循环计算一个表达式的值，这个表达式是

A．1+1/2+2/3+3/4+4/5

B．1+1/2+2/3+3/4

C．1/2+2/3+3/4+4/5

D．1+1/2+1/3+1/4+1/5

在窗体画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() c=1234 c1=Trim(Str(c)) For i=1 To 4 Print Next End Sub 程序运行后，单击命令按钮，要求在窗体上显示如下内容： 1 12 123 1234 则在下划线处应填入的内容为______。

A．Rght(c1, i)

B．Left(c1, i)

C．Mid(c1, i, 1)

D．Mid(c1, i, i)

设有如下程序： Private Sub Command1_Click() Dim sum As Double,x As Double Sum=0 n=0 For i=1 To 5 x=n/i n=n+1 sum=sum+x Next i End Sub 该程序通过For循环来计算一个表达式的值，这个表达式是()。

A．1+1/2+2/3+3/4+4/5

B．1+1/2+1/3+1/4+1/5

C．1/2+2/3+3/4+4/5

D．1/2+1/3+1/4+1/5

现有如下程序： Private Sub Command1_Click() s=0 For i=1 To 5 s=s+f(5+i) Next Print s End Sub Public Function f(x As Integer) If x＞=10 Then t=x+1 Else t=x+2 End If f=t End Function 运行程序，则窗体上显示的是()。

A．38

B．49

C．61

D．70

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() c=1234 c1 = Trim(Str(C)) For i = 1 To 4 Print ____ Next End Sub 程序运行后，单击命令按钮，要求在窗体上显示如下内容 1 12 123 1234 则在下划线处应填入的内容为

A．Right(c1，i)

B．Left(c1，i)

C．Mid(c1，i，1)

D．Mid(c1，i，i)

现有如下程序： Private Sub Command1_Click() s=0 For i=1 To 5 s=s+f(5+i) Next Print s End Sub Public Function f(x As Integer) If x＞=10 Then t=x+1 Else t=x+2 End If f=t End Function 运行程序，则窗体上显示的是()。

A．38

B．49

C．61

D．70

设有如下程序： Private Sub Command1_Click() Dim sum As Double, k As Double sum=0 n=0 For i=1 To 5 k=n/i n=n+1 sum=sum+k Next End Sub 该程序通过For循环计算一个表达式的值，这个表达式是______。

A．1+1/2+2/3+3/4+4/5

B．1+1/2+2/3+3/4

C．1/2+2/3+3/4+4/5

D．1+1/2+1/3+1/4+1/5