填空题

下列程序的运行机结果是 【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 m
End Sub

【参考答案】

K
<上一题 目录 下一题>
热门 试题

填空题
下列程序的作用是求所有小于或等于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
填空题
有如下程序： Private Sub Command1_Click() j =10 For i= -1 To 1 Step 0.3 j =j + 1 Next i Print j End Sub该程序共循环 【7】 次，程序执行完毕后j的值是 【8】 。
相关试题