输入圆的半径,计算圆的面积,并输出。⏺Private Sub Command1_Click()Dim r!, s!r = InputBox("请输入半径", "输入框")s = 3.1415926 * r ^ 2Text1.Text = sEnd Sub⏺2裴波那契数列是由计算某类动物繁殖增长量而提出的。数列的前两项是1、1,以后的每一项都是其相邻前两项之和。编写程序求:数列前30项和FS; (2178308)⏺Private Sub Command1_Click()Dim a#(1 To 30), fsA. (1) = 1 B. (2) = 1 C. or i = 3 To 30 D. (i) = a(i - 1) + a(i - 2) E. Next F. or i = 1 To 30 G. (i) Next Print fs nd Sub ⏺ (N,N),(N取5),数组元素的取值范围为[0,20 ),计算数组中每一列数据的和 ⏺ o 5, 1 To 5) For i = 1 To 3 For j = 1 To 3 a(i, j) = Int(Rnd * 21) Print a(i, j); " "; Next j Print Next i c = "每列相加的值是:" vbCrLf For i = 1 To 3 For j = 1 To 3 t = t + a(j, i) Next j c = c t " " t = 0 Next i Print c ⏺ nd Sub 4编写一个函数,其功能为判断某个整数是不是素数。调用该函数,判断100001是否是素数。 10000不是素数 ⏺ Private Sub Form_Click() p 2 sum = sum + i Next text1.Text = sum End Sub 八。输入一个两位数,分别输入它的个位数字和十位数字 ⏺ 10 c = a 10 Print "各位数字为:"; b; "十位数字为:" nd Sub 九。计算1/1!+1/3!+1/5!+.....+1/99! Private Sub Form_Load() Dim i%, sum%, fact% For i = 1 To 9 fact = fact * i If i Mod 2 = 0 Then sum = sum sum = sum + 1 / fact Next Print sum End Sub ⏺ 十。编写程序,建立一个6*6的整型二维数组(数据由程序调用rnd函数产生(0,15)的随机),输出数组中所有元素和 ⏺ Private Sub Form_Load() Option Base 1 For i = 1 To 6 For j = 1 To 6 a(i, j) = Int(Rnd * 15) Next j Next i Sum = 0 For i = 1 To 6 For j = 1 To 6 Sum = Sum + a(i, j) Next j Next i Print Sum End Sub ⏺ im n, i# InputBox("n=") i = 2 While n Mod i <> 0 i = i + 1 Wend i = n Then Print n "是素数" lse Print n "不是素数" nd If nd Sub ⏺ 5编写程序,计算并输出下面级数前n项(n=50)中偶数项的和。 ⏺ s = 1*2+2*3+3*4+4*5+……+n*(n+1)+… 22750 Private Sub Form_Activate() s = 0 or I = 2 To 50 Step 2 I * (I + 1) Next I Print s nd Sub ⏺ 6编写一个函数,其参数为一个一维整型数组,其功能为求数组中所有元素的平均值。 ⏺ Option Base 1 Private Sub Command1_Click() Sub Private Function ave(a()) For i = 1 To UBound(a) Sum = Sum + a(i) Next i ave = Sum / UBound(a) End Funct nd Sub Private unction ave(a()) For i = 1 To UBound(a) Sum = Sum + a(i) Next i ave = Sum / UBound(a) End Function ⏺ Rnd函数产生[0,15)的随机整数数),输出数组中的最大元素。 ⏺ Option Base 1 Private Sub Command1_Click() im a(6, 6) As Integer Randomize Max = a(1, 1) or i = 1 To 6 or j = 1 To 6 (i, j) = Int(Rnd * 16 + 0) If a(i, j) > Max Then Max = a(i, j) nd If Print a(i, j); n = n + 1 If n Mod 6 = 0 Then Print nd If Next j Next i Print "最大元素为:"; Max nd Sub ⏺ 8输入一个两位数,分别输出它的个位数字和十位数字。 ⏺ 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 ⏺ 9计算sum=1!+3!+5!+...+9 ⏺ Private Sub Command1_Click() Dim i%,j%,sum#,a# sum = 0 For i = 1 To 9 Step2 a=1 For j = 1 To i a = a * j sum = sum + a Next j Next i Print sum End Sub ⏺ 10编写一个函数,其功能是把一个二进制数串转换为十进制数串。调用该函数,计算二进制“1110011“对应的十进制数 Private Sub Command1_Click() Print BIN_to_DEC(1110011) End Sub Public Function BIN_to_DEC(ByVal Bin As String) As Long Dim i As Long For i = 1 To Len(Bin) BIN_to_DEC = BIN_to_DEC * 2 + Val(Mid(Bin, i, 1)) Next i End Function 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.4 For n = 1 To 20 s = s + Log(n * x) / x ^ n Next n Print Format(s, "0.#####") End Sub 12输入正方形的边长,计算正方形的面积,并输出。 ⏺ Private Sub Command1_Click() im a% = Text1.Text * a Print s nd Sub ⏺ unction过程实现。 ⏺ Private Sub Command1_Click() a = InputBox("请输入十六进制数:", "输入") Print a "转成十进制:" HEX_to_DEC(a) End Sub Public Function HEX_to_DEC(ByVal Hex As String) As Long Dim i As Long Dim B As Long Hex = UCase(Hex) For i = 1 To Len(Hex) Select Case Mid(Hex, Len(Hex) - i + 1, 1) Case "0": B = B + 16 ^ (i - 1) * 0 Case "1": B = B + 16 ^ (i - 1) * 1 Case "2": B = B + 16 ^ (i - 1) * 2 ": B = B + 16 ^ (i - 1) * 13 Case "E": B = B + 16 ^ (i - 1) * 14 Case "F": B = B + 16 ^ (i - 1) * 15 nd Select Next i HEX_to_DEC = B End unction ⏺ unction过程求斐波那契数列的第n项,并调用该函数,显示数列的第5项。斐波那契数列:1,1,2,3,5,8…… ⏺ 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 nd Sub Private Function f(a) If a = 1 Or a = 2 Then = 1 Else f = f(a - 1) + f(a - 2) End If End Function⏺ 15输入一个四位数,分别输出它的个位数字、十位数字、百位数字和千位数字。 ⏺ 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 (-10) End If Print a "的千位数为:" c Print a "的百位数为:" d Print a "的十位数为:" e Print a "的个位数为:" f End Sub ⏺ 16编写一个函数,其功能为求两个数的最大公约数。 ⏺ Private Sub Form_Click() im m%, n% InputBox("请输入第一个自然数") InputBox("请输入第二个自然数") Print m; "和"; n; "的最大公约数是"; Print gcd(m, n) nd Sub Public Function gcd%(x%, y%) im r% Mod y While r <> 0 x = y y = r Mod y Wend cd = y nd unction ⏺ 17判断输入年份是否闰年; ⏺ im m% l(inputbox(“m”)) if m mod 400=0 or m mod 100<>0 and m mod 4=0 then print "YES" else print "NO" nd if * 26) + 97 letter = Chr(letterascii) Print letter MsgBox (letter) ⏺ ⏺ Private Sub Command1_Click() im a!, b!, c!, i! Val(InputBox("i")) = m Mod 10 / 10 Mod 10 100 i Then MsgBox "yes" lse MsgBox "NO" nd If i <> 0 i = i + 1 Wend If i = n Then Print n "是素数" lse Print n "不是素数" End If ⏺ ⏺ nd Sub找出100到1000间的水仙花数 Dim i%, a, b, c% or i = 100 To999 a = i Mod 10 b = (i - a) / 10 Mod10 c = i 100 If a ^ 3 + b ^ 3 + c ^ 3 = i Then Print i; End If Next i m m,n% m = Val(InputBox("m")) n = Val(InputBox("n")) if m<n then k=m:m=n:n=k end if print m;n; ⏺ ^(n-1)*n*(n+1)*(n+2)+ …(其中,^表示幂运算) ⏺ Private Sub Command1_Click() im i%, s% or i = 1 To 20 Step 2 s = s + i * (i + 1) * (i + 2) Next Print s nd Sub ⏺ [0,100]之间]) 计算数组中所有偶数的数据的和: ⏺ * 100 If a(i) Mod 2 = 0 Then sum = sum + a(i) or i = LBound(a) To UBound(a) Randomize a(i) = Rnd * 100 If a(i) Mod 2 = 0 Then sum = sum + a(i) End If Next Print sum ⏺ ^2/2!+x^3/3!+…+x^n/n!+… ⏺ Private Sub Command1_Click() Dim i As Integer Dim sum As Single Dim a As Double Dim b As Single a = 1: x = 3.1416: sum = 1 For i = 1 To15 a = a * i b = x ^ i / a sum = sum + b Next i Print Format(sum, "0.000000") End Sub⏺ S(n)的值,保留5位小数 S(n)=(1*2)/(3*4)+(3*4)/(5*6)+(5*6)/(7*8)+......+((2n-1)*2n)/((2n+1)*(2n+2))+....... ⏺ Private Sub Command1_Click() im i!, s! or i = 1 To 20 s = s + (i * (i + 1)) / ((i + 2) * (i + 3)) Next Print s Print Format(Sum, "0.00000") nd Sub ⏺ [1,100](包括1和100)内所有偶数的和。 (2) 求[25,300](包括25和300)内奇数(或偶数)的个数。 (3) 求[0,100]内能被3和7整除的数的个数。 第二题求二维矩阵特定元素的和或交换位置等; 例题: (1) 求二维矩阵a(1 to 6,1 to 6)第一列和第六列所有元素的和,所有元素从[0,100](含0和100)中随机产生。 (2) 求5x5矩阵中5的倍数的个数,所有元素从[0,100](含0和100)中随机产生。 (3) 求二维矩阵a(4,4)所有非边界元素的和,元素从[0,100](含0和100)中随机产生 第三题窗体设计理清思路慢慢来。 例题: (13)设计“倒计时” 界面要求: * 使用标签,文本框,命令按钮、时钟控件完成。 *运行要求: * 用户点击“开始”按钮,从文本框中读取初始秒数显示到上面的标签中,每隔一秒将标签中, *显示的秒数减1,当减到0时,将时钟控件的Enbabled属性置为False,并使用MsgBox显示“时间到”。 (答案) Private Sub Command1_Click() Timer1.Enabled = True Timer1.Interval = 1000 Label1.Caption = Val(Text1.Text) End Sub Private Sub Timer1_Timer() Label1.Caption = Label1.Caption – 1(还有“正计时”的题,换成“+1”,且label1.caption 的初始值为0即可) If Label1.Caption = 0 Then Timer1.Enabled = False: MsgBox quot;时间到quot; End Sub 前两道大题不难,第一题使用一个for循环即可,第二题使用两个for循环即可,自己先做一下,不会的再来咨询“统一战线”。 ⏺ 一。随机数出一个小写字母 Private Sub Command1_Click() Dim a As String Randomize a = Chr(Int(97 + 26 * 26)) MsgBox (a) End Sub 二。计算1/1!+1/2!+。。。。+1|10! Private Sub Command1_Click() Dim m As Integer, n As Long, s As Double n = 1 s = 0 For m = 1 To 10 n = n * m s = s + 1 / n Next Print s End Sub 三。编写一个函数,求两个数的最小数 Private Sub Form_Load() Dim a%, b% a = Val(InputBox("a=")) b = Val(InputBox("b=")) If a > b Then Print "a>b" Else Print "a<b" End If End Sub 四。输入正方形的边长,并计算对角线长 Private Sub Form_Load() Dim a%, b% a = InputBox("请输入a的值") b = Sqr(2) * a Print "正方形的对角线长:"; b End Sub 五。计算并输出下面级数前n项和中偶数项和s=1*2+2*3+3*4+4*5+。。。。+n*(n+1) p 2 sum = sum + i * (i + 1) Next i Print sum End Sub 六。编写一个函数,其功能是判断某个整数是不是素数,调用该函数,判断100001是否是素数 Private Sub Command1_Click() Dim a%, i% a = InputBox("请输入a的值") For i = 1 To a If a Mod i = 0 Then m = m + 1 End If Next i If m = 2 Then MsgBox ("a是素数") Else MsgBox ("a不是素数") End If End Sub 七。计算sum=1+3+5+...+99