VB编程题库VIP免费

1 1 输入圆的半径，计算圆的面积，并输出。 Priv ate Su b Command1_Click() Dim r!, s! r = Inpu tBox ("请输入半径", "输入框") s = 3.1415926 * r ^ 2 Tex t1.Tex t = s End Su b 输入正方形的边长，计算正方形的面积，并输出。 Priv ate Su b Command1_Click() Dim a% a = Tex t1.Tex t s = a * a Print s End Su b 计算长方形周长 Priv ate Su b Command1_Click() Dim m#, n# m = Val(Inpu tBox ("请输入长方形的长")) n = Val(Inpu tBox ("请输入长方形的宽")) MsgBox (2 * (m + n)) End Su b 输入三个数判断是否能构成三角形，若能计算其面积 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 输入一个两位数，分别输出它的个位数字和十位数字。 Priv ate Su b Command1_Click() a = Val(Inpu tBox ("", "")) If a >= 10 And a < 100 Then c = a \ 10 d = a Mod 10 End If Print a & "的十位数为：" & c & "，个位数为：" & d End Su b 输入一个四位数，分别输出它的个位数字、十位数字、百位数字和千位数字。 Priv ate Su b Command1_Click() a = Val(Inpu tBox ("", "")) 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 Su b 3 裴波那契数列是由计算某类动物繁殖增长量而提出的。数列的前两项是1、1，以后的每一项都是其相邻前两项之和。编写程序求: 数列前30 项和FS; (2178308) Priv ate Su b Command1_Click...