[vb专题]预测2020年vb大题

6/17更新

我做梦也没想到，vb一道大题都没有（指难度）。这些预测完美扑街，可以用来练手。

猜测1，图形

三角形系列

直角三角形

2018年第一场第三题

倒三角形

2018年第二场第三题

普通三角形

2018年第三场第三题

四边形系列

菱形

#绝对值做法
Cls
a = Val(Text1)
For i = -a To a
    Print Tab(Abs(i) + 1);
        For j = Abs(i) - a To a - Abs(i)
        Print "*";
        Next j
        Next i
#双三角型做法
Cls
a = Val(Text1)
For i = 1 To a
Print Space(a - i);
For j = 1 To 2 * i - 1
Print "*";
Next j
Print
Next i
For i = a - 1 To 1 Step -1
Print Space(a - i);
For j = 1 To 2 * i - 1
Print "*";
Next j
Print
Next i

猜测2，数组

求二维数组四周元素的和

Dim a(4,4)
For i = 1 to 4
    For j = 1 to 4
    If i = 1 Or j = 1 Or i = 4 Or j = 4 then
        sum = sum + a(i,j)
    EndIf
    Next j 
Next i
Print sum

求二维数组对角线元素的和

求二维数组a(n,n)主对角线元素的和

For i = 1 to n
    s = s + a(i,i)
Next i

求二维数组a(n,n)次对角线元素的和

For i = 1 to n
    s = s + a(i , n + 1 - i)
Next i

猜测3，斐波那契数列

求斐波那契数列前20项

Dim a(20)
a(1) = 1
a(2) = 1
For i = 3 To 20
a(i) = a(i - 1) + a(i - 2)
Next i
For i = 1 To 20
Print a(i)
Next i