[vb专题]预测2020年vb大题
6/17更新
我做梦也没想到,vb一道大题都没有(指难度)。这些预测完美扑街,可以用来练手。
猜测1,图形
三角形系列
直角三角形
倒三角形
普通三角形
四边形系列
菱形
#绝对值做法
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
未经允许不得转载:Sansmall's Blog » [vb专题]预测2020年vb大题
发表于约 16 小时前
约 8 小时前
发表于2020-06-16 17:14