نمونه سوالات حل شده ویژوال بیسیک vb (نمونه سوال ویژوال بیسیک با جواب)
·
نمونه سوالات حل شده ویژوال بیسیک
برنامه ای بنویسید که یک عدد صحیح را گرفته و کنترل کند که عدد اول
است یا خـیر و چنانچه عــدد اول بود خروجی آن یک و در غیر اینصورت خروجی ان صفر
باشد .
Private Sub Form_Load()
a = Val(InputBox("")
For i = 1 To a
If a Mod i = 0 Then
h = h + 1
End If
Next i
If h = 2 Then
MsgBox 1
Else
MsgBox 0
End If
End Sub
برنامه ای بنویسید که اعداد اول بین 5 و 555 را چاپ کند .
کد
PHP:
Private Sub Form_Paint()
For i = 5 To 555
h = 0
For j = 1 To i
If i Mod j = 0 Then
h = h + 1
End If
Next j
If h = 2 Then
; Print i
Print
End If
Next i
End Sub
برنامه ای بنویسید کـه دو متغـیرm و n را از برنامـه اصـلی بگـیرد و " ک م م " و " ب م م " آن اعـداد را حساب کرده چاپ
کند .
کد
PHP:
Private Sub Form_Load()
a = Val(InputBox(""))
b = Val(InputBox(""))
While b > 0
c = a Mod b
a = b
b = c
Wend
MsgBox a
End Sub
برنامه ای بنویسید کـهn را
بخوانـد در یک برنامـه فرعی اعداد اول کوچکتر از n را که
رقـم یکانشــان 1 نیست چاپ کند .
کد
PHP:
Private Sub Form_Paint()
a = Val(InputBox(""))
For i = 1 To a - 1
h = 0
For j = 1 To i
If i Mod j = 0 Then
h = h + 1
End If
Next j
If (h = 2) And (i Mod 10 1) Then
Print i;
End If
Next i
End Sub
برنامه ای که یک عدد شش رقمی را خوانده به مبنای 2 تبدیل کند .
کد
PHP:
Private Sub Form_Paint()
a = Val(InputBox(""))
While a > 0
c = a Mod 2
a = a \ 2
s = Str(c) + s
Wend
Print s
End Sub
برنامه ای بنویسید که برای 84 دانشـجو بـرای هر دانشجو 5 نمـره درسـی
را از برنامه اصـلی خوانـده و میانگین آنها را حساب کند .
کد
PHP:
Private Sub Form_Paint()
For i = 1 To 84
c = 0
For j = 1 To 5
a = Val(InputBox(""))
c = a + c
Next j
m = c / 5
Print m;
Next i
End Sub
برنامه ای بنویسید که کلیه مقسوم علیه های اعداد 409 و 906 را چاپ کند .
کد
PHP:
Private Sub Form_Paint()
For i = 1 To 409
If 409 Mod i = 0 Then
Print i;
End If
Next i
Print
For j = 1 To 906
If 906 Mod j = 0 Then
Print j;
End If
Next j
End Sub
برنامه ای بنویسید که مقسوم علیه های مشترک دو عدد 408 و 480 را به
کمک برنامه محاسبه نماید
.
کد
PHP:
Private Sub Form_Paint()
For i = 1 To 480
If (480 Mod i = 0) And (408 Mod i = 0) Then
Print i;
End If
Next i
End Sub
.
Private Sub Form_Load()
For i = 1 To 7
a = Val(InputBox(""))
h = 0
For j = 1 To a
If a Mod j = 0 Then
h = h + 1
End If
Next j
If h = 2 Then
MsgBox "aval ast"
Else
MsgBox "aval nist"
End If
Next i
End Sub
برنامــه ای بنویســید کــه 5 معادلـه درجــه دوم را حــل کــرده جوابهـا را حسـاب نمایــد Aو Bو C را از
ورودی بخوانید
کد
PHP:
Private Sub Form_Paint()
For i = 1 To 5
a = Val(InputBox(""))
b = Val(InputBox(""))
c = Val(InputBox(""))
delta = (b ^ 2) - 4 * a * c
If delta > 0 Then
Print " معادله دو ریشه دارد"
End If
If delta = 0 Then
Print " ریشه مضاعف , معادله یک ریشه دارد"
End If
If delta 0 Then
Print "معادله ریشه حقیقی ندارد"
End If
Next i
End Sub
برنامه ای بنویسید که دو عدد را بخواند و تعیین نماید کدامیک 3 / 4 - X را مثبت
می کند .
کد
PHP:
Private Sub Form_Load()
a = Val(InputBox(""))
b = Val(InputBox(""))
If a - 4 / 3 > 0 Then
MsgBox a
End If
If b - 4 / 3 > 0 Then
MsgBox b
End If
End Sub
. برنامه ای بنویسید که عدد صحیح و مثبت n را
خوانـده و سـپس کلیـه اعداد اول کوچکـتر از ایــن عدد را حساب نماید .
کد
PHP:
Private Sub Form_Paint()
Dim a As Long
c = 0
a = Val(InputBox(""))
If a > 0 Then
For i = 1 To a - 1
h = 0
For j = 1 To i
If i Mod j = 0 Then
h = h + 1
End If
Next j
If h = 2 Then
c = c + 1
End If
Next i
Else
MsgBox "pleas inter valid number"
End If
Print " عدد اول است";
Print c
End Sub
برنامه ای بنویسید که 10 عدد اعشاری را خوانده بخش صحیح و اعشار اعداد
را چاپ کند .
کد
PHP:
Private Sub Form_Paint()
Dim a, b, c As Currency
For i = 1 To 10
a = Val(InputBox(""))
b = Int(a)
c = a - b
Print b, c
Next i
End Sub
برنامه ای بنویسید که x را
خوانده و به کمک تابعی مقدار ) F(x را حساب کرده چاپ کند .
کد
PHP:
x>0 2 ^ x + 1
x=0 0
x0 2 ^ x - 1
کد
PHP:
Private Sub Form_Load()
x = Val(InputBox(""))
If x > 0 Then
x = 2 ^ x + 1
End If
If x = 0 Then
x = 0
End If
If x 0 Then
x = 2 ^ x - 1
End If
MsgBox x
End Sub
برنامه ای بنویســید کـه 50 عـدد صحیح را خوانـده و بزرگترین و
کوچکـترین آنهـا را پیـدا کـرده جمـع کند فاکتوریل مجموع را چاپ کند .
کد
PHP:
Private Sub Form_Load()
f = 1
a = Val(InputBox(""))
Min = a
Max = a
For i = 1 To 49
a = Val(InputBox(""))
If a > Max Then
Max = a
End If
If a Min Then
Min = a
End If
Next i
Sum = Max + Min
MsgBox Sum
If Sum 0 Then
b = -1 * Sum
Else
b = Sum
End If
If Sum = 0 Then
f = 0
End If
For j = 1 To b
If Sum > 0 Then
f = f * Sum
Sum = Sum - 1
End If
If Sum 0 Then
f = Sum * f
Sum = Sum + 1
End If
Next j
MsgBox f
End Sub
برنامه ای بنویسید که اعداد اول کوچکتر از 100 را که در آنها رقم صفر
وجود نداشته باشد را چاپ کند .
کد
PHP:
Private Sub Form_Paint()
For i = 1 To 100
h = 0
z = 0
For j = 1 To i
If i Mod j = 0 Then
h = h + 1
End If
Next j
If h = 2 Then
c = i
End If
While c > 0
b = c Mod 10
c = c \ 10
If b = 0 Then
z = z + 1
End If
Wend
If (z = 0) And (h = 2) Then
Print i;
End If
Next i
End Sub
برنامه ای بنویسید که 20 عدد را خوانده فرد و زوج بودن آنها را مشخص
کند .
کد
PHP:
Private Sub Form_Paint()
For i = 1 To 20
a = Val(InputBox(""))
If a Mod 2 = 0 Then
Print "زوج است";
Print a
Else
Print "فرد است";
Print a
End If
Next i
End Sub
. برنامه
ای بنویسید که یک عدد سه رقمی را خوانده اگر رقم یکانشان از رقم صدگانشان کمتر
بـود پیغـام + را نمایش
دهد .
کد
PHP:
Private Sub Form_Load()
a = Val(InputBox(""))
h = 1
While a > 0
If h = 1 Then
c = a Mod 10
a = a \ 10
Else
b = a Mod 10
a = a \ 10
End If
h = h + 1
Wend
If b > c Then
MsgBox "+"
Else
MsgBox "-"
End If
End Sub
برنامه ای بنویسید که دو عدد بین 1 و 100 پیدا کند که مجموع آنها بر 5
بخش پذیر باشد
کد
PHP:
Private Sub Form_Paint()
For i = 1 To 100
For j = i To 100
a = i + j
If a Mod 5 = 0 Then
Print i;
Print j, ;
End If
Next j
Print
Next i
End Sub
. اعداد 2 قلو
اعداد اولی هستند که تفاضل آنهـا 2 باشد مثل 5 و 3 و 11
و 13
برنامـه ای بنویسـید کـه کلیه ی اعداد دوقلوی کوچکتر از m را چاپ کند
.
کد
PHP:
Private Sub Form_Paint()
m = Val(InputBox(""))
For i = 1 To m
h = 0
g = 0
For j = 1 To i
If i Mod j = 0 Then
h = h + 1
End If
Next j
If h = 2 Then
c = i + 2
End If
For k = 1 To c
If c Mod k = 0 Then
g = g + 1
End If
Next k
If (g = 2) And (h = 2) Then
Print i;
Print c
End If
Next i
End Sub
برنامه ای بنویسید که کلیه اعداد بخش پذیر بر 3 و 7 را بین 21 و 9261
است بصورت نزولی چاپ کند
.
کد
PHP:
Private Sub Form_Paint()
Dim a As Long
a = 9261
For i = 21 To 9261
If (a Mod 7 = 0) And (a Mod 3 = 0) Then
Print a;
End If
a = a - 1
Next i
End Sub
برنامه ای بنویسید که بزرگترین عدد چهار رقمی را که بر مجموع ارقامش
بخش پذیر باشد چاپ کند
کد
PHP:
Private Sub Form_Load()
For i = 1000 To 9999
a = i
While a > 0
c = a Mod 10 + c
a = a \ 10
Wend
If i Mod c = 0 Then
j = i
End If
Next i
MsgBox j
End Sub
برنامه ای بنویسید که یک عدد 4 رقمی را خوانده با حذف رقم دهگان سه
رقمی حاصل را چاپ کند
کد
PHP:
Private Sub Form_Load()
a = Val(InputBox(""))
While a > 0
h = h + 1
If h = 2 Then
a = a \ 10
Else
c = a Mod 10
a = a \ 10
s = s * 10 + c
End If
Wend
While s > 0
b = s Mod 10
s = s \ 10
g = g * 10 + b
Wend
MsgBox g
End Sub
برنامه ای بنویسید که جمله 50 از سری زیر را چاپ کند . .... و 17 و 9
و 5 و 3 و 1 و 1 و 1
کد
PHP:
Private Sub Form_Load()
a = 1
b = 1
c = 1
For i = 1 To 47
d = a + b + c
a = b
b = c
c = d
Next i
MsgBox c
End Sub
برنامه ای بنویسید که کلیه اعداد کوچکتر از 2000 را که در آنها رقم
صفر وجـود نداشـته و مجمـوع ارقـام آن کوچکتر از 15 باشد چاپ کند .( به دو
روش )
کد
PHP:
Private Sub Form_Paint()
For i = 1 To 1999
a = i
z = 0
s = 0
While a > 0
c = a Mod 10
a = a \ 10
s = s + c
If c = 0 Then
z = z + 1
End If
Wend
If (s 15) And (z = 0) Then
Print i;
End If
Next i
End Sub
روش دوم
:
کد
PHP:
Private Sub Form_Paint()
For i = 1 To 1999
c = i
While ( c > 0 )
r = c Mod 10
If r 0 Then s = s + r
If r = 0 Then c = 0
c = c \ 10
Wend
If s 0 And s > 15 Then Print i ;
s = 0
Next i
End Sub
برنامه ای بنویسید که کلیه اعداد چهار رقمی که دو رقم اول و دوم با دو
رقـم سـوم و چهارم آن قرینــه هستند چاپ کند . مثل 7337
کد
PHP:
Private Sub Form_Paint()
For i = 1000 To 9999
a = i
f = ""
n = ""
For j = 1 To 2
m = a Mod 10
n = Str(m) + n
a = a \ 10
Next j
For k = 1 To 2
e = a Mod 10
f = f + Str(e)
a = a \ 10
Next k
If n = f Then
Print i;
End If
Next i
End Sub
برنامه ای بنویسید که بزرگترین عدد چهار رقمی را که بر مجموع ارقامش
بخش پذیر باشد چاپ کند
.
کد
PHP:
Private Sub Form_Load()
Max = 0
For i = 1000 To 9999
a = i
While a > 0
m = a Mod 10
a = a \ 10
s = s + m
Wend
If i Mod s = 0 And i > Max Then
Max = i
End If
Next i
MsgBox Max
End Sub
برنامه ای بنویسید که یک عدد 4 رقمی را خوانده و با حذف رقم دهگان ان
را تبدیل به یک عدد 3 رقمی
کرده چاپ کند . مثل ( 8453 ,
843 )
کد
PHP:
Private Sub Form_Load()
a = Val(InputBox(""))
While a > 0
h = h + 1
If h = 2 Then
a = a \ 10
Else
m = a Mod 10
a = a \ 10
n = n * 10 + m
End If
Wend
While n > 0
m = n Mod 10
n = n \ 10
e = e * 10 + m
Wend
MsgBox e
End Sub
رنامه ای بنویسید که یکصد عدد صحیح حداکثر ده رقمی را خوانده و مشخص
کنـد کـه رقـم اول سـمت چپ آن چند مرتبه بین اعداد تکرار شده .
کد
PHP:
Private Sub Form_Load()
For i = 1 To 100
a = Val(InputBox(""))
e = 0
While (a > 0) And (a 10000000000#)
m = a Mod 10
a = a \ 10
e = 1
Wend
n = Str(m) + n
Next i
b = Val(n)
d = b Mod 10
While b > 0
f = b Mod 10
b = b \ 10
If f = d Then
z = z + 1
End If
Wend
If e = 1 Then
MsgBox z
End If
End Sub
برنامه ای بنویسید که 100 عدد 2
رقمی را خوانده و اعدادی را که رقم یکانشان از رقم دهگانشان کمتـر است
را چاپ کند .
کد
PHP:
Private Sub Form_Paint()
For i = 1 To 100
n = 0
h = 0
a = Val(InputBox(""))
c = a
While a > 0
h = h + 1
m = a Mod 10
a = a \ 10
If m > n And h = 2 Then
Print c;
End If
n = m
Wend
Next i
End Sub
برنامه ای بنویسید که اعدادی را که بین M و N بوده و مجموع ارقام ان بر هشت قابـل قسمت باشد را پیدا کند .
کد
PHP:
Private Sub Form_Paint()
n = Val(InputBox(""))
m = Val(InputBox(""))
For i = n To m
a = i
s = 0
While a > 0
m = a Mod 10
a = a \ 10
s = s + m
Wend
If s Mod 8 = 0 Then
Print i;
End If
Next i
End Sub
برنامه ای بنویسید که یک عدد صحیح را بخواند و تعیین کند عدد کامل است
یا نه عـدد کامـل عــددی است که مجموع مقسوم علیه های عدد مساوی خود عدد باشد . مثال : 14 + 7 + 4 + 2 + 1 = 28
کد
PHP:
Private Sub Form_Load()
a = Val(InputBox(""))
For i = 1 To a / 2
If a Mod i = 0 Then
s = s + i
End If
Next i
If s = a Then
MsgBox " adad kamel ast "
Else
MsgBox "adad kamel nist"
End If
End Sub
برنامه ای بنویسید که یک عدد 4 رقمی را بخواند در صورتیکه مجمـوع
ارقـام آن بر 5 بخـش پذیر اسـت چاپ کند .
کد
PHP:
Private Sub Form_Load()
a = Val(InputBox(""))
j = a
While a > 0
m = a Mod 10
a = a \ 10
s = s + m
Wend
If s Mod 5 = 0 Then
MsgBox j
End If
End Sub
برنامه ای بنویسید که عدد صحیح N را
خوانده و مقدار آن را در مبنای 8 چاپ کند .
کد
PHP:
Private Sub Form_Paint()
n = Val(InputBox(""))
While n > 0
c = n Mod 8
n = n \ 8
s = Str(c) + s
Wend
Print s
End Sub
برنامه ای بنویسید که عدد صحیح N را
خوانده و مقدار آن را در مبنای 16 چاپ کند .
کد
PHP:
Private Sub Form_Load()
n = Val(InputBox(""))
While n > 0
c = n Mod 16
n = n \ 16
s = Str(c) + s
Wend
MsgBox s
End Sub
برنامه ای بنویسید که 5 عدد تصادفی کمتر از 2000 را چاپ کند .
کد
PHP:
Private Sub Form_Load()
For i = 1 To 5
Randomize
a = Int(Rnd * 2000)
MsgBox a
Next i
End Sub
برنامه ای بنویسید که حاصل عبارت زیر را چاپ کند . 1001/1000 + ... + 5/4 + 4/3 + 3/2
کد
PHP:
Private Sub Form_Load()
For i = 3 To 1001
a = i / (i - 1) + a
Next i
MsgBox a
End Sub
برنامه ای بنویسید که حاصل عبارت زیر را چاپ کند .
99/1 + ... + 7/1 + 5/1 + 3/1 + 1
کد
PHP:
Private Sub Form_Load()
j = 1
For i = 3 To 99 Step 2
j = j + (i / 1)
Next i
MsgBox j
End Sub
برنامه ای بنویسید که 12 عدد را بخواند به توان 2 برساند و چاپ کند .
کد
PHP:
Private Sub Form_Load()
For i = 1 To 12
a = Val(InputBox(""))
a = a * a
MsgBox a
Next i
End Sub
برنامه ای بنویسید که حقوق 8 نفر را بخواند پس از محاسبه و کسر 15 % مالیات
خالص حقــوق را چاپ کند
.
کد
PHP:
Private Sub Form_Load()
For i = 1 To 8
a = Val(InputBox(""))
j = a + j
Next i
p = j - (j * 15 / 100)
MsgBox p
End Sub
برنامه ای بنویسید که حاصل سری زیر را چاپ کند .
101/100 + ... + 5/4 + 4/3 + 3/2
کد
PHP:
Private Sub Form_Load()
For i = 3 To 101
a = i / (i - 1) + a
Next i
MsgBox a
End Sub
برنامه ای بنویسید که فاکتوریل n را که می
خواند چاپ کند. از روش while
کد
PHP:
Private Sub Form_Load()
a = Val(InputBox(""))
j = 1
While a > 1
j = (a * (a - 1)) * j
a = a - 2
Wend
MsgBox j
End Sub
برنامه ای بنویسید که فاکتوریل n را که می
خواند چاپ کند . از روش For
کد
PHP:
Private Sub Form_Load()
a = Val(InputBox(""))
f = 1
If a > 0 Then
For i = 1 To a
f = f * a
a = a - 1
Next i
End If
If a 0 Then
j = -1 * a
For k = 1 To j
f = f * a
a = a + 1
Next k
End If
MsgBox f
End Sub
برنامه ای بنویسید که A را
بخواند اگر از 1000 کمتر بود توان دوم ان را چاپ کند .
کد
PHP:
Private Sub Form_Load()
a = Val(InputBox(""))
If a 1000 Then
a = a * a
MsgBox a
End If
End Sub
برنامه ای بنویسید که وزن و قیمت واحد یک کاﻻ را بخواند اگر وزن مثبت
بود قیمـت کـل کـاﻻ را حسـاب کرده چاپ کند .
کد
PHP:
Private Sub Form_Load()
v = Val(InputBox(""))
gh = Val(InputBox(""))
If v > 0 Then
p = v * gh
MsgBox p
End If
End Sub
برنامه ای بنویسید که A را
بخواند اگر از 50 کوچکتر بود توان سوم وگرنه توان دوم انرا چاپ کند .
کد
PHP:
Private Sub Form_Load()
a = Val(InputBox(""))
If a 50 Then
a = a * a * a
Else
a = a * a
End If
MsgBox a
End Sub
کشور های A و B جمعیتی برابر 52 و 85 میلیون نفر دارند درصد افزایش جمعیت آنها سالانه به ترتیـب 6 % و 4 % است . پس از
چند سـال جمعیت کشور A بیـش از B خواهـد شـد . برنامـه حـل ایـن مسئله را بنویسید .
کد
PHP:
Private Sub Form Load ()
a = 52000000
b = 85000000
i = 0
While a b
a1 = a * 0.06
a = a1 + a
b1 = b * 0.04
b = b1 + b
i = i ۱ +
Wend
MsgBox i
End Sub
برگرفته از:
http://www.njavan.com/forum/showthread.php?50459-%D9%86%D9%85%D9%88%D9%86%D9%87-%D8%B3%D9%88%D8%A7%D9%84%D8%A7%D8%AA-%D8%AD%D9%84-%D8%B4%D8%AF%D9%87-%D9%88%DB%8C%DA%98%D9%88%D8%A7%D9%84-%D8%A8%DB%8C%D8%B3%DB%8C%DA%A9
مطالب مشابه :
نمونه سوالات الگوریتم با جواب
نمونه سوالات الگوریتم با نمونه سوالات الگوریتم و فلوچارت. سوالات الگوریتم با جواب.
نمونه سوالات الگوریتم و فلوچارت
نمونه سوالات الگوریتم و فلوچارت سوال الگوریتم با جواب. نمونه سوالات الگوریتم و
نمونه سوالات حل شده ویژوال بیسیک vb (نمونه سوال ویژوال بیسیک با جواب)
· نمونه سوالات حل شده ویژوال بیسیک برنامه ای بنویسید که یک عدد صحیح را گرفته و کنترل کند که
آموزش ساخت ایمیل در گوگل
نمونه سوالات الگوریتم و رایگان و با امکاناتی بسیار همان سؤال دلخواه‌مان جواب
برچسب :
نمونه سوالات الگوریتم و فلوچارت (با جواب)