单选题 | 执行下列程序后输出的是( )。 Private Sub Commandl_Click( ) Ch$="ABCDEFGH"∶Print Mid(Right(ch$,6),Len(Left(ch$,4),2) End Sub |
查看答案 |
单选题 | 软件是指( )。 | 查看答案 |
单选题 | 下列关于文件的叙述中错误的是( )。 | 查看答案 |
单选题 | 某人设计了下列函数fun,功能是返回参数a中数值的位数 Function fun(a As Integer)As Integer Dim n% n=1 While a\10>=0 n=n+1∶a=a\10 Wend fun=n End Function 在调用该函数时发现返回的结果不正确,函数需要修改,下列修改方案中正确的是( )。 |
查看答案 |
单选题 | 某人设计了下列程序用于计算并输出7!(7的阶乘): Private Sub Command1_Click( ) t=0 Fork=7 To 2 Step -1 t=t*k Next Print t End Sub 执行程序时,发现结果是错误的。下列修改方案中能够得到正确结果的是( )。 |
查看答案 |
单选题 | 某人在窗体上画了一个名称为Timer1的计时器和一个名称为Label1的标签,计时器的属性设置为Enabled=True,Interval=0,并编程下列。希望在程序运行时,可以每2秒在标签上显示一次系统当前时间。 Private Sub Timer1_Timer( ) Label1.Caption=Time$ End Sub 在程序执行时发现未能实现以上目的,那么,他应做的修改是( )。 |
查看答案 |
单选题 | 要使一个文本框可以显示多行文本,应设置为True的属性是( )。 | 查看答案 |
单选题 | 在窗体上有如图所示的控件,各控件的名称与其标题相同,并有下列程序: Private Sub Form_Load( ) Command2.Enabled=False∶Check1.Value=1 End Sub 刚运行程序时,看到的窗体外观是( )。 |
查看答案 |
单选题 | 冒泡排序在最坏情况下的比较次数是( )。 | 查看答案 |
单选题 | 在窗体上有一个名为Textl 的文本框。当光标在文本框中时,如果按下字母“A”,则可被调用的事件过程是( )。 | 查看答案 |
单选题 | 下列程序的输出结果是( )。 Private Sub Command1_Click( ) ch$="ABCDEF" proc ch∶Print ch End Sub Private Sub proc(ch As String) s=“ “ For k=Len(ch) To 1 Step -1 s=s&Mid(ch,k,1) Next k ch=s End Sub |
查看答案 |
单选题 | 下列叙述中正确的是( )。 | 查看答案 |
单选题 | 下列叙述中正确的是( )。 | 查看答案 |
单选题 | 下列叙述中,不符合良好程序设计风格要求的是( )。 | 查看答案 |
单选题 | 某人编写了一个能够返回数组a中10个数中最大数的函数过程,代码下列: Function MaxValue(a( )As Integer)As Integer Dim max%∶max=1 For k=2 To 10 If a(k)>a(max)Then max=k End If Next k MaxValue=max End Function 程序运行时,发现函数过程的返回值是错的,需要修改,下列的修改方案中正确的是( )。 |
查看答案 |
单选题 | 为达到把a、b中的值交换后输出的目的,某人编程下列: Private Sub Command1_Click( ) a%=10:b%=20 Call swap(a,b):Print a,b End Sub Private Sub swap(ByVal a As Integer,ByVal b As Integer) c=a:a=b:b=c End Sub 在运行时发现输出结果错了,需要修改。下面列出的错误原因和修改方案中正确的是( )。 |
查看答案 |
单选题 | 在面向对象方法中,实现信息隐蔽是依靠( )。 | 查看答案 |
单选题 | 若窗体上的图片框中有一个命令按钮,则此按钮的Left属性是指( )。 | 查看答案 |
单选题 | 下列程序执行时,在窗体上显示的是( )。 Private Sub Command1_Click( ) Dim a(10) For k=1 To 10 a(k)=11-k Next k Print a(a(3)\a(7)Mod a(5)) End Sub |
查看答案 |
单选题 | 有一个名称为Fom1的窗体,上面没有控件,设有下列程序(其中方法PSet(X,Y)的功能是在坐标X、Y处画一个点): Dim cmdmave As Boolean Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y AsSingle) cmdmave =True End Sub Private Sub Form MouseMove(Button As Integer,Shift As Integer,X As Single,Y AsSingle) If cmdmave Then Form1.PSet(X,Y) End If End Sub Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Singgle) cmdmave=False End Sub 此程序的功能是( )。 |
查看答案 |