VB基础题目，为了提高大家学习VB语言的兴趣，本人现将100分基础分数以答题的方式献给大家~~~

Question

以下是VB基础题目，为了提高大家学习VB语言的兴趣，本人现将100分基础分数以答题的方式献给大家~~~答对者每题给2-3分不等
申明下全部是简单题目，请高手手下留情~~~题目如下：
    
第1题、运行下面的程序，单击窗体后在窗体上显示的第一行结果是【】,第二行结果是【】，第三行结果【】（2分）.
    Private Sub Form_Click()
        Dim Mystr As String, Ml As String, M2 As String
        Ml = "A"
        For i = 1 To 3
            M2 = LCase(Ml) 
            Ml = Ml + M2
            Mystr = Mystr + M1             
            Print(Mystr)
            Ml = Chr(Asc(Ml) + i)          REM  A—Z的ASCLL码值为65-90
        Next i
    End Sub
第2题、运行下面的程序，第一行输出【】，第二行输出【】（3分）。
    Private Sub Form_Click()
        Dim i As Integer, j As Integer
        Dim a As Integer, k As Integer
        i = 5 : j = 1 : k = 1
        Do While a <= 10
            a = i * j
            k = k + 1
            If a > 5 Then Exit Do
            i = i + 1
            j = a + i
        Loop
        Print(a, k)
        Print(i, j)
    End Sub
第3题、在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程,程序运行后，单击命令按钮，如果输入，则在窗体上显示的内容是【】（1分）。
    Private Sub Command1_Click()
        x = 0
        n = InputBox("请输入一个整数")
        For i = 1 To n
            For j = 1 To i
                x = x + 1
            Next j
        Next i
        Print(x)
    End Sub
第4题、程序如下，请写出运行结果为【】。（3分）
    Private Sub Command1_Click()
        Dim I As Integer
        Dim e As Single : e = 1
        For I = 1 To 10
            T = 1
            For I = 1 To X  
                T = T * I
            Next I
            e = e + 1 / T
        Next I
        Print(e = e)
    End Sub
第5题、运行下面的程序，第一行输出【】，第二行输出【】（2分）。
    Private Sub Form_Click()
        Dim i As Integer, j As Integer
        Dim a As Integer, b As Integer
        a = 5 : b = 1 : k = 1
        For i = 1 To a + b Step b
            i = i + b
            a = a + i
            b = b + i
            k = k + 1
        Next i
        Print(a)
        Print(b, k)
    End Sub
第6题、运行下面的程序，单击窗体后在窗体上显示的内容是【】（1分）.
    Private Sub Form_Click()
        For i = 1 To 10 Step 2
            Print(i)
        Next i
    End Sub
第7题、运行下面的程序，单击窗体后在窗体上显示的内容是【】；若将程序中的A 语句与B 语句的位置互换，再次执行程序，单击窗体后在窗体上显示的内容是【】
    Private Sub Form_Click()
        Dim x As Integer, y As Integer
        x = 1 : y = O
        Do While x < 3
            y = y + x    'A句
            x = x + 1    'B句
        Loop
        Print(x, y)
    End Sub
第8题、运行下面的程序，就会出现【】，按【】键可以终止程序运行。
    Private Sub Form_Click()
        Dim i As Integer
        Do While i < 10
            i = i * 2
        Loop
    End Sub
第9题、运行下面的程序，第一行输出【】，第二行输出【】，第四行输出【】。
    Private Sub Form_Click()
        Dim ch As String, s As String
        Dim i As Integer, j As Integer        ch = "ABCDEFGHIJ" : j = 1
        For i = 1 To Len(ch) Step 2
            j = j + i
            If j Mod 2 = 0 Then
                s = s + Mid(ch, j, 1)
            Else
                s = s + Chr(Asc(Mid(ch, i, 1)) + 32)   Rem  A-65 ,a-99
            End If
            Print(s)
        Next i
    End Sub
第10题、运行下面的程序，当单击窗体时，窗体上显示的内容的第一行是【】，第二行是【】.
    Private Sub Test(ByVal x As Integer)
        x = x * 2 + 1
        If x < 6 Then
            Call Test(x)
        End If
        x = x * 2 + 1
        Forml.Print(x)
    End Sub    Private Sub Form_Click()
        Test(2)
    End Sub

