vb随机生成10个[-50,50]之间整数,分别统计其中正数之和和负数之和

如题,这是第一题,第二题是实现程序功能是在文本框中输入一个整数n,单击命令按钮,则找出的数字按以下规律排列:每个数是前面2个数之和,最后1个数是满足上述规律的最大的小于n... 如题,这是第一题,第二题是
实现程序功能是在文本框中输入一个整数n,单击命令按钮,则找出的数字按以下规律排列:每个数是前面2个数之和,最后1个数是满足上述规律的最大的小于n的数,第一项和第二项的值为1.如输入10,则显示数字有:2、3、5、8.
拜托了 这2个题
展开
 我来答
涐吢铱舊囿儚
2013-12-14 · TA获得超过488个赞
知道小有建树答主
回答量:512
采纳率:100%
帮助的人:580万
展开全部
'第一题:
Private Sub Command1_Click()
   Dim va As Long, vb As Long
   Dim i As Long, vt As Long
   Me.Cls
   va = 0: vb = 0
   Me.Print "10个整数是:"
   For i = 1 To 10
      vt = Rnd() * 100 - 50
      Me.Print vt;
      If (vt > 0) Then
         va = va + vt
      Else
         vb = vb + vt
      End If
   Next
   Me.Print vbLf & "正数之和: " & va
   Me.Print "负数之和: " & vb
End Sub

'第二题:
Private Sub Command2_Click()
   Dim va As Long, vb As Long
   Dim i As Long, vt As Long
   
   i = Val(Text1)
   Me.Cls
   va = 1: vb = 1
   Do
      vt = vb + va
      If (vt > i) Then Exit Do
      Me.Print vt;
      va = vb: vb = vt
   Loop
End Sub
匿名用户
2013-12-14
展开全部
cvcvxdfxxfdv
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 1条折叠回答
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

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

类别

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

说明

0/200

提交
取消

辅 助

模 式