سوال 1 از فصل 3
1-دستور if بنویسید که تساوی سه عدد را بررسی کند.
حل : برای مقایسه سه عدد با یک دستور شرطی لازم است از یک عبارت ترکیبی شرطی استفاده کرد.
جواب : If A=B And A=C
___________________________________________________________________________
سوال 2 از فصل 3
2- برنامه ای بنویسید که سه عدد دریافت و بزرگترین مقدار بین آنها را چاپ کند.
حل : برای یافتن بزرگترین مقدار بین سه عدد لازم است دو عدد اول با هم مقایسه و نتیجه را با عدد سوم مقایسه کند.
در قسمت Form - loadنوشته :
Private Sub Form_Load()
Dim A, B, C, MAX As Single
A = InputBox("Enter a:", "")
B = InputBox("Enter b:", "")
C = InputBox("Enter c:", "")
If A > B Then MAX = C Else: MAX = B
If C > MAX Then MAX = C
Label1.Caption = "MAX=" & MAX
End Sub
_____________________________________________________________________________________
سوال 3 از فصل 3
3- برنامه ای بنویسید که سه عدد از ورودی بگیرد و تعیین کند آیا با این سه عدد می توان یک مثلث ساخت؟
همواره حاصل جمع دو ضلع باید از ضلع سوم بیشتر باشد. A,B,Cحل : در یک مثلث به اضلاع
در قسمت form-load نوشته:
Private Sub Form_Load()
Dim A, B, C, MAX As Single
A = InputBox("Enter a:", "")
B = InputBox("Enter b:", "")
C = InputBox("Enter c:", "")
If A + B > C And A + C > B And B + C > A Then
"می توان مثلث ساخت Label1.Caption =
Else
"نمی توان مثلث ساخت Label1.Caption =
End If
End Sub
_____________________________________________________________________________________
سوال 4 از فصل 3
3- برنامه ای بنویسید که سه عدد از ورودی بگیرد و تعیین کند آیا با این سه عدد می توان یک مثلث قائم الزاویه ساخت؟
حل: در یک مثلث قایم الزاویه رابطه فیثاغورث صادق است. و چون نمی دانیم که کدام از اعداد وارد شده وتر است باید از فرمول زیر بدست آوریم.
C^2=A^2+B^2 A^2=C^2+B^2 B^2=A^2+C^2
در قسمت Form – load نوشته :
Private Sub Form_Load()
Dim A, B, C As Single
A = InputBox("Enter a:", "")
B = InputBox("Enter b:", "")
C = InputBox("Enter c:", "")
If A ^ 2 = B ^ 2 + C ^ 2 Or B ^ 2 = A ^ 2 + C ^ 2 Or C ^ 2 = A ^ 2 + B ^ 2 Then
"مثلث قائم الزاویه بوجود می آید Label1.Caption = "
Else
"مثلث قائم الزاویه بوجود نمی آید Label1.Caption = "
End If
End Sub
______________________________________________________________________________________
سوال 5 از فصل 3
۵- فروشنده ای با صاحب یک فروشگاه قرارداد بسته است تا اجناس وی را بفروشد و درصدی را به عنوان حق الزحمه دریافت کند. درصد حق الزحمه به میزان فروش و جنس کالا بستگی دارد.
کالاهای فروشگاه درجه 1 و درجه 2 و درجه 3 هستند. و حق الزحمه به شرح زیر تعیین می شود .
الف) اگر کالا درجه 1 باشد ، به ازای فروش کمتر از 50000 تومان ، 10 درصد و به ازای فروش بیشتر از 50000 تومان ، 15 درصد حق الزحمه تعلق می گیرد .
ب) اگر کالا درجه 2 باشد ، به ازای فروش کمتر از 50000 تومان ، 4 درصد و به ازای فروش بیشتر از 50000 تومان ، 10 درصد حق الزحمه تعلق می گیرد.
ج) اگر کالا درجه 3 باشد ، به ازای هر میزان فروش ، 7 درصد حق الزحمه تعلق می گیرد.
متغیر B شماره کالا و متغیر Fدستمزد و متغیر C میزان فروش است.
در قسمت Form - load نوشته :
Private Sub Form_Load()
Dim B As Byte
Dim F, C As Single
)"شماره کالا",,"وارد کنید شماره کالا راB = InputBox("
)"میزان کالا",,"وارد کنید میزان کالاراB = InputBox("
Select Case B
Case 1
If C < 50000 Then F = 0.01 * C Else F = 0.015 * C
Case 2
If C < 50000 Then F = 0.04 * C Else F = 0.01 * C
Case 3
F = 0.07 * C
Case Else
"شماره کالا به اشتباه وارد شده است" =Print
End If
Exit Sub
End Select
"دستمزد":Print
End Sub
_________________________________________________________________________________
سوال 6 از فصل 3
۶- برنامه ای بنویسید که ضرایب معادله درجه دوم را بگیرد و ریشه های آن را روی فرم چاپ کند.
*در این برنامه احتیاج به یک دکمه ی اجرا و پنج عدد است.text box .
در قسمت command نوشته :
Private Sub Command1_Click
Dim A, B, C, D, x1, x2 As Single
A = Val(Text1)
B = Val(Text2)
C = Val(Text3)
D = B ^ 2 - 4 * A * C
If D > 0 Then
x1 = (-B + D ^ 0.5) / (2 * A)
x1 = (-B - D ^ 0.5) / (2 * A)
ElseIf D = 0 Then
x1 = -B / (2 * A)
x2 = x1
Else
MsgBox ("ضرایب معادله اشتباه وارد شده است", , "")
Exit Sub
End If
Text4 = x1
Text5 = x2
End Sub
_____________________________________________________________________________________
سوال 7 از فصل 3
حل:لازم است تک تک ارقام عدد چهار رقمی را از هم جدا کرده و سپس با مقلوب بودن آنرا تعیین کند.
در قسمت form-Load نوشته :
Private Sub Form_Load
Dim M1, M2, M3, M4 As Byte, N As Integer
N = InputBox(" وارد کند یک عدد 4 رقمی:", "")
M1 = N Mod 10
N = N 10
M2 = N Mod 10
N = N 10
M3 = N Mod 10
N = N 10
M4 = N
If M1 = M4 And M2 = M3 Then
MsgBox "Yes", , "Reverse Number"
Else
MsgBox "No", , "Reverse Number"
End If
End Sub
___________________________________________________________________________________
سوال 8 از فصل3
۸- برنامه ای بنویسید که عددی از ورودی به عنوان ثانیه گرفته و ساعت و دقیقه و ثانیه معادل آن را چاپ کند.
* این برنامه احتیاج به یک Command و چهار عدد textboxاست.
در قسمتGeneral نوشته:
Dim n, m, h, s As Integer
در قسمت command اجرا نوشته :
Dim n, m, h, s As Integer
Private Sub Command1_Click
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Exit Sub
n = Val(Text1)
h = n 3600
n=n mod 3600
m = n 60
s = n Mod 60
Text2 = h
Text3 = m
Text4 = s
End Sub
__________________________________________________________________________________
سوال 9 از فصل 3
۹- یک بانک به سپرده های مشتریان خود سود می پردازد . و این عمل را بر اساس فرمول زیر انجام میدهد.
I=V*(1+RN)^N*t ) -۷
این برنامه احتیاج بهtextbox و چهار عدد Command*دارد.
زمان .Tتعداد دفعاتی که در سال سود مپردازد وN= نرخ سود در یکسال ،R=سرمایه اولیه = V، I=سود
حل:لازم است تک تک ارقام عدد چهار رقمی را از هم جدا کرده و سپس با مقلوب بودن آنرا تعیین کند.
در قسمتcommand اجرا نوشته :
Private Sub Command1_Click
Dim dv As Double, dr As Double, nt As Integer, dl As Double
dv = Val(Text2)
dr = Val(Text3) / 100
Command1.Visible = True
Shape2.Visible = True
Text1.Visible = True
Label1.Visible = True
nt = Val(Text1)
dl = dv * (1 + dr / 12) ^ nt - dv
Text1 = dl
End Sub
__________________________________________________________________________________
سوال 10 از فصل 3
۱0- برنامه ای بنویسید که 4 عدد از ورودی بگیرد و پیغام مناسبی چاپ کند.
این برنامه احتیاج به textbox و پنج عدد Command*دارد.
در قسمت command اجرا نوشته :
Private Sub Command1_Click
Dim A As Integer, B As Integer, C As Integer, D As Integer, X As Integer
X = 0
A = Val(Text1)
B = Val(Text2)
C = Val(Text3)
D = Val(Text4)
If A = B Then X = X + 1
If A = C Then X = X + 1
If A = D Then X = X + 1
If B = C Then X = X + 1
If B = D Then X = X + 1
If C = D Then X = X + 1
End Sub
نظرات شما عزیزان:
آمار
وبلاگ:
