- 二一组卷

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

浙江省临海市白云高级中学2018-2019学年高一下学期信息技术期中考试试卷

设计一个VB程序，使其具有下列功能：在文本框Text1.Text输入字符串，单击“开始”按钮Command1，将输入的字符串中小写字母转换成大写字母后，在标签Label2中输出。界面设计如图1所示。

（1）、在应用程序界面设计时，要为窗口添加标题，需要修改如图2所示的属性窗口中的项为“字符转换”。

（2）、为实现上述功能, 请在划线处填入合适代码或选项。

Private Sub Command1_Click()

Dim ch As String, sh As String

Dim i As Integer, j As Integer

ch = Text1.Text

For i = 1 To ① '从第一个字符到最后一个字符进行循环判断

j = Asc( ② ) '(填字母:从下列A、B、C三个选项中选取一项)

If j > 96 And j < 123 Then

sh = sh + Chr(j - 32)

Else

sh = sh + Chr(j)

End If

③ '(填字母:从下列A、B、C三个选项中选取一项)

Label2.Caption = sh

End Sub

① ② ③

A . Next i B . j+1 C . Mid(ch, i, 1)

举一反三

如图所示的VB程序中，输入以下程序代码，运行后单击命令按钮Command1，出现错误的提示图是：( )

Private Sub Command1_Click()

Dim a(1 To 4) As Integer

Dim i As Integer

a(1) = 1

For i = 2 To 4

a(i) = 2 * a(i - 1) + 1

Next i

List1.AddItem Str(a(i))

End Sub

在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#}语言。（已知计算机语言有：机器语言、汇编语言、高级语言）

某简单计算器功能如下：在文本框Text1中输入一个加减算式，点击“计算”按钮Command1，计算结果在标签Label3上显示，同时在列表框List1中记录每次算式及结果。已知文本框Text1只包含正整数和“+”、“－”符号，同时以“＝”结束。程序运行界面如图a所示，请回答下列问题。

图a


图b	图c

编写VB程序，功能为：单击“发牌”按钮“Command1”后，从一副扑克牌（不包括大王、小王、J、Q、K、A）中随机抽取5张牌，牌的花色（♠♥♣♦）忽略，显示在列表框“List1”中。如果这5张牌由一个对子和一个顺子（3张牌连续）组成，则在标签“Label1”中显示“运气不错:)”，否则显示“运气一般:|”。程序运行界面如图所示。

实现上述功能的VB程序如下：

Private Sub Command1_Click()

List1.Clear

Dim five(1 To 5) As Integer

Dim i As Integer, j As Integer, k As Integer

Dim p As Integer, find_pair As Boolean

'随机抽取5张牌，将牌的点数存储在数组five中，并在List1中显示。代码略

i = 5: p = 1: find_pair = False

Do While i>= 2

j=p

Do While j <= i - 1

If five(j) > five(j + 1) Then

t = five(j): five(j) = five(j + 1): five(j + 1) = t

ElseIf five(j) = five(j + 1) And Not find_pair Then

t = five(1): five(1) = five(j): five(j) = t

t = five(2): five(2) = five(j + 1): five(j + 1) = t

find_pair = True

i = i + 1

p = _____________

Exit Do

End If

j = j + 1

Loop

i = i - 1

Loop

k = 0

For i = 3 To 4

If Then k = k + 1

Next i

If five(1) = five(2) And k = 2 Then

Label1.Caption = "运气不错:)"

Else

Label1.Caption = "运气一般:|"

End If

End Sub

请回答下列问题：

下列VB程序段：

Function s(n As Integer) As Integer

If n=1 Then

s=1

Else

s=s(n-1)+n

End If

End Function

Private Sub Form_Click()

Dim x As Integer

x=s(4)

Print x

End Sub

程序运行时,单击窗体后,变量x的值为（）

在平面坐标系中，给定一组有序的点。依次用线段连接这些点，构成一条折线。其中字符串a为输入的坐标系中的各点坐标，以逗号为界从a中取出存入b列表中，列表b的第1、2个元素为第一个点的x坐标和y坐标（即x1,y1），第3、4个元素为第二个点的x坐标和y坐标(即x2，y2)，依次类推。编写Python程序段如下，用于计算折线的长度。

from math import *

def dist(x1, y1, x2, y2):

length = sqrt((int(x1) - int(x2))**2 + ① )

return length

a = input("请输入各点的坐标：") # 如“2,3,4,5”则表示坐标点（2,3）和（4,5）

b = a.split(",")

if len(b) % 2 != 0:

print("输入的坐标有误！")

else:

s = 0

for i in range(0, ② , 2):

s = s + ③

print("折线的长度为：", s)

相关试卷

公司介绍

服务介绍

帮助中心