题型：单选题 题类：常考题 难易度：普通
浙江省绍兴市诸暨中学2014-2015学年第高一下学期期中考试信息技术试题
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a =5
b = Val(Text1.Text)
b = a + b
label1.Caption = Str(b)
End Sub
按钮，可以{#blank#}1{#/blank#}程序；单击工具栏上的 
进入中断模式；单击工具栏上的 
按钮结束运行。 绘制函数图象y=x2的VB源代码如下，请补充完整。
| Private Sub Command1_Click() '按钮的单击事件 Dim x, y As Single '定义x,y两个变量 Picture1.Scale (-10, 25)-(10, -25) '定义坐标系 Picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255) '画横坐标轴，颜色为蓝色 Picture1.Line (0, 25)-(0, -25), RGB(0, 0, 255) '画纵坐标轴，颜色为蓝色 For x = -10 To 10 Step 0.0001 'x值从-10变化到10，每次增量为0.0001 {#blank#}2{#/blank#} '本行代码计算函数y=x2 Picture1.PSet (x, y), RGB(255, 0, 0) '根据x,y的值用红色描点 Next x '取下一个增量后的x值 End Sub |
以上的VB计算机语言是{#blank#}3{#/blank#}语言。（已知计算机语言有：机器语言、汇编语言、高级语言）
校验值计算规则如下：
第一步：将身份证号前17位数字分别乘以不同的系数后相加，对应系数如下表所示。
|
位数 |
1 |
2 |
3 |
4 |
5 |
6 |
7 |
8 |
9 |
10 |
11 |
12 |
13 |
14 |
15 |
16 |
17 |
|
系数 |
7 |
9 |
10 |
5 |
8 |
4 |
2 |
1 |
6 |
3 |
7 |
9 |
10 |
5 |
8 |
4 |
2 |
第二步：将第一步的计算结果除以 11，得到余数。 第三步：根据第二步的计算结果从下表获取对应的校验值。
|
余数 |
0 |
1 |
2 |
3 |
4 |
5 |
6 |
7 |
8 |
9 |
10 |
|
校验值 |
1 |
0 |
X |
9 |
8 |
7 |
6 |
5 |
4 |
3 |
2 |
例如：某身份证号为 34052419800101001X。要计算此身份证的校验值步骤如下：第一步：计算 3*7+4*9+0*10+5*5+……+1*2=189
第二步：189除以11得到余数为2
第三步：由余数2获取校验值X。
根据以上规则小王编写了一个验证身份证号是否有效的VB程序，功能如下：在文本框Text1中输入身份证号，单击“验证”按钮Command1后，在列表框List1中显示验证结果。程序运行界面如图1所示。
试题篮
