单选题假定在图片框控件Picturel中装入了一个图形,为了在程序运行时清除该图形,则应使用______。
单选题下列叙述中正确的是( )。
单选题假定有以下程序段:
For i=1 To 3
For j=5 To 1 Step-1
Print i*j
Next j
Next i
则语句Print i*j的执行次数是______。
单选题窗体上有2个名称分别为Text1、Text2的文本框,1个名称为Command1的命令按钮。编写如下程序代码: Private Sub Form_Load() Text1.Text="" Text2.Text="" End Sub Private Sub Command1_Click() x=Val(Text1.Text+Text2.Text) Print x End Sub 程序运行时,在文本框Text1中输入“234”,在文本框Text2中输入“432”,然后单击Command1,输出结果为( )。
单选题设有窗体的Form MouseMove事件过程如下: Private Sub Form_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single) If(ButtonAnd 3)=3 Then Print"检查按键" End If End Sub 关于上述过程,以下叙述中正确的是
单选题窗体上有一个名称为Commandl的命令按钮,单击该按钮时所实现的功能是产生10个随机整数,然后从键盘输入一个整数,查找该数在数组中的位置。若找到,输出该数的位置;若没有找到,给出相应的提示。该命令按钮的单击事件过程如下: Private Sub Commandl—Click() Dim a(10)As Integer Dim X As Integer For i=1 To 10 a(i)=Int(Rnd*100) Next x=InputBox(“输入100以内的整数:”)P=0For i=1 To 10 If a(i)=x Then P=i Exit For End IfNextIf P=0 Then Print”没有找到与输入数据相同的数!”Else Print Str(x)+”在数组中的位置是”+Str(p)End If End Sub对于上述事件过程,以下叙述中正确的是( )。
单选题如果要将窗体中的某个命令按钮设置成不可见状态,应该设置命令按钮的{{U}} {{/U}}属性。
A. Value
B. Visible
C. Enabled
D.Default
单选题下列程序的执行结果是( )。 Private Sub Form_Activate() Dim score(3)As Integer,total As Integer Dim aa_score As Variant score(1)=50:score(2)=14:score(3)=36 total=0:i=0 For Each aa_score In score i=i+1 total=total+aa_score Print i,aa_score,total Next End Sub
单选题下列事件过程的功能是:建立一个名为Data1的随机文件,存放角度值及这些角度的正弦函数值和余弦函数值,角度为1,2,3,…,90。请在空白处填入适当的内容,将程序补充完整( )。 Private Type Ang K As Integer Sinx As Single Cosx As Single End Type Dim Ksc As Ang Private Sub Form_Click() Dim Y As Single Dim i As Integer Dim Ksc As Ang Open______ Y=3.14159/180 For i=1 To 90 Ksc.K=i Ksc.Sinx=Sin(i*Y) Ksc.Cosx=Cos(i*Y) Next i Close #2 End Sub
单选题如果要定义一个窗体级变量,定义变量语句的位置应该是
单选题对话框Filter属性为“Text(*.txt) | *.txt | Pictures(*.bmp,*ico) | *.bmp;*ico”,若在使用ShowOpen方法时默认过滤器为*.bmp;*.ico,需将对话框的FilterIndex属性设置为____。
单选题以下程序的输出结果是 ______。 x=2^-2 Print x End
单选题设窗体上有名称为Option1的单选按钮,且程序中有语句: IfOptionl.Value=True Then下面语句中与该语句不等价的是
单选题18,有如下语句,执行后该段语句的循环次数是( )。 Dims,i,j as integer Fori=1 to 3 Forj=3 to 1 Step-1 s=i*j Nextj Nexti
单选题编写如下事件过程:PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger) PrintChr(KeyCode)EndSubPrivateSubForm_KeyPress(KeyAsciiAsInteger) PrintChr(KeyAscii)EndSub在一般情况下(即不按住“Shift”键和锁定大写键时)运行程序,若按“T”键,则程序输出的结果是
单选题窗体上有一个名称为Commandl的命令按钮,其单击事件过程及相关的代码如下: Private Sub Command1_Click() Dim x As Integer,V As Integer x=Val(InputBox(”输入整数”)) Y=Val(InputBox(”输入整数”)) Print Str(fun(x,y)+x+y) End Sub Private Function fun(ByRef m As Integer,ByVal n As Integer) m=m*m:n=n+n:fun=m+n End Function 运行程序,单击命令按钮时,出现输入对话框,分别输入3、5,则窗体上显示的是
单选题窗体上有一个名称为Option1的单选按钮数组,程序运行时,当单击某个单选按钮时,会调用下面的事件过程
Private Sub Option1_Click(Index As Integer)
...
End Sub
下面关于此过程的参数Index的叙述中,正确的是______。
单选题下列方法中,能够使对象获得焦点的是( )。
单选题用下面语句定义的数组元素个数是______。 Dim Arr2(-2 To 6, i To 5) As Integer
单选题如下有一段程序,窗体上打印出来的结果是______。Private Sub Command1_ Click() x=1 do x=x+3 Print x; Loop until x>=8End Sub
