18 کد به درد بخور در ویژوال بیسیک

[DonatellaM]

1 ده عدد را گرفته تعیین کند کدام زوج و کدام فرد است.​

Private Sub Command13_Click() '16​

Cls​

Dim i As Integer, n As Integer​

For i = 1 To 10​

n = InputBox("Enter the num")​

Print n; Tab(10); IIf(n Mod 2 = 0, "Even", "Odd")​

Next​

End Sub​

 

[DonatellaM]

2مجموع اعداد زوج و فرد 0 تا 100 را محاسبه کرده و جداگانه چاپ کند.

private sub command14_click() ​

dim i as integer, s as integer​

for i = 0 to 100 step 2​

s = s + i​

next​

msgbox prompt:=s, title:="events"​

s = 0​

for i = 1 to 100 step 2​

s = s + i​

next​

msgbox prompt:=s, title:="odds"​

end sub​

 

[DonatellaM]

3 20 عدد را خوانده، بزرگترین و کوچکترین آنها را نمایش دهد.

private sub command15_click()​

dim min as integer, max as integer, n as integer, i as integer​

for i = 1 to 20​

n = inputbox("enter a num")​

if i = 1 then min = n​

if n > max then max = n​

if n < min then min = n​

next​

msgbox "max: " & max & " min: " & min​

end sub​

 

[DonatellaM]

4برنامه ای بنویسید که عدد چها رقمی فاقد صفر را به همراه تعداد کل آنها نمایش دهد.

private sub command16_click()​

cls​

dim i as integer, b as boolean, t as integer, c as integer​

for i = 10 to 99​

b = true​

t = i​

do while t > 0 and b​

if t mod 10 = 0 then b = false​

t = t \ 10​

loop​

if b then​

c = c + 1​

print i;​

if c mod 20 = 0 then print​

end if​

next​

msgbox "total: " & c​

end sub​

 

[DonatellaM]

5برنامه ای بنویسید که یک عدد را خوانده، اول بودن آن را تعیین نماید و پیغام مناسبی چاپ کند.

private sub command6_click()​

cls​

dim i as integer, n as integer, t as boolean​

n = inputbox("enter a num:")​

t = true​

i = 2​

do while i <= n / 2 and t​

if n mod i = 0 then t = false​

i = i + 1​

loop​

if t then​

print "prim"​

else: Print "not prim"​

end if​

end sub​

 

[DonatellaM]

6برنامه ای بنویسید که یک عدد را گرفته و فاکتوریل آن را محاسبه و چاپ کند.

private sub command19_click()​

dim i as integer, f&​

f = 1​

for i = 1 to inputbox("enter a number to reach its single factorial:")​

f = f * i​

next​

msgbox f​

end sub​

یه سوال بود فاکتوریل رو حساب کنه و تعداد ارقام رو بده مثلا 6! = 720 میشه 3 تا رقم
کسی اینو بلده؟

 

[DonatellaM]

7برنامه ای بنویسید که برای اعداد 1 تا 10 مجموع اعداد از یک تا آن عدد را نمایش دهد.

private sub command20_click()​

cls​

dim i as integer, j as integer, s as integer​

for i = 1 to 10​

s = 0​

for j = 1 to i​

s = s + j​

next​

print s;​

next​

end sub​

 

[DonatellaM]

8 برنامه ای بنویسید که عدد n را خوانده و مجموع ارقام آن را نشان دهد.

private sub command21_click() '25​

dim n as integer, s as integer​

n = inputbox("enter the num:")​

while n > 0​

s = s + n mod 10​

n = n \ 10​

wend​

msgbox s​

 

[DonatellaM]

9برنامه ای بنویسید که یک عدد صحیح مثبت را خوانده جذر آن را نمایش دهد.

p

rivate sub command23_click()

cls​

dim n as integer, i as integer, s as integer, c as integer​

n = inputbox("enter a natural number to get its square root (without sqr() function)")​

i = 1​

while s < n​

s = s + i​

i = i + 2​

c = c + 1​

wend​

if s > n then​

print "near "; (s / c) - 1​

else: Print "really "; s / c​

end if​

'or use n ^ 0.5 equation​

end sub​

 

[DonatellaM]

10برنامه ای بنویسید که یک عدد حد اقل چهارقمی مثبت را خوانده، مغلوب آن را نمایش دهد.

private sub command22_click()​

