- 二一组卷

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

浙江省高中信息技术——VB基础知识

小明编写了一个程序，功能如下：在文本框Text1中输入字符串，在文本框Text2中输入一个指定字符。单击按钮 Command1后在标签Label2上显示删除指定字符后的字符串结果。程序运行界面如图a所示。

（1）、在设计程序界面时，应使用图b所示“控件工具箱”中的（填写相应数字编号）添加标签对象。

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

Private Sub Command1_Click( )

Dim s As String, ans As String, i As Integer

Dim key As String, ch As String

s=Text1.Text

key Text2.Text

ans = “”

i=1

Do While i < = Len(s)

ch =Mid(s, i, 1)

If ① Then

ans = ans + ch

End If

②

Loop

Label2. Caption= “删除后的字符为:”+ans

End Sub

① ②

（3）、运行时，在文本框Text中输入“fthanfksf”，在文本框Text2中输入“f”，单击“处理”按钮后，对语句ans=ans+ch执行次数是（单选，填字母：A .5次B .6次/C .7次/D .8次）。

举一反三

相传三齐王韩信才智过人，从不直接清点自己军队的总人数，只是让士兵先后以三人一排、五人一排、七人一排地变换队形，假设先后三次队形的排尾人数分别是x人、y人、z人，他就知道自己军队的人数是m人。请问下列表达式中哪一项最符合对上述算法思想的描述？（）

现要编写一个统计2018~2100年间闰年次数的程序。已知出现闰年条件是：年份数能被4整除但不能被100整除，或者能被400整除。如图所示，要求程序运行后单击按钮，在列表框中显示闰年年份，并将统计次数显示在Label1。

有如下VB程序段：

Dim a As Integer，b As Integer，s As Single

a＝2

b＝3

Label1.Caption＝“s＝”＋“a*b”

该程序运行后，标签Label1上显示的内容是（）

VB中的Right函数功能是截取字符串右边指定长度的子串。如s= “Hello World!”,则Right(s, 6)的值为“World!”,下面的功能等同于函数Right(s, k)(k为整数)。

阅读如下程序段：

Private Sub Command1_Click()

Dim a(1 To 10) As Integer, b(1 To 10) As Integer

Dim n As Integer, i As Integer

n = 3

For i = 1 To 5

a(i) = i

b(n) = 2 * n + i

Next i

Text1.Text = Str(a(n))

Text2.Text = Str(b(n))

End Sub

程序运行后，单击命令按钮，在文本框Text1和Text2上显示的结果分别是（）

某算法的部分流程图如图所示，若n输入的值为0，则变量n，s的值分别是（）

相关试卷

公司介绍

服务介绍

帮助中心