(VB代码)
Private Sub Form_Activate() Dim i,s as integer s=0 for i=2 to 6 s=s+I Next i Print “S=”;s
End Sub
执
行
结
果
____S=20_______
：
三、程序部分大题：
1. 题目中是一个求二次函数曲线顶点坐标的VB程序，在运行是Text1、Text2、Text3分别输入3、6、9三个数，请问Text4、Text5输出结果分别就应为多少（每空4分，共8分）
-1,6
2. 下面是用VB编写的求1+1/2+1/3+……+1/100和的程序，在空缺部分填上相应的语句。 Private Sub Form_Activate()
Dim i As Integer, sum As Integer sum = 0
For i = 1 To 100 sum = sum + _______________ Next i
Print “sum=”; sum
End Sub 1/i
3、写出程序结果：
Private Sub Form_Activate( )
Dim ch As String, i As Integer ch = “DEF”
For i = 1 To 3 ch = ch & Mid (ch, i, 1 ) Next i Print ch End Sub
答案：
________________________ DEFDEF
4.表一是某种绘图软件的部分指令，如要根据表中的指令画出图一的图形，请根据分析填空：
FORWARD 4 FORWARD 5 LEFT 120 5．写出程序结果：
Private Sub Command1_Click() Dim p As Integer, i As Integer, n As Integer p=0 : n=5 For i=1 To n p=p+i*2 If p>=10 Then Exit For Next i Print p End Sub
答案：________________________ 12
6. 填补程序：假设你从今年开始为“希望工程”存钱，今年存入100元钱，第二年存入200元钱，第三年存入300元钱……依此类推，问：20年时间你将为“希望工程”存入多少钱
Private Sub Command1_Click( ) Dim n as integer, intsum as integer intsum=0 For n=1 to ______________ 20 intsum=intsum+n*100 _______________________ next n End Sub
=”两年共存入：”& intsum & “元”
7. 某快递公司规定：快件不超过1公斤的，快递费10元，超过1公斤的部分，按每公斤5元计费，编写快递费计算程序（运费为S，重量为P）
10 10+5*(P-1)
8. 写出程序结果：（8分，每空4分）
Private Sub Form_Activate( ) Dim p As Integer, i As Integer p = 1 For i = 1 To 5 p = p + i Next i
Print “I P分别为：”; i, p
End Sub
输出结果：I P分别为：____________，____________ 6 16
9． Private Sub Command1_Click( )
Dim a As Integer, b As Integer a = 1 : b = 0
Do While a <= 5 b = b + a * a a = a + 1 Loop Print a, b
End Sub 运行结果：______________ _______________ 6 55
10．小华从今年开始为“希望工程”存钱，计划今年存入100元钱，第二年存入200元钱，第三年存入300元钱……依此类推，问：20年时间你将为“希望工程”存入多少钱
i=i+1
12．写程序结果： Text2 = “34”
a = ( Val ( Text2 ) – 32 ) * 5 / 2
Print a
答案：____________ 5 四、算法题分析题：
sum+n*100 11．补全流程图：编制VB程序，在界面上输入一个不为零的自然数，判断它是否是质数。（6分）
历年算法与程序设计学业水平考试真题带答案
