单选题表达式String(2,"Shanghai")的值是( )。 A．Sh B．Shanghai C．ShanghaiShanghai D．SS

单选题运行下列程序段后，显示的结果为( )。 J1=23 J2=32 If J1＜J2 Then Print J2 Else Print J1 A) 23 B) 32 C) 55 D) 2332

单选题以下数组定义语句中，错误的是

单选题若在窗体模块的声明部分声明了如下自定义类型和数组 Privme Type Tem Score As Integer StrName As String End Type Dim Student(5)As Tem 则下面的输出语句中正确的是( )。

单选题在窗体上画两个文本框(其名称分别为Text1和Text2)和一个命令按钮(其名称为 Commandl)，然后编写如下两个事件过程： Private Sub Command1_Click() Text1.Text = "Computer Rank Examination" End Sub Private Sub Text1_Change() Text2.Text = UCase(Text1.Text) End Sub程序运行后，单击命令按钮，则在Text2文本框中显示的内容是______。

单选题设有以下函数过程 Private FunctionFun(a() As Integer,b As Slring) As Integer End Function 若已有变量声明： Dim x(5)As Integer，n As Integer，ch As String 则下面正确的过程调用语句是( )。

单选题窗体文件的扩展名是______。 A. .frm B. .vbp C. .bas D. .frx

单选题一个工程包括各种类型的文件，其扩展名为.vbp的文件是______ 。

单选题设在窗体模块中有如下类型定义： Public Type Rec num As Integer name As String End Type下面关于这一类型定义的叙述中正确的是( )。

单选题下列程序运行后的输出结果是______。 Function Fun(n) x=n*n Fun=x-11 End Function Private Sub Command1_Click() For k=1 To 2 y=Fun(k):Print y Next End sub

单选题在窗体上画一个文本框(名称为Text1)和一个标签(名称为Label1)，程序运行后，在文本框中每输入一个字符，都会立即在标签中显示文本框中字符的个数。以下可以实现上述操作的事件过程是

单选题设计窗体时，双击窗体上没有控件的地方，打开的窗口是(　　)。

单选题在窗体上画一个命令按钮，其名称为Command1，然后编写如下代码： Option Base 0 Private Sub Command1_Click() Dim arr arr=Array("1","2","3","4","5","6","7","8","9","0") Print arr(2);arr(4);arr(6) End Sub 程序运行后，单击命令按钮，其输出结果是

单选题在窗体上画两个滚动条，名称分别为Hsroll1、Hsroll2；6个标签，名称分别为Label1、Label2、Label3、Label4、Label5、Label6，其中Label1～Label3分别显示"A"、"B"、"A*B"等文字信息，标签Label4、Label5分别显示其右侧的滚动条的数值，Label6显示A*B的计算结果。如下图所示。当移动滚动框时，在相应的标签中显示滚动条的值。当单击命令按钮"计算"时，对标签Label4、Label5中显示的两个值求积，并将结果显示在Label6中，则以下程序不能实现上述过程的是______。A)PrivateSubCommand1_Click()Label6.Caption=Str(Val(Label4.Caption)*Val(Label5.Caption))EndSubPrivateSubHScroll1_Change()Label4.Caption=HScroll1.ValueLabel5.Caption=HScroll2.ValueEndSubB)PrivateSubCommand1_Click()Label6.Caption=Str(Val(Label4.Caption)*Val(Label5.Caption))EndSubPrivateSubHScroll1_Change()Label4.Caption=HScroll1.ValueEndSubPrivateSubHScroll2_Change()Label5.Caption=HScroll2.ValueEndSubC)PrivateSubCommand1_Click()Label6.Caption=HScroll1*HScroll2EndSubPrivateSubHScroll1_Change()Label4.Caption=HScroll1.ValueEndSubPrivateSubHScroll2_Change()Label5.Caption=HScroll2.ValueEndSubD)PrivateSubCommand1_Click()Label4.Caption=HScroll1.ValueLabel5.Caption=HScroll2.ValueLabel6.Caption=HScroll1.Value*HScroll1.ValueEndSub

单选题下列选项中属于面向对象设计方法主要特征的是( )。 A) 继承 B) 自顶向下 C) 模块化 D) 逐步求精

单选题设a=10，b=5，c=1，执行语句Print a>b>c窗体上显示的是

单选题当文本框ScrollBars属性设置了非零值，却没有效果，原因是( )。

单选题执行语句Print"Sgn(-34)=";Sgn(-34)后，其输出结果为 ____ 。

单选题VB集成开发环境中，在（ ）中编写代码

单选题下列程序段的执行结果为{{U}} {{/U}}。 Dim A(3，3) For M=1 To 3 For N=1 To 3 If N=M Or N=3-M+1 Then A(M, N)=1 Else A(M，N)=0 End If Next N Next M For M=1 To 3 For N=1 To 3 Print A(M，N) Next N Print Next M A. 1 0 0 0 1 0 0 0 1 B. 1 1 1 1 1 1 1 1 1 C. 0 0 0 0 0 0 0 0 0 D. 1 0 1 0 1 0 1 0 1