- 博客(3)
- 收藏
- 关注
RSS订阅原创 两个数比较大小，三个数比较大小，十个数比较大小，并输出最大数
两个数的大小Private Sub Command1_Click()Dim a As IntegerDim b As Integer a = 44b = 36 If a >= b ThenPrint aElsePrint bEnd IfEnd Sub三个数的大小Private Sub Command1_Click()Dim a As
2012-04-28 21:45:45
1307
原创 求100以内素数的和
Private Sub Command1_Click() Dim s As Integer, n As Integer s = 0: n = 1 Do While n If IsPrimer(n) s = s + n End If n = n + 1 Loop Print "1~100之内的素数的和是：" + St
2012-04-24 21:11:27
352
原创 判断一个数是否是素数
'Label1.Caption = IIf(IsPrimer(Int(Val(Text2.Text))) = 0, "bushi", "shi") End SubPrivate Function IsPrimer(n As Integer) As Integer Dim i As Integer For i = 2 To n - 1 If n Mod
2012-04-24 21:07:27
267
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人