用VB语言实现求数组1 2 3 4 5 6中最大元素所在下标及各元素之和,请写出程序语言,谢谢!!急急。。。

[复制链接]
查看11 | 回复1 | 2011-5-17 04:40:39 | 显示全部楼层 |阅读模式
回复

使用道具 举报

千问 | 2011-5-17 04:40:39 | 显示全部楼层
DimPD(1To5)AsLong
DimMax,I,Sam,MarkAsLong
Max=LBound(PD)
Mark=1
ForI=1ToMax
IfPD(I)PD(Mark)Then
Mark=I
EndIf
Msgbox\"最大的数的下标为:\"defds123Mark
Msgbox\"元素之和为:\"defds123Sam

Sam=SamPD(I)
Next
回复

使用道具 举报

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

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行