VB大题题.docVIP

VB大题题库 1输入圆的半径，计算圆的面积，并输出。 Private Sub Command1_Click() Dim r!, s! r = InputBox(请输入半径, 输入框) s = 3.1415926 * r ^ 2 Text1.Text = s End Sub 输入正方形的边长，计算正方形的面积，并输出。 Private Sub Command1_Click() Dim a% a = Text1.Text s = a * a Print s End Sub 计算长方形周长 Private Sub Command1_Click() Dim m#, n# m = Val(InputBox(请输入长方形的长)) n = Val(InputBox(请输入长方形的宽)) MsgBox (2 * (m + n)) End Sub 输入三个数判断是否能构成三角形，若能计算其面积 Private Sub Command1_Click() Dim i As Integer, a(2) As Integer, p As Single, s As Single For i = 0 To 2 a(i) = Val(InputBox(输入第 i 条边的边长：)) Next i If a(0) + a(1) a(2) And a(0) + a(2) a(1) And a(1) + a(2) a(0) Then p = (a(0) + a(1) + a(2)) / 2 s = Sqr(p * (p - a(0)) * (p - a(1)) * (p - a(2))) MsgBox (s) Else MsgBox (不能构成三角形) End If End Sub 2输入一个两位数，分别输出它的个位数字和十位数字。 Private Sub Command1_Click() a = Val(InputBox(, )) If a = 10 And a 100 Then c = a \ 10 d = a Mod 10 End If Print a 的十位数为： c ，个位数为： d End Sub 输入一个四位数，分别输出它的个位数字、十位数字、百位数字和千位数字。 Private Sub Command1_Click() a = Val(InputBox(, )) If a = 1000 And a 10000 Then c = a \ 1000 d = (a - c * 1000) \ 100 e = (a - c * 1000 - d * 100) \ 10 f = a - c * 1000 - d * 100 - d * 10 End If Print a 的千位数为： c Print a 的百位数为： d Print a 的十位数为： e Print a 的个位数为： f End Sub 3裴波那契数列是由计算某类动物繁殖增长量而提出的。数列的前两项是1、1，以后的每一项都是其相邻前两项之和。编写程序求:　数列前30项和FS; (2178308) Private Sub Command1_Click() Dim a#(1 To 30), fs a(1) = 1 a(2) = 1 For i = 3 To 30 a(i) = a(i - 1) + a(i - 2) Next For i = 1 To 30 fs = fs + a(i) Next Print fs End Sub 用Function过程求斐波那契数列的第n项，并调用该函数，显示数列的第5项。斐波那契数列：1，1，2，3，5，8... ... Dim i As Integer Private Sub Command1_Click() n = InputBox(, ) For i = 1 To n Print f(i) Next i End Sub Private Function f(a) If a = 1 Or a = 2 Then f = 1 Else f = f(a - 1) + f(a - 2) End If End Function 4编写程序，产生一个整型二维数组A（N ，N），（N 取5），数组元素的取值范围为[0，20 )，计算数组中每一列数据的和 Option Base 1 Private Sub Form_Click() Randomize Dim a(1 To 5, 1 To 5) For i = 1 To 3 For j = 1 To 3 a(i, j) = Int(Rnd * 21) Print a(i, j); ;