- 二一组卷

题型：综合题题类：常考题难易度：困难

浙江省温州市新力量联盟2018-2019学年高二上学期信息技术期末考试试卷

小王编写了一个进制转换程序，实现如下功能：在文本框Text1中输入一个二进制数，单击“计算”按钮Command1，在文本框Text2中将显示出其对应的十六进制数。程序运行界面如下图所示：

（1）、要使程序启动时，自动清空文本框的 Text1 中的内容，则可以在（单选，填字母：A .Command1_click / B .Text1_click / C .Form_load）事件处理过程中添加语句 Text1.Text= ""

（2）、实现上述功能的 VB 程序如下，请在划线处填入合适的代码

Private Sub Command1_Click（）

Dim s As String, s1 As String, t As Integer, c As Integer

Const code = "0123456789ABCDEF"

s = Text1.Text

t = 0: s1 = ""

For i = Len(s) To 1 Step -1

c = Val(Mid(s, i, 1))

t = t + c * 2 ^ ((Len(s) - i) Mod 4)

If (Len(s) - i + 1) Mod 4 = 0 Or ① Then

②

t = 0

End If

Next i

Text2.Text = s1

End sub

① ②

（3）、如果没有第①处划线部分的条件，当输入的二进制数为 1101011，则 Text2 中显示的内容为

举一反三

某VB程序的一个事件过程如下：

Private Sub Commandl_Click()

Dim i As Integer,j As Integer.s As String

Dim a(1 To 5) As Integer

List1.Clear

Randomize

For i=1 To 10

j=Int(Rnd*6)+1

a(j)=a(j)+1

Next i

For i=1 To 5

s=Str(a(i))

List1.AddItem s

Next i

End Sub

程序运行时，单击按钮Commandl后弹出如图所示的错误提示。出现错误的语句是( )

编写VB程序，实现如下功能：在文本框Text1、Text2中分别输入一个正整数，单击“计算累加和”按钮（Command1），在标签Label3中显示起始值与结束值之间所有奇数的和。界面如1图所示。

1图

2图

下列VB程序运行时，在文本框Text1中输入1234，单击命令按钮Command1后，文本框Text1中显示的内容是{#blank#}1{#/blank#}。该程序使用了{#blank#}2{#/blank#}结构（填：顺序 / 选择 / 循环）。

Private Sub Command1_click ( )

Dim n As Integer , x As Integer

n = Val ( Text1．Text )

x = n Mod 10

n = x * 1000 + n \ 10

Text1．Text = Str ( n )

End Sub

某VB程序段代码如下：

Private Sub Command1_Click()

a = Text1

For i = 1 To Len(a)

b = Mid(a, i, 1)

c = Chr(Asc(b) )

d = d + c

Next i

Text2 = d

End Sub

如果在文本框text1中输入字符"316100"，则文本框text2中显示的值是：（）

数组nam（）、sex（）、math（）、su（）分别存放学生的姓名、性别、数学和总分成绩，现要求编写一个程序使得数据按照男生“总分”的降序和女生“总分”的升序排列，其中男生在前女生在后，程序界面如下图所示：

实现该功能的VB程序如下，但加框处代码有错，请改正。

Dim nam(100) As String '存放学生姓名

Dim sex(100) As String '存放学生性别

Dim math(100) As Long '存放学生数学成绩

Dim su(100) As Long '存放学生总分成绩

Dim k As Integer 'k变量用来存学生人数

Private Sub Form_Load()

‘将数据库中的数据分别存储在相应的变量中并在列表框中显示出来

‘代码略

End Sub

Private Sub Command1_Click()

Dim mmax As Integer, gmax As Integer, flagm As Boolean, flagg As Boolean

i = 1: flagm = True: flagg = True

Do While i <= k And flagm = True ①

mmax = 0: gmax = 0

flagm = False: flagg = False

For j = i To k - i + 1

If sex(j) = "男" And su(j) > su(mmax) Then mmax = j

If sex(j) = "女" And su(j) > su(gmax) Then gmax = j

Next j

If mmax <> 0 Then

flagm = True

t = nam(mmax): nam(mmax) = nam(i): nam(i) = t

t = sex(mmax): sex(mmax) = sex(i): sex(i) = t

t = math(mmax): math(mmax) = math(i): math(i) = t

t = su(mmax): su(mmax) = su(i): su(i) = t

End If

If gmax <> 0 Then

flagg = True

If j = mmax Then ②

gmax = mmax

t = nam(gmax): nam(gmax) = nam(k - i + 1): nam(k - i + 1) = t

t = sex(gmax): sex(gmax) = sex(k - i + 1): sex(k - i + 1) = t

t = math(gmax): math(gmax) = math(i): math(i) = t

t = su(gmax): su(gmax) = su(k - i + 1): su(k - i + 1) = t

Else

t = nam(gmax): nam(gmax) = nam(k - i + 1): nam(k - i + 1) = t

t = sex(gmax): sex(gmax) = sex(k - i + 1): sex(k - i + 1) = t

t = math(gmax): math(gmax) = math(k - i + 1): math(k - i + 1) = t

t = su(gmax): su(gmax) = su(k - i + 1): su(k - i + 1) = t

End If

i = i + 1

Loop

For i = 1 To k

List2.AddItem nam(i) + " " + sex(i) + " " + Str(math(i)) + " " + Str(su(i))

Next i

End Sub

程序中①处改为{#blank#}1{#/blank#}。

程序中②处改为{#blank#}2{#/blank#}。

我国居民身份证号是由18位字符组成，其中前17位是数字，第18位是校验位（校验位字符在“0”~“9”或“X”中选取）。由前17位数字经过一定的规则计算得到校验值，在查验居民身份证号有效性时，如果校验位中的字符与计算所得校验值相等则身份证号有效，否则无效。

校验值计算规则如下：

第一步：将身份证号前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所示。

相关试卷

公司介绍

服务介绍

帮助中心