VB大题题库.docVIP

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 10End IfPrint a 的十位数为： c ，个位数为： dEnd 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 * 10End IfPrint a 的千位数为： cPrint a 的百位数为： dPrint a 的十位数为： ePrint a 的个位数为： fEnd SubOption Base 1Private Sub Command1_Click() Dim a()a() = Array(1, 2, 3, 4, 5, 6, 7, 8, 9)Print 数组中所有元素的平均值为： ave(a())End SubPrivate Function ave(a())For i = 1 To UBound(a) Sum = Sum + a(i)Next iave = Sum / UBound(a)End Function 5编写程序，计算并输出下面级数前n项(n=50)中偶数项的和。s?=?1*2+2*3+3*4+4*5+……+n*(n+1)+… 22750 Private Sub Form_Activate() s = 0 For I = 2 To 50 Step 2 s = s + I * (I + 1) Next I Print s End Sub 6编写程序， 设n=20，x=3.4，编写程序，计算并输出S(n)的值，要求结果保留5位小数。S(n)=lnx/x+ln2x/x^2+ln3x/x^3+…+ln(n*x)/x^n+…（其中，ln为自然对数函数） Private Sub Command1_Click()Const x = 3.4For n = 1 To 20 s = s + Log(n * x) / x ^ nNext nPrint Format(s, 0.#####)End Sub 7随机输出一个小写字母Dim letterasscii, i%, letter$letterascii = Int(Rnd * 26) + 97letter = Chr(letterascii)Print letterMsg