R Studio :

install.packages("QRM") library(QRM)

set.seed(150) AAA <- rnorm(50,50,0.3) logreturns <- diff(log(AAA))

Assuming that the daily log returns for AAA Inc. follow normal distribution, the 99% VaR is: a.-0.02002137 b.-0.02235154 c.-0.02608716 d.-0.02174024