填空题
以下程序的功能是:生成20个200~300之间的随机整数,输出其中能被5整除的数并求出它们的和。请填空。 Private Sub Command1 _Click( ) For i = 1 To 20 x=Int(
【11】
*200+ 100) If
【12】
= 0 Then Print x S = S +
【13】
End If Next I Print "Sum = "; S End Sub
【参考答案】
[11]Rnd [12]x Mod 5 [13]x
点击查看答案&解析
<上一题
目录
下一题>
热门
试题
填空题
设有以下程序:Option Base 1Private Sub Command1_Click( )Dim arr1 ,Max as Integerart1 = Array(12,435,76,24,78,54,866,43)【14】 = arr1(1)For i = 1 To 8If arrl(i)>Max Then 【15】 Next iPrint 最大值: ; MaxEnd Sub以上程序的功能是:用Array函数建立一个含有8个元素的数组,然后查找并输出该数组中元素的最大值。
点击查看答案&解析
填空题
单击窗体上的命令按钮Command1, 【10】 Private Sub Command1_Click()a= 10 b=20c=Val(a) +bPrint cEnd Sub
点击查看答案&解析
相关试题
用于动态地在菜单中增加菜单项的语句是 _...
执行如下语句: a = InputBox( Today...
在按下任意一个鼠标按钮时被触发的事件是 ...
表示窗体名称的属性是 ______。
设窗体上有一个列表框控件List1,且其中含...