编写VB程序，实现如下功能：在文本框Text1中输入包含数字、字母的字符串，单击&ldquo;统计&rdquo;按钮Commandl，统计该字符串中数字字符的个数，并...

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

浙江省桐乡市高级中学2015-2016学年高二上学期期中考试信息技术试题

编写VB程序，实现如下功能：在文本框Text1中输入包含数字、字母的字符串，单击“统计”按钮Commandl，统计该字符串中数字字符的个数，并在标签Label1中输出结果。界面如图1所示。

（1）、在设计应用程序界面时，应使用图2所示“控件工具箱”中的（填写相应编号）添加“统计”按钮。

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

Private Sub Commandl_Click()

Dim s As String，c As String

Dim i As Integer，n As Integer，num As Integer

s = (填程序代码）

num = 0

n = Len(s)

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

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

num = num + 1

End If

Next i

Labell. Caption = str(num)

End Sub

A. Do While i <= n B. c = Mid(s,i,1) C. For i = 1 To n

举一反三

在Visual Basic的代码窗口中，如图所示语句List1.AddItem中的AddItem是（）

某种编码以4位二进制码为一组，每组前两位表示方向，后两位表示距离。编写一个程序，将编码翻译成方向和距离，距离值为每组编码后两位二进制码转换为十进制数的值。具体功能如下：在文本框Text1中输入连续多组编码，单击“翻译”按钮Command1，结果显示在列表框List1中。程序运行界面如图所示。

下面这个程序实现了把一个十进制数转换成八进制数。

在Visual Basic中使用”Caption”属性显示文字的控件类是（）

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

程序运行界面如下图所示。

小天使舞蹈队编排一个舞蹈。该舞蹈要求人数为偶数，其中 1 位同学领舞，其站位始终不变，舞蹈队形变化时，其余同学按逆时针顺序移动站位。我们把所有跳舞的同学从领舞开始依次编为数字 1～n（n 为偶数），然后把队伍编号按 U 形走向分成两列，即得到第一次队形。从第二次队形开始，固定编号 1（领舞），其余编号均按逆时针方向移动一个位置，即为该次队形；以后各次队形以此类推，直到除领舞外的所有同学按逆时针转完一圈为止。

例如，节目人数为 6 时队形变化情况如下：

小嘉为此编写了一个 VB 程序，功能如下：在文本框 Text1 中输入跳舞的同学 n（n 为偶数），单击“队形

变化”按钮 Command1，在列表框 list1 中输出每次变化后的队形。程序代码如下，运行效果如图所示。

Private Sub Command1_Click() Dim a(1 To 20) As String

Dim result As String, t As String

Dim n As Integer, i As Integer, j As Integer n = Val(Text1.Text)

For i = 1 To n

①

Next i

For i = 1 To

result = " "

List1.AddItem "第" & Str(i) & "次：" For j = 1 To n \ 2

result = a(j) + " " + a(n – j + 1 ) List1.AddItem result

Next j

②

For j = n To 3 Step -1 a(j) = a(j - 1)

Next j

a(2) = temp

Next i End Sub

请回答下列问题：

相关试卷

公司介绍

服务介绍

帮助中心