| | |
 |
سوال کنکوری خروج از دستور For next که بعضی ها نمی دونند vb چطور محاسبه می کنه؟
مثلاٌ اگه سوال این طوری باشه !!!
خروجی چیست ؟ ( از چپ به راست)
For i = 0 To 36 Step 36
Print "Yes",
Next
Print i
1-) yes yes 72
2-) yes 72
3-) yes yes 36
3-) yes 36
|
نوشته شده توسط
system-black در تاريخ 14/1/1391 - 17:02:48 |
نظرات | لينک ثابت |
|  |
| | |
| | |
|
خروجی تابع زیر عدد ................ خواهد بود
Private Sub Command1_Click()
Print f(4)
End Sub
Public Function f(n As Integer) As Integer
If n <= 1 Then
f = 2
Else
f = n + f(n - 2)
End If
End Function
1-) 4 2-) 8 3-)2 4-)
|
نوشته شده توسط
system-black در تاريخ 14/1/1391 - 17:00:47 |
نظرات | لينک ثابت |
| |
| | |
| | |
|
نوشتن این برنامه شما بر روی فرم خود باید یک Label و یک تایمر قرار دهید و Interval تایمر را برابر
با 1 قرار دهید سپس کد زیر را در قسمت General کپی کنید .
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
حالا در قسمت event تایمر کد زیر را قرار دهید .
For i = 1 To 255
results = 0
results = GetAsyncKeyState(i
If results <> 0 Then
Label1.Caption= (Chr(i))
End If
Next
|
نوشته شده توسط
system-black در تاريخ 14/1/1391 - 16:58:17 |
نظرات | لينک ثابت |
| |
| | |
| | |
|
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Me.FontSize = 50
Me.FontBold = True
Me.FontName = "Arial"
Cls
Print KeyCode
End Sub
|
نوشته شده توسط
system-black در تاريخ 14/1/1391 - 16:57:08 |
نظرات | لينک ثابت |
| |
| | |
| | |
|
Private Sub Text1_GotFocus()
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub
|
نوشته شده توسط
system-black در تاريخ 14/1/1391 - 16:52:59 |
نظرات | لينک ثابت |
| |
| | |
|
تازه های سایت
|
|
|
|
|
|
|
|
|
06 : 47 : 35
