| | |
 |
سوال کنکوری خروج از دستور 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 |
نظرات | لينک ثابت |
|  |
| | |
|
تازه های سایت
|
|
 |
|
 |
|
|
|