题型:填空题 题类: 难易度:普通
江苏省普通高中学业水平合格性考试信息技术模拟卷(十五)
实现功能:键盘上输入任意一个正整数,将其按冰雹猜想的规则进行拆解,输出每一步拆解的值和总步数,验证其是否符合冰雹猜想。
冰雹猜想是指:一个正整数,如果是奇数就乘以3再加1,如果是偶数就对它除以2(如下图),这样经过若干次,最终回到1。无论这个过程中的数值如何庞大,就像瀑布一样坠落,在经过若干次的变换之后也必然会到纯偶数:4-2-1。
N变为
x=(input("请输入任一正整数:"))
n=0
while():
if (x%2 != 0):
x=
else:
x=int(x/2)
print(, end=" ")
分数 |
0~59 |
60~69 |
70~79 |
80~89 |
90~99 |
等级 |
E级 |
D级 |
C级 |
B级 |
A级 |
现要求根据上表统计出各等级学生人数占总人数的比例。小李编写了一个VB程序帮助老师实现该功能:程序运行时,将每位学生的得分(两位整数)存储到数组a中,并在列表框List1
中显示。单击“统计”按钮后,在列表框List2中显示从A级至E级,各等级的人数占总人数的百分比例(四舍五入保留整数)。程序运行界面如图所示:
请阅读代码,并回答以下问题:
Dim n As Integer
Dim a(1 To 50) As Integer
Private Sub Form_Load( )
Dim adocn As New ADODB. Connection
Dim adors As New ADODB. Recordset
Dim str1 As String
adocn.ConnectionString = "Provider = Microsof.ACE.OLEDB.12.0;Data source=" +App. Path +”\school. accdb”
adocn. Open
str1 =“select * from students”
ardors.Open str1, adocn
'将每个学生的得分读入数组a中,并在列表框list1中显示,统计学生总人数n
'代码略
End Sub
Private Sub Comd1_C1ick( )
Dim cou As Integer,k as Integer
Dim b(0 To 4) As Integer
Const dj = “A级B级C级D级E级”
For i=1 Ton
k=a(i)\10-5
If k<0 Then ①
b(k)= b(k) + 1
Next i
For i=0 To 4
cou = '⑶改错
List2. AddItem ② + Str(cou) +“%”
Next i
End Sub
试题篮