vb编程怎么写？
1个回答
展开全部
Private Sub Command1_Click()
Dim x As Integer
ji = 0
ou = 0
For i = 1 To 10
x = InputBox("请输入第" & i & "个整数：")
If x Mod 2 = 1 Then ji = ji + 1 Else ou = ou + 1
Next i
Text1 = "奇数 " & qi & " 个，偶数 " & ou & " 个"
End Sub
Dim x As Integer
ji = 0
ou = 0
For i = 1 To 10
x = InputBox("请输入第" & i & "个整数：")
If x Mod 2 = 1 Then ji = ji + 1 Else ou = ou + 1
Next i
Text1 = "奇数 " & qi & " 个，偶数 " & ou & " 个"
End Sub
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
