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

PAGE 2 PAGE 1 如需相应的流程图请联系1918251525@ 1．编写程序，计算1+2+3+4+…+100。 解答：使用For循环语句，程序如下： Private Sub Form_Click( ) Static Sum As Integer For I =1 To 100 Sum = Sum + I Next I Print Sum End Sub 程序运行后，单击窗体，输出结果为：5050。 2．我国现有人口为12亿，设年增长率为1%，编写程序，计算多少年后增加到16亿。 解答：程序如下： Private Sub Form_Click( ) Dim p As Double Dim r As Single Dim n As Integer P=1200000000 r=0.01 While p1600000000 P = P + P* r N = N + 1 Wend P = Int(P) Print N;″年后，全国人口为：″；P End Sub 3．从键盘上输入两个正整数M和N，求最大公因子。 解答：程序如下： Private Sub Form_Click ( ) Dim m, n As Integer m = InputBox (″请输入M的值″) m = Val (m) m1 = m n = InputBox(″请输入N的值″) n = Val ( n ) n1= n Do While n 0 remin = m Mod n m = n n=remin Loop Print m1; 和; n1;的最大公因子是：;m End Sub 该程序通过辗转相除法求两个正整数的最大公因子。程序运行后，在输入对话框中分别输入96和64，输出结果为：96和64的最大公因子是：32 7．从键盘上输入一个学生的学号和考试成绩，然后输出该学生的学号、成绩，并根据成绩按下面的规定输出对该学生的评语： 成绩 80~100 60~79 50~59 40~49 0~39 评语 Very good Good Fair Poor Fail Private Sub Form_Click ( ) n = InputBox(″请输入学号″) s = InputBox(″请输入分数″) If s = 80 Then MsgBox 学号 n ,分数为 s ,Very good ElseIf s = 60 And s = 79 Then MsgBox 学号 n ,分数为 s ,good ElseIf s = 50 And s = 59 Then MsgBox 学号 n ,分数为 s ,Fair ElseIf s = 40 And s = 49 Then MsgBox 学号 n ,分数为 s ,Poor ElseIf s = 0 And s = 39 Then MsgBox 学号 n ,分数为 s ,Fail End If End Sub 程序运行后，单击窗体，在输入对话框中分别输入学号和分数，程序将在输出对话框中输出适当评语。 5．从键盘上输入4个数，编写程序，计算并输出这4个数的和及平均数。通过InputBox函数输入数据，在窗体上显示和及平均值。 Private Sub Command1_Click() a = Val(a) b = InputBox(″输入第二个数″) b = Val(b) C = InputBox(″输入第三个数″) C = Val(C) D = InputBox(″输入第四个数″) D = Val(D) sum = a + b + C + D aver = sum / 4 Print 所输入的4个数分别为：; a, b, C, D Print 4个数的和为：; sum Print 4 个数的平均值为：; aver End Sub 以1，2，3，4，5为边长可以形成多少个三角形，不考虑相同情况，请输出这些三角形的三个边长 Private Sub Form_Click()