填空题
下面程序的作用是利用随机函数产生10个100~200之间(包含100、200)的随机数,打印其中是5的倍数的数,并求出它们的总和。请将下列程序补充完整。
Private Sub Command1_Click()
For m=1 To 10
x=Int(Rnd *______)
If Then
Print x;
k1=k1+x
End If
Next m
Print"k1=";k1
End Sub
【参考答案】
101+100;x Mod 5=0
点击查看答案&解析
<上一题
目录
下一题>
热门
试题
填空题
菜单编辑器可以分为3部分,即数据区、编辑区和______。
点击查看答案&解析
填空题
以下程序的功能是将多维数组a(1 To m,1 To n)中的元素转移到一个名为b(1 To n)的一维数组中,请填写空白处,完成该程序。 Option Base 1 Private Sub Command1_Click() Dim a(1 To 4,1 To 5) Dim b() ReDim______ For i=1 To 4 For j=1 To 5 a(i,j)=i*j Next i Next i Call Transf(a,4,5,B) End Sub Sub Trasf(a(),m,n,b()) Dim x As Integer x=1 For i=1 To m For i=1 To n b(x)=______ x=x+1 Next i Next i End Sub
点击查看答案&解析
相关试题
下列程序功能为:弹出一个对话框询问用户是...
以下程序在文本框Text1中输入任一字符串,...