如何用vb编写程序实现输入10个整数输出所有偶数?

发布网友发布时间：2023-08-18 20:31

共2个回答

热心网友时间：2024-12-02 16:10

Private Sub Command1_Click()

Dim a(10) As Integer

Print "输入的整数是："

For i = 1 To 10

a(i) = InputBox("请输入第" & i & "个整数：")

Print a(i);

Next i

Print "其中的偶数是："

For i = 1 To 10

If a(i) Mod 2 = 0 Then Print a(i);

Next i

End Sub

热心网友时间：2024-12-02 16:11

这输入出来直接是偶数和很多种

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com