A．5
B．10
C．12
D．20
[单选题]有如下程序段，该程序段执行完后，共执行循环的次数是 Private Sub Command1_Click( ) Tota1=0 Counter=1 Do Print Counter Tota1=tota1+Counter Print total Counter=Counter+1 If total>=10 Then Exit Do End lf Loop While Counter＜=10 End SubA．5B．10C．12D．20
[单选题]有如下程序段，该程序段执行完后，执行循环的次数是total=0C．ounter=1D．oPrint Countertotal=total + CounterPrint totalC．ounter=Counter + 1If total > 10 ThenE．xit DoE．nd IfLoop While Counter <=10（ ）。A．5B．10C．15D．20
[单选题]有如下程序段，该程序段执行完后，执行循环的次数是 total=0 Counter=1 Do Print Counter total=total + Counter Print total Counter=Counter+1 If total＞10 Then Exit Do End If Loop While Counter ＜=10A．5B．10C．15D．20
[主观题]有如下程序，该程序的执行结果是[ ]。Private Sub Command1_lick()F．or i= 1 To 4x= 4F．or j =1 To 3x =3F．or k=1 To 2X= K+5Next kNext jNext iPrint xE．nd Sub
[单选题]23 有如下程序段，该程序段循环的次数是______。 Dim i As Integer Dim j As Integer Dim k As Integer k=0 For i = 0 To 10 Step 3 For j = 1 To 5 If j ＞ 3 Then k = k + 4: Exit For k=k+1 Print k Next j If i ＞ 8 Then Exit For Next iA．9B．10C．11D．12
[单选题]有如下程序段：Private Sub Command1_Click( ) Dim a As Integer a=2 For i=1 To 3 Print G(A)Next iEnd SubFunction G(a As Integer) b=0 Static c b=b + 1 c=c + 1 G=a + b + cEnd Function运行上面的程序后，单击命令按钮，输出结果为A．1 2 3B．2 3 4C．4 5 6D．1 4 6
[单选题]有如下程序段 int *p,a=10,b=1； p=&a；a=*p+b； 执行该程序段后，a的值为______。A．12B．11C．10D．编译出错
[单选题]有如下程序段 int *p，a=10，b=1； p=&a；a=*p+b； 执行该程序段后，a的值为A．12B．11C．10D．编译出错
[单选题]下列程序共执行了______次循环。Private Sub Command1_ Click () Dim intsum As Integer Dim i AS Integer Dim j As Integer i = 1 j = 1 do do intsum = intsum + j =j+2 Print j; Loop until j ＞3 i = i+1 Loop until i＞17 Print Print intsumEnd SubA．14B．15C．14D．13
[单选题]下列程序段的执行结果为 Private Sub Command1_Click() a=InputBox("请输入a值") c="您要查询的是" &IIf(a＞0，"天气"，" ") &IIf(a＜0，"电话号码"，" ") &IIf(a=0，"邮编"，" ") Text1.Text=c End Sub程序运行后，如果从键盘上输入"16"，则在文本框显示的内容是______。A．您要查询的是天气B．您要查询的是邮编C．您要查询的是电话号码