填空题

以下程序用于求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,下面_...
  • 关子设置控件属性的叙述正确的是_____...
  • 下列程序段的执行结果为______ 。 ...
  • 对于存在多个条件复杂组合的判断问题,其加...
  • 在单项链表中删除一个指定结点的后继的时间...