题型:单选题 题类:常考题 难易度:普通
浙江省绍兴市诸暨中学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
绘制函数图象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所示。
试题篮