- 二一组卷

题型：综合题题类：常考题难易度：普通

浙江省杭州市西湖高级中学2018-2019学年高二下学期信息技术4月月考试卷

下列程序的功能是：当用户点击窗体下方的“石头”（command1）、“剪子”（command2）、“布”（command3）任意一个按钮的时候，电脑也会在Label1上随机显示出一个石头、剪刀、布（显示在label1上），程序判断出胜负（平局算负）将结果显示到label3上。

Private Sub Command1_Click()

Label1.Caption = sj ‘计算机随机产生一个值

Label2.Caption = Command1.Caption

If cp(Label1.Caption, Label2.Caption) Then ‘判断胜负

= "乙方负"

Else

Label3.Caption = "乙方胜"

End If

End Sub

Function sj() As String '随机生成石头、剪刀、布

i = ‘随机生成1~3任一整数

If i = 1 Then sj = "石头"

If i = 2 Then sj = "剪刀"

If i = 3 Then sj = "布"

End Function

举一反三

小丁想买几张6+1彩票，选号时，他希望前4位用自己的生日：11月8日，即1108，特别号码他选了买彩票日子的个位数5，并且他希望前六个数字组成的数能被他的幸运数字9整除。他的好朋友小杰帮他设计了一个VB程序，可以提供一份符合这些要求的号码清单供他挑选。相应的界面如图1所示。阅读程序并完成后面的问题。

图1

编写VB应用程序，当用户输入的一串由字母、数字等字符组成的字符串，统计其中每个字母出现的次数(不分大小写)。程序运行时界面如图a所示。

图a

我国居民身份证号是由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所示。

在VB中，下列程序段执行后，变量a、b的值分别是（）

a=5

b=3

If a>b Then

a=b

End lf

使用“字符洗牌”程序模拟扑克洗牌的操作，为了打乱牌序，把手上的扑克牌中间抽一部分放到最上面，完成一次洗牌(如字符串“1234ABCD”，若把中间的第3 个到第5个字符抽出并保持原来的顺序放到最前面，则一次“洗牌”操作后字符串变成“34A12BCD”)，也可以把扑克牌分成上下两部分，把下面的部分放置到上面(如字符串“1234ABCD”，把第3 个字符到最后一个字符移到前面，变成“34ABCD12”)，多次重复做这个动作，就能达到洗牌的目的，效果如图所示。

编写VB程序，实现如下功能:在文本框Text1中输入一个整数，单击“查找”按钮，找出该整数的全部的连续整数固定和，并将它们显示在列表框List1中。所谓一个数n的连续整数固定和，就是指存在a₁ ， a₂ ， …， a_n ，其中a_i+1比a_i大1，使得a₁+a₂+…+a_n。这样a₁ ， a₂ ， …，a_n称为n的一个连续整数固定和。例如27的全部的连续整数固定和有3组，运行界面如图所示，实现上述功能的程序如下，请在划线处填写合适代码。

Private Sub Command1_Click()

Dim i As Integer, j As Integer, sum As Integer

Dim n As Integer, k As Integer, tmp As String

n = Val (Text1.Text)

sum = 0:List1.Clear

For i = 1 To n-1

j=i

Do While sum < n

{#blank#}1{#/blank#}

j = j + 1

Loop

If sum = n Then

{#blank#}2{#/blank#}

For k=i+1 To j-1

tmp = tmp + “+” + Str(k)

Next k

List1.AddItem tmp +“=”+ Str(n)

End If

{#blank#}3{#/blank#}

Next i

End Sub

相关试卷

公司介绍

服务介绍

帮助中心