B、a
For i=1 To 10 Step 4 Print “#” s=s+i Next i Print s
上述程序运行后，输出“#”的个数是_____________；输出s的值是_____________。（共6分，每空3分） 5、阅读程序，写出运行结果 Dim a As Integer Dim b As Integer Dim r As Integer a=98 b=63 r=a mod b Do While r<>0
a=b b=r r=a Mod b
Loop print b
程序运行后，输出结果为：______________。（6分） 6、算法设计与程序实现
换钱问题
要将一张100元的钞票，换成等值的5元、2元、1元一张的钞票共50张。其中一种换发如下：
5元：3张 2元：38张 1元：9张 求出所有的换钱方案。
【算法设计】
x表示5元的张数：1≤x≤20; y表示2元的张数：1≤y≤50; z表示1元的张数：1≤z≤100.
【参考程序】 Dim x As Integer Dim y As Integer Dim z As Integer For x=1 To 20
For y=1 To 50
For z=1 To 100
If _____________________Then
Print x;y;z ‘x y z 之间以分号分隔
End if
Next z
Next y
Next x
根据上述回答下列问题：（8分，每空4分）
（1）本题采用的算法是_________________（填：解析法/枚举法/排序法/递归法）。
（2）程序代码中空白处应填写的条件是______（填写字母：A/B/C/D）。 A、5x + 2y + z=100 Or x + y + z = 50 B、5x + 2y + z=100 And x + y + z = 50 C、5*x + 2*y + z=100 Or x + y + z = 50 D、5*x + 2*y + z=100 And x + y + z = 50
7、分析并完善流程图
执行流程图，当输入x的值为4时，输出y的值为2，则菱形判断框中的条件可能为________（填写字母：A/B/C/D 6分）。 A、x>3 B、x>4 C、x<=4 D、x<=5 8、分析并完善程序
以下是计算s=12+22+32+…+1002的程序代码，请补全程序。（共6分，每空3分） Dim s As Long Dim i As Integer s=0
For i=1 To 100
s=s+__________ ___________ Print s
9、算法设计与程序实现
十进制整数转换为二进制整数采用“除2取余”法。 算法描述 第1步：输入一个十进制正整数n； 第2步：将n除以2，记录余数r； 第3步：将r追加到字符串s的左边（s 用于记录转换后的二进制数，初值为空）； 第4步：将n 除以2的商赋给n ； 第5步：若n 为0，则转到第6步；若n不为0，转到第2步； 第6步：输出s （即逆序输出每一次的余数）。 举例说明 将一个十进制数13转换为二进制。 界面设计 【参考程序】
Dim s As String ‘记录转换后的二进制数 Dim n As Integer ‘记录十进制正整数n Dim r As Integer ‘记录n除以2的余数
s=“ ” ‘s 记录转换后的二进制数，初值为空 n=Val(Text1.Text) Do While n>0
r=______①________ s=r & s
n=______②________ Loop
Text2.Text=s
（1）、上述算法描述采用的方法是：______________（填：自然语言/伪代码/流程图）。（2分）
相关推荐：
loading