选修：算法与程序设计 操作题

分析程序，写出执行结果(每题6分)
1.求解表达式（6分）
表达式4^2+Sqr(Abs(12-28))/(2*2)的运算结果是：17。

2、表达式(4>3) OR (7>6) AND (A>a) 计算的结果为（填写True或者Flase）：Tr ue。

3.分析程序，写出执行结果（6分）
clear
s=0
n=1
do while n<=11
s=s+n
n=n+2
enddo
?s
return
运行结果：36
4.分析程序，写出执行结果（6分）
clear
s=0
n=1
do while n<=10
s=s+n
n=n+2
enddo
? s
return
运行结果：25
5.分析程序，写出执行结果（6分）：
x=4
For i=1 To 15 Step 2
x=x+i\3
Next I
运行结果：x=_____23_____
6.分析程序，写出执行结果（6分）：
A＝1
A＝A*2
A＝A*3
A=A*4
PRINT “4的阶乘是”;A
END
_______4的阶乘是____24________
7.分析下列程序代码，写出运算结果（6分）：
Private Sub Command1_Click()
Dim a, b As Integer
a = 3.6
b = 3.6
Text1.Text = a
Text2.Text = b
End Sub
运算结果为：________3.6 4 ____________
8.分析下列程序代码，写出运算结果（6分）：
int m=1;
int n=0;
for (int i=1;i<5;i=i+2)
{
n=m*i;
}
System.out.println("n="+n);
计算结果为：__________n=3_______________
9.题目中是一个求二次函数曲线顶点坐标的VB程序，在运行时Text1、Text2、Text3分别输入3、6、9三个数，请问Text4、Text5输出结果分别应为多少？
Private Sub Command_click( )
Dim a as text,b as text,c as text
A=val(text1.text)
B=val(text2.text)
C=val(text3.text)
M=-b/(2*a)
N=(4*a*c-b*b)/4*a
Text4.text=m
Text5.text=n
End sub
Text4输出结果为：_____-1________
Text5输出结果为：______54___________
10.写程序结果：
Text2="34"
A=(val(text2)-32)*5/2
Print a
答案：____5_____
选择算法，解决问题(每题6分)
我们在用计算机解决问题时，常采用的算法有解析法、穷举法、递归法、冒泡排序法、选择排序法等，分析下列问题应采用哪种算法解决？
1.一个数除以5余1，除以6余5，除以7余4，除以11余10，求符合这些条件的最小的
数是多少？
_________穷举法_____________
2.使用一根长度为L的铁丝，制作一个面积为S的矩形框，要求计算出满足这种条件的矩形的高H和宽W。

_______解析法________
3．求解“百鸡问题”：已知公鸡每只3元，母鸡每只5元，每3只小鸡1元。

用100元买100只鸡，问每种鸡应各买多少？
_________穷举法____________
4．对数据7，6，3，9，1从小到大进行排序。

_________冒泡排序法______________
分析并完善程序(每题8分)
1.设计程序，输出1-10之内的奇数
clear
n=1
do while n<=10
?n
n= n+2
enddo
return
2.求绝对值
clear
x=0
input "x=" to x
if x>0
y=x
else
y=abs(x)
endif
?y
Return
3.计算机1+2+……+100的值。

I=1
Sum=0
DO
Sum=sum+___i___
I=I+1
LOOP UNTIL __i=101_____
PRINT sum
END
4.交换两个变量A和B的值，并输出交换后的值。

INPUT A
INPUT B
PRINT A,B
X=A
__A=B______
B=X
__PRINT______ A,B
END
5.下列程序段为计算1+3+5+7+9+11+13的主代码部分，请写出关键代码：
public class ab
{
public static void main(String args[])
{
int a=0;
for (int b=1; b<14 ; b=b+2 )
{
a=a+b;
}
System.out.println("计算结果为："+a);
}
}
6.以下程序判断从文本框Text1中输入的数据，如果该数据满足条件：除以3余2，除以5余3，则输出；否则将焦点定位在文本框Text1中，选中其中的文本。

Private Sub Command_Click()
X = Val(Text1.Text)
If x mod 3 =2 and x mod 5 =3 Then
Print X
Else
Text1.SetFocus
Text1.SelLength=Len(Text1.Text)
End Sub
7.下面是用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+_____1/i_____
Next i
Print "sum=";sum
End sub
8.完善程序：打印如下图形
*
**
***
****
*****
******
Private Sub Command1_click( )
For i=1 to 6
For j=1 to _____i______
Print "*" ;
Next j
___print : next i___________
End Sub
9.完善流程图：
小华从今年开始为“希望工程”存钱，计划今年存入100元钱，第二年存入200元钱，第三年存入300元钱......依次类推，问：20年时间你将为“希望工程”存入多少钱？
____________sum+n*100______________________
10.假设你从今年开始为“希望工程”存钱，今年存入100元钱，第二年存入200元钱，第三年存入300元钱.......依次类推，问：20年时间你将为“希望工程”存入多少前？
______________n= n+1______________________
11.某快递公司规定：快件不超过1公斤的，快递费10元，超过1公斤，按每公斤5元计费。

编写快递费计算程序（运费为s ，重量为p）
_________10____________ ____10+5*(p-1)_____________
12.补全流程图：编制VB程序，在界面上输入一个不为零的自然数，判断它是否是质数。

___________i=i+1__________________________。