撒盐的凶手
幼苗
共回答了23个问题采纳率:87% 举报
Private Sub Command1_Click()
Dim a(100) As Integer,x As Integer
For i = 1 To 100
If sushu(i) Then Print i;
If i Mod 10 = 0 Then Print
Next i
Print
Print "100个随机数:"
For i = 1 To 100
x = Int(Rnd() * 90 + 10)
Print x;
a(x) = a(x) + 1
If i Mod 10 = 0 Then Print
Next i
Print
Print "从小到大的奇数:"
k = 0
For i = 1 To 100
If i Mod 2 = 1 And a(i) > 0 Then
For j = 1 To a(i)
Print i;
k = k + 1
If k Mod 10 = 0 Then Print
Next j
End If
Next i
Print
Print "其中的素数有:"
k = 0
For i = 1 To 100
If a(i) > 0 And sushu(i) Then
For j = 1 To a(i)
Print i;
k = k + 1
If k Mod 10 = 0 Then Print
Next j
End If
Next i
End Sub
Function sushu(ByVal n As Integer) As Boolean
sushu = False
If n
1年前
9