saçma bi dizi bu işlerle uğraşanları anlamışta değilim bide üstüne yanlış hesaplamışsın
vb de kodunu kaz doğrusunu hesapla
dim n, i,j,t,ç,dt as integer
n=val(text1.text)
t=0 ; ç=1
for i=1 to n
t=t+i
next i
for j=1 to n
ç=ç*j
next j
dt=ç+t
text2.text=dt