汽车数据库阵列&循环

时间:2015-10-23 11:13:31

标签: arrays vb.net loops random

此代码似乎无法正常工作。我真的不知道要使用什么循环来添加用户放入机器再次打印的信息。

这样做的目的是让用户选择:

首先,我需要使用此数组让用户将信息输入数据库。使用数组。然而,它允许他们输入内容然后关闭程序,然后它在下次运行程序时不会将其打印到数据库中。

1.打印他们在早期数据库中键入的菜单。如果他们没有在数据库中输入任何内容,那么它应该是空白的

2.进行错误检查,以便在他们输入信件时告诉他们是否输入了数字。

3.结束该计划。 这是代码。

df['column_name'].mean()

1 个答案:

答案 0 :(得分:0)

结构是一组只能驻留在内存中的变量。如果要永久存储数据,则必须使用文本文件或真实数据库(Access或SQL)。但是,您可以使用数组以临时方式添加记录。我使用你的代码用数组实现它,这是你可以拥有临时数据库的更好方法。

模块模块1

Structure Car
    Public carmake() As String
    Public carlicence() As String
    Public carmodel() As String
    Public caryear() As Integer
End Structure

Sub Main()

    Dim userchoice As String
    Dim cardatabase As Car

    cardatabase.carmake = {}
    cardatabase.carlicence = {}
    cardatabase.carmodel = {}
    cardatabase.caryear = {}

    Dim i As Integer = 0
    Do
        Console.WriteLine("Choose weather to open the database(1), print it (2) or end (3)")
        userchoice = Console.ReadLine()
        If userchoice = "1" Then
            Console.WriteLine("This will allow you to view the database.")
            Console.WriteLine("Please enter the car make,licence,model and year")
            ReDim Preserve cardatabase.carmake(i)
            ReDim Preserve cardatabase.carlicence(i)
            ReDim Preserve cardatabase.carmodel(i)
            ReDim Preserve cardatabase.caryear(i)
            cardatabase.carmake(i) = Console.ReadLine()
            cardatabase.carlicence(i) = Console.ReadLine()
            cardatabase.carmodel(i) = Console.ReadLine()
            cardatabase.caryear(i) = Console.ReadLine()
            i += 1
        ElseIf userchoice = "2" Then
            For index = 0 To i - 1
                Console.WriteLine("The database is {0} - {1} - {2} - {3},", cardatabase.carmake(index),
                                 cardatabase.carlicence(index),
                              cardatabase.carmodel(index), cardatabase.caryear(index))
            Next
        ElseIf userchoice = "3" Then
            Console.WriteLine("Thanks for using this program.")
        End If
    Loop Until userchoice = "3"
    Console.ReadLine()
End Sub

结束模块