VB 数组中求奇数最大值
答案:2 mip版
解决时间 2021-01-17 18:08
- 提问者网友：非莪莫属
- 2021-01-16 18:45
我的程序要求生成100以内的正整数100个形成数组A，这个我会做，，放在文本框中，然后怎么样才能单击命令按钮求出数组畅俯扳谎殖荷帮捅爆拉中最大的奇数啊？ 问题补充：Option Explicit Dim a(1 To 10, 1 To 10) As Integer Private Sub Command1_Click() Dim i畅俯扳谎殖荷帮捅爆拉 As Integer, j As Integer Randomize Text1 = "" For i = 1 To 10 For j = 1 To 10 a(i, j) = Int(Rnd * 100 + 1) Next j Next i For i = 1 To 10 For j = 1 To 10 Text1.Text = Text1.Text & a(i, j) & Space(3) Next j Text1.Text = Text1.Text & vbCrLf Next i End Sub 这是我写的前一部分，请按这个接着编写Command2求最大奇数的生成代码
最佳答案
- 二级知识专家网友：可爱暴击
- 2021-01-16 19:04
Private Sub Command2_Click()
Dim i, j, max As Integer
max = a(1, 1)
For i = 1 To 10
For j = 1 To 10If (a(i, j) Mod (2) <> 0) Then
If (a(i, j) > max) Then
max = a(i, j)
End If
End If
Next j
Next i
Print max
End Sub
你上面用text是只能显示最后10个数的，要全部显示还是要用到listview的。
Dim i, j, max As Integer
max = a(1, 1)
For i = 1 To 10
For j = 1 To 10If (a(i, j) Mod (2) <> 0) Then
If (a(i, j) > max) Then
max = a(i, j)
End If
End If
Next j
Next i
Print max
End Sub
你上面用text是只能显示最后10个数的，要全部显示还是要用到listview的。
全部回答
- 1楼网友：看厌了山川
- 2021-01-16 19:25
输入的是两个变量，vi和vj（要注意的是vi和vj中的i与j只是字母，是不变的vi是一个整体就相当于v，vj也是一个整体相当于w。不要和变量i 搞混掉。）
输出的是循环结束后的i和sumi。
具体如下：
输入vi：就是输入的最大的数的范围，比如我们要求1到100内的奇数的和，那么vi就是100。
输入vj：就是所求范围内奇数的和不超过这个范围中的一个数，比如vi是100的话，那么vj你只能取100内数，如50。
输出i：就是参与计算的奇数个数。
输出sumi，就是所有满足条件的奇数的和。
整个程序实现这样一个功能：
从1到vi这么多个奇数之中，特取其中一个数vj，使他们的和不超过vj，这样的奇数有多少个（i个），这些奇数的和是多少（sumi）。
我要举报
如以上问答内容为低俗/色情/暴力/不良/侵权的信息，可以点下面链接进行举报，我们会做出相应处理，感谢你的支持！
点此我要举报以上问答信息
推荐资讯