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

题干

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

（1）观察界面，程序中未使用到的控件是_____（填字母：

A．

/

B．

/

C．

/

D．

）

（2）根据题意，请将划线处代码补充完整。

Private Sub Command1_Click()

Dim zf As String, tmp As String
Dim s As String, i As Integer, ch As String
__________________
tmp = ""
s = ""
For i = 1 To Len(zf)
ch = Mid(zf, i, 1)
If ch >= "0" And ch <= "9" Then
_______________
ElseIf tmp <> "" Then
s = s + tmp + ","
tmp = ""
End If
Next i

Text2.Text = s

End Sub

（3）当输入的文本信息如图所示，若删除加框代码，则文本框Text2中显示的内容为______。

上一题下一题 0.99难度填空题更新时间:2019-11-27 12:16:49

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

同类题5

小宇为选定班级参赛作品编写了一个VB程序，设计如下：在文本框Text1内输入5位评委对3个作品的评分数据（评委对作品的评分数据由3位十进制数组成，第1位对应作品编号，第2、3位对应作品得分，分值范围为60,99。如“275”表示2号作品得分75）。单击“计分”按钮后，在标签Label1中输出3个作品的平均分，在标签Label2中输出参赛的作品（选择最高平均分作品参赛，若最高平均分存在并列，则从并列作品中随机柚取）。程序运行界面如图所示。

（1）“计分”按钮的对象名为_________。
（2）程序部分代码如下，请在划线处填入合适代码。
Private Suh jf_Click( )
Dim s As String，d As String，i As Integer
Dim f1 As Single，f2 As Single，f3 As Single
s = Text1. Text
i = 1
Do While ___________
d = Mid(s,i,3)
If Mid(d,1,1) = "1” Then
f1 = f1 + Val(Mid(d,2, 2))
ElseIf Mid(d, 1, 1) = “2” Then
f2 = f2 + Val(Mid(d,2, 2))
Else
f3 = f3 + Val(Mid(d,2, 2))
End If
________________
Loop
Label1.Caption="作品1平均分为:" + Str(f1 / 5)+ “作品2平均分为:” + Str(f2 / 5)+ “作品3平均分为:” + Str(f3 / 5)
'以下省略“处理并列最高平均分，并在Labd2中输出选取的参赛作品”的代码
End Sub
（3）运行该程序时，在文本框Text1中以不同的顺序输入原评分数据：
380/295/283/170/180/385/372/285/190/180/390/384/272/170/276,单击“计分”按钮，则Label1中显示的结果__________(选填:会/不会）发生改变。

A．在Text属性名中输入“你好”	B．在Caption属性名中输入“你好”
C．在Font属性名中输入“你好”	D．在Name属性名中输入“你好”

题干

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

同类题1

同类题2

同类题3

同类题4

同类题5