当前位置: > 韩信点兵问题,士兵人数在100到200之间,3人排队余1人,5人排队余2人,7人排队余5人,求总人数的vb设计...
题目
韩信点兵问题,士兵人数在100到200之间,3人排队余1人,5人排队余2人,7人排队余5人,求总人数的vb设计
希望各位在2周内能帮我做出来.

提问时间:2021-03-31

答案
看来你是新手啊,你在窗体上添加一个command 和一个text,其它什么也不用管了,然后输入以下代码就可以了.
Dim 士兵人数 As Integer
Private Sub Command1_Click()
For 士兵人数 = 100 To 200
If 士兵人数 Mod 3 = 1 And 士兵人数 Mod 5 = 2 And 士兵人数 Mod 7 = 5 Then
Text1.Text = "满足条件的士兵数为:" & 士兵人数
End If
Next
End Sub
Private Sub Form_Load()
Command1.Caption =
Text1.Text = ""
End Sub
举一反三
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
1,人们染上烟瘾,最终因吸烟使自己丧命.
版权所有 CopyRight © 2012-2019 超级试练试题库 All Rights Reserved.