单项选择题

在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和 Command1，然后编写如下两个事件过程： Private Sub Command1_Click() str Text=InputBox("请输入") Text1.Text=strText End Sub Private Sub Text1_Change() Label1.Caption=Right(Trim(Text1.Text)，3) End Sub 程序运行后，如果在对话框中输入abcdef，则在标签中显示的内容是 ______。

A．空
B．abcdef
C．abc
D．def

<上一题目录下一题>

热门试题

单项选择题

假定在窗体(名称为Form1)的代码窗口中定义如下记录类型： Private Type animal animal Name As String * 20 aColor As String * 10 End Type 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1 Click() Dim rec As animal Open c： vb Test.dat For Random As # 1 Len=Len(reC) rec.animalName= cat rec.aColor= White Put # 1，，rec Close # 1 End Sub 则以下叙述中正确的是 ______。A) 记录类型animal不能在Form1中定义，必须在标准模块中定义D) 如果文件c: vbTest.dat不存在，则Open命令执行失败C) 由于Put命令中没有指明记录号，因此每次都把记录写到文件的末尾D) 语句 Put # 1，，rec 将animal类型的两个数据元素写到文件中

假定在窗体(名称为Form1)的代码窗口中定义如下记录类型： Private Type animal animal Name As String * 20 aColor As String * 10 End Type 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1 Click() Dim rec As animal Open "c：\vb Test.dat"For Random As # 1 Len=Len(reC) rec.animalName="cat" rec.aColor="White" Put # 1，，rec Close # 1 End Sub 则以下叙述中正确的是 ______。A) 记录类型animal不能在Form1中定义，必须在标准模块中定义D) 如果文件c:\vbTest.dat不存在，则Open命令执行失败C) 由于Put命令中没有指明记录号，因此每次都把记录写到文件的末尾D) 语句"Put # 1，，rec"将animal类型的两个数据元素写到文件中

单项选择题

设有如下程序： Dim a()As Integer Private Sub Command1_Click() n=-5:m=6 ReDim a(n To m) For i=LBound(a，1)To UBound(a，1) a(i)=i Next i Print a(LBound(a，1))；a(UBound(a，1)) End Sub 程序运行后，单击命令按钮，则输出结果是 ______。

A．0 0
B．-5 0
C．-5 6
D．0 6

相关试题