- 二一组卷

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

浙江省杭州市西湖高级中学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

举一反三

用VB软件编写判断闰年的年份。界面如图1所示，文本框Text1输入年份，单击“判断”按钮Command1，在文本框Text2中输出判断结果（闰年的判断条件是：能被 4 整除但是不能被100整除；或者能被四百整除）。

在VB集成开发环境中，有三种工作模式，可以单击工具栏上的

按钮，可以{#blank#}1{#/blank#}程序；单击工具栏上的

进入中断模式；单击工具栏上的

按钮结束运行。

绘制函数图象y=x²的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=x²

Picture1.PSet (x, y), RGB(255, 0, 0) '根据x,y的值用红色描点

Next x '取下一个增量后的x值

End Sub

以上的VB计算机语言是{#blank#}3{#/blank#}语言。（已知计算机语言有：机器语言、汇编语言、高级语言）

有 VB 程序段如下：

s = "2019appreciate": sum = 0

For i = 1 To Len(s)

ch = Mid(s, i, 1)

If ch >= "a" And ch <= "z"

Then m = Asc(ch) - Asc("a") + 1 a(m) = a(m) + 1

End If Next i

For i = 1 To 10

If a(i) > 0

Then sum = sum + 1

Next i

数组 a 各元素的初始值都为 0，执行该程序段后，则变量 sum 的值为（）

有如下VB程序段:

For i=1 To 3

k=“”

Fori-1 To 2*i-1

k=k+“*”

Next j

List1.AddItem k

Next i

该程序运行后，在列表框List1中显示的是（）

国际标准书号ISBN分成四组的10位数字组成，前面9位数字分组号、出版社和书序号三组，最后一位为校验码。校验的规则为从左边开始取出每位数字(前9位)，取出的数字依次乘以10、9、8……2，把各次的乘积相加，用11减去这个和除11的余数即为校验码。在文本框Text1中输入条形码，单击“校验”按钮Cmd1，在文本框Text2输出结论。程序运行的界面如图所示：

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

Private Sub Command1_Click()

Dim s As String，i As Integer，s1 As String，sum As Integer，t As Integer

Dim jy As Integer

s＝Text1.Text

t＝0：sum＝0

For i＝1 To Len(s)

s1＝Mid(s，i，1)

If s1>＝“0” And s1<＝“9” Then

′①

If t<10 Then

sum＝sum＋Val(s1)*(11－t)

ElseIf t＝10 Then

′②

End If

Next i

sum＝11－sum Mod 11

If Then′③

Text2.Text＝“该校验码中数字不是10位数！”

Else

If jy＝“X” and sum＝10 Then

Text2.Text＝“校验通过”

ElseIf val(jy)＝sum then

Text2.Text＝“校验通过”

Else

Text2.Text＝“校验不通过”

End If

End Sub

划线处代码为①{#blank#}1{#/blank#}

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

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

编写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

相关试卷

公司介绍

服务介绍

帮助中心