作业帮CAD程序设计作业 从键盘任意输入一个长度为10的实型数组,判断其中大于0、小于0和等于0的元素个数
来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/07/08 09:38:30
CAD程序设计作业 从键盘任意输入一个长度为10的实型数组,判断其中大于0、小于0和等于0的元素个数
CAD程序设计作业
从键盘任意输入一个长度为10的实型数组,判断其中大于0、小于0和等于0的元素个数
CAD程序设计作业
从键盘任意输入一个长度为10的实型数组,判断其中大于0、小于0和等于0的元素个数
Sub kkk()
Dim vr(9) As Double
Dim n As Integer
n = 0
Dim m As Integer
m = 0
Dim mn As Integer
mn = 0
For i = 0 To 9
Dim a As Integer
a = ThisDrawing.Utility.GetInteger("请输入一个整数：" & vbLf)
vr(i) = a
If a > 0 Then
n = n + 1
End If
If a = 0 Then
m = m + 1
End If
If a < 0 Then
mn = mn + 1
End If
Next
Dim vrst As String
For j = 0 To 9
vrst = vrst & vbLf & vr(j)
Next
str1 = "大于0的数有：" & n & "个" & vbLf & "等于0的数有：" & m & "个" & vbLf & "小于0的数有：" & mn & "个"
MsgBox "你输入的数依次为：" & vbLf & vrst & vbLf & str1
End Su
Dim vr(9) As Double
Dim n As Integer
n = 0
Dim m As Integer
m = 0
Dim mn As Integer
mn = 0
For i = 0 To 9
Dim a As Integer
a = ThisDrawing.Utility.GetInteger("请输入一个整数：" & vbLf)
vr(i) = a
If a > 0 Then
n = n + 1
End If
If a = 0 Then
m = m + 1
End If
If a < 0 Then
mn = mn + 1
End If
Next
Dim vrst As String
For j = 0 To 9
vrst = vrst & vbLf & vr(j)
Next
str1 = "大于0的数有：" & n & "个" & vbLf & "等于0的数有：" & m & "个" & vbLf & "小于0的数有：" & mn & "个"
MsgBox "你输入的数依次为：" & vbLf & vrst & vbLf & str1
End Su
CAD程序设计作业 从键盘任意输入一个长度为10的实型数组,判断其中大于0、小于0和等于0的元素个数
VF程序设计编程问题1,从键盘上任意输入10个数,分别求出其中的奇数的积和偶数的和.2.,从键盘任意给定一串字符,分别统
从键盘上任意输入6个数赋值给数组a[2][3],利用指针变量输出数组的各元素的地址和数值.程序执行结果为：
MATLAB,产生1个一维数组,元素在0到10之间的随机数组A ,用关系和逻辑运算找出其中小于7大于3的元素
几道VB题1编程题：.从键盘上输入20个数放入一个一维数组中,并输入数组各元素的值,然后将数组中20个元素的最大值和最小
从键盘任意输入10个整数,将其中最大数与最小数的位置对换,然后输出对换后的10个数.[提示：用一维数组
编程实现从键盘任意输入10个整数,统计其中奇数的个数,并计算这些奇数的和.
VB程序设计,从键盘任意输入一个X的值,求以下分段函数的值:（30分）：Y=X+2(X>0) Y=0(X=0) Y=X2
四、程序设计题（每题10分,1、（10分）从键盘任意输入一个4位数x,编程计算x的每一
首先输入一个大于2且小于10的整数n,然后定义一个二维整形数组（n*n）,初始化该数组,将数组中最大元素所在的行和最小元
C语言 从键盘上输入10个数据,求出该10个数据的总和、平均值及大于平均值数据的个数（用数组完成）.
VBA程序设计代码,输入一个大于一的整数,然后分别计算从0到该数之间的奇数和和偶数和,怎么设计?如图