vb中用一个变量来存储获取到的实时31个日期

在VB中，您可以使用一个数组来存储获取到的实时31个日期。例如，您可以声明一个具有31个元素的String数组来存储这些日期：

Dim dates(30) As String

然后，您可以使用循环或其他逻辑来获取并存储实时日期：

For i As Integer = 0 To 30
    dates(i) = DateTime.Now.AddDays(i).ToString("yyyy-MM-dd")
Next

这将使用当前日期并添加从0到30的天数来获取实时日期，并将其存储在数组中。您可以根据需要调整日期的格式化方式。