题型:单选题 题类: 难易度:普通
山东省济南市章丘区信息技术模拟考试卷(六)
Private Sub Command1_Click()
Dim a(0 To 9) As Integer
Dim t as Long
t = Val(Text1.Text)
Do While t <> 0
a(t Mod 10) = 1
t = t \ 10
Loop
For i = 0 To 9
x = x + a(i)
Next i
End Sub
若在文本框Text1中输入10242048,则程序执行后,变量x的值为( )
表1 某高校学考等级成绩折算表
学业水平考试等级 | A | B | C | D |
成绩折算(分) | 10 | 8 | 6 | 4 |
表2 某学生学考等级成绩单
科目 | 语文 | 数学 | 英语 | 物理 | 化学 | 生物 | 政治 | 历史 | 地理 | 技术 |
等级 | A | A | A | A | A | B | A | C | B | A |
编写Python程序实现学考成绩总分折算。表2学生的折合分数如图所示。
试题篮