在窗体上添加一个名称为Text1的文本框和一个名称为Command1的命令按钮,编写如下事件过程:Private
在窗体上添加一个名称为Text1的文本框和一个名称为Command1的命令按钮,编写如下事件过程: Private Sub Command1_Click() Text1.Text=“计算机” Me.Text1=“等级” Text1=“考试” End Sub 程序运行后.如果单击命令按钮,则在文本框中显示的是
A.计算机
B.等级
C.考试
D.出错
在窗体上添加一个名称为Text1的文本框和一个名称为Command1的命令按钮,编写如下事件过程: Private Sub Command1_Click() Text1.Text=“计算机” Me.Text1=“等级” Text1=“考试” End Sub 程序运行后.如果单击命令按钮,则在文本框中显示的是
A.计算机
B.等级
C.考试
D.出错
在窗体中添加名称为Command1和名称为Command2的命令按钮测验文本框Text1,然后编写如下代码:
PrivateSubCommand1_Click()
Text1.Text="AB"
EndSub
PrivateSubCommand2_Click()
Text1.Text="CD"
EndSub
首先单击Command2按钮,然后再单击Command1按钮,在文本框中显示()
A、AB
B.CD
C.ABCD
D.CDAB
在窗体(名称为Forml)上绘制一个名称为Text1的文本框和一个名称为Commandl的命令按钮,然后编写一个事件过程。程序运行后,如果在文本框中输入一个字符,则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是()。
A.Private Sub Texl_Change() Commandl.Caption="计算机等级考试” End Sub
B.PrivateSubCommandl_Click() Caption="计算机等级考试"
C.Private Sub Commandl_Click() Text.Caption="计算机等级考试" End Sub
D.Private Sub Commandl_Click() Text1.Text="计算机等级考试" End Sub
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:
Option Base 1
Private Sub Command1_Click()
Dim s As Integer
Dim aa(3, 2) As Integer
For i = 1 To 3
For j = 1 To 2
aa(i, j) = i + j
Next j
Next i
s = aa(1, 2) + aa(2, 1)
Print s
End Sub
程序运行后,单击命令按钮,窗体上显示的值是()
A. 4
B. 5
C.6
D. 7
在窗体上有若干控件,其中有一个名称为Text1的文本框。影响Text1的Tab顺序的属性是()。
A.TabStop
B.Enabled
C.Visible
D.TabIndex
注意:
文件必须存放在考生文件夹中,工程文件名为execise27.vbp,窗体文件名为 execiSe27.frm。
注意:程序中不得使用任何变量;文件必须存放在考生文件夹中,工程文件名为sj1.vbp,窗体文件名为sj1.frm。
(2)在名为Form1的窗体上绘制一个标签(名称为Label1,标题为“输入”)、一个文本框(名称为Text1,Text属性为空白)和一个命令按钮(名称为Command1,标题为“显示”)。请编写命令按钮的Click事件过程,使程序运行后,在文本框中输入内容,然后单击命令按钮,则标签和文本框消失,并在窗体上显示文本框中的内容。运行后的窗体如图21-2和图21-3所示。
注意:要求程序中不得使用任何变量;文件必须存放在考生文件夹中,工程文件名为Sj2.vbp,窗体文件名为sj2.frm。
A. Visual
B.Basic
C.Program
D.出错
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim arr(10,10)As Integer,i,j As Integer For i=1 To 3 For j=2 To 4 arr(i,j)=i+j Next Next Text1.Text=an(2,3)+arr(3,4) End Sub 程序运行后,单击命令按钮,在文本框中显示的值是
A.12
B.13
C.14
D.15
在窗体上画四个文本框,并用这四个文本框建立一个控件数组,名称为Text1(下标从0开始,依次增大),然后编写如下事件过程: Private Sub Command1_Click() For Each TextBox In TeXt1 Text1(i)=Text1(i).Index i=i+1 Next End Sub 程序运行后,单击命令按钮,四个文本框中显示的内容分别为 ______。
A.0 1 2 3
B.1 2 3 4
C.0 1 3 2
D.出错信息
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后输写如下程序:
Private Sub Command1_Click()
Dim x,y,z As Integer
x=5
y=7
z=0
Text1.Text=""
Call Fun1(x,y,z)
Text1.Text=Str(z)
End Sub
Sub Fun1(ByVal a As Integer,ByVal b As Integer,c As Integer)
c=a+b
End Sub
程序运行后,如果单击命令按钮,则在文本框中显示的内容是
A.0
B.12
C.Str(z)
D.没有显示