VB实验2

【实验3-6】素数问题：计算小于1000且最靠近1000的10个素数之和。掌握素数算法，可用其它循环语句编写、对比。

实验结果：

【请将你的代码粘贴到下面】 Private Sub Command1_Click()

Dim n%, sum#, k% n = 999

Do While k <> 10 '判断n是否是素数 For j = 2 To n - 1

If n Mod j = o Then Exit For Next j

If j > n - 1 Then k = k + 1 sum = sum + n End If n = n - 1 Loop Print sum End Sub

9

10分）（

【请将你的典型结果的截图粘贴到下面】

三、常见程序设计

【实验3-7】编写一个简易计算器编写程序计算S=1+1/2+1/4+1/7+1/11+1/16+1/22+…当第i项的值<10-5时计算结束结束。（10分） 掌握Do…loop语句的使用

实验结果：

【请将你的代码粘贴到下面】 Private Sub Command1_Click()

fm = 1 c = 1 Do

t = 1 / fm s = s + t fm = fm + c c = c + 1

Loop While t >= 0.00001 MsgBox s End Sub

10

【请将你的典型结果的截图粘贴到下面】

【实验3-8】将200~300之间的素数输出到列表框中。（10分）

掌握素数算法

实验结果：

【请将你的代码粘贴到下面】 Private Sub Command1_Click()

For i = 200 To 300 '判断I是否是素数 For J = 2 To i - 1

If i Mod J = 0 Then Exit For

11

Next J If J > i - 1 Then List1.AddItem i End If Next i End Sub

【请将你的典型结果的截图粘贴到下面】

【实验3-9】编写程序，在窗体上输出上三角形式的九九乘法表。（10分）

掌握多重For循环程序设计

实验结果：

12