VB 编程：输入若干个正整数，记录并输出偶数的个数，知道输入-1为止程序有谁会，帮个忙。

显示全部楼层 · 2012-8-24 14:52:07

'这个我试过了,可以用Option ExplicitPrivate Sub Command1_Click()
Dim a(100) As Integer
Dim i As Integer
Dim icount As Integer
'统计输入次数
Dim c(100) As Integer
Dim jCOUNT As Integer
'统计偶数个数
Dim aa As String
Dim b As Integer
Do
a(icount) = Val(InputBox("这是第" + CStr(icount + 1) + ...

千问 · 2012-8-24 14:52:07

Private Sub Command1_Click()Dim r As IntegerDim c As IntegerWhile Truer = Val(InputBox("Input a Number"))If r = -1 ThenMsgBox "偶数个数:" & c, vbInformation, "偶数个数"Exit S...

VB 编程：输入若干个正整数，记录并输出偶数的个数，知道输入-1为止 程序有谁会，帮个忙。

VB 编程：输入若干个正整数，记录并输出偶数的个数，知道输入-1为止程序有谁会，帮个忙。