admin 管理员组文章数量: 1184232
2024年3月27日发(作者：如何配置mysql环境变量)
如需相应的流程图请联系*****************
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 p<1600000000
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．从键盘上输入一个学生的学号和考试成绩，然后输出该学生的学号、成绩，并根据成绩按下
面的规定输出对该学生的评语：
1
成绩 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()
Dim i%, j%, k%, m%
2
版权声明：本文标题：信息技术教师招聘编程题目及答案 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/p/1711524417a598278.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论