以下程序的功能是:生成20个200到300之间的随机整数 输出其中能被5整除的数并求出它们的和。请填
以下程序的功能是:生成20个200到300之间的随机整数,输出其中能被5整除的数并求出它们的和。请填空。 Private Sub Command1_Click( ) For i=1 To 20 x=Int(【 】*100+200) If【 】=0 Then Print x S=S+【 】 End lf Next i Print"Sum=";S End Sub
请帮忙给出正确答案和分析,谢谢!
参考解答
正确答案:Rnd或Rnd(n)其中n为任意整数 x Mod 5或Int(x/5)-x/5或x-/5-CInt(x/5)或CInt(x/5)-x/5或x/5-CInt(x/5)或Round(x/5)-x/5或x/5-Round(x/5)或x-(x\5)*5或(x\5)*5 -x或Fix(x/5)-x/5或x/5-Fix(x/5) x
由于要生成随机数,所以要使用VisualBasic内部函数Rnd或Rnd(n),表示生成0~1之间的随机数。对于[7,“xMod5”表示变量x是否能被5整除,如果余数为0,则可以被整除,本题答案其他项为等价项。[8处填“x”表示对符合要求的x进行叠加。
相似问题
以下程序的功能是:把当前目录下的顺序文件smtextl.txt的内容读入内存 并在文本框Texd中显
以下程序的功能是:把当前目录下的顺序文件smtextl txt的内容读入内存,并在文本框Texd中显示出来。请填空。 Pfivme Sub Commandl_Click( ) Dim in
Text文本框接受的最长字符数由文本框的______属性确定。请帮忙给出正确答案和分析 谢谢!
Text文本框接受的最长字符数由文本框的______属性确定。请帮忙给出正确答案和分析,谢谢!
设有如下程序 查找并输出该数组中的最小值 请在空白处填上合适的代码 将程序补充完整。 Option
设有如下程序,查找并输出该数组中的最小值,请在空白处填上合适的代码,将程序补充完整。 Option Base 1 Private Sub Command1_Click() Dim arr
列表框的List属性返回______。请帮忙给出正确答案和分析 谢谢!
列表框的List属性返回______。请帮忙给出正确答案和分析,谢谢!
数据是信息的符号表示 又称载体;信息是数据的【 】。请帮忙给出正确答案和分析 谢谢!
数据是信息的符号表示,又称载体;信息是数据的【 】。请帮忙给出正确答案和分析,谢谢!
