VB:求出100以内所有素数的和，并将结果输出到窗体上，并存入所给变量SUM中

Private Sub Command1_Click()
Dim i As Integer
Dim sum As Integer

For i = 1 To 100
If Prime(i) Then
sum = sum + i
End If
Next
Print "100以内所有素数的和是" & sum
End Sub

Private Function Prime(ByVal n As Integer) As Boolean
Dim i As Integer

If n < 2 Then
Prime = False
Exit Function
End If
For i = 2 To Sqr(n)
If n Mod i = 0 Then
Prime = False
Exit Function
End If
Next
Prime = True
End Function

这完全不需要所谓高手
~
~
~
~

Dim i As Integer， j As Integer， k As Integer， su As Integer。

For i = 100 To 300。

For j = 2 To Int(Sqr(i))。

If i Mod j = 0 Then。

扩展资料

vb.net 特性：

1、vb.net 完全集成到 Visual Studio 集成开发环境中，在这种集成开发环境与 VB 在若干方面有差异。主要体现在窗体的布局以及菜单等方面都有所不同。

2、vb.net 项目与 VB 不同。它使用基于文件夹的模型，所有项目均放置在项目文件夹层次结构中。

3、vb.net 中使用ado.net来访问数据库，ado.net是.netFramework的一部分。在 vb.net 中实现数据访问的方法主要有两种。

其一是在程序设计阶段，通过创建、配置数据适配器 DataAdapter 和生成数据集 DataSet；其二是在运行中，通过编程方式动态创建配置数据适配器和创建、生成数据集。