VB题：定义一个具有20个元素的一维数组,并对其随机赋值,然后求出其中元素值为奇数的元素的和

来源：学生作业帮编辑：搜狗做题网作业帮分类：综合作业时间：2024/07/03 03:25:53

20个元素,每5个打印一行
Private Sub Command1_Click()
Dim a(20) As Integer,s As Integer
For i = 1 To 20
a(i) = Int(Rnd * 1000) + 1
Print a(i);
If i Mod 5 = 0 Then Print
Next i
For i = 1 To 20
If a(i) Mod 2 0 Then
s = s + a(i)
End If
Next i
Print " 奇数和为：" & s
End Su

盯义一个具有六个元素的一维数组,给它的每一个元素分别赋值为：10,100,20,5,15,30.然后求出该数组 vf 题,定义一个20行10列的2维数组AA,并给A的元素赋值,要求第11和第12个元素的值为1,其他所有元素的值为.F 几道VB题1编程题：.从键盘上输入20个数放入一个一维数组中,并输入数组各元素的值,然后将数组中20个元素的最大值和最小定义一个int型的一维数组,包含10个元素,分别赋一些随机整数,然后求出所有元素的最大值,最小值定义一整形数组,给30个元素赋值,数组的前两个元素值为1和2,后面的元素值等于其前面的两个元数值的和定义一个数组,十个元素,并对它们赋值,请求出最大的元素的值,及所在的置定义一个有4个元素的数组,并将0、1、2、3、4赋值给数组,扩充数组为6个元素定义一个含有8个元素的整形数组,分别赋值为23,14,36,1,-4,388,90,2000,找出其中最小的值,并输出定义一个整形数组,求出数组元素的和,数组元素的最大值和最小值,并输出所求的结按如下要求编制程序：（1）定义一个函数,其功能是对具有n个元素的数组a,统计其中元素的值等于x的个数,并将此个数作为函数 vb编写程序：一个具有10个元素的一维数组,下标从1到10,要求用inputbox从键盘上输入其元素值,并找出最小的那个定义长度为10的一维整形数组,并从键盘给每一个元素赋值,并输出到屏幕,每行显示5个数字