VB编写程序.docVIP

1》编写程序，输出100~1000之间的所有质数，并给出100~1000之间质数的个数及其和 Private Sub Command1_Click() Dim i%, j%, k%, s% k = 0 s = 0 For i = 100 To 1000 For j = 2 To i If i Mod j = 0 Then Exit For Next j If j = i Then k = k + 1 s = s + i Print i End If Next i Print 质数个数为：; k, 其和为：; s End Sub 2》输出如下图形 1 333 55555 7777777 Private Sub Command1_Click() Dim i%, j% For i = 1 To 4 Print Tab(15 - 2 * i) For j = 1 To 2 * i - 1 Print 2 * i - 1; Next j Print Next i End Sub 3》输入三角形的三边A,B,C的值，判断能否构成三角形，如能求出三角形的面积 Private Sub Command1_Click() Dim a%, b%, c%, x!, s! a = Inpu