在窗体上画一个文本框,其名称为Text1。为了在程序运行后Text1中的文本不可编辑,应当使用的语句是______。
A.Text1.Clear
B.Text1.Locked=True
C.Text1.Visible=False
D.Text1.Enabled=True
第1题:
在窗体上一个文本框,其名称为Text1,然后编写如下事件过程:
PrivateSubText2_KeyPress(KeyAsciiAsInteger)
DimstrAsString,nAsInteger
str=Ucase(Chr(KeyAscii))
n=Len(str)
Text1=String(n,str)
EndSub
程序运行后,如果在TEXT2中通过键盘上输入单字母"k",则在文本框Text1中显示的内容为( )
A.k
B.K
C.KK
D.Kk
第2题:
此题为判断题(对,错)。
第3题:
在窗体上画一个文本框(Textl),然后编写如下事件过程: Private Sub Text1_KeyPress(KeyAscii As Integer) Dim char As String char=Chr(KeyAscii) KeyAscii=Asc(Ucase(char)) Print String(4,KeyAscii) End Sub 程序运行后,在文本框Text1中输入A,则程序在窗体上的输出结果为
A.a
B.A
C.aaaa
D.AAAA
第4题:
假定有一个文本框,其名称为Text1,为了使该文本框具有焦点,应执行的语句是______。
A.Change
B.OotFocus
C.SetFocus
D.LostFocus
第5题:
在窗体上画一个文本框,其名称为Textl。为了在程序运行后Textl中的文本不可编辑,应当使用的语句是______。
A.Textl.Clear
B.Textl.Locked=True
C.Textl.Visible=False
D.Textl.Enabled=Trve
第6题:
窗体上有一个文本框,其Name属性为Text1,如图1所示,并有如下事件过程:
上述程序的运行结果是( )。
A. 在文本框Text1中输出55
B. 在文本框Text1中输出0
C. 语法错误
D. 在文本框Text1中输出不定值
第7题:
在窗体上画一个文本框,其名称为Text1,然后编写如下事件过程: Private Sub Text1_KeyPress(KeyAscii As Integer) Dim sb As String Str=Chr(KcyAscii) KeyAscii=Asc(UCase(str)) Text1.Text=String(2,KeyAscii) End Sub 程序运行后,如果在键盘上输入字母“b”,则在文本框Text1中显示的内容是
A.bbb
B.BBB
C.BB
D.bb
第8题:
在窗体上画一个文本框,其名称为Text1,然后编写如下事件过程:
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim str As String
Str=Chr(KeyAscii)
KeyAscii=Asc(UCase (str))
Textl.Text=String(2, KeyAscii)
End Sub
程序运行后,如果在键盘上输入字母"b",则在文本框Text1中显示的内容是
A.bbb
B.BBB
C.BB
D.bb
第9题:
在窗体上画两个文本框,其名称分别为Text1和Text2,然后编写如下程序: Private Sub Form_Load0 Show Text1.Text="" Text2.Text="" Text1.SetFocus End Sub Private Sub Text1 Change() Text2.Text=Mid(Text1.Text,8) End Sub 程序运行后,如果在文本框Text1中输入BeijingChina,则在文本框Text2中显示的内容是( )。
A.BeijingChina
B.China
C.Beijing
D.BeijingC
第10题:
在窗体上画一个文体框(其Name属性为Text1),然后编写如下事件姓程; Private Sub Fom_Load() Text1.Text="" Text1.SetFocus For i=1 To 10 Stun=Stun +i Next i Text1.Text=Sum End Sub 上述程序的运行结果是______。
A.在文本框Text1中输出55
B.在文本框Tece1中输出0
C.出错
D.在文本框Text1中输出不定值
第11题:
Text1.Clear
Text1.Visible=False
Text1.Hide
Text1.Enabled=False
第12题:
China Beijing
China
Beijing
ChinaB
第13题:
在窗体上画两个文本框,其名称分别为Text1和Text2,然后编写如下程序:
Private Sub Form_Load()
Show
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
End Sub
Private Sub Text1_Change()
Text2.Text = Mid(Text1.Text, 8)
End Sub
程序运行后,如果在文本框Text1中输入BeijingChina,则在文本框Text2中显示的内容是( )。
A.BeijingChina
B.China
C.Beijing
D.BeijingC
第14题:
在名为Form1的窗体上绘制一个文本框,其名称为Text1。编写适当的事件过程,程使序运行后,若单击窗体,则可使文本框移到窗体的左上角;而如果在文本框中输入信息,则可使文本框移到窗体的右上角。程序的运行情况如下图所示。

注意:
不得使用任何变量,只允许通过修改属性的方式移动文本框:文件必须存放在考生文件夹中,工程文件名为execise112.vbp,窗体文件名为execise112.frm。

第15题:
在窗体上画一个文本框,一个命令按钮和一个标签,其名称分别为Text1、Command1和Labe11,文本框的Text1属性设置为空白,然后编写如下事件过程: Private Sub Command1_Click() x=Int(Val(TextText)+0.5) LabeCaption=Str(x) End Sub 程序运行后,在文本框中输入653,单击命令按钮,标签中显示的内容是______。
A.27
B.28
C.29
D.30
第16题:
在窗体上画一个文本框(其NAME属性为TExT1),然后编写如下事件过程: PRIVATE SUB FORM_LOAD( ) DIM SUM TEXT1="" FOR I=1 TO 10 SUM=SUM+I NEXT I TEXT1=SUM END SUB上述程序的运行结果是( )。
A.在文本框TEXT1中输出55
B.在文本框TEXT1中输出0
C.出错
D.在文本框TEXT1中输出不定值
第17题:
在窗体上画一一个名称为Text1的文本框,然后画一个名称为Hscroll1的滚动条,其Min和Max属性分别为0和1 000。程序运行后,如果移动滑块,则在文本框中显示滚动条的当前值。以下能实现上述操作的程序是( )。



第18题:
在窗体上画两个文本框,其名称分别为Text1和Text2,然后编写如下程序: Private Sub Form. Load() Show Text1.Text="" Text2.Text="" Text1.SetFocus End Sub Private Sub Text1_Change() Text2.Text=Mid(Text1.Text,8) End Sub 程序运行后,如果在文本框Text1中输入BeijingChina,则在文本框Text2显示的内容是______。
A. BeijingChina
B.China
C.Beijing
D.BeijingC
第19题:
在窗体上画二个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:

程序运行后,单击命令按钮,在文本框中显示的值是
A.2
B.3
C.4
D.5
第20题:
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Text1.Text = "Visual" Me.Text1 = "Basic" Text1 = "Program" End Sub 程序运行后,如果单击命令按钮,则在文本框中显示的是
A. Visual
B.Basic
C.Program
D.出错
第21题:
在窗体上画一个文本框(其名称为Text1)和一个标签(其名称为Labe11),程序运行后,如果在文本框中输入指定的信息,则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程是( )。
A.
B.
C.
D.
第22题:
在窗体上画一个名称为Commandl的命令按钮和一个名称为Text1的文本框。程序运行后,Command1为禁用(灰色)。当向文本框中输入任何字符时,命令按钮Command1变为可用。请在( )处填入适当的内容,将程序补充完整。

第23题:
579
123
456123
456