填空题
以下程序用于求s=1+(1+2)+(1+2+3)+……(1+2+……100)的和,请补充完该程序。
Dim n As Integer
Dim i As Integer
Dim j As Long
Dim s As Long
n=100
j=0
s=0
For i=1 To
【12】
J=
【13】
s=
【14】
Next i
Print s
【参考答案】
[12] n[13] j+ I[14] s+ j
点击查看答案
<上一题
目录
下一题>
热门
试题
填空题
下列程序的运行机结果是 【15】 。 Private Sub Form_ Click() Dim k As Integer n= 5 m= 1 k= 1 Do m=m+2 k= k+1 Loop While k<=n Print mEnd Sub
点击查看答案
填空题
下列程序的作用是求所有小于或等于30的自然数对。该程序不完整,请补充完该程序(程序执行结果见下图)。 注:自然数对是指两个自然数的和与差都是平方数(如8与17)。 Private Sub Command1_Click() Dim n As Long Dim m As Long Dim s As Single Dim d As String For n=1 To 30 For m=1 To 【9】 s =n+ m 【10】 If Sqr (s)=Int(Sqr(s)) 【11】 Sqr(D) =Int(Sqr(D) )Then Print n:m End lf Next m Next n End Sub
点击查看答案
相关试题
一个栈的输入序列为1,2,3,4,下面_...
关子设置控件属性的叙述正确的是_____...
下列程序段的执行结果为______ 。 ...
对于存在多个条件复杂组合的判断问题,其加...
在单项链表中删除一个指定结点的后继的时间...