Visual Basic Sorular
-
tek satırlık olanlar bunlar..
2-
Private Sub Command7_Click()
msgbox 3+7
End Sub
3-
Private Sub Form_DblClick()
Text1.Text = Me.Caption
End Sub
4-
Private Sub List1_DblClick()
Form1.Caption = Len(List1.Text)
End Sub7-
Private Sub Command3_Click()
Dim dogum As Integer
dogum = InputBox("dogum yili gir")
MsgBox Right(Date, 4) - dogum
End Sub
8-
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
List1.AddItem X + Y
End Sub
-
saol hocam diğerlerinide akşam atarsan iyi olur ya
-
1-
Dim ad As String
Dim dogum As String
---------------------------------
Private Sub Command1_Click()
For i = 0 To List1.ListCount - 1
Call sec(List1.List(i))
If Left(dogum, 5) = Left(Date, 5) Then
List2.AddItem ad
End If
Next
End Sub
---------------------------------
Sub sec(gln As String)
yildiz = InStr(1, gln, "*")
ad = Left(gln, yildiz - 1)
dogum = Right(gln, Len(gln) - yildiz)
End Sub
-------
6-
i => 1,1 ,2,2,3,3
s => 1,2,1,2,1,2
a => 1,1,2,2,3,3
b => 1,2,1,2,1,2
x => 1,1,4,4,9,9
y => 1,4,1,4,1,4
p => 2,5,5,8,10,13
yazi =>true,false,true,true,true,true