题库
题库
| 单选题 | 执行下列程序后输出的是（ ）。 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 此程序的功能是（ ）。 |
查看答案 |