求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

分析解决问题。
有一张单据，编号为四位数，号码为：8□□0.中间两位被污浊看不出来。已知该单据能被23和37整除，请用编程求出该单据号码。
（算法设计）
设百位数字为x,十位数字为y；x和y的范围都是0到9。
4位数：8xy0=8*1000+x*100+y*10
列举（）（）里的两个数字的所有可能情况：
00,01,02,03,04,05,06,07,08,09
10,11,12,13,14,15,16,17,18,19
……
90,91,92,93,94,95,96,97,98,99
逐一判断找出符合条件的数字。
（参考代码）
Dim x as long
Dim y as long
Dim n as long
For x=0 to 9
For y=0 to 9
n=8*1000+x*100+y*10
If then
Print n
End if
Next y
Next x
根据上述回答下列问题
（1）解决该问题采用的算法是：___________（填：解析法/穷举法/排序法/递归法）
（2）根据题意，程序中空白处应填写：______（填写字母：A/B/C/D）

A．n mod 23 =0 or n mod 37 =0

B．n\23=0 and n\37=0

C．n\23=0 or n\37=0

D．n mod 23 =0 and n mod 37 =0

（3）根据算法设计，参考程序中循环体中的语句“n=s*1000+x*100+y*10”，一共重复执行了_________次。

同类题2

某程序代码如下：
Dim a(1 To 13) As String
s = "where are you"：count= 0
For i = 1 To Len(s)

a(i) = Mid(s, i, 1)

Next i
For i = 1 To Len(s) - 1

k = i

For j = i + 1 To Len(s)

If a(k) < a(j) Then k = j

Next j

If i < > k Then

t = a(i): a(i) = a(k): a(k) = t

End If

Next i
For i = 1 To Len(s) - 1

If a(i) = a(i + 1) Then count = count + 1

Next i
程序运行结束后，变量count的值是

同类题3

S=0: M=0:N=0
FOR I=1 TO   20
IF   I   MOD 2=0    THEN
S=S+1
ELSEIF I   MOD 3 =0 THEN
M=M+1
ELSEIF   I   MOD 5 =0 THEN
N=N+1
END IF
NEXT I
PRINT S,M,N
这段程序的执行结果是( )

同类题4

（加试题）某VB程序功能：输入正整数n,单击命令按钮Command1后，则会衍生出一串有规律的数字，形式为“1 2 3…n-1 n n-1…3 2 1 ”。例如n=6时，显示的数字串为“1 2 3 4 5 6 5 4 3 2 1 ”。
Private Sub Command1_Click()
Dim a As intger, i As intger, s As String
n = Val(Text1.Text)
s = ""
For i = 1 To 2 * n - 1
If i > n Then ① Else ②
Next i
text2.Text = s
End Sub
为实现以上功能，①②处分别填写( )

A．①s=Str(2*n-i) ②s=Str(i)	B．①s=s+Str(2*n-i) ②s=s+Str(i)
C．①s=s+Str(2n-1) ②s=s+Str(2n)	D．①s= Str(2n-1) ②s= Str(2n)

同类题5

有如下VB程序段：
s= Text1.Text
s1=" "
For i=1 To Len(s)

c= Mid(s,i,1)

If c>="A" And c<="Z" Then

t=(Asc©-asc("A")+25)Mod 26
c=Chr(t+ Asc("A"))

End If

sl=sl+c

Next i
Text2.Text=sl
1=s1+c在文本框Text1中输入“ABcd2XY”，执行上述程序段后，文本框Text2中输出（）

相关知识点