浙江信息技术会考 算法与程序设计试题Word格式文档下载.docx

1、31003的值，并在文本框Text1中输出计算结果。Private Sub Command1_Click（） Dim i As Integer, s As Integer s = 0 i = 1 Do While i = 100 s = i * 3 i = i + 1 Loop Text1.Text = Str（s）End Sub问：（1）刚退出循环时，变量i的值是_。（2）为了实现上述表达式的计算，程序中划线处的表达式应更正为_。4某市出租车计费标准规定：出租车启动后行程不超过3千米（包含3千米）计费5元；如果行程超过3千米且不超过10千米（包含10千米），则超过3千米部分按1.5元/千米计

2、费（3千米及以内部分计费仍为5元）；若行程超过10千米，则在前面计费基础上，超出10千米部分按1.8元/千米计费。假定某出租车行程为x千米，计费标准如下：当x3千米时，计费为5元；当310千米时，计费为5+（10-3）1.5+（x-10）1.8程序界面如图VB-1所示，在文本框Text1中输入行驶里程数（单位：千米），单击“开始计算”按钮（Command1）后，在标签Label3输出计费结果。解决此问题的算法流程图如图VB-2所示，相应的Visual Basic程序如下，在程序和划线处，填入适当的语句或表达式，把程序补充完整。 Dim x As Single, s As Single x =

3、Val（Text1.Text） If Then s = 5 ElseIf x = 10 Then s = 5 + （x - 3） * 1.5 Else s = 5 + （10 - 3） * 1.5 + （x - 10） * 1.8 End If = Str（s）程序中划线处应填入_程序中划线处应填入_ 图VB-1算法与程序设计题（第二套）a = 12b = 32c = ac = c + b 该程序段运行后，变量c的值为_。x = 12If x s = 8 s = x 该程序段运行后，变量s的值为_。计算表达式13927812187的值，并在文本框Text1中输出计算结果。 Dim i As I

4、nteger, t As Long t = 0= 2187 t = t + i i = i + 3 Text1.Text = Str（t）（1）为了实现这一目标，程序划线处的表达式应更正为_。（2）运行更正后的程序，循环刚退出时变量i的值为_。4将一个十进制正整数转化为二进制数可以采用“除二取余法”，主要方法就是将十进制数用2除，保存所得余数，然后将商的整数部分作为下次运算的被除数，重复上述“除二取余”操作，直到商的整数部分为零停止。程序界面如图VB-1所示，在文本框Text1中输入一个正整数，单击“开始转换”按钮（Command1）后，对应的二进制数在标签Label3中显示出来。 Dim x

5、 As Integer, s As String, r As Integer, t As Integer s = Do While x 0 r = x Mod 2 s = Str（r） + s x = Label3.Caption = s 图VB1算法与程序设计题（第三套）m = 8n = 5t = m + nt = t - nx = 5001s = 1If x 5000 Then s = s + 1Label1.Caption = Str（s）3. 有如下Visual Basic程序： Dim a（1 To 100） As Integer, i As Integer, s As Intege

6、r For i = 2 To 100 Step 2 a（i） = i * 2 s = s + a（i） Next i（1）程序运行后，下标变量a（4）的值为_。（2）循环刚退出时，变量i的值为_。4在某学校里，每位同学都会得到一张一卡通卡，一卡通的卡号是唯一的，卡内会记录每位同学的姓名、住址、班级、金额等信息。每当同学刷卡时，卡号就被输入电脑，然后进行查找，如果找到就显示姓名，否则显示“查无此人”。下列程序的功能是根据卡号查找对应的姓名，程序中数组a保存所有已发放一卡通的卡号，数组b保存卡号对应的姓名，第i位同学的卡号保存在a（i）中，姓名保存在b（i）中。程序界面如图VB-1所示，左边列表框

7、列出所有同学的卡号和姓名，在右边文本框Text1中输入卡号，单击“开始查询”按钮（Command1），程序就按卡号进行查找，如果找到就在标签Label3中输出卡号对应同学的姓名，否则就输出“查无此人”。解决此问题的算法流程图如图VB-2所示，相应的程序如下，在程序 Dim x As String, i As Integer, s As String, f As Boolean x = i = 0: f = False f为找到标志变量，值为True表示找到，否则表示没找到 Do While （i n） And （f = False） If x = a（i） Then f = True If f

