Institute of Information Science - University of Miskolc

Írja ki az A1, B1 és C1 cellákba: “Neptun kód”, “Pont”, “Jegy” egy szubrutin segítségével.

Sub Feladat()    
    Cells(1, "A").Value = "Neptun kód"
    Cells(1, "B").Value = "Pont"
    Cells(1, "C").Value = "Jegy"
End Sub    

Írjon VBA függvényt ami olyan kódokat generál véletlenszerűen, ami 6 karakterből áll és minden karakter nagybetű lehet.

Function GeneralNEPUNKod_Nagybetus() As String
    Dim kod As String
    Dim i As Integer
    Dim r As Integer
    
    kod = ""
    Randomize ' a véletlen generálást inicializáljuk
    
    For i = 1 To 6
        r = Int(Rnd() * 26) + Asc("A") ' A–Z 26 karakter
        kod = kod & Chr(r)
    Next i
    
    GeneralNEPUNKod_Nagybetus = kod
End Function

Töltse fel az A1 és A5 közötti cellákat ezekkel a véletlen string-ekkel a korábbi szubrutinhoz hozzáadva a kódot:

Sub Feladat()
    Dim i As Integer
    
    Cells(1, "A").Value = "Neptun kód"
    Cells(1, "B").Value = "Pont"
    Cells(1, "C").Value = "Jegy"
    
    For i = 1 To 5
       Cells(i, "A").Value = GeneralNEPUNKod_Nagybetus
    Next
End Sub