Answer
سلام
دست تمام دوستانی که کمک کردند درد نکنه
منم سوالاتی که خودمون خوندیم رو می زارم
البته نسبت سوالات دوستان خیلی کم ارزش تر باشه فکر کنم
ولی مطمئن باش که سوالات ساده ای میاد ، من که خودم همین چند وقت پیش امتحان دادم خیلی ساده بود
1. یک دایره بر روی فرم رسم شود و بعد از 1 ثانیه پاک شود و یک دایره کوچکتر رسم شود؟
کد:
Dim i As Long
Private Sub Form_Load()
i = 70
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Me.ForeColor = &H8000000F
Circle (170, 170), i
If i <> 10 Then i = i - 10
Me.ForeColor = vbBlack
Circle (170, 170), i
If i = 10 Then i = 70
Me.ForeColor = &H8000000F
Circle (170, 170), 10
End Sub
2. برنامه ای بنویسید که 10 عدد (یا رشته) از ورودی گرفته و در لیست 1 قرار دهد، سپس آنها را به صورت یکی در میان در لیست 2 نمایش دهد؟
کد:
For i = 1 To 10
List1.AddItem InputBox("")
Next
For i = 0 To 11 Step 2
If i >= 10 Then Exit For
List1.ListIndex = i
List2.AddItem List1.Text
Next
3. یک پروژه مانند شکل زیر بسازید ، که با زدن دکمه > یک کاراکتر از سمت راست به سمت چپ انتقال یابد و با زدن دکمه < یک کاراکتر از سمت چپ به سمت راست انتقال یابد؟
کد:
Private Sub Command1_Click()
Text1.Text = Replace(Text1.Text, Left(Text1.Text, 1), "") + Left(Text1.Text, 1)
End Sub
Private Sub Command2_Click()
Text1.Text = Right(Text1.Text, 1) + Replace(Text1.Text, Right(Text1.Text, 1), "")
End Sub
توجه : البته برنامه بالا يه مشكل داره ؟؟!!!!
4. برنامه ای بنویسید که جدول ضرب 10 در 10 را حساب و چاپ کند؟
توجه : Multiline تکست باکس را true کنید
کد:
For i = 1 To 10
For j = 1 To 10
Text1.Text = Text1.Text & Str(i * j) + " "
Next j
Text1.Text = Text1.Text + vbCrLf
Next
5. برنامه ای بنویسید که زمان لازم برای چاپ اعداد 1 تا 5000 درون لیست را به ما بگوید؟
کد:
a = Time
For i = 1 To 5000
List1.AddItem i
Next
MsgBox Time - a
6. برنامه ای بنویسید که 5 رشته از کاربر دریافت کند ، اگر درون هر کدام از رشته ها حرف B , b بود به C تغییر دهد؟
کد:
For i = 1 To 5
a$ = InputBox("í˜ ÑÔÊå æÇÑÏ ˜äíÏ")
List1.AddItem a
For j = 1 To Len(a)
If Mid(a, j, 1) = "b" Or Mid(a, j, 1) = "B" Then
h = Replace(a, Mid(a, j, 1), "C")
End If
Next
List2.AddItem h
h = ""
Next
7. برنامه ای بنویسید که یک رشته از کاربر دریافت کند، و درون یک combo اعداد 1 تا طول رشته را قرار دهد، سپس با کلیک روی هر کدام از اعداد combo همان حرف را به ما نشان دهد؟
کد:
Private Sub Command1_Click()
Dim a As String
a = InputBox("")
For i = 1 To Len(a)
Combo1.AddItem i
Next
End Sub
Private Sub Combo1_Click()
MsgBox Mid(a, Combo1.Text, 1)
End Sub
8. دو عدد از ورودی گرفته و بدون استفاده از عمل ضرب آنها را ضرب کند؟؟
کد:
Dim a As Integer, b As Integer, s As Integer
Private Sub Command1_Click()
a = InputBox("")
b = InputBox("")
For i = 1 To a
s = s + b
Next
MsgBox s
End Sub