注册

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

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

编程求数字之和，功能如下：在文本框Text1中输入由大小写英文字母和数字混合的字符串，要求程序自动计算数字之和，数字被单个的英文字母隔开（数字在一起的必须看成一个整体）。运行程序时，单击“计算”命令按钮Command1，在标签Label1中输出数字之和。程序运行界面如图所示，实现功能的VB代码如下：

请回答下列问题：

（1）、观察程序界面，该程序具备Caption属性的对象个数总共有个（填数字）。

（2）、在划线处填入合适的代码。

Private Sub Command1_Click()

Dim s As String, sum As Integer

Dim i As Integer, j As Integer

①

sum = 0

j = 0

For i = 1 To Len(s)

ch = Mid(s, i, 1)

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

j = ②

Else

sum = sum + Val(Mid(s, i - j, j))

j = 0

End If

Next i

Label1.Caption = "数字之和为：" + Str(sum) End Sub

① ②

（3）、在文本框Text1中输入“12A4B6R3d20”，运行程序输出的结果是（仅填数字）。

举一反三

小丁想买几张6+1彩票，选号时，他希望前4位用自己的生日：11月8日，即1108，特别号码他选了买彩票日子的个位数5，并且他希望前六个数字组成的数能被他的幸运数字9整除。他的好朋友小杰帮他设计了一个VB程序，可以提供一份符合这些要求的号码清单供他挑选。相应的界面如图1所示。阅读程序并完成后面的问题。

图1

某算法的流程图与其相对应的部分程序代码分别表示如下：

程序代码

Private Sub Command1_Click()

Dim i As Integer

Dim s As Long

s = 1

For ①

②

Next i

Label1.Caption = ③

End Sub

程序运行结束i的值为： ④

划线处①应填入{#blank#}1{#/blank#}

划线处②应填入{#blank#}2{#/blank#}

划线处③应填入{#blank#}3{#/blank#}

划线处④应填入{#blank#}4{#/blank#}

有如下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中显示的是（）

小丁想买几张6+1彩票，选号时，他希望前4位用自己的生日：11月8日，即1108，特别号码他选了买彩票日子的个位数5，并且他希望前六个数字组成的数能被他的幸运数字9整除。他的好朋友小杰帮他设计了一个VB程序，可以提供一份符合这些要求的号码清单供他挑选。相应的界面如图1所示。阅读程序并完成后面的问题。

编写VB应用程序，当用户输入的一串由字母、数字等字符组成的字符串，统计其中每个字母出现的次数(不分大小写)。程序运行时界面如图a所示。

图a

在VB中，表达式int(-5.8)的结果是-6。

返回首页

相关试卷

试题篮

公司介绍

Company Introduction

服务介绍

Service Introduction

帮助中心

Help center

二一教育APP

二一教育APP

400-637-9991

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

在线咨询客服