《解析法》巩固练习.docVIP

巩固练习题1 选择题： 1.计算三角形面积的算法如下： ①输入三角形三边长a，b，c ②计算半周长p=(a+b+c)/2 ③计算三角形面积s=Sqr(p*(p-a) * (p-b) * (p-c)) ④输出面积s 上述算法属于( ) （A）排序算法 （B）解析算法 （C）枚举算法 （D）查找算法 2．第1次，将1张正方形纸片沿垂直和水平中线对折后撕开，变成4张纸片，第2次，从4张纸片中取其中1张纸片也照上面方法撕开，变成7张纸片，一直这样下去。描述计算撕了n次后纸片总数s的算法部分流程图如下图所示： 空白矩形框中应该填入的是( ) （A）s←s+2 （B）s←s+3 （C）s←s+j （D）s←s*3 3. 下列能计算Sum=1×1+3×3+5×5的Visual Basic程序段是( ) （A）Sum = 0: i = 1 （B）Sum = 0: i = 1 Do While i = 5 Do While i = 5 Sum = Sum + i * i Sum = Sum + i * i i = i + 2 i = i + 1 Loop Loop （C）Sum = 0 （D）Sum = 0 For i = 1 To 5 For i = 1 To 5 Step 2 Sum = Sum + i * i Sum = Sum + i * i Next i i = i + 2 4. 变量a的初值为0，在下列语句中，每执行一次能使变量a的值在5、0两数值上交替出现的是( ) （A） a = a + 5 （B）a = -a （C） a = 5 - a （D）a = a – 5 5. 有如下Visual Basic程序： Private Sub Command1_Click() Dim x As Integer, y As Integer x = Val(Text1.Text) If x 4 Then y = 3 * x ElseIf x -2 Then y = x * x * x Else y = x + 6 End If Label1.Caption = Str(y) End Sub 运行该程序，在文本框Text1中输入4，单击命令按钮Command1，在标签Label1中显示的是( ) （A） 12 （B）10 （C） 64 （D）20 填空题： 6. 某超市打折促销，规定如下： ①购物未超过500元按原价支付； ②购物超过500元但未超过1000元，超过500元部分按9折优惠计价； ③购物超过1000元但未超过1500元，超过1000元部分按8折优惠计价； ④购物超过1500元但未超过3000元，超过1500元部分按7折优惠计价； ⑤购物超过3000元，超过3000元部分按6折优惠计价。 根据以上规定，假定购物货款为x元，则实付金额y为: 程序界面如图所示，在输入购物金额（单位：元）后的文本框orgtext中输入购物金额（单位：元），单击实付金额计算按钮（Command1）后，在实际支付金额（单位：元）为后的文本框cashText中输出实付金额。解决此问题相应的Visual Basic程序如下： Private Sub Command1_Click() Dim x As Single, y As Single x = Val(orgtext.Text) If x = 500 Then y = x ElseIf ① Then y = 500 + (x - 500) * 0.9 ElseIf x = 1500 Then y = 500 + 500 * 0.9 + (x - 1000) * 0.8 ElseIf x = 3000 Then y = 500 + 500 * 0.9 + 500 * 0.8 + (x - 1500) * 0.7 El