CAD程序设计作业 从键盘任意输入一个长度为10的实型数组,判断其中大于0、小于0和等于0的元素个数CAD程序设计作业从键盘任意输入一个长度为10的实型数组,判断其中大于0、小于0和等于0的元
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/15 02:27:15
![CAD程序设计作业 从键盘任意输入一个长度为10的实型数组,判断其中大于0、小于0和等于0的元素个数CAD程序设计作业从键盘任意输入一个长度为10的实型数组,判断其中大于0、小于0和等于0的元](/uploads/image/z/14825292-60-2.jpg?t=CAD%E7%A8%8B%E5%BA%8F%E8%AE%BE%E8%AE%A1%E4%BD%9C%E4%B8%9A+%E4%BB%8E%E9%94%AE%E7%9B%98%E4%BB%BB%E6%84%8F%E8%BE%93%E5%85%A5%E4%B8%80%E4%B8%AA%E9%95%BF%E5%BA%A6%E4%B8%BA10%E7%9A%84%E5%AE%9E%E5%9E%8B%E6%95%B0%E7%BB%84%2C%E5%88%A4%E6%96%AD%E5%85%B6%E4%B8%AD%E5%A4%A7%E4%BA%8E0%E3%80%81%E5%B0%8F%E4%BA%8E0%E5%92%8C%E7%AD%89%E4%BA%8E0%E7%9A%84%E5%85%83%E7%B4%A0%E4%B8%AA%E6%95%B0CAD%E7%A8%8B%E5%BA%8F%E8%AE%BE%E8%AE%A1%E4%BD%9C%E4%B8%9A%E4%BB%8E%E9%94%AE%E7%9B%98%E4%BB%BB%E6%84%8F%E8%BE%93%E5%85%A5%E4%B8%80%E4%B8%AA%E9%95%BF%E5%BA%A6%E4%B8%BA10%E7%9A%84%E5%AE%9E%E5%9E%8B%E6%95%B0%E7%BB%84%2C%E5%88%A4%E6%96%AD%E5%85%B6%E4%B8%AD%E5%A4%A7%E4%BA%8E0%E3%80%81%E5%B0%8F%E4%BA%8E0%E5%92%8C%E7%AD%89%E4%BA%8E0%E7%9A%84%E5%85%83)
CAD程序设计作业 从键盘任意输入一个长度为10的实型数组,判断其中大于0、小于0和等于0的元素个数CAD程序设计作业从键盘任意输入一个长度为10的实型数组,判断其中大于0、小于0和等于0的元
CAD程序设计作业 从键盘任意输入一个长度为10的实型数组,判断其中大于0、小于0和等于0的元素个数
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 Sub