绑定手机号

应国家法规对于账号实名的要求,请您在进行下一步操作前,需要先完成手机绑定 (若绑定失败,请重新登录绑定)。了解更多

不绑定绑定手机号

360官网 | 360商城

推荐论坛版块活动众测积分兑换常见问题

vb 向大神求助

2016-6-21 17:31 | 复制链接
1 949
Private Sub Command1_Click()
Dim a%(), n%, i%
n = Val(InputBox(\"输入n的值\", \"输入n值应在20至100之间,含20和100\"))
ReDim a(n) As Integer
Print \"n\" & \"个随机整数\"
For i = 1 To n
a(i) = Int(90 * Rnd + 10)
Print a(i);
If i Mod 10 = 0 Then Print
Next i
End Sub
Private Sub Command2_Click()
Dim a%(), b%(), c%(), n%, m%, k%, l%, i%
For i = 1 To n
If a(i) Mod 2 <> 0 Then
k = k + 1
ReDim Preserve b(i)
b(k) = a(i)
End If
Next i
Call bsort(b, k)
Print

Print k & \"个奇数\"
For i = 1 To k
Picture1.Print b(i);
If i Mod 10 = 0 Then Picture1.Print
Next i
For i = 1 To n
If a(i) Mod 2 = 0 Then
m = m + 1
ReDim Preserve c(m)
c(m) = a(i)
End If
Next i
Call csort(c, m)
Print

Print m & \"个偶数\"
For i = 1 To m
Label1.Caption = Label1.Caption & c(i) & Space(2)
If i Mod 10 = 0 Then
Print
Label1.Caption = Label1.Caption & vbCrLf
End If
Next i
End Sub
Sub bsort(b() As Integer, l As Integer)
Dim a%(), n%, i%, j%, t%
For i = 1 To l - 1
For j = i + 1 To l
If b(i) > b(j) Then
t = b(i)
b(i) = b(j)
b(j) = t
End If
Next j
Next i
End Sub
Sub csort(c() As Integer, m As Integer)
Dim a%(), n%, i%, q%, t%
For i = 1 To m - 1
For q = 1 To m - i
If c(q) < c(q + 1) Then
t = c(q)
c(q) = c(q + 1)
c(q + 1) = t
End If
Next q
Next i
End Sub
Private Function isprime(o As Integer) As Boolean
Dim a%(), n%
Dim y As Integer
If o <= 1 Then isprime = False: Exit Function
isprime = True
For y = 2 To Sqr(o)
If o Mod y = 0 Then isprime = False: Exit Function
Next y
End Function
Private Sub Command3_Click()
Dim a%(), d%(), n%, i%, z%, p%
For i = 1 To n
If isprime(a(i)) Then
z = z + 1
ReDim Preserve d(z)
d(z) = a(i)
End If
Next i
For i = 1 To z
Text1.Text = Text1.Text & d(i) & Space(2)
If i Mod 10 = 0 Then
Print
Text1.Text = Text1.Text & vbCrLf
End If
Next i
For i = 1 To z
p = 0
Do While i <= z
p = p + d(i)
i = i + 1
Loop
Print

Print z & \"个素数\"
Text1.Text = Text1.Text & vbCrLf
Text1.Text = Text1.Text & \"素数的和是: \" & p
Next i
End Sub
Private Sub Command4_Click()
End
End Sub


共 1 个关于vb 向大神求助的回复 最后回复于 2016-6-21 19:07

评论

直达楼层

七喜先生 VIP认证 超级版主 发表于 2016-6-21 19:07 | 显示全部楼层 | 私信
如果朋友在此没有征集到好的回答,建议这位朋友去360问答社区(http://wenda.so.com/)相关分类中征集回答,360问答社区的平台上不但有非常多的热心网友和牛人们能帮助到你!同时有了满意答案后还能帮助到其他不懂这个问题的人!同时朋友还可以去论坛的相关专业分类版块进行咨询!感谢朋友对360问答支持!友情提示,悬赏征集会助于你问题的快速解决!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

360fans71466484 LV1.上等兵

粉丝:1 关注:0 积分:3

精华:0 金币:2 经验:2

最后登录时间:2016-6-21

360商城青铜会员

私信 加好友

最新活动

种草有奖|360安全卫士极速版2.0来啦!种草

排行榜

热度排行 查看排行
今日 本周 本月 全部
    今日 本周 本月 全部

      内容推荐 热门推荐最新主帖

      关注360粉丝团,了解最新活动,抽锦鲤大奖,还有在线客服小姐姐等你来撩哦~

      快速回复 返回顶部 返回列表