注册

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

浙江省金华市磐安县第二中学2018-2019学年高二上学期信息技术期中考试试卷

编“字符串生成”程序，实现如下功能：在文本框Text1中（字符位置)输入多个正整数 (以“，”为分割符和结束符），单击“生成”按钮Command1,程序以这些整数为位置信息，依次从文本框Text2中（字典内容）提取字符并连接成字符串，最后将字符串显示在标签Label1中（生成内容）。程序运行界面如下图所示。

（1）、要使程序运行时，窗体Form1标题显示“字符串生成”，可在Form_Load事件过程中添加语句(单选，填字母:A .Form1 = "字符串生成" / B .Forml.Text="字符串生成"/ C . Form1.Caption="字符串生成"）。

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

Private Sub Command1_Click()

Dim s As String, t As String, c As String

Dim i As Integer, p As Integer

s = "": t = ""

For i = 1 To Len(Text1.Text)

c = Mid(Text1.Text, i, 1)

If c = "," Then

p = Val(t)

s = s + Mid(Text2.Text, p, 1)

t = ""

Else

t =

End If

Next i

Label1.Caption =

End Sub

（3）、若文本框Text1中输人内容的结束符缺失（即输人内容为1,18,9,9)，单击“生成”按钮后，标签Label1中显示的内容是。

举一反三

某校举办竞赛，共有15个试题，每做对一题得8分，做错一题倒扣4分，没有未做的题目，小明共得了8分，则他做对了几题。用VB程序来解决这个问题，单击按钮Command1，在文本框Text1中输出答对的题数，在文本框Text2中输出做错的题数，程序代码如下：

Private Sub Command1_Click()

i＝1

____①____

Do While____②____

____③____

j＝j－1 ′④

Loop

Text1.Text＝Str(i)

Text2.Text＝Str(j)

End Sub

小杜编写VB解决上述问题的程序，其功能如下:程序运行时在文本框Text1中输入整数序列(输入的数据保证存在符合条件的子序列)，在Text2中输入整数s。单击按钮Command1后在标签Label1上输出总和不小于s的连续子序列，程序运行如图所示。

下列程序的执行结果是（）

PRIVATE SUB FORM__CLICK()

X=INT(RND)+5

IF X THEN PRINT X

ELSE PRINT X+2

END SUB

有如下程序段:

Dim s(1 To 81) As Integer, i As Integer, j As Integer, c As Integer, temp As Integer

c=0 : s(1) = 0

For i = 1 To 9

For j = 1 To i

temp = s(j * i)

s(j * i) = j * i

If temp <> s(j * i) And s(j * i) Mod 9 = 0 Then c = c + 1

Next j

Next i

该程序段运行后，变量C的值为（）

小明为了将十进制数转化为k进制数（k值范围在2到16之间）设计如下程序：在文本框Text1中输入一个十进制数，在文本框Text2中输入整数k，单击“运行”按钮 Command1，程序将十进制数转化为k进制数，并在标签Label1中输出结果。请回答下列问题：

如下Python程序段

a＝13

b＝32

a＝b

关于语句“a＝b”的含义，下列叙述中正确的是（）。

返回首页

相关试卷

试题篮

公司介绍

Company Introduction

服务介绍

Service Introduction

帮助中心

Help center

二一教育APP

二一教育APP

400-637-9991

周一至周五 8:30-17:30

在线咨询客服