1. 1.
    0
    randomize()
    n = inputbox("enter array size") - 1
    redim arr(n)
    for i = 0 to ubound(arr)
    arr(i) = i
    next i
    for i = 0 to ubound(arr)
    checkprime(arr(i), prime)
    if prime then
    textbox1.text = textbox1.text & arr(i) & vbtab
    ···
   tümünü göster