8、 = True Then查无此人！图VB-2算法与程序设计题（第四套）i = 3j = i + ik = j + j 该程序段运行后，变量k的值为_。x = 0.51= 0.5 Then s = 13.有如下Visual Basic程序段：Dim i As Integer, s As Integeri = 1s = 0Do While i = 10 s = s + 1：i = i + 1Loop（1）该程序段运行后，循环中的两个语句“s = s + 1：i = i + 1”一共执行的次数为_。（2）该程序段运行后，变量s的值为_。4在网上商城中找到商品后可以将商品按照价格顺序显示，下列程序模拟

9、该信息处理过程，程序能根据找到的商品信息（价格和发货地），将所有商品按照价格从高到低显示。一开始，所有商品的价格和发货地分别保存在数组a和数组b中，第i个商品的价格保存在a（i）中，对应的发货地保存在b（i）中。程序界面如图VB-1所示，左边列表框List1中显示用户已找到的所有商品信息（包括价格和发货地），单击 “开始排序”按钮（Command1），所有商品按照价格从高到低显示在列表框List2中。 Dim i As Integer, j As Integer, t1 As Integer, t2 As String, k As Integer For i = 1 To n 1 n表示商品总

10、数 k = i k保存第i大的数，一开始假定是a（i） For j = i + 1 To n If a（k） = 60 ThenPE3. 以下Visual Basic程序的功能是：计算表达式12345699100的值，并在文本框Text1中输出计算结果。 t = 1 s = s + i t = -t（1）循环刚退出时变量i的值是_。4COD（化学需氧量）是衡量水质污染程度的重要指标之一，污水处理时根据污水的COD指标来计算COD去除剂的投放量。程序界面如图VB-1所示，在文本框Text1中输入COD指标，单击“计算投放量”按钮（Command1）后，程序根据COD指标计算出合适的COD去除剂投

11、放量，并在标签Label3中输出计算结果。污水处理厂根据COD指标投放COD去除剂的标准如下表所示：当前COD指标x根据COD指标应投放COD去除剂的剂量x500 在程序 s = 10= 500 Then s = s = x / 4 * 1.5 Label3.Caption = Str（s）算法与程序设计题（第七套）a = 1024: i = 2b = a / ic = b / ia = 5: b = 4: c = 7s = a + b c Then初检合格重新调试3.有如下Visual Basic程序： Dim s As Integer, i As Integer For i = 1 To

12、10 s = s + 1（1）程序运行后，变量s的值为_。（2）程序运行后，语句“s=s+1”被执行的次数为_。4某网站组织了100个商品进行网络人气调查，投票结束后，要选出得票数最高的前10个商品。下列程序的功能是根据商品已有得票数，选出得票数最高的10个商品。商品的代号和得票数分别保存在数组a和b中，第i个商品的代号保存在a（i）中，对应的得票数保存在b（i）中。程序界面如图VB-1所示，左边列表框List1中显示的是所有商品的代号和得票数（按代号从小到大排列），单击“开始统计”按钮（Command1）后，在右边的列表框List2中显示得票数最高的10个商品的代号和得票数（按照得票数从高到

13、低的顺序显示）。 Dim i As Integer, j As Integer, t As Integer For i = 1 To 10 For j = 100 To i + 1 Step If b（j） b（j - 1） Then t = a（j - 1）: : a（j） = t t = b（j - 1）: b（j - 1） = b（j）: b（j） = t + Str（b（i） 图VB-2算法与程序设计题（第八套）i = 7: j = 3k = i * j - jx = 90 90 Then声音超标合格 Dim s As Integer, t As Integer t = 1: For

14、i = 1 To 10 Step 2 t = t * 2 s = t + 1（1）程序运行后，变量s 的值为_。（2）程序运行后，语句“t = t * 2”被执行的次数为_。4交通违章查询。在违章查询系统中输入车主的汽车车牌号，查询系统就会按照车牌号查找所有的违章记录。下列程序的功能是根据车牌号查找该车的违章信息，数组a和b分别保存所有违章汽车的车牌号和违章原因，第i条信息的车牌号保存在a（i）中，对应的违章原因保存在b（i）中。程序界面如图VB-1所示，在文本框Text1中输入车牌号，单击“开始查找”按钮（Command1），电脑就开始查找该汽车所有的违章记录，如果找到对应的信息，就统计所有违章次数并在标签Label3中显示违章总次数，同时在列表框List1中显示所有违章的原因，如果没有找