单选题若看到程序中有以下事件过程,则可以肯定的是,当程序运行时 Private Sub Click_MouseDown(Button As Integer,_Shift As Integer,X As Single,Y As Single) Print”VB Program” End Sub
单选题有下面程序代码:Pfivate Sub Commandl_Click() Private Sub proc(ByVal a As Integer) Dim x As Integer,s As Integer Static x As Integer x=1 x=x+1:a=a+x For k=1 To 3 End Sub x=x+1:proc x:s=s+x Next k Print sEnd Sub程序运行后,单击命令按钮Commandl,输出结果是
单选题在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click() Dim i As Integer, n As Integer For i=0 To 50 i=i+3 n=n+1 If i>10 Then Exit For Next Text1.Text=Str(n) End Sub 程序运行后,单击命令按钮,在文本框中显示的值是( )。
单选题在窗体上画一个名称为Label1、标题为“VisualBasic考试”的标签,两个名称分别为Conmmnd1和Com—mand2、标题分别为“开始”和“停止”的命令按钮,然后画一个名称为Timer1的计时器控件,并把其Interval属性设置为500,如图所示。编写如下程序:PrivateSubForm_Load()Timer1.Enabled=FalseEndSubPrivateSubCommand1_Click()Timer1.Enabled=TrueEndSubPrivateSubCommand2_Click()Fimerl.Enabled=FalseEndSubPrivateSubTimer1_Timer()IfLabel1.Left<WidthThenLabel1.Left=Label1.1eft+20ElseLabel1.Left=0EndIfEndSub程序运行后单击“开始”按钮,标签在窗体中移动。对于这个程序,以下叙述中错误的是
单选题已知A$="Welcome",下列语句操作能够正确执行的是( )。
单选题设窗体名称为frm1。以下叙述中正确的是
单选题删除列表框中指定的项目所使用的方法为
单选题设窗体的名称为Form1,标题为Win,则窗体的MouseDown事件过程的过程名是______。 A) Form_MouseDown B) Forml_MouseDown C) Win_MouseDown D) MouseDown_Form1
单选题如果执行一个语句弹出如下图所示的窗口,则这个语句是______。
单选题某人编写了下面的程序,希望能把Text1文本框中的内容写到out.tXt文件中: Private Sub Command1_Click() Open"out.txt"For Output As # 2 Print"Text1" Close # 2 End Sub 调试时发现没有达到目的,为实现上述目的,应做的修改是( ) A.把Print"Text1"改为Print # 2,Text1 B.把Print"Text1"改为Print Text1 C.把Print"Text1"改为Write"Text1" D.把所有#2改为#1
单选题假设X=3,Y=6,Z=5,则表达式:(X^2+Y)\Z的值是( )
单选题某人创建了1个工程,其中的窗体名称为Form1;之后有添加了1个名为Form2的窗体,并希望程序执行时先显示Form2窗体,那么,他需要做的工作是
单选题编写如下事件过程和函数过程: Private Sub Form_Click() Dim num() To 6)As Single num(1)=103:num(2):190:num(3)=0 num(4)=32:num(5)=-56:num(6)=100 Print Print p2(6,num()) End Sub Private Function p2(ByVal n As Integer,number() As Single)As Integer p2=number(1) For i=2 To n If number(j)<p2 Then p2=number(j) Next i End Function 程序运行后窗体上显示的值是( )。 A) -56 B) 0 C) 103 D) 190
单选题设a=2,b=3,c=4,d=5,下列表达式的值是( )。 NOt a<=c Or 4*c=b^2 And b<>a+c
单选题在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后输写如下程序: Private Sub Command1_Click() Dim x,y,z As Integer x=5 y=7 z=0 Text1.Text=" " CallFunl(x,y,z) Text1.Text=Str(z) End Sub Sub Fun1(By Val a As Integer,Byval b As Integer,c As Integer) c=a+b End Sub 程序运行后,如果单击命令按钮,则在文本框中显示的内容是
单选题编写如下事件过程和函数过程: Private Sub Form_Chck() DimBum(1 To 6)As Single num(1)=103:num(2)=190:num(3)=0 Bum(4)=32:num(5)=-56:num(6)=100 Print Pdnt p2(6,hum()) End Sub Private Function p2(ByVal n As Integer,number()As Single)As Integer p2=number(1) Forj=2 Ton lfnumber(j)<p2 Thenp2=number(j) Next j End Function 程序运行后窗体上显示的值是( )。
单选题下面程序的执行结果是______。
Private Sub Command1_Click()
a=10
For k=1 To 5 Step—I
a=a-k
Next k
Print a;k
End Sub
单选题在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:
Private Sub Command1_Click() Dim i As Integer, x As Integer For i = 1 To 6
If i = 1 Then x = i
If i <= 4 Then x = x + 1
Else
x = x + 2
End If
Next i
Print x
End Sub
程序运行后,单击命令按钮,其输出结果为______。
单选题设有窗体的Form MouseMove事件过程如下: Private Sub Form_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single) If(Button And 3)=3 Then Print”检查按键” End IfEnd Sub 关于上述过程,以下叙述中正确的是
单选题窗体上有一个名称为VScroll1的垂直滚动条,为了设定单击滚动条两端箭头时的Value增量值,应设置的属性是
