窗体上已建立多个控件，如Text1、Command1、Label1，若要使程序开始运行时焦点定位在Command1控件上，则应将Command1控件的（ ）属性值设置为0。

A． Tab

B． Index

C． Tablndex

D． Top

[单选题]在窗体上建立了多个控件，如TEXT、LABEL1、COMMAND1，若要使程序一运行焦点就定位在COMMAND1控件上，应将COMMAND1控件的（）设置为0.A . INDEXB . TABINDEX[]C . TABSTOPD . ENABLED

[单选题]在窗体上画—个文本框(名称为Text1)和—个标签(名称为Label1)，程序运行后，在文本框中每输入—个字符，都会立即在标签中显示文本框中字符的个数。以下可以实现上述操作的事件过程是______。A．Private Sub Text1_ Change() Label1.Caption =Str (Len(Text1.Text))End SubB．Private Sub Text1_ Click() Label1.Caption=Str(Len(Text1.Text))End SubC．Priv

[单选题]在窗体上画一个文本框Text1、一个标签Label1和一个命令按钮Command1，然后编写如下两个事件过程： Private Sub Command1_Click() a=InputBox("请输入一个字符串") Text1．Text=a End Sub Private Sub Textl_Change() Label1．Caption=UCase(Mid(Text1．Text，8)) End Sub 程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串“Visual

[试题]设窗体上有text1文本框和Command1命令按钮，并有以下程序：Private Sub Command1_Click()Temp$=””F．or k=1 to len(text1)C．h$=mid(text1,k,1)If not found(temp,ch)thenTemp=temp&(13)E．nd IfNext kText1=(14)E．nd SubPrivate function found(str as string,ch as string)as BooleanF．or k

[试题]（ 9 ） 窗体上有名称为 Command1 的命令按钮及名称为 Text1 、 能显示多行文本的文本框 。 程序运行后 ，如果单击命令按钮，则可打开磁盘文件 c:/test.txt ，并将文件中的内容（多行文本）显示在文本框中。下面是实现此功能的程序，请填空。Private Sub Command1_Click()Text1= ””Number=FreeFileOpen “ c:/test.txt ” For Input As NumberD．o While Not Eof( ( 14 ) )L

[单选题]在窗体上添加一个标签控件Label1，则执行Label1.Caption="VisualBasic"语句后，标签控件的Name和Caption属性为（）A . "Label"、"Label1"B . "Label1"、"VisualBasic"C . "Label1"、"Caption"D . "VisuaBasic"、"Label1"

[单选题]在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：Private Sub Text1_LostFocus( )If Not IsNumeric(Text1) ThenMsgBox "帐号有非数字字符错误"Text1.Text = ""Text1.SetFocuselseMsgBox "帐号正确"E．nd IfE．nd Sub当在text1文本框中输入字符"abc"之后，单击命令按钮，结果为()A．显示对话框，提示信息为"帐号正确"B．显示对话框，提

[单选题]在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：Private Sub Command1_Click( )D．im I As IntegerIf Text1.Text"Gong" ThenI = MsgBox("密码错误", 5 + vbExclamation, "输入密码")If I4 ThenE．ndE．lseText1.Text = ""Text1.SetFocusE．nd IfE．lseMsgBox "密码帐号正确!"E．nd IfE．n

[单选题]（ 19 ）窗体上有名称为 Command1 的命令按钮和名称为 Text1 的文本框Private Sub Command1_Click()Text1.Text= ” 程序设计 ”Text1.SetFocusE．nd SubPrivate Sub Text1_GotFocus()Text1.Text= ” 等级考试 ”E．nd Sub运行以上程序，单击命令按钮后A． ）文本框中显示的是 “ 程序设计 ” ，且焦点在文本框中B． ）文本框中显示的是 “ 等级考试 ” ，且焦点在文本框中C． ）文

[单选题]窗体中有命令按钮Command1和文本框Text1，事件过程如下：F．unction result(ByVal x As Integer)As BooleanIf x Mod 2=0 Thenresult=Trueelseresult=FalseE．nd IfE．nd FunctionPrivate Sub Command1_Click()x=Val(InputBox(“请输入一个整数”))If______ ThenTextl=Str(x)&“是偶数．”E．lseTextl=Str(x)