VB 先有一个框让我输入10个整数,分别计算出 奇数个数和,偶数个数和.请测试好后发上来
来源:学生作业帮 编辑:作业帮 分类:数学作业 时间:2024/07/14 04:18:44
VB 先有一个框让我输入10个整数,分别计算出 奇数个数和,偶数个数和.请测试好后发上来
正确的!
正确的!
什么叫奇数个数和
再问: 就是有 几个 奇数 ,几个 偶数
再答: Option Explicit Private Sub Command1_Click() Dim s As String: s = Text1.Text Dim i As Integer, j As Integer Dim p As Integer, q As Integer Dim a() As String: ReDim a(0) For i = 1 To Len(s) If Mid(s, i, 1) = " " Then j = j + 1 ReDim Preserve a(j) Else a(j) = a(j) & Mid(s, i, 1) End If Next For i = 0 To j If a(i) Mod 2 = 0 Then p = p + 1 Else q = q + 1 End If Next MsgBox "奇数有" & q & "个,偶数有" & p & "个", vbOKOnly, "结果" End Sub
再问: 我输入了 1,2,3,4,5,6,7,8,9,1 结果显示 奇数1个 偶数0个...
再问: 就是有 几个 奇数 ,几个 偶数
再答: Option Explicit Private Sub Command1_Click() Dim s As String: s = Text1.Text Dim i As Integer, j As Integer Dim p As Integer, q As Integer Dim a() As String: ReDim a(0) For i = 1 To Len(s) If Mid(s, i, 1) = " " Then j = j + 1 ReDim Preserve a(j) Else a(j) = a(j) & Mid(s, i, 1) End If Next For i = 0 To j If a(i) Mod 2 = 0 Then p = p + 1 Else q = q + 1 End If Next MsgBox "奇数有" & q & "个,偶数有" & p & "个", vbOKOnly, "结果" End Sub
再问: 我输入了 1,2,3,4,5,6,7,8,9,1 结果显示 奇数1个 偶数0个...
VB 先有一个框让我输入10个整数,分别计算出 奇数个数和,偶数个数和.请测试好后发上来
VB 先有一个框让我输入10个整数,分别计算出 奇数个数和,偶数个数和.
vb 输入10个整数,计算偶数个数 ,奇数和.
由键盘任意输入10个整数,分别计偶数个数,奇数个数,偶数和,奇数和.c语言编程题
求VB编程:任意输入10个数,求奇数的个数,偶数的和,以及最后一个偶数.
VB编程题:任意输入10个整型数,显示其中奇数和偶数的个数,..
VB程序设计,输入20个数字,显示其中的奇数个数和偶数个数.
VB 连续输入10数字,显示其中奇数的个数和偶数的个数
任意输入n个整数,分别统计奇数的和,奇数的个数,偶数的和,偶数的个数.C语言
C语言程序设计: 任意输入n个整数,分别统计奇数的和、奇数的个数、偶数的和、偶数的个数.
c语言编程 数据统计 任意输入n个整数,分别统计奇数的和、奇数的个数、偶数的和、偶数的个数.
使用c语言,如何进行程序设计求任意输入n个整数,分别统计奇数的和、奇数的个数、偶数的和、偶数的个数.