求:编vb小程序

55关注473浏览

内容:利用随即函数产生80个10~99之间的随机整数,将其中的奇数和偶数分别按由大到小的水徐排列并输出。在产生的80个随机整数中,找出其中的素数,并将这些素数求和。
要求:将随机产生的80个整数存入数组,按每行10个数输出到窗体
偶数和奇数也分别存入数组,将排练好序的偶数和奇数分别输出到窗体

展开全部
收起
3回答
提交回答
  • 至过去的我

    2044人对此回答表示赞同

    我是未来的你,你现在是不是在年找寻小程序答案。你不要感觉诧异,给你来信原因,就是让你不在后悔。今天去学习如何推广小程序,相信......点击查看更多>
    发布于
  • Andrew

    19人对此回答表示赞同

    学习
    展开
    19
    0回复
    发布于 5年前

    评论(0)

    收起评论

  • Alvaro

    15人对此回答表示赞同

    Option Base 1
    Dim a%(80), i%, k%, t%, b%(80), c%(80)
    Private Sub Command1_Click()
    Me.Cls
    Dim j As Integer
    Randomize
    t = 1
    k = 1
    For i = 1 To 80
    a(i) = Int(Rnd * 90) + 10
    展开
    15
    0回复
    发布于 5年前

    评论(0)

    收起评论

  • Liam

    2人对此回答表示赞同

    '判断是否为素数的函数
    Function IsSuShu(ByVal shuzi) As Boolean
    Dim i As Long
    Dim b As Boolean
    b = True
    For i = 2 To shuzi - 1
    If shuzi Mod i = 0 Then
    b = False
    Exit For
    展开
    2
    0回复
    发布于 5年前

    评论(0)

    收起评论

A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
咨询热线

13312967497

扫码添加业务即可随时咨询 还可领取小程序推广攻略

业务咨询: 13312967497
扫码咨询

扫码咨询套餐

回到顶部