cls​

dim n as integer, i as integer​

n = inputbox("enter the num:")​

while n > 0​

i = n mod 10​

print cstr(i);​

n = n \ 10​

wend​

end sub​

 

[DonatellaM]

11برنامه ای بنویسید که 20 جمله اول سری فیبوناچی را نمایش دهد.

private sub command24_click()​

cls​

dim a as integer, b as integer, c as integer, i as integer​

a = 1​

for i = 1 to inputbox("enter number of fibonacci series you want to make", , 20)​

c = a + b​

print c​

a = b​

b = c​

next​

end sub​

 

[DonatellaM]

12برنامه ای بنویسید که دو عدد صحیح از ورودی خوانده و عمل ضرب را بدون استفاده از عملگر ضرب محاسبه و نمایش دهد.

private sub command25_click()​

dim a as integer, b as integer, i as integer, m as integer​

a = inputbox("enter first num")​

b = inputbox("enter second num")​

for i = 1 to b​

m = m + a​

next​

msgbox a & " * " & b & " = " & m​

end sub​

 

[DonatellaM]

13برنامه ای بنویسید که رشته ای را از ورودی دریافت کرده و تعداد حروف بزرگ و کوچک آن را نمایش دهد بصورت مجزا.

private sub command1_click()​

cls​

dim s as string​

s = inputbox("")​

for i = 1 to len(s)​

select case mid(s, i, 1)​

case "a" to "z"​

u = u + 1​

case "a" to "z"​

l = l + 1​

end select​

next​

print "horuf kuchak"; l​

print "horufe bozorg"; u​

end sub​

 

[DonatellaM]

14برنامه ای بنویسید که رشته ای را از ورودی دریافت کرده و تعیین کند که آیا رشته از هردو طرف که در نظر گرفته شود یکسان است یا خیر؟

مثل؟ bacb? یا deed​

private sub command2_click()​

cls​

dim t as string​

t = inputbox("enter string")​

if strreverse(t) = t then​

print "yes"​

else: Print "no"​

end if​

end sub​

 

[DonatellaM]

15برنامه ای بنویسید که بدون استفاده از تابع Replace، کار این تابع را شبیه سازی کند.

Private Sub Command3_Click()​

Cls​

Dim s As Integer, f As Integer, r As Integer, p1 As Integer, p2 As Integer, i As Integer​

s = InputBox("Enter string")​

f = InputBox("Find")​

r = InputBox("Replace with")​

Do Until InStr(1, s, f) = 0​

i = InStr(1, s, f)​

p1 = Mid(s, 1, i - 1)​

p2 = Mid(s, i + Len(f))​

s = p1 + r + p2​

Loop​

Print s​

End Sub​

 

[DonatellaM]

16برنامه ای بنویسید که رشته ای را از ورودی دریافت کند و مجموع ارقام نویسه ای موجود در رشته را محاسبه نماید و نمایش دهد.

private sub command5_click()​

cls​

dim t as string, i as integer, s as integer, p as string​

t = inputbox("enter string")​

for i = 1 to len(t)​

p = mid(t, i, 1)​

if isnumeric(p) then s = s + p​

next​

print s​

end sub​

 

[DonatellaM]

17برنامه ای بنویسید که حاصل عبارت زیر را تا 10 جمله حساب کند:

private sub command1_click()​

dim i as integer, a as single​

a = 1​

for i = 1 to 9​

a = a + i / (i + 1)​

next​

print a​

end sub​

 

[DonatellaM]

18برنمه ای بنویسید که 50 اسم را از ورودی دریافت و تعداد افرادی را ه نامشان mohsen است، نمایش دهد.

Private Sub Command1_Click()​

For i = 1 To 10​

If LCase(InputBox("Enter a name: " & i)) = "mohsen" Then a = a + 1​

Next​

Print a​

End Sub​

 

[iLove]

6برنامه ای بنویسید که یک عدد را گرفته و فاکتوریل آن را محاسبه و چاپ کند.


یه سوال بود فاکتوریل رو حساب کنه و تعداد ارقام رو بده مثلا 6! = 720 میشه 3 تا رقم
کسی اینو بلده؟

بايد اون فاكتوريل عدد رو تو يه متغير نگه داري و با استفاده از تابع Len تعداد رقم هاي اون رو محاسبه كني.
text1.text = factoriel
label1.caption = len(text1.text)