Answer 1

以下是VB基础题目，为了提高大家学习VB语言的兴趣，本人现将100分基础分数以答题的方式献给大家~~~答对者每题给2-3分不等
申明下全部是简单题目，请高手手下留情~~~题目如下：
[code=VB.NET]    
第1题、运行下面的程序，单击窗体后在窗体上显示的第一行结果是【】,第二行结果是【】，第三行结果【】（2分）.
    Private Sub Form_Click()
        Dim Mystr As String, Ml As String, M2 As String
        Ml = "A"
        For i = 1 To 3
            M2 = LCase(Ml) 
            Ml = Ml + M2
            Mystr = Mystr + M1             
            Print(Mystr)
            Ml = Chr(Asc(Ml) + i)          REM  A—Z的ASCLL码值为65-90
        Next i
    End Sub
第2题、运行下面的程序，第一行输出【】，第二行输出【】（3分）。
    Private Sub Form_Click()
        Dim i As Integer, j As Integer
        Dim a As Integer, k As Integer
        i = 5 : j = 1 : k = 1
        Do While a <= 10
            a = i * j
            k = k + 1
            If a > 5 Then Exit Do
            i = i + 1
            j = a + i
        Loop
        Print(a, k)
        Print(i, j)
    End Sub
第3题、在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程,程序运行后，单击命令按钮，如果输入，则在窗体上显示的内容是【】（1分）。
    Private Sub Command1_Click()
        x = 0
        n = InputBox("请输入一个整数")
        For i = 1 To n
            For j = 1 To i
                x = x + 1
            Next j
        Next i
        Print(x)
    End Sub
第4题、程序如下，请写出运行结果为【】。（3分）
    Private Sub Command1_Click()
        Dim I As Integer
        Dim e As Single : e = 1
        For I = 1 To 10
            T = 1
            For I = 1 To X  
                T = T * I
            Next I
            e = e + 1 / T
        Next I
        Print(e = e)
    End Sub
第5题、运行下面的程序，第一行输出【】，第二行输出【】（2分）。
    Private Sub Form_Click()
        Dim i As Integer, j As Integer
        Dim a As Integer, b As Integer
        a = 5 : b = 1 : k = 1
        For i = 1 To a + b Step b
            i = i + b
            a = a + i
            b = b + i
            k = k + 1
        Next i
        Print(a)
        Print(b, k)
    End Sub
第6题、运行下面的程序，单击窗体后在窗体上显示的内容是【】（1分）.
    Private Sub Form_Click()
        For i = 1 To 10 Step 2
            Print(i)
        Next i
    End Sub
第7题、运行下面的程序，单击窗体后在窗体上显示的内容是【】；若将程序中的A 语句与B 语句的位置互换，再次执行程序，单击窗体后在窗体上显示的内容是【】
    Private Sub Form_Click()
        Dim x As Integer, y As Integer
        x = 1 : y = O
        Do While x < 3
            y = y + x    'A句
            x = x + 1    'B句
        Loop
        Print(x, y)
    End Sub
第8题、运行下面的程序，就会出现【】，按【】键可以终止程序运行。
    Private Sub Form_Click()
        Dim i As Integer
        Do While i < 10
            i = i * 2
        Loop
    End Sub
第9题、运行下面的程序，第一行输出【】，第二行输出【】，第四行输出【】。
    Private Sub Form_Click()
        Dim ch As String, s As String
        Dim i As Integer, j As Integer        ch = "ABCDEFGHIJ" : j = 1
        For i = 1 To Len(ch) Step 2
            j = j + i
            If j Mod 2 = 0 Then
                s = s + Mid(ch, j, 1)
            Else
                s = s + Chr(Asc(Mid(ch, i, 1)) + 32)   Rem  A-65 ,a-99
            End If
            Print(s)
        Next i
    End Sub
第10题、运行下面的程序，当单击窗体时，窗体上显示的内容的第一行是【】，第二行是【】.
    Private Sub Test(ByVal x As Integer)
        x = x * 2 + 1
        If x < 6 Then
            Call Test(x)
        End If
        x = x * 2 + 1
        Forml.Print(x)
    End Sub    Private Sub Form_Click()
        Test(2)
    End Sub