题型：综合题 题类：常考题 难易度：普通
【bj】高中信息技术综合库——解析算法1
假设银行的年存储利率为3%，如果现在存储10000元钱，问多少年后连本带利超过12000元。设定：连本带利=本金*（1+利率）∧年数
假设n年后连本带息超过12000，根据题意得出数学关系式：10000*（1+3%）∧n>12000，求最小的n。
（参考程序）
Dim s as single
Dim r as single
Dim n as integer
s=10000
r=0.03
n=0
Do while
n=n+1
s=s*(1+r)
Loop
Print n;“年后”:“连本带利超过”；s
根据上述回答下列问题：
|
分数 |
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
试题篮
