| 网站首页 | 业界新闻 | 群组 | 人才 | 技术文章 | 下载频道 | 博客 | 代码贴 | 编程论坛
绝地游戏外挂辅助教学千里之行 始于足下
共有 257 人关注过本帖
标题:一道vb编程题,求解。
只看楼主 收藏
qq2541213430
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2017-11-22
结帖率:100%
  已结贴   问题点数:10  回复次数:9   
一道vb编程题,求解。
声明一个有10个元素的一维数组,使用inputbox函数为其所有元素赋值,然后将其中最小元素的值及其下标显示出来。     求解  这到题怎么编
2017-11-26 21:01
xyxcc177
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:16
帖 子:87
专家分:381
注 册:2017-7-8
  得分:10 
程序代码:
Sub ss()
Dim i(10)  As Integer
Dim minValue As Integer
Dim num As Integer
Dim k As Integer
For k = 0 To 9
i(k) = InputBox("请输入数字: ", "测试 ", 0)
Next
  minValue = i(0)
 num = 0
 For k = 1 To 9
   If i(k) < minValue Then
    minValue = i(k)
    num = k
    End If
 Next

MsgBox "最小的数是:" & minValue & ",下标是:" & num

End Sub
2017-11-26 21:40
qq2541213430
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2017-11-22
  得分:0 
回复 2楼 xyxcc177
谢谢
2017-11-26 21:45
qq2541213430
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2017-11-22
  得分:0 
回复 2楼 xyxcc177
怎么显示出来啊
2017-11-26 21:48
xiangyue0510
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:79
帖 子:826
专家分:4857
注 册:2015-8-10
  得分:0 
最简单的冒泡法。就是认真学了两个小时都应该会了。都不学习也不用脑子么
2017-11-26 23:25
qq2541213430
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2017-11-22
  得分:0 
回复 5楼 xiangyue0510
纯小白,老师也没有教  叫我自己做  我能怎么办 我也很绝望
2017-11-27 19:23
wp231957
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:神界
等 级:版主
威 望:366
帖 子:12471
专家分:49080
注 册:2012-10-18
  得分:0 
回复 6楼 qq2541213430
有教材 有度娘  管他老师教不教 有关系吗

DO IT YOURSELF !
2017-11-27 19:28
qq2541213430
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2017-11-22
  得分:0 
回复 7楼 wp231957
是是是,大佬说什么就是什么
2017-11-27 20:11
xyxcc177
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:16
帖 子:87
专家分:381
注 册:2017-7-8
  得分:0 
回复 4楼 qq2541213430
你运行程序不就显示出来了吗?
2017-11-27 20:57
qq2541213430
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2017-11-22
  得分:0 
回复 9楼 xyxcc177
运行不起来
2017-11-27 21:26







关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.609204 second(s), 8 queries.
Copyright©2004-2017, BCCN.NET, All Rights Reserved