试题 试卷
题型:单选题 题类:常考题 难易度:普通
【bj】高中信息技术综合库——解析算法1
用VB软件设计的自摘收费程序,功能如下:在文本框Textl中输入自摘的人数n,在文本框Text2中输入摘得桔子重量w。界面右上方是小游戏部分,程序在文本框Text3显示随机产生的桔子层数m,根据图中所示的堆桔子方法(第1层1个;第2层4个;第3层9个……),请顾客计算出m层桔子总数s,输入到文本框Text4中,单击“是否优惠计算”按钮Command1,就会在标签Label4中输出最后的费用f,并在标签Label7中给出提示是否“优惠后的费用”。运行效果如图所示:
⑴将n乘以3后加1产生一个新的数
⑵对产生的新数循环执行如下操作:新数是偶数时,用新数除以2;新数是奇数时,用新数乘以3后加1
譬如,以2为初始值,则计算过程如下。2→7→22→11→34→17→52→26→13→40→20→10→5→16→8→4→2。数字2不能在10步之内回到初始值。
界面如图所示,回答下列问题:
Private Sub Command1_Click
Dim x, y As Integer
Dim n As Integer
Dim s As String
x = Val(Text1.Text): y = Val(Text2.Text)
n = Val(Text3.Text)
s = s + Str(x \ y)
s = s + "."
k = x Mod y
For i = 1 To n
‘①
‘②
Next i
Label1.Caption = "商为: " + s
End Sub
①{#blank#}1{#/blank#} ②{#blank#}2{#/blank#}
程序设计过程中数据的存储和计算方法如下:
⑴学生体能分数的存储:如图2所示,第1位学生的游泳、跑步、跳远分数依次存入数组score的第1、2、3个元素里,第2位学生的游泳、跑步、跳远分数依次存入数组score的第4、5、6个元素里,以此类推。
⑵计算名次的算法:先统计每个分数的个数,存入数组a,如图3中a(96)值为9,表示共有9个96分;然后按照分数从高到低依次计算每个有效分数(该分数的个数不为0)对应的名次存入数组b,分数相同时名次并列,如图3中b(96)值为10,表示96分的名次是(并列)第10名,以此类推。
请回答下列问题:
Dim i As Integer, s As Integer
Dim a (1 To 10)As Integer
For i =1 To 10
a(i)=i^2
If a(i)Mod 3=0 And a(i)Mod 5 =0 Then s= 50000+ a(i)
If a(i)Mod 3=0 Or a(i) Mod 5 =0 Then s =s+ a(i)
Text1. Text Str(s)
执行该程序段后,下列说法正确的是( )
试题篮