-
1.
+4public class form1
sub checkprime(byval a as integer, byref p as boolean)
dim k as integer
p = true
for k = 2 to a - 1
if a mod k = 0 then p = false
next
if a = 0 or a = 1 then p = false
end sub
private sub button1_click(byval sender as system. object, byval e as system. eventargs) handles button1.click
dim arr(), n, i, counter as integer
dim prime as boolean
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
counter += 1
end if
next i
textbox1.text = textbox1.text & vbcrlf & "there are " & counter & " prime numbers" & vbtab
end sub
end class
al panpa
-
peeping tom gereksizliği
-
ccc rammstein ccc günaydın diler 28 04 2024
-
bazı şeyleri anlamaya çalışırken
-
selam dostlar herkese selam candan selam
-
bazılarının mantığına göre
-
tip okuyanın başlığına entry girince
-
aferim tip okuyan adam olacaksın
-
sözlük niye 4 5 ay önceye göre daha canlı
-
yapay zeka aisheye yetki vermişsiniz
-
aşı diye vücuduma sperm soktular
-
ıstanbul bu sene maşallah
-
30 yaşında hiç sevgilisi olmamış erkek
-
pcden inci sozlugu kullanmak çok zorluyor
-
kadıköy de kız düşürmenin çok kolay olması
-
tıp okuyan incel olamaz
-
mağdur hissetmemek lazım
-
taşaklara kan gitmezse
-
fatih zamanında sınırımız
-
4 cmlik penisimin ıslaklığı ve külotum 11
-
aishe şu baycerrah hakkında konuş bi la
-
25 26 yaşında hiç sevgilisi olmamış erkek
-
tetanoz aşısı oldumm
-
kafamdaki bazı teorileri ben bile
-
petrol bulundu yalanına inanmak
-
vay ameke sozluke bot gelmis
-
aishe senin sevgilin varmı
-
vikings pampam buralarda mısın
-
fb nin 2014 ten beri şampiyon olamamasının sebebi
-
geçen bahçelievlere kadar izini takip ettim
-
aranızda parkur yapan varmı lan
- / 2