当前位置:三九宝宝网 → 宝宝教育 → 教学论文 → 正文

用VB语言实现求数组中最大元素所在下标及各元素之和请写出程序

更新:01-03 整理:39baobao.com
字体:

[C语言怎么将字符串数组元素进行逆转]#include<stdio.h> #include<stdlib.h> #include<string.h> int main(void) { char str[80]; int i,j; char ch,*p=str; printf("输入字符串:"); gets(str); for(i=0,j=strlen(str...+阅读

窗体添加command1,然后拷贝下面代码

Dim a(4) As Integer

Private Sub Command1_Click()

Dim sum As Integer

Dim i As Integer

Dim maxItem As Integer

For i = 0 To UBound(a())

If maxItem < a(i) Then maxItem = a(i)

sum = sum + a(i)

Next

MsgBox maxItem

MsgBox sum

End Sub

Private Sub Form_Load()

a(0) = 1

a(1) = 3

a(2) = 2

a(3) = 5

a(4) = 4

End Sub

本文地址:https://www.39baobao.com/show/29_22306.html

以上内容来自互联网,请自行判断内容的正确性。若本站收录的信息无意侵犯了贵司版权,请联系我们,我们会及时处理和回复,谢谢.

以下为关联文档:

从键盘输入10个数存入数组把数组中的元素交换成逆序然后输出# include <stdio.h> int main (void) { printf("请输入数字,数字中间以空格隔开。\n"); int a[10]; char ch; int j = 0; for (int k = 0 ; k < 10 ; k++) { scanf("%d%c" , &a[k]...

运用文化传播理论对电影中体现的中国元素其进行分析1 电影主题比较 电影主题,是指电影所蕴含的中心思想,是作品内容的主体和核心。确立主题是—部电影在进行创作时所要面临的第一个问题。由于中西方文化的差异以及两国电影产业...

C或者CC语言中一维数组中的元素相加的问题using System; using System.Collections.Generic; using System.Linq; using System.Text; namespace 随机数组中六个数相加 { class Program { static void Main(string[]...

给一个2 3的二维数组各元素赋值并输出全部元素的值的C语言程序设#include<stdio.h> main(){ int a[2][3]; for(int i=0;i<2;i++) for(int j=0;j<3;j++) scanf("%d",&a[i][j]); for(int i=0;i<2;i++) for(int j=0;j<3;j++) printf("%d",a[i][j]...

C语言中删除一个数组元素main() {int i,n; int a[8]={1,2,3,4,5,6,7,8};/*可以自己定义的,这里为了方便*/ printf("\nthe original array a:"); for(i=0;i<8;i++) printf("%-3d",a[i]); printf("\n"); print...

c语言数组下标越界int a[2]; -- c / c++ 语言中叫它是 “声明”,声明 a 是整型数组,有2个元素。 c / c++ 语言 下标 从0起计。 声明 int a[2]; 它只含 数组元素下标变量 a[0],a[1]。 语句中 写...

C语言统计数组每个元素个数void test() { srand((int)time(0)); int i, j; int a[100]; for( i=0; i<100; i++) { a[i] = (int)(rand() * 10.0 / RAND_MAX); //随机数限定在0~10之间更能看出效果 } //排...

二维数组元素个数怎么算啊!VB语言的求!先说没有option base XX情况: 例如a(一维是3,第二维是4,数组就有(3+1)*(4+1)=20个元素,因为这时下界默认是0,等价于a(0 To 3,0 To 4)。 若是有option base XX,例如option base 1,a(3,...

用VB语言实现求数组1 2 3 4 5 6中最大元素所在下标及各元素之和请Dim PD (1 To 5) As Long Dim Max,I,Sam,Mark As Long Max=LBound(PD) Mark=1 For I = 1 To Max If PD(I) >PD(Mark) Then Mark = I End If Msgbox "最大的数的下标为:" & Mark...