PrivateSubCommand1_Click()DimaAsStringDimcAsStringa="TaizhouShusheng"c="Mid(a,"L_刷题宝

题干

Private Sub Command1_Click()
Dim a As String
Dim c As String
a = "TaizhouShusheng"
c =" Mid(a," Len (a) \ 2 + 1, 8)
Text1.Text = c
End Sub
该程序段运行后，在文本框Text1上显示的是( )

A．“Shusheng ”

B．“Taizhou”

C．Taizhou

D．Shusheng

上一题下一题 0.99难度选择题更新时间:2017-02-24 07:54:35

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

同类题1

在Visual Basic中进行窗体设计时，利用属性面板可以非常方便地对常用的属性进行设置。请观察右图，并选择出正确的描述( )

A．“Text1”是类名，“TextBox”是对象名，“Text” 是属性名，“点击输入”是属性值

B．“Text1”是对象名，“TextBox”是类名，“Text”是属性名，“点击输入”是属性值

C．“Text1”是对象名，“TextBox”是类名，“Text”是属性值，“点击输入”是属性名

D．Text1”是属性名，“TextBox”是对象名，“Text”是类名，“点击输入”是属性值

同类题2

为使两段程序能实现相同的功能，左框内划线处的内容为（）

A．b =" x" \ 10 Mod 10

B．b =" (x" - a * 100) / 10

C．b =" (x" - a * 100) / 10

D．b =" Int((x" - a * 100 - c) / 10)

同类题3

有如下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
该程序运行中，在列表框List1中显示的是( )

A．	B．
C．	D．

同类题4

某 VB 程序代码如下：
Private Sub Command1_Click()
Dim a As Integer, b As Single
a = Val(Text1.Text)
b = 3.14 * a ^ 2
Text2.Text = "圆面积为：" + b
End Sub
在 Text1 中输入 3，单击命令按钮 Command1 后，将会出现的提示信息是：（）

A．类型不匹配	B．溢出
C．无效的过程调用或参数	D．未找到方法或数据成员

同类题5

某两段VB程序分别如图1和图2所示：

当n的值为10时，关于该两段程序，下列说法不正确的是()

A．两段程序中i的初值相同

B．两段程序都采用了循环结构

C．图1程序实现了算式“1+4+7+10”的运算

D．图2程序中i=i+2执行了5次

相关知识点