求2+4+6+8+10+12+14+……100PRIVATE SUB FORM-------CLICK（）S=0DIM I AS INTEGER，S_刷题宝

题干

求2+4+6+8+10+12+14+……100
PRIVATE   SUB    FORM-------CLICK（）
S=0
DIM   I   AS INTEGER，S   AS INTEGER
FOR I= 2 TO 100 ________[1]
S=S+________[2]
NEXT I
PRINT   S
END   SUB

上一题下一题 0.99难度填空题更新时间:2019-09-12 12:53:50

答案(点此获取答案解析）

同类题1

某Visual Basic程序如下：
Private Sub Command1_Click()
Dim x As Integer, y As Integer ,a As Integer ,b As Integer
X="0"
y=0
For a="1" To 3
x=x+1
For b="2" to 4
y=y+1
Next b
Next a
Text1.text=str(a)
Text2.text=str(b)
End Sub
单击Command1按钮后，Text1显示 ① ，Text2显示 ② 。

同类题2

有如下VB程序段：
S=0
For j=1 to 100
If j/2=int(j/2) then s=s+j
Next j
该程序段被执行后，整数型变量s中存储的是1到100之间的

A．偶数个数

B．偶数之和

C．奇数之和

D．自然数之和

同类题3

下面程序段是利用For语句给数组a赋值( )
For i= 1 To 5
a(i)=3*i+i^2
Next i
该程序段运行后数组元素a(5)的值为( )

同类题4

以下两个VB程序段，其中变量m和n为正整数，下列说法不正确的是（）

程序1：
If m<n Then

t=m：m=n：n=t

End If
Do While m Mod n＜＞0
r=m Mod n
m=n
n=r
Loop
Text1.Text=Str（n）

程序：
2n2
Do Whife m
程序2
Do While m＜＞n
Do While m＞n
m=m-n
Loop
Do While n>m
n=n-m
Loop
Loop
Textl.Text=Str（n）

A．“程序1”和“程序2”中的代码实现相同的功能

B．若变量m和n的值为25，35，则“程序1”代码运行后文本框Text1显示“5”

C．“程序2”中的输出语句改为Textl.Text=Str(m)，会影响文本框Textl显示的内容

D．若变量m和n的值为11，7，则“程序2”代码运行后文本框Text1显示“1”

同类题5

下面程序的功能是：找出10以内的奇数中能被3整除的正整数，并将它们累加起来。为了实现这一目标，请完善下列程序：
x=0
For i=1 to 10 step ____
If _______________________ then x=x+i
Next i

相关知识点