- 二一组卷

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

浙江省温州十五校联合体2019-2020学年高二上学期信息技术期中联考试卷

编写“提取数字”程序，实现如下功能：在文本框Text1中输入文本信息，点击“提取”按钮Command1，将文本信息中的数字以“，”间隔输出到文本框Text2中。程序运行界面如图所示。

（1）、观察界面，程序中未使用到的控件是（填字母：A ．

/B ．

/ C ．

/ D ．

）

（2）、根据题意，请将划线处代码补充完整。

Private Sub Command1_Click()

Dim zf As String, tmp As String

Dim s As String, i As Integer, ch As String

tmp = ""

s = ""

For i = 1 To Len(zf)

ch = Mid(zf, i, 1)

If ch >= "0" And ch <= "9" Then

ElseIf tmp <> "" Then

s = s + tmp + ","

tmp = ""

End If

Next i

Text2.Text = s

End Sub

（3）、当输入的文本信息如图所示，若删除加框代码，则文本框Text2中显示的内容为。

举一反三

[加试题]若x表示能被3整除的正整数，则下面逻辑表达式的值一定为真的是：（）

设计VB程序，该程序将输入的字符串中小写字母转换成大写字母后输出。在文本框Text1中输入一串字符（数字、字母均可），单击“转换”按钮Command1，在标签Label2中输出结果。（提示：Asc（x）：将字符x转换为ASCII码值；Chr（x）：将ASCII代码x转换为所对应的字符）该程序的设计界面如图所示,请根据算法将下列程序补充完整。

Private Sub Command1_Click()

Dim ch As String, s As String

Dim i As Integer, j As Integer

ch = Text1.Text

For i = 1 To {#blank#}1{#/blank#}

j = Asc(Mid(ch, i, 1))

If j > 96 And j < 123 Then

s = s + Chr(j - 32)

Else

s = s + Chr(j)

End If

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

End Sub

有如下VB程序:

Dim i As Integer, j As Integer, k As string, n As Integer

n = 3

List1.Clear

For i=1 To n

k =″″

For j=1 To i

k = k+″*″

Next j

List1.AddItem k

Next i

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

VB赋值语句“n = 1”的作用是把赋值运算符“=”右边的值“1”赋给左边的变量n。

运动会田径比赛，记分裁判把各赛道运动员的成绩表交给录入员录入到计算机中，录入人员编制了如下程序｡运行程序，按道次顺序依次输入8个成绩，道次号存放在数组a中，相应道次的运动员比赛成绩存放于数组b中，并将原始成绩显示在列表框List1 中｡单击“成绩排序”按钮(Command1)，将原始成绩从好到差排序，排序结果显示在列表框List2 中｡运行效果如图所示｡

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

检测输入的四位整数 abcd 是否满足下述关系：(ab+cd)(ab+cd)=abcd。实现上述功能的 python程序代码如下：

k=int(input("输入一个四位数："))

①

y=k%100

if ② :

print("符合")

else:

print("不符合")

方框处应填入的代码是（）

相关试卷

公司介绍

服务介绍

帮助中心