对象、方法、属性
属性、对象、值
对象、属性、值
对象、值、属性
第1题:
在窗体上画一个文本框(其中Name属性为Text1),然后编写如下事件过程: Private Sub Form_ Load() Text1.Text=“” Text1.SetFocus For i=1 To 10 Sum=Sam+ i Next i Text1.Text=Sam End Sub上述程序的运行结果是______ 。
A.在文本框Text1中输出55
B.在文本框Text1中输出0
C.出错
D.在文本框Text1中输出不定值
第2题:
A. 对象,值,属性
B. 对象,方法,属性
C. 对象,属性,值
D. 属性,对象,值
第3题:
以下能在窗体Form1的标题栏中显示“VisualBasic窗体\"的语句是( )。
A.Form1.Name="VisualBasic窗体"
B.Form1.Title="VisualBasic窗体"
C.Form1.Caption="VisualBasic窗体"
D.Form1.Text="VisualBasic窗体"
第4题:
在窗体上画—个名称为Text1的文本框,并编写如下程序: Private Sub Form_Load() Show Text1.Text==" " Text1.SetFocus End Sub Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single) Print“程序设计” End Sub Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) Print "VisualBasic"; End Sub 程序运行后,如果按A键,然后单击窗体,则在窗体上显示的内容是 ______。
A.Visual Basic
B.程序设计
C.A程序设计
D.Visual Basic程序设计
第5题:
A:对象,属性,属性
B:对象,方法,属性
C:对象,属性,值
D:属性,对象,值
第6题:
(6)在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为 Text1、Label1 和 Command1,然
后编写如下两个事件过程:
Private Sub Command1_Click( )
S$=InputBox("请输入一个字符串")
Text1.Text=S$
End Sub
Private Sub Text1_Change( )
Label1.Caption=UCase(Mid(Text1.Text, 7))
End Sub
程序运行后,单击命令按钮,将显示一个输入对话框,如果在该对话框中输入字符串“VisualBasic”,
则在标签中显示的内容是 【6】 。
第7题:
有程序代码如下:
Textl. Text= "Visual Basic"
则Text1,Text,和气Tisual Basic"分别代表( )。
A. 对象,值,属性
B. 对象,方法,属性
C. 对象,属性,值
D. 属性,对象,值
第8题:
在窗体上画一个名称为Text1的文本框,并编写如下程序: Private Sub Form_Load() Show Text1.Text=" Text1.SetFocus End Sub Phvate Sub Form_MouseUp(Buuon As Integer,Shift As Integer,X As Single,Y As Single) Phnt“程序设计” End Sub Private Sub Textl_KeyDow
A.Visual Basic
B.程序设计
C.A程序设计
D.VisualBasic程序设计
第9题:
窗体上有文本框Text1和一个菜单,菜单标题、名称见表,结构见图。要求程序执行时单击“保存”菜单项,则把其标题显示在Text1文本框中。下面可实现此功能的事件过程是( )。
A.Private Sub save Click( ) Text1.Text=file.save.Caption End Sub
B.Private Sub save Click( ) Text1.Text=save.Caption End Sub
C.Private Sub file Click( ) Text1.Text=file.save.Caption End Sub
D.Private Sub file Click( ) Text1.Text=save.Caption End Sub
第10题:
在窗体上画两个文本框,其名称分别为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