نمونه سوالات حل شده ویژوال بیسیک

[آبجی]

برنامه ای بنویسید که یک عدد صحیح را گرفته و کنترل کند که عدد اول است یا خـیر و چنانچه عــدد اول بود خروجی آن یک و در غیر اینصورت خروجی ان صفر باشد .


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 را چاپ کند .

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 را از برنامـه اصـلی بگـیرد و " ک م م " و " ب م م " آن اعـداد را حساب کرده چاپ کند .

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 نیست چاپ کند .


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 تبدیل کند .


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 نمـره درسـی را از برنامه اصـلی خوانـده و میانگین آنها را حساب کند .


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 را چاپ کند .

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 را به کمک برنامه محاسبه نماید .


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 را از ورودی بخوانید


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 را مثبت می کند .


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 را خوانـده و سـپس کلیـه اعداد اول کوچکـتر از ایــن عدد را حساب نماید .


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 عدد اعشاری را خوانده بخش صحیح و اعشار اعداد را چاپ کند .


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 را حساب کرده چاپ کند .


x>0 2 ^ x + 1
x=0 0
x<0 2 ^ x - 1






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 عـدد صحیح را خوانـده و بزرگترین و کوچکـترین آنهـا را پیـدا کـرده جمـع کند فاکتوریل مجموع را چاپ کند .


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 را که در آنها رقم صفر وجود نداشته باشد را چاپ کند .


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 عدد را خوانده فرد و زوج بودن آنها را مشخص کند .


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

. برنامه ای بنویسید که یک عدد سه رقمی را خوانده اگر رقم یکانشان از رقم صدگانشان کمتر بـود پیغـام + را نمایش دهد .


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 بخش پذیر باشد

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 را چاپ کند .


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 است بصورت نزولی چاپ کند .


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



برنامه ای بنویسید که بزرگترین عدد چهار رقمی را که بر مجموع ارقامش بخش پذیر باشد چاپ کند


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 رقمی را خوانده با حذف رقم دهگان سه رقمی حاصل را چاپ کند


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


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 باشد چاپ کند .( به دو روش )


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

روش دوم :


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


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

[آبجی]

برنامه ای بنویسید که بزرگترین عدد چهار رقمی را که بر مجموع ارقامش بخش پذیر باشد چاپ کند .

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 )


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

[آبجی]

رنامه ای بنویسید که یکصد عدد صحیح حداکثر ده رقمی را خوانده و مشخص کنـد کـه رقـم اول سـمت چپ آن چند مرتبه بین اعداد تکرار شده .

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 رقمی را خوانده و اعدادی را که رقم یکانشان از رقم دهگانشان کمتـر است را چاپ کند .


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 بوده و مجموع ارقام ان بر هشت قابـل قسمت باشد را پیدا کند .

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


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 بخـش پذیر اسـت چاپ کند .

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 چاپ کند .


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 چاپ کند .

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 را چاپ کند .


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


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


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 برساند و چاپ کند .

Private Sub Form_Load()
For i = 1 To 12
a = Val(InputBox(""))
a = a * a
MsgBox a
Next i
End Sub

برنامه ای بنویسید که حقوق 8 نفر را بخواند پس از محاسبه و کسر 15 % مالیات خالص حقــوق را چاپ کند .


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


Private Sub Form_Load()
For i = 3 To 101
a = i / (i - 1) + a
Next i
MsgBox a
End Sub

[آبجی]

برنامه ای بنویسید که فاکتوریل n را که می خواند چاپ کند. از روش while

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


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 کمتر بود توان دوم ان را چاپ کند .

Private Sub Form_Load()
a = Val(InputBox(""))
If a < 1000 Then
a = a * a
MsgBox a
End If
End Sub


برنامه ای بنویسید که وزن و قیمت واحد یک کاﻻ را بخواند اگر وزن مثبت بود قیمـت کـل کـاﻻ را حسـاب کرده چاپ کند .


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 کوچکتر بود توان سوم وگرنه توان دوم انرا چاپ کند .


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 خواهـد شـد . برنامـه حـل ایـن مسئله را بنویسید .


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