单项选择题

当把框架的何属性设置为False时，其标题会变灰，框架中所有的对象均被屏蔽

A． Cls方法中的对象，可以是窗体或图片框，如果省略则清除当前窗体中显示的内容。
B． 当前窗体中用Picture属性装入的图形，不可以用Cls方法清除
C． Move方法用来移动窗体和控件，不能改变大小
D． Cls可以清除由Print方法显示的文本，并把光标移到对象的左上角(0，0)
<上一题 目录 下一题>
热门 试题

单项选择题
在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：Private Sub Command1_Click() Dim a1(4, 4), a2(4, 4)Dim i As Integer, j As IntegerFor i = 1 To 4For j = 1 To 4 a1(i, j) = i + j a2(i, j) = a1(i, j) + i + jNext j Next i Print a1(3, 3); a2(3, 3) End Sub程序运行后，单击命令按钮，在窗体上输出的是______。
A．6 6
B．10 5
C．7 21
D．6 12
单项选择题
在窗体上从左到右有Text1、Text2两个文本框（见下图）要求程序运行时,在Text1中输入1个分数后按回车键,则判断分数合法性,若分数为0—100的1个数,则光标移到Text2中,否则光标不动,并弹出对话框显示 分数错 。下面程序中正确的是【 】
A．Private Sub Text1_KeyPress( KeyAscii As Integer) If KeyAscii=13 Then 回车符的ASCII码是13 a=Val(Text1) If a>；0 Or a<=100 Then Text2.SetFocus E1se Textl.SetFocus：MsgBOX("分数错") End If End If End Sub
B．Private Sub Textl_KeyPress(KeyAscii As Integer) If KeyAscii=13 Then 回车符的ASCII码是13 a=val(Textl) If a>=0 And a<=100 Then Textl.SetFocus E1se Text2.SetFocus：MsgBOX("分数错") End If End If End Sub
C．Private Sub Textl_KeyPress(KeyAscii As Integer) If KeyAscii=13 Then 回车符的ASCII码是13 a=val(Textl) If a<0 And a>100 Then Text2.SetFoeus Else Textl.SetFocus：MsgBOX("分数错") End If End If End Sub
D．Private Sub Text1l一Key Press (Key Ascii As Integer) If KeyAscii=13 Then 回车符的ASCII码是13 a=Val(Text1) If a>=0 And a<=100 Then Text2.SetFocus Else Text1.Set Focus：Msgbox("分数错") End If End If End Sub
相关试题