VB 连续输入10数字,显示其中奇数的个数和偶数的个数
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/10/05 03:39:36
VB 连续输入10数字,显示其中奇数的个数和偶数的个数
用一个一维数组a就可以解决了
奇数:ai mod 2 =1,则加1
偶数:10-i
再问: 完全小白 求帮助
再答: 新建一个"标准EXE"窗体,拖一个文本框进去,双击,输入如下代码: Private Sub Command1_Click() '在text1中输入10个整数,用空格隔开 Dim a As Integer Dim Even As Integer Dim Odd As Integer End Sub Private Sub Form_Click() Even = 0 Odd = 0 a = Split(Text1, " ") For i = 0 To UBound(a) If a(i) Mod 2 = 0 Then Even = Even + 1 Else Odd = Odd + 1 End If Next Print "奇数个数为:" & Even Print "偶数个数为:" & Odd End Sub Private Sub Form_Load() Text1.Text = "" End Sub 当然,这只是简单的,对输入的数字没有校对提醒功能,如果你要可以自己加.
奇数:ai mod 2 =1,则加1
偶数:10-i
再问: 完全小白 求帮助
再答: 新建一个"标准EXE"窗体,拖一个文本框进去,双击,输入如下代码: Private Sub Command1_Click() '在text1中输入10个整数,用空格隔开 Dim a As Integer Dim Even As Integer Dim Odd As Integer End Sub Private Sub Form_Click() Even = 0 Odd = 0 a = Split(Text1, " ") For i = 0 To UBound(a) If a(i) Mod 2 = 0 Then Even = Even + 1 Else Odd = Odd + 1 End If Next Print "奇数个数为:" & Even Print "偶数个数为:" & Odd End Sub Private Sub Form_Load() Text1.Text = "" End Sub 当然,这只是简单的,对输入的数字没有校对提醒功能,如果你要可以自己加.
VB 连续输入10数字,显示其中奇数的个数和偶数的个数
VB程序设计,输入20个数字,显示其中的奇数个数和偶数个数.
VB编程题:任意输入10个整型数,显示其中奇数和偶数的个数,..
求VB编程:任意输入10个数,求奇数的个数,偶数的和,以及最后一个偶数.
vb 输入10个整数,计算偶数个数 ,奇数和.
输入20个数至数组中,统计其中的奇数个数和偶数的个数
Java输入一系列 数字求奇数、偶数、0的个数
C语言:输入10个整数,求出它们的和,统计其中偶数的个数,输出其中的奇数.
输入10个整数存入数组中,统计其中的奇数和偶数的个数 C++的代码
大学计算机C语言 请输入20个数到数目中,计算其中偶数,奇数的个数和其各自平均值
VB 先有一个框让我输入10个整数,分别计算出 奇数个数和,偶数个数和.
VB:产生30个1-100之间的随机数,统计并输出其中奇数和偶数的个数