程序段IFR1〉6GOTOBLABEL1;…;LABEL1:…;表示如果R1中的值大于6,则程序向后跳转至“LABEL1”段(SIEMENS系统)。
第1题:
在窗体上画两个标签和一个命令按钮,其名称分别为Label1、Label2和Command1,然后编写如下程序: Private Sub func(L As Label,ByVal a As Integer) L.Caption="1234" a=a*a End Sub Private Sub Form_Load() Label1.Caption="ABCD" Label2.Caption=10 End Sub Private Sub Command1_Click() a=Val(Label2.Caption) Call func(Label1,A)Label2.Caption=a End Sub 程序运行后,单击命令按钮,在两个标签Label1和Label2中显示的内容分别是: ______。
A.ABCD和10
B.1234和100
C.ABCD和100
D.1234和10
第2题:
窗体中有一个名称为Button1的命令按钮,和一个Label1控件对象,编写如下事件过程: 程序运行后,单击命令按钮,如果输入3,则在Label1显示的内容是()
A3
B4
C5
D6
第3题:
在窗体中先建立一个名称为label1的控件数组(它的index属性为0),当执行以下程序段
:
PrivateSubForm_Load()
DimmtopAsInteger,mleftAsInteger,iAsInteger,jAsInteger
mtop=0
Fori=1To8
mleft=50
Forj=1To8
k=(i-1)*8+j
LoadLabel1(k)
Label1(k).BackColor=IIf((i+j)Mod2=0,QBColor(0),QBColor(15))
Label1(k).Visible=True
Label1(k).Top=mtop
Label1(k).Left=mleft
mleft=mleft+Label1(0).Width
Nextj
mtop=mtop+Label1(0).Height
Nexti
EndSub
执行后的效果是( )
A.在窗体中显示16行的黑、白颜色相间的棋盘
B.在窗体中显示8行10列的黑色棋盘
C.在窗体中显示8行8列的黑、白颜色相间的棋盘
D.以上说法都不正确
第4题:
IF R1 〉= R2 GOTOF LABEL1 ;…;LABEL1:…;是()(SIEMENS系统)。
第5题:
设标签Label1的Caption属性值为默认值,则该标签控件Name属性和Caption属性的值分别为()
第6题:
窗体上有一个名称为Label1的标签和一个名称为Command1的命令按钮。命令按钮的单击事件过程如下: Private Sub Command1 Click( ) XzInputBox("输入X:",,0) y=InputBox("输入y:",,0) Label1.Caption=x+y End Sub 运行程序,单击命令按钮,在输入对话框中分别输入2、3,运行的结果是( )。
A.程序运行有错误,数据类型不匹配
B.程序运行有错误,InputBox函数的格式不对
C.在Label1中显示5
D.在Label1中显示23
第7题:
一个完整的程序,必须具备()、加工程序段和结束程序段。
第8题:
在当前表单的LABELI控件中显示系统时间的语句是 ______。
A.THISFORM. LABEL1 CAPTION=TIME()
B.THISFORM. LABEL1 VALUE=TIME()
C.THISFORM. LABELI TEXT=TIME()
D.THISFORM. LABEL1 CONTROL=TIME()
第9题:
在窗体Form1的Click事件过程中有以下语句:Label1.Caption=”VisualBASIC”设标签的原Caption属性值为默认值,则该语句执行之后该标签控件Name属性和Caption属性的值分别为()
第10题:
关于程序IF R1 〉= 10 GOTOF LABEL1 ;…;LABEL1:…;下列说法正确的是()(SIEMENS系统)。