Fori="1"To4step1IfiMod2="0"Thens="s"+(-1)^(i+1)*1/iNextiMsgBoxs*100该程序的运行结果是（_刷题宝

题干

For i =" 1" To 4 step 1
If i Mod 2=" 0" Then s =" s" + (-1) ^ (i + 1) * 1 / i
Next i
MsgBox s*100
该程序的运行结果是（）

A．-25

B．-75

C．15

D．25

上一题下一题 0.99难度选择题更新时间:2015-11-19 04:00:30

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

同类题1

有如下Visual Basic程序段，用于计算前n个自然数之和。程序划线处应填写的语句是（）
s =" 0:" i = 1
n = Val(Text1.Text)
Do While i < n
s =" s" + i
i =" i" + 1

Label1.Caption = Str(s)

A．Loop	B．Next i
C．End If	D．End Sub

同类题2

写出下列程序的输出结果
Sub test16()
X = 9
For i =" 3" To 22 Step 3
If (X / 2) >=" i" Then X =" X" + 3
Next i
For i =" 2" To -22 Step 3
If (X / 3) >=" i" Then X =" X" + 3
Next i
MsgBox (X + i)
End Sub
该程序的运行结果是（）

同类题3

X = 9
For i =" 3" To 9 Step 3
If (X / 3) >=" i" Then X =" X" + 3
Next i
For i =" 22" To 2 Step 2
If (X / 2) >=" i" Then X =" X" + 2
Next i
MsgBox (X + i)
该程序的运行结果是（）

同类题4

读流程图写结果

已知数组a中依次存放了6个数：-1，4，12，10，-3，8，运行结果是_______________。

同类题5

问题：在“1390773”号段的 11 位手机号码中，统计出最后两位数字相同的号码个数。如 13907735200、13907738366 是符合条件的两个号码。
算法描述如下图所示。请将程序补充完整。

Private Sub Form_Click()
Dim a As Integer, b As Integer
Dim i As Integer, s As Integer

s=0

For i=10000 To 19999

a=①_____

b=(i Mod 100)\10

If a=b Then
s=②____
End If
Next i

Print "最后两位数字相同的号码个数有：" ;③_____

相关知识点