信息技术教师招聘编程题目及答案

信息技术教师招聘编程题目及答案内容摘要：

Next j If x = 0 Then Print i Next i End Sub 计算数列 4„„ 9999 中能被 13整除的整数个数 .用 VB编程 Private Sub Command1_Click() For i = 1 To 9999 If i Mod 13 = 0 Then 10 n = n + 1 End If Next i Print 共有 amp。 n amp。 个数 End Sub 编写程序，求表达式 22222 204321  的值。 Private Sub Form_Click() Dim i As Integer, sum As Long For i = 1 To 20 sum = sum + i ^ 2 Next i Print sum End Sub 编写程序，求表达式 87654321 87654321  的值 Private Sub Form_Click() Dim i As Long, sum As Long For i = 1 To 8 sum = sum + i ^ i Next i Print sum End Sub 编写程序，求表达式 1/12+1/22+1/32+1/42+„ +1/102的值。 Private Sub Command1_Click() Dim s As Double‘定义累加变量 s来储存结果 Dim i As Double’定义 i为计数变量。 For i = 1 To 10 s = s + 1 / i ^ 2 Next i Print s End Sub 编写程序，求表达式 1+3+5+7+9„„ +99 Private Sub Command1_Click() Dim s As Double Dim i As Double For i = 1 To 99 step 2 s = s + i Next i Print s End Sub P的值 :P=1!+3!+5!+7!+9! Private Sub Form_Click() Sum = 0 11 For a = 1 To 9 Step 2 b = 1 For c = 1 To a b = b * a Next c Sum = Sum + b Next a Print Sum End Sub 1到 100自然数中被 7整除的数据的个数及他们的和 . Private Sub Form_Click() For a = 1 To 100 If a Mod 7 = 0 Then b = b + 1: Sum = Sum + a Next a Print b, Sum End Sub Private Sub Form_Load() Sum = 0 b = 0 End Sub 那个下划线（也就是 “ 横 ” ）左边的是控件名（ Command1），右边的是事件（ Click），括号里包含的是参数（空白就表示没有参数）。 整个的意思就是：当你用鼠标点击名为 Command1 的按钮时，就执行这一行 下面的多行代码，直到遇到 End Sub结束 输入长方形的长和宽，计算长方形的面积，并输出。 Private Sub mand1_click() Dim a%, b%, s% a = Val(InputBox(a)) b = Val(InputBox(b)) s = a * b Print s End Sub 输入圆的半径，计算圆的周长，并输出。 Private sub mand1_click() Const pi= Dim s,i% r=val(inputbox(请输入半径 )) s=2*pi*r print 圆的周长为：。 s end sub 》计算 sum=1/2!+1/4!+1/6!+...+1/10! Private sub mand1_click() Dim i%,f,s F=1:s=0 各种语句中间加冒号（：） For i=1 to 10 12 F=f*i If i mod 2=0 then S=s+1/f End if Next i Print sum=1/2!+1/4!+1/6!+...+1/10!。 =。 s End sub 计算 sum=1+3+5+...+99 Private Sub mand1_click() Dim i%, sum% For i = 1 To 99 Step 2 sum = sum + i Next Print sum End Sub 1随机输出一个位于 [0， 100]的整数。 Private Sub Command1_Click() Dim s S=int(rnd *101) 39。 括号里是 r n d ，不是 md Print 随机整数为：。 s End sub 1编写一个函数，其功能为求两个数的最小数。 Private Sub Command1_Click() Dim x!, y! x = InputBox(输入第一个数值 ) y = InputBox(输入第二个数值 ) Min = f(x, y) End Sub Public Function f(m!, n!) Min = m If Min n Then Min = n f = Min Print 两数中的较小数是。 Min End Function 1》输入一个四位数，分别输出它的个位数字、十位数字、百位数字和千位数字。 Private Sub Command1_Click() Dim n%, a%, b%, c%, d% n = InputBox(输入 n的值 ) a = n \ 1000 13 b = (n a * 1000) \ 100 c = (n a * 1000 b * 100) \ 10 d = n a * 1000 b * 100 c * 10 Print 这个四位数的 千位数字是 :。 a Print 这个四位数的百位数字是 :。 b Print 这个四位数的十位数字是 :。 c Print 这个四位数的个位数字是。 d End Sub 1随机输出一个小（大）写字母。 Private Sub Command1_Click() Dim s s = Chr$(Int(Rnd * 26 + 97)) p = Chr$(Int(Rnd * 26 + 65)) Print 输出的随机小写字母是。 s Print 输出的随机大写字母是。 p End Sub 22. 输入一个两位数，分别输出它的个位数字和十位数字。 Private Sub Command1_Click() Dim a!, n!, b! a = Val(InputBox(输入以为二位数 )) Print 输入的一个二位数是 amp。 a n = a Mod 10 b = a \ 10 Print 十位数是 amp。 b Print 个位数是 amp。 n End Sub 2编写一个函数，其功能为求两个数的最大公约数。 Private Sub Command1_Click() Dim n%, m%, r%, t%, x%, y% m = InputBox(输入的第一个自然数 ) n = InputBox(输入的第二个自然数 ) If m n Then t = m: m = n: n = t x = m: y = n r = m Mod n Do While r 0 x = y y = r r = x Mod y Loop Print m amp。 和 amp。 n amp。 的最大公约数是。 y End Sub 2编写一个函数，其功能为求两个数的最小公倍数。 Private Sub Command1_Click() Dim n%, m%, r%, t%, x%, y% m = InputBox(输入的第一个自然数 ) n = InputBox(输入的第二个自然数 ) 14 If m n Then t = m: m = n: n = t x = m: y = n r = m Mod n Do While r 0 x = y y = r r = x Mod y Loop Print m amp。 和 amp。 n amp。 的最小公倍数是。 m * n / y End Sub 2 》 编写程序，计算并输出下面级数前 n 项 (n=20) 中奇数项的和。 1*2*32*3*4+3*4*54*5*6+ „ +( 1)^(n1)*n*(n+1)*(n+2)+ „ （其中， ^ 表示幂运算） Private sub mand1_click() Dim i%,n%,sum% n=20 for i=1 to n step 2 sum= sum+ i*(i+1)*(i+2) Next Print sum End sub 2》计算 sum=1*2*3*...*10 private s。