计算机VB题 在窗体的click事件中编写程序:利用随机函数Rnd生成N个[10,100]之间的整数,

将他们在窗体上输出,并统计其中偶数的个数和奇数的个数并显示在窗体上面... 将他们在窗体上输出,并统计其中偶数的个数和奇数的个数并显示在窗体上面 展开
 我来答
听不清啊
高粉答主

2014-05-14 · 说的都是干货,快来关注
知道顶级答主
回答量:7.8万
采纳率:89%
帮助的人:1.9亿
展开全部

所要的程蚂键序如山宏下:

Private Sub Form_Click()

  n = Val(InputBox("N="))

  Print n; "个随机数:"

  For i = 1 To n

    x = 10 + Int(90 * Rnd)

    Print x;

    If i Mod 10 = 0 Then Print

    If x Mod 2 = 0 Then ou = ou + 1 Else ji = ji + 1

  Next i

  Print

  Print "闷唯巧其中偶数有"; ou; "个,奇数有"; ji; "个"

End Sub

推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式