帮我做VB作业1.找出10-30范围内的所有偶数,并将这些偶数显示在窗体上.2.找出10-30范围内的所有非素数,将所有非素数相加后的结果显示在窗体上.

来源：学生作业帮助网 编辑：六六作业网 时间：2025/01/30 15:51:56
帮我做VB作业1.找出10-30范围内的所有偶数,并将这些偶数显示在窗体上.2.找出10-30范围内的所有非素数,将所有非素数相加后的结果显示在窗体上.帮我做VB作业1.找出10-30范围内的所有偶数

帮我做VB作业1.找出10-30范围内的所有偶数,并将这些偶数显示在窗体上.2.找出10-30范围内的所有非素数,将所有非素数相加后的结果显示在窗体上.
帮我做VB作业
1.找出10-30范围内的所有偶数,并将这些偶数显示在窗体上.
2.找出10-30范围内的所有非素数,将所有非素数相加后的结果显示在窗体上.

帮我做VB作业1.找出10-30范围内的所有偶数,并将这些偶数显示在窗体上.2.找出10-30范围内的所有非素数,将所有非素数相加后的结果显示在窗体上.
Private Sub Form_Click()
Dim i As Integer
Dim j As Integer
Dim s As Integer
s = 0
For i = 10 To 30
If i Mod 2 = 0 Then
Print i;
End If
Next i
Print
For i = 10 To 30
For j = 2 To i \ 2
If i Mod j = 0 Then
s = s + i
End If
Next j
Next i
Print "10到30内的非素数之和为： "; s
End Sub

帮我做VB作业1.找出10-30范围内的所有偶数,并将这些偶数显示在窗体上.2.找出10-30范围内的所有非素数,将所有非素数相加后的结果显示在窗体上. 帮我做作业 VB作业怎么做 找出三位数范围内所有回文数 VB程序 帮我数学做作业 帮我做下作业. 急求VB编程：找出指定范围内本身及其平方数均由不同数字组成的整数. 能不能帮我做个VB简单的计算公式,谢谢 谁能帮我设计一个简单的VB事件我作业 帮我看看孩子作业做的对吗 急等 找出句子中存在的问题并改正.1.冬天里暖和的微风吹拂着我.2.我的作业做完了,还有一道题目没做. 谁会帮我做作业,我六年级 今天作业好多,帮我做下 帮我做暑假作业吧! 帮我做一下 写不完作业了 帮我做作业英语怎么说 那个来帮我做作业 有没有人帮我做作业?