以下程序输出1到1000之间所有的偶数之和，请补充完该程序。 Private Sub Cotmand1_Click() Dim x As Double For i=0 To 1000 If______ Then x=x+ i End If Next i Print x End Sub

A． i Mod 2= 0

B．x mod 2=0

C．I mod 2＜＞0

D．x mod 2＜＞0

[问答题] 编一个程序，用for循环语句求出1到100之间的奇数之和，以及偶数之和。

[试题](12 ）以下程序的功能是在立即窗口中输出 100 到 200 之间所有的素数，并统计输出素数的个数。请在程序空白处填入适当的语句，使程序可以完成指定的功能。Private Sub Command2_Click()D．im i%, j%, k%, t % ‘ t 为统计素数的个数D． im b As BooleanF．or i = 100 To 200b = Truek = 2j = Int(Sqr(i))D．o While k <= j And bIf I Mod k = 0 Thenb

[单选题]（14）有下列程序，程序运行后单击命令按钮，则输出的结果是 Private Sub Command1_Click() Dim a%(1 To 4),b%(3 To 6),i%,s1#,s2# For i=1 To 4 a(i)=i Next i For i=3 To 6 b(i)=i Next i s1=Factorial(a) S2=Factorial(b) Print"s1="；s1；"s2"；s2； End Sub Function Factorial(a()As Integer)

[单选题](程序说明) 求1～10之间的所有整数之和。(程序)SET TALK OFFSTORE 0 TO N，SD．O WHILE (1)N＝N+1S=S+NIF (2)(3)E．NDIFE．NDDO? “ S=”+STR (S，2)SET TALK ONRETURN(1)A．F.B．T.C．N＜＝10D．N＞＝10

[单选题]以下程序的输出结果是( )。 Option Base 1 Private Sub Command1 Click() Dim a(10)，p(3)as Integer k=5 For I=1 to 10 a(i)=I Next I For j=1 to 3 p(i)=a(I*j) Next j For I=1 to 3 k=k+p(I)*2 Next I Print k End SubA．33B．28C．35D．37

[单选题]以下程序的输出结果是( )。 Option Base 1 Private Sub Command1_Click() Dim a(10),p(3) as Integer k=5 For I-1 to 10 a(i)=I Next I For j=1 to3 p(i)=a(I*j) Next j For I=l to 3 k=k+ p (I)*2 Next I Print k End SubA．33B．28C．35D．37

[单选题]下面程序的功能是：计算1～10之间的奇数之和及偶数之和，空白处应填______。 main() {int a，b，c，i； a=c=0； for(i=0；i＜=10；i+=2) {a+=i；______；) printf("偶数之和=%d/n"，a)； printf("奇数之和=%d/n"，c-11)； }A．c+=iB．c+=i+1C．b+=iD．b+=i+1

[单选题]执行以下程序,在窗体上输出()。Private Sub Command1_Click()D．im a(20)As IntegerF．or j = 1 To 20 Step 2a(j)= jNext jPrint a(1)+ a(2)+ a(3)AAAAAAAAaE．nd SubA． 4B． 5C． 6D． 7

[单选题]（ 14 ）执行以下程序后输出的是Private Sub Command1_Click()C．h$= ” AABCDEFGH ”Print Mid(Righ(ch$,6),Len(left(ch$,4)),2)E．nd SubA．)CDEFGHB．)ABCDC．)FGD．)AB

[单选题]运行以下程序后，输出的图形是 Private Sub Command1_Click() Line(500，500)-(1000，500) Line(750，300)-(750，700) End SubA．一条折线B．两条分离的直线段C．一个伞形图形D．一个十字形图形