编写VB程序，实现如下功能：在文本框Text1中输入包含数字、字母、符号等的字符串，单击“统计”按钮Cmd_1，统计该字符串中数字字符的个数，并在标签Label_刷题宝

题干

编写VB程序，实现如下功能：在文本框Text1中输入包含数字、字母、符号等的字符串，单击“统计”按钮Cmd_1，统计该字符串中数字字符的个数，并在标签Label1中输出结果。界面如图所示。
（1）在设计界面时，应使用右图所示“控件工具箱”中的_____（填写相应编号）添加“统计”按钮。

（2）为实现上述功能，请在处填入合适代码。
Private Sub Command1_Click()
Dim s As String, c As String
Dim i As Integer, n As Integer, num As Integer
s = Text1.Text: num = 0
n = ①___________
i = 1
Do While i <= n
c = Mid(s, i, 1)
If ②_____________ Then
num = num + 1
End If
i = i + 1
③_______
Label1.Caption = Str(num)
End Sub
（3）在VB中运行程序，出现“要求对象”的错误，原因是：_______________________。

上一题下一题 0.99难度填空题更新时间:2019-03-02 02:54:47

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

同类题1

某VB程序在调试中弹出以下错误窗口，产生该错误的可能原因是（）

A．该VB程序代码中缺少Next

B．该VB程序窗体界面中，缺少某控件

C．该VB程序代码中，某个常量或变量没有声明

D．该VB程序设计软件没有正确安装

同类题2

下列关于对象的描述中，错误的是( )

A．对象的属性用于描述对象的状态

B．对象的属性与方法可以有多个

C．对象事件的发生会驱动该对象相应事件处理过程的执行

D．对象的属性值只能在属性窗口中设置

同类题3

在一次校园歌手大奖赛中，有20位评委负责评判，打分的上限是10分。统计选手得分时，去掉一个最高分，再去掉一个最低分，然后取评委打分的平均值作为选手的最后得分。根据上述规则，信息小组设计了计算选手得分的程序。核心部分的程序如下：
‘d数组中存放了20位评委的打分
Smax=0:smin=10:score=0
For i=1 To 20

Next i
score =" (" score – smax – smin )/18
Text1.Text= smax
Text2.Text= smin
Text3.Text= score
请分析任务和程序段，完成下列题目。
（1）程序段中出现的Text1、Text2、Text3是类型的控件。（选填“A”或“B”）

（2）在设计用户界面时，要在启动计算过程的按钮上显示“计算”二字，应该将按钮的“ ”属性值设置为“计算”。
（3）为精确地显示选手的最后得分，变量score的数据类型应定义为。
（4）程序执行过程中，程序段中虚线框内的代码将被执行次。
（5）请分析程序，将程序段中虚线框内的空白处补充完整。
If

同类题4

日期判断:从文本框Text1输入一个8位数字表示的日期，其中第1到4位表示年（第1位确定不为零），第5到6位表示月，第7到8位表示日。单击“判断”按钮，判断该日期是否合法，将结果依次输出到列表框List1。程序界面如下图所示：
提示：年份值符合下列两种情况之一的是闰年。
1.年份是4的倍数，但不是100的倍数；
2.年份是400的倍数。

（1）观察程序代码，可知“判断”按钮的对象名为。（单选，填字母：

D．Judge/E.判断）

（2）为实现上述功能，请在划线处填入合适的代码。
Private Sub Judge_Click()
Dim riqi As String, st As String
Dim year As Integer, month As Integer, day As Integer
Dim rn As Boolean, hefa As Boolean
riqi = Text1.Text
year =" Val(Mid(riqi," 1, 4))
month =" Val(Mid(riqi," 5, 2))
day = ① ‘第①处
st =" Str(year)" + "年" + Str(month) + "月" + Str(day) + "日"
rn = False ‘用于判断是否为闰年
If ② Then rn = True ‘第②处
If year Mod 4 =" 0" And year Mod 100 <> 0 Then rn = True
hefa = True ‘用于判断是否为合法日期
If month =" 0" Or month > 12 Then hefa = False
If day =" 0" Then hefa = False
If (month =" 1" Or month =" 3" Or month =" 5" Or month =" 7" Or ’与下一行语句同行
month =" 8" Or month =" 10" Or month =" 12)" And day > 31 Then hefa = False
If (month =" 4" Or month =" 6" Or month =" 9" Or month = 11) ’与下一行语句同行
And day > 30 Then hefa = False
If ③ Then hefa =" False" ’第③处,判断闰年2月的天数是否合法
If month =" 2" And Rn =" False" And day > 28 Then hefa = False
If hefa =" True" Then st =" st" + " 合法日期" Else st =" st" + " 非法日期"
List1.AddItem st
End Sub

同类题5

某VB的事件过程如下：
Private Sub Command1_Click()
Dim a As Integer
a = Val(Text1.Text)
a =" 2" * a + 1
Text1.Text = Str(a)
End Sub
程序运行时，在文本框Text1中输入1，连续两次单击命令按钮Command1后，Text1中显示的内容是（）

相关知识点