VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 1628|回复: 3

【请教】关于一道简单题

[复制链接]
发表于 2021-2-1 12:04:52 | 显示全部楼层 |阅读模式
题目要求是添加两个text控件与两个command控件,要求按下command1时text1上显示出5个100-300之间的随机数,按下command2时text2上显示这五个数中偶数之和。
 楼主| 发表于 2021-2-1 12:06:23 | 显示全部楼层
本帖最后由 Mr.TJSCbest 于 2021-2-1 12:07 编辑
  1. Dim a(0 To 4), b(0 To 4) As Integer

  2. Private Sub Command1_Click()
  3.    Randomize
  4.    a(0) = Int(Rnd * (300 - 100 + 1)) + 100
  5.    a(1) = Int(Rnd * (300 - 100 + 1)) + 100
  6.    a(2) = Int(Rnd * (300 - 100 + 1)) + 100
  7.    a(3) = Int(Rnd * (300 - 100 + 1)) + 100
  8.    a(4) = Int(Rnd * (300 - 100 + 1)) + 100
  9.    Text1 = a(0) & " " & a(1) & " " & a(2) & " " & a(3) & " " & a(4)
  10. End Sub

  11. Private Sub Command2_Click()
  12.    Select Case 1
  13.    Case a(0) Mod 2 = 0
  14.    b(0) = a(0)
  15.    Case a(1) Mod 2 = 0
  16.    b(1) = a(1)
  17.    Case a(2) Mod 2 = 0
  18.    b(2) = a(2)
  19.    Case a(3) Mod 2 = 0
  20.    b(3) = a(3)
  21.    Case a(4) Mod 2 = 0
  22.    b(4) = a(4)
  23.    End Select
  24.    Text2 = b(0) + b(1) + b(2) + b(3) + b(4)
  25.    End Sub

  26. Private Sub Form_Load()
  27.    Command1.Caption = "摇随机数"
  28.    Command2.Caption = "求偶数和"
  29.    Label1 = "5个100—300的随机数"
  30.    Label2 = "偶数之和"
  31.    Text1 = ""
  32.    Text2 = ""
  33. End Sub
复制代码
回复 支持 反对

使用道具 举报

 楼主| 发表于 2021-2-1 12:08:48 | 显示全部楼层

完全是小白,command2为什么跑不起来?
回复 支持 反对

使用道具 举报

发表于 2021-2-1 13:34:59 | 显示全部楼层
写的什么鬼代码
遍历 a(0) to a(4) 然后mod上2,加起来就好了
  1. Private Sub Command2_Click()
  2.     Sum = 0
  3.     For i = 0 To 4
  4.         Sum = Sum + IIf(a(i) Mod 2, 0, a(i))
  5.     Next
  6.     Text2 = Sum
  7. End Sub
复制代码
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2021-9-23 02:08

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表