程序设计题问题：求s="1"x2-2x3+3x4-4x5+…-98x99+99x100的值。算法描述如想图所示，请将下列程序补充完整。Private SubFo_刷题宝

题干

程序设计题
问题：求 s="1" x2-2x3+3x4-4x5+…-98x99+99x100 的值。
算法描述如想图所示，请将下列程序补充完整。

Private Sub Form _ Click ( )
Dim k As Integer
Dim s As Integer
s=0
For k="l" To__ ① ___
If k Mod______② ___0 Then
S=s+k*(k+l)
Else
s=____③___
End If
Next k
Print “s=”;s
End Sub

上一题下一题 0.99难度填空题更新时间:2017-05-26 03:48:38

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

同类题1

求两个整数的最大公约数分析：求最大公约数的算法思想：
（1）对于已知两数m，n，使得m>n；
（2）m除以n得余数r；
（3）若r=0，则n为求得的最大公约数，算法结束；否则执行(4)；
（4）m←n，n←r，再重复执行(2)。
例如: 求 m="14" ,n="6" 的最大公约数.
M n r
14 6 2
6 2 0
请根据以上思路补充下面的程序代码：
Private Sub Command1_Click()
m = InputBox("m=")
n = InputBox("n=")
If m < n Then t =" m:" m =" n:" n = t
r = ________________
Do While (r <> 0)
m = n
n = r
r =" m" Mod n
Loop
Print "最大公约数=", n
End Sub

同类题2

某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显示 ② 。

同类题3

有如下 VB 程序，它的输出结果是
S=0
For i="1" To 10
If i mod 2="0" Then S="S+i"
Next i
Print “S=”;S

同类题4

学习完数组这个知识点后，小林设计了一个程序，该程序的主要功能是，先给数组中每个元素赋值，再找出数组中最大的数，具体程序如下。

（1）数组a中共有_____________个变量。
（2）数组a中所有变量的类型____________（相同或不相同）。
（3）将程序中①的代码补充完整______________。
（4）将程序中②的代码补充完整_______________。

同类题5

有如下VB程序段
m=a(1)
For t=2 to 15 step 2
If a(t) > m then m=a(t)
Next t
该程序段执行后，变量t的值是（）

相关知识点