编写“数字提取”程序，实现如下功能：在文本框Text1中输入文本信息，点击“提取”按钮Command1，将文本信息中的数字以“，”间隔输出到文本框Text2中。_刷题宝

题干

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

(1)如图所示，该程序共有________个对象。
(2)请根据题意将下列程序补充完整。
Private Sub Command1_Click()
Dim m As String，tmp As String，ch As Strin
Dim s As String，i As Integer
m=Text1.Text
tmp=""
s=""
For i=1 To Len(m)

ch=Mid(m，i，1)

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

______________

Else If tmp<>"" Then

s=s+tmp+"，"
______________

End If

Next i

Text2.Text=s
End Sub
(3)输入的文本信息如图a所示，若删除加框处代码，则文本框Text2中显示的内容为________________。

上一题下一题 0.99难度填空题更新时间:2019-05-10 01:21:31

答案(点此获取答案解析）

同类题1

编写“单词查询”程序，实现如下功能：在文本框Text1中输入一段英文文本（以“．”为结束符），在文本框 Text2 输入一个英文字母，单击“获取单词”按钮 Command1，在列表框 List1 依次显示Text1中包含该英文字母的所有单词。程序运行界面如图所示。

（1）程序运行时，文本框Text1显示为“请输入英文短句”，可在Form_Load事件过程中添加代码____________ (单选，填字母:

A．Text1.Caption = "请输入英文短句" /

B．Text1．Text="请输入英文短句"/

C．Text1.AddItem "请输入英文短句"）。

（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim s As String, tmp As String, c As String
Dim n As Integer, i As Integer
Dim flag As Boolean
Dim cnt As Integer '存储符合条件的单词数
s = Text1．Text
n = Len(s)
flag = False
List1.Clear
For i = 1 To n
c = Mid(s, i, 1)
If c >= "a" And c <= "z" Or c >= "A" And c <= "Z" Then

____________
If c = Text2.Text Then flag = True: cnt = cnt + 1
Else
If flag Then List1.AddItem tmp
tmp = ""

___________
End If
Next i
If cnt = 0 Then List1.AddItem "找不到符合条件的单词．"
End Sub
（3）若文本框Text2中输入“M”，单击“获取单词”按钮后，列表框List1中显示的单词个数是______。

同类题2

有如下VB程序段
m=a(1)
For i=2 to 100
If a(i) > m then m=a(i)
Next i
该程序段执行后，变量m中存储的是( )

C．a(1)至a(100)中的最大值

同类题3

在Visual Basic中，赋值语句chepai="浙D.V8888"中的"浙D.V8888"是( )

A．字符串常量

B．数值常量

C．逻辑常量 D.实数常量

同类题4

组合框的类型由其（_________）属性决定。

同类题5

在ＶＢ中，有如下程序段，该程序段执行后，变量x的值是
x=0
for i=1 to 5
x=x+i-1
next i

相关知识点