CSBaku

WwW.CSBaKu.BiZ satılır!

ХостиЯ. Сайт заблокирован!

4-cü kurslar, sonuncu kurs və sonuncu semestr...
Son semestrdə sizə uğurlar !
Sizlərin ilk imtahan sessiyasında bu sayt fəaliyyətə başlamışdır.
Kimlər ilk semestrdən (2014 Yanvar) indiyə kimi saytdan istifadə edir və kimlər son semestrdədə istifadə edəcək ? :)

Eyni variantda olan sualların Microsoft Worddə ABCDE variantlarla dəyişdirilməsi

-------KOD-------
Dim herf As String

Sub ABCDEDEYISME()
'
' ABCDEDEYISME Ìàêðîñ
'
'
herf = Selection.Text
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting

With Selection.Find
.Text = herf
.Replacement.Text = "A)"
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
With Selection
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseStart
Else
.Collapse Direction:=wdCollapseEnd
End If
.Find.Execute Replace:=wdReplaceOne
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseEnd
Else
.Collapse Direction:=wdCollapseStart
End If
.Find.Execute
End With
With Selection.Find
.Text = herf
.Replacement.Text = "B)"
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
With Selection
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseStart
Else
.Collapse Direction:=wdCollapseEnd
End If
.Find.Execute Replace:=wdReplaceOne
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseEnd
Else
.Collapse Direction:=wdCollapseStart
End If
.Find.Execute
End With
With Selection.Find
.Text = herf
.Replacement.Text = "C)"
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
With Selection
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseStart
Else
.Collapse Direction:=wdCollapseEnd
End If
.Find.Execute Replace:=wdReplaceOne
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseEnd
Else
.Collapse Direction:=wdCollapseStart
End If
.Find.Execute
End With
With Selection.Find
.Text = herf
.Replacement.Text = "D)"
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
With Selection
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseStart
Else
.Collapse Direction:=wdCollapseEnd
End If
.Find.Execute Replace:=wdReplaceOne
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseEnd
Else
.Collapse Direction:=wdCollapseStart
End If
.Find.Execute
End With
With Selection.Find
.Text = herf
.Replacement.Text = "E)"
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
With Selection
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseStart
Else
.Collapse Direction:=wdCollapseEnd
End If
.Find.Execute Replace:=wdReplaceOne
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseEnd
Else
.Collapse Direction:=wdCollapseStart
End If
.Find.Execute
End With
End Sub

----------------------------

Eyni variantli suallarin ABCDE edilmesi -------KOD------- Dim herf As String Sub ABCDEDEYISME() ' ' ABCDEDEYISME Ìàêðîñ ' ' herf = Selection.Text Selection.Find.ClearFormatting Selection.Find.Repla...

Sabah imtahanı olan hamıya uğurlar

Yeniliklər ! Artıq yekun imtahanlardan öncə keçirilən sınaq imtahanlarınada sayt vasitəsilə hazırlaşa bilərsiniz.