设a=5,b=6,c=7,d=8,执行下列语句后,X的值为【】X=II...

单项选择题

与List1．Text属性值相同的是（）。

A． List1．ListCount
B． List1．List(ListCount-1)
C． List1．ListIndex
D． List1．List(List．ListIndex)

单项选择题

下面程序段的运行结果是（）。　　a=1 　　b=1 　　Do 　　　　a=a+1 　　　　b=b + 1 　　Loop Until b＞5 　　Print"k="；a；Spc(4)；"b="；b+a

A． k=7 b=14
B． k=6 b=6
C． k=4 b=8
D． k=6 b=12

单项选择题

以下属于Visual Basic合法的数组元素是（）。

A．x8
B．x[8]
C．s(0)
D．v[8]

单项选择题

在窗体上画一个命令按钮，然后写出如下事件过程：　　Private Sub Command1 _ Click( ) 　　　　S=1 　　　　Do 　　　　　　S=(S + 1) ^(S + 2) 　　　　　　Number=Number+1 　　　　Loop Until S＞=6 　　　　Print Number，S 　　End Sub 　　程序运行后，输出的结果是( )。

A． Function CT(ByVal a As Integer)　　　　If a Mod 2=0 Then　　　　　Return 0　　　　ElSe　　　　　Return 1　　　　End if　　End Function
B． Function CT(ByVal a As Integer)　　　If a Mod 2=0 Then　　　　CT=0　　　Else　　　　CT=1　　　End if　　End Function
C． Function CT(ByVal a As Integer)　　　If a Mod 2=0 Then　　　　　CT=1　　　Else　　　　　CT=0　　　End if　　End Function
D． Function CT(ByVal a As Integer)　　　If a Mod 2=0 Then　　　　　Return 1　　　Else　　　　　Return 0　　　End if　　End Function

单项选择题

下列程序段的执行结果为( )。　　a=1 　　b=2 　　For I=1 To 3 　　　f=a * b 　　　a=b 　　　b=f 　　　Print f 　　Next I

A．22
B．10
C．34
D．30

单项选择题

下列程序段的执行结果为（）。　　I=4 　　x=5 　　Do 　　　I=I+1 　　　x=x+2 　　Loop Until I＞=7 　　Print"I="；I 　　Print"X="；x

A．I=4 x=5
B．I=7 x=15
C．I=6 x=8
D．I=7 x=11

单项选择题

下列说法不正确的是（）。

A．对象的操作由对象的属性、事件和方法来描述
B． Visual Basic是面向对象的程序设计，Visual Basic中只有窗体和控件两种对象
C．属性是对象的特征，不同的对象有不同的属性
D．对象事件在代码窗口中体现过程

单项选择题

窗体上有1个名称为Text1的文本框和1个名称为Command1.的命令按钮。要求程序运行时,单击命令按钮,就可把文本框中的内容写到文件out.txt中,每次写入的内容附加到文件原有内容之后。下面能够正确实现上述功能的程序是【】

A．Private Sub Command1_Click() Open"out.txt"For Input As#1 Print#1,Text1.Text Print#1, Close #1 End Sub
B．Private Sub Command1_Click()Open"out.txt"For Output As#1 Text1l.Text Close#1 End Sub
C．Private Sub Command1_Click()Open"out.txt"For Append As#1 Print#1,Text1.Text Close #1 End Sub
D．Private Sub Command1_Click() Open"out.txt"For Random As#1 Print#1,Text1.Text Close#1 End Sub

单项选择题

下列程序段，在运行时最后输出的内容是（）。　　a=2 　　c=1 　　AAA: 　　c=c + a 　　If c＜10 Then 　　　　Print c 　　　　GoTo AAA 　　Else 　　　　Print "10以内的奇数显示完毕" 　　End If

A．3
B．7
C．9
D． 10以内的奇数显示完毕

单项选择题

要想在过程调用中返回两个结果，下面的过程定义语句合法的是（）。

A．20
B．21
C．56
D．32

单项选择题

以下各项，可以作为Visual Basic变量名的是（）。

A． Book
B． 2_Seek
C．123.58
D． Book-1

单项选择题

下面程序段执行结果为（）。　　x=Iht(Rnd()+4) 　　Select Case x 　　　Case 5 　　　　　Print"excellent" 　　　Case 4 　　　　　Print"good" 　　　Case 3 　　　　　Print"paSS" 　　　Case Else 　　　　　Print "fail" 　　End Select

A．excellent
B．good
C．pass
D．fail

单项选择题

下面循环语句中在任何情况下都至少执行一次循环体的是【】

A．Do While <条件> 循环体 Loop
B．While<条件>循环体 Wend
C．Do 循环体 Loop
D．Do Until<条件>循环体 Until <条件>Loop

单项选择题

要使菜单项MenuOne在程序运行时失效，使用的语句是（）。

A．MenuOne．Visible=Tree
B．MenuOne．Visible=False
C．MenuOne．Enabled=True
D．MenuOne．Enabled=False

单项选择题

根据变量的作用域，可以将变量分为3类，分别为（）。

A．局部变量、模块变量和全局变量
B．局部变量、模块变量和标准变量
C．局部变量、模块变量和窗体变量
D．局部变量、标准变量和全局变量

单项选择题

在Visual Basic中，被称为对象的是（）。

A．在需要自定义Swing构件的时候，首先要确定使用哪种构件类作为所定制构件的父类
B． paintComponent( )方法位于JComponent类内，该方法与paint( )方法类似，也要求一个Graphics类的实例为参数
C．无论在系统开始执行还是窗口被覆盖后需要重新绘制时，paintComponent( )方法都会被系统自动调用，所以在程序中不要调用它，否则会与自动化过程相冲突
D．如果需要重新绘制Applet，就调用方法paintComponent( )

单项选择题

下列说法错误的是（）。

A．11
B．13
C．23
D．33

单项选择题

以下叙述错误的是______。

A．用Shell函数可以执行扩展名为.exe的应用程序
B．若用Static定义通用过程，则该过程中的局部变量都被默认为Static类型
C．Static类型的变量可以在标准模块的声明部分定义
D．全局变量必须在标准模块中用Public或Global声明

单项选择题

以下叙述中错误的是______。

A．在 Visual Basic 中，对象所能响应的事件是由系统定义的
B．对象的任何属性既可以通过属性窗口设定，也可以通过程序语句设定
C．Visual Basic 中允许不同对象使用相同名称的方法
D．Visual Basic 中的对象具有自己的属性与方法

单项选择题

以下程序段运行时从键盘上输入字符“-”，则输出结果为（）。　　op$=InputBox("op=") 　　If op$="+" Then a=a+2 　　If op$="-" Then a=a-2 　　Print a

A．报表的主体区域
B．页面页眉或页面页脚区域
C．报表页眉或报表页脚区域
D．组页眉或组页脚区域

单项选择题

在窗体上画一个名称为Text1的文本框，要求文本框只能接收大写字母的输入。以下能实现该操作的事件过程是（）。

A．Private Sub Text1_KeyPress(KeyAscii As Integer)　　　　If KeyAscii < 65 Or KeyAscii > 90 Then　　　　　　MsgBox "请输入大写字母"　　　　　　KeyAscii = 0　　　　　End If　　　　End Sub
B．Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)　　　　If KeyCode < 65 Or KeyCode > 90 Then　　　　　　MsgBox "请输入大写字母"　　　　　　KeyCode = 0　　　　　End If　　　　End Sub
C．Private Sub Text1_MouseDown(Button As Integer,_　　　　　　　Shift As Integer, X As Single, Y As Single)　　　　If Asc(Text1.Text) < 65 Or Asc(Text1.Text) > 90 Then　　　　　　　MsgBox "请输入大写字母"　　　　　End If　　　　End Sub
D． Private Sub Text1_Change()　　　　If Asc(Text1.Text) ＞ 64 And Asc(Text1.Text) ＜ 91 Then　　　　　　MsgBox "请输入大写字母"　　　　　End If　　　　End Sub

单项选择题

标签控件能够显示文本信息，决定其文本内容的属性是（）。

A． Alignment
B． Caption
C． Visible
D． BorderStyle

单项选择题

假定有如下的窗体事件过程： Private Sub Form_Click() a$ = "Microsoft Visual Basic" b$ = Right(a$, 5) c$ = Mid(a$, 1, 9) MsgBox a$, 34, b$, c$, 5 End Sub 程序运行后，单击窗体，则在弹出的信息框的标题栏中显示的信息是______。

A．Microsoft Visual
B．Microsoft
C．Basic
D．5

单项选择题

以下属于Visual Basic合法的数组元素是（）。

A． J2DE
B． J2SE
C． J2ME
D． J2EE

单项选择题

已知使用Show方法的格式为:[窗体名称]．Show[模式]，如果要使窗体是“模态型”宙体，则“模式”值为（）。

A．t.f；
B．this.n；
C．Test.m；
D．Test.f;

单项选择题

在窗体上有多个控件，要实现程序运行后焦点默认在某一控件上，应该设置的属性是（）。

A．设置Enabled 的值为True
B．设置TabIndex的值为1
C．设置TabIndex 的值为0
D．设置Index 的值为0

单项选择题

下列说法错误的是（）。

A． Caption不是只读属性，运行时对象的名称可以通过代码改变
B．设置Height或Width的数值单位为twip，1twip=1/10point
C． Icon属性用来设置窗体最小化时的图标
D．用来激活属性窗口的快捷键是F4键

单项选择题

以下叙述中错误的是（）。

A．在KeyPress事件过程中不能识别键盘的按下与释放
B．在KeyPress事件过程中不能识别回车键
C．在KeyDown和KeyUp事件过程中，将键盘输入的“A”和“a”视作相同的字母
D．在KeyDown和KeyUp事件过程中，从大键盘上输出的“1”和从右侧小键盘上输入的“1”被视作不同的字符

单项选择题

下列程序运行结果是( )。　　　a=25：b=-45 　　　i=Not a=b 　　　Print i

A．-45
B． True
C．0
D．不能输出

单项选择题

以下程序段的输出结果为（）。　　Dim 1，a(10)，p(3) 　　k=5 　　Fori=0 To 10 　　　　a(i)=i 　　Next i 　　For i=0 To 2 　　　　p(i)=a(i(i+1)) 　　Next i 　　For i=0 To 2 　　　　k=k+p(i)2 　　Next i 　　Frint k

A．20
B．21
C．56
D．32

单项选择题

表达式(7\2+1)*(8\2+2)的值为（）。

A．在活动窗体中只能通过拖拉右上角和左下角的小方块来同时在高度和宽度上缩放控件
B．若一个控件上有4个黑色的小方块，表明该控件是活动的
C．窗体中活动控件只能有一个
D．非活动控件在窗体是隐藏的

单项选择题

以下程序段运行时从键盘上输入字符“-”，则输出结果为（）。　　op$=InputBox("op=") 　　If op$="+" Then a=a+2 　　If op$="-" Then a=a-2 　　Print a

A．2
B．-2
C．0
D．+2

单项选择题

能够获得一个文本框中被选取文本的内容的属性是（）。

A． n/10％2
B． (n-n％10)/100
C． n％10
D． n％100/10

单项选择题

在窗体上添加标签控件Label1之后，标签控件的默认的名称Name是（）。

A． Label
B． Label1
C． Text
D． Text1

单项选择题

表达式x=Sqr(a^2-5)+sqr(b^2-5)的类型是（）。

A．在Visual Basic 中的对话框分为两种类型：预定义对话框和自定义对话框
B．自定义对话框由用户根据自己需要定义的
C．预定义对话框是用户在设置程序代码后定义的
D． MssgBox 函数是用户的自定义对话框的函数

单项选择题

下列程序段的执行结果为( )。　　I=4 　　x=5 　　Do 　　　　I=I + 1 　　　　X=K^2 　　Loop Until I＞=7 　　Print"I="；I 　　Print"x="；x

A．I=4x=258694
B．I=7x=256987
C．I=6x=365840
D．I=7x=390625

单项选择题

设a=5,b=6,c=7,d=8,执行下列语句后,X的值为【】 X=IIF((a>b)And(C>d),10,20)

A．10
B．20
C．True
D．False

单项选择题

运行下列程序段后，显示的结果为（）。　　J1=23 　　J2=32 　　If J1＜J2 Then Print J2 Else Print J1

A．23
B．32
C．55
D．2332

单项选择题

单击窗体上的关闭按钮时，触发的事件是（）。

A． Form_Initialize ( )
B． Form_Load ( )
C． Form_Unload ( )
D． Form_Click ( )

单项选择题

如果一个变量未经定义就直接使用，则该变量的默认类型为（）。

A． Variant
B． Byte
C． Boolean
D． Integer

单项选择题

设有声明语句　　Dim b(-1 To 10，2 To 9，20)As Integer 　　则数组b中全部元素的个数是（）。

A．2310
B．2016
C．1500
D．1658

单项选择题

当把框架的何属性设置为False时，其标题会变灰，框架中所有的对象均被屏蔽

A． Name
B． Enabled
C． Caption
D． Visible

单项选择题

在窗体上画一个命令按钮，然后编写下列程序：　　Private Sub Command1 click( ) 　　　　Dim a As Single，b As Single 　　　　a=6:b=2 　　　　RC a，b 　　　　Print a，b 　　End Sub 　　Sub RC(x As Single，y As Single) 　　　　i=x 　　　　x=i/y 　　　　y=i Mod y 　　End Sub 程序运行后，输出的结果为( )。

A．如果选项组结合到某个字段，则只有组框架本身结合到该字段，而不是组框架的复选框、选项按钮或切换按钮
B．选项组可以设置为表达式或非结合选项组，也可以在自定义对话框中使用非结合选项组来接受用户的输入，但不能根据输入的内容来执行相应的操作
C．选项组是由一个组框、一个复选框、选项按钮或切换按钮和关闭按钮组成的
D．以上说法均错

单项选择题

在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：　　Private Sub Command1_Click() 　　　Dim array1(10, 10) As Integer 　　　Dim i As Integer, j As Integer 　　　For i = 1 To 3 　　　　For j = 2 To 4 　　　　　array1(i, j) = i + j 　　　　Next j 　　　Next i 　　　Text1.Text = array1(2, 3) + array1(3, 4) 　　End Sub 　　程序运行后，单击命令按钮，在文本框中显示的值是（）。

A．15
B．14
C．13
D．12

单项选择题

有如下事件过程，单击命令按钮扣，输出结果是( )。　　 Private Sub Command1 Click( ) 　　　　Dim b% (1 To4) ,j%, t# 　　　　For j=1 To 4 　　　　　　b(j) =j 　　　　Next j 　　　　t=Tax(b( ) ) 　　　　Print "t="; t, 　　 End Sub 　　 Function Tax (a( ) As Integer) 　　　　Dim t#, i% 　　　　t=1 　　　　For i=2 To UBound (a) 　　　　　　t=t * a(i) 　　　　　　Next i 　　　　　　Tax=t 　　 End Function

A． t=18
B． t=24
C． t=30
D． t=32

单项选择题

在窗体上画 1 个命令按钮，名称为 Command1，然后编写如下程序： Dim Flag As Boolean Private Sub Command1_Click() Dim intNum As Integer intNum=InputBox("请输入：") If Flag Then Print f(intNum) End If End Sub Function f(X as Integer)As Integer If X<10 Then Y=X Else Y=X+10 End If f=Y End Function Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X as Single,Y As Single) Flag=True End Sub 运行程序，首先单击窗体，然后单击命令按钮，在输入对话框中输入5，则程序的输出结果为______。

A．0
B．5
C．15
D．无任何输出

单项选择题

有如下的程序：　　Private Sub Command1_Click( ) 　　　Dim k As Integer，m As Integer 　　　Dim P As Integer 　　　k=4：m=1 　　　P=Pid(k，m) ：Print P；　　　P=Pid(k，m) ：Print P 　　End Sub 　　Private Function Pid(a As Integer，b As Integer) 　　　Static m As Integer，i As Integer 　　　m=5：i=2 　　　i=i + m + 1 　　　m=i + a + b 　　　Pid=m\2 　　End Function 　　单击命令按钮后，输出结果为（）。

A．标准模块也称程序模块文件，扩展名是.bas
B．标准模块由程序代码组成
C．标准模块只用来定义一些通用的过程
D．标准模块不附属于任何一个窗体

单项选择题

在窗体上画一个命令按钮（其NAME属性为Command1），然后编写如下代码: 　　Option Base 1 　　Private Sub Command1_Click() 　　　Dim a 　　　s = 0 　　　a = Array(1,2,3,4)；j = 1 　　　For i = 4 To 1 Step -1 　　　　s = s + a(i) * j 　　　　j = j * 10 　　　Next i 　　　Print s 　　End Sub 　　运行上面的程序，单击命令按钮，其输出结果是（）。

A．4321
B．1234
C．34
D．12

单项选择题

下列程序的执行结果为( )。　　 Private Sub Comrnandl_Click( ) 　　　　Dim p As Integer, q As Integer 　　　　p=12：q=20 　　　　Call Value(p, q) 　　　　Print p; q 　　 End Sub 　　 Private Sub Value(ByVal m As Integer, ByVal n As Integer) 　　　　m=m * 2: n=n - 5 　　　　Print m; n 　　 End Sub

A．20　1220　15
B．12　2012　25
C．24　1512　20
D．24　1212　15

单项选择题

窗体上有名称分别为Text1、Text2的2个文本框，要求文本框Text1中输入的数据小于 500，文本框Text2中输入的数据小于1000，否则重新输入。为了实现上述功能，在以下程序中问号（？）处应填入的内容是______。 Private Sub Text1_LostFocus() Call CheckInput(Text1,500) End Sub Private Sub Text2_LostFocus() Call CheckInput(Text2,1000) End Sub Sub CheckInput(t As ,x As Integer) If Val(t.Text)>x Then MsgBox "请重新输入！" End If End Sub

A．Text
B．SelText
C．Control
D．Form

单项选择题

在窗体上画2个命令按钮,名称分别为Command1、Command2,并编写如下程序: Const n=5,m=4 Dim a(m,n) Private Sub Command1-Click() k=1 For i=1 To m For i=1 To n a(i,j)=k k=k+1 Next j Next i End Sub Private Sub Command2_Click() summ=0 For i=1 To m For i=1 To n If i=1 or i=m Then summ=summ+a(i,j) Else If j=1 or j=n Then summ=summ+a(i,j) End If End If Next j Next i Print summ End Sub 过程Command1_Click()的作用是在二维数组a中存放1个m行n列的矩阵；过程Command2-Click()的作用是【】

A．计算矩阵外围一圈元素的累加和
B．计算矩阵除外围一圈以外的所有元素的累加和
C．计算矩阵第1列和最后一列元素的累加和
D．计算矩阵第1行和最后一行元素的累加和

单项选择题

单击命令按钮，下列事件过程的执行结果为( )。　　 Private Sub Command1_Click( ) 　　　　Dim x As Integer, y As Integer 　　　　x=40：y=72 　　　　Call PtoP(x, y) 　　　　Print x; y 　　 End Sub 　　 Public Sub PtoP(Byval n AS Integer, ByVal m Aa Integer) 　　　　n = n \ 10+2 　　　　m = m \ 10+2 　　 End Sub

A． 0 8
B． 40 72
C． 4 50
D． 78 50

设a=5,b=6,c=7,d=8,执行下列语句后,X的值为【 】 X=IIF((a>b)And(C>d),10,20)

你可能感兴趣的试题

与List1．Text属性值相同的是（ ）。

下面程序段的运行结果是（ ）。 a=1 b=1 Do a=a+1 b=b + 1 Loop Until b＞5 Print"k="；a；Spc(4)；"b="；b+a

以下属于Visual Basic合法的数组元素是（ ）。

在窗体上画一个命令按钮，然后写出如下事件过程： Private Sub Command1 _ Click( ) S=1 Do S=(S + 1) ^(S + 2) Number=Number+1 Loop Until S＞=6 Print Number，S End Sub 程序运行后，输出的结果是( )。

下列表达式中不能判断x是否为偶数的是【 】

关于Visual Basic"方法"的概念错误的是（ ）。

下列说明中，不属于随机文件特点的是（ ）。

执行语句s=Len(Mid("VisualBasic",1,6))后，s的值是（ ）。

以下可以作为Visual Basic变量名的是______。

通常情况下，垂直滚动条的值是（ ）。

以下为Visual Basic学习版的控件的是（ ）。

设有如下过程： Sub ff(x，y，z，) x=y+z End Sub 以下所有参数的虚实结合都是传址方式的调用语句是（ ）。

下列程序段的执行结果为( )。 a=1 b=2 For I=1 To 3 f=a * b a=b b=f Print f Next I

下列程序段的执行结果为（ ）。 I=4 x=5 Do I=I+1 x=x+2 Loop Until I＞=7 Print"I="；I Print"X="；x

下列说法不正确的是（ ）。

窗体上有1个名称为Text1的文本框和1个名称为Command1.的命令按钮。要求程序运行时,单击命令按钮,就可把文本框中的内容写到文件out.txt中,每次写入的内容附加到文件原有内容之后。下面能够正确实现上述功能的程序是【 】

下列程序段，在运行时最后输出的内容是（ ）。 a=2 c=1 AAA: c=c + a If c＜10 Then Print c GoTo AAA Else Print "10以内的奇数显示完毕" End If

要想在过程调用中返回两个结果，下面的过程定义语句合法的是（ ）。

以下各项，可以作为Visual Basic变量名的是（ ）。

下面程序段执行结果为（ ）。 x=Iht(Rnd()+4) Select Case x Case 5 Print"excellent" Case 4 Print"good" Case 3 Print"paSS" Case Else Print "fail" End Select

下面循环语句中在任何情况下都至少执行一次循环体的是【 】

要使菜单项MenuOne在程序运行时失效，使用的语句是（ ）。

根据变量的作用域，可以将变量分为3类，分别为（ ）。

在Visual Basic中，被称为对象的是 （ ）。

下列说法错误的是（ ）。

以下叙述错误的是______。

以下叙述中错误的是______。

以下程序段运行时从键盘上输入字符“-”，则输出结果为（ ）。 op$=InputBox("op=") If op$="+" Then a=a+2 If op$="-" Then a=a-2 Print a

在窗体上画一个名称为Text1的文本框，要求文本框只能接收大写字母的输入。以下能实现该操作的事件过程是（ ）。

标签控件能够显示文本信息，决定其文本内容的属性是（ ）。

假定有如下的窗体事件过程： Private Sub Form_Click() a$ = "Microsoft Visual Basic" b$ = Right(a$, 5) c$ = Mid(a$, 1, 9) MsgBox a$, 34, b$, c$, 5 End Sub 程序运行后，单击窗体，则在弹出的信息框的标题栏中显示的信息是______。

以下属于Visual Basic合法的数组元素是（ ）。

已知使用Show方法的格式为:[窗体名称]．Show[模式]，如果要使窗体是“模态型”宙体，则“模式”值为（ ）。

在窗体上有多个控件，要实现程序运行后焦点默认在某一控件上，应该设置的属性是（ ）。

下列说法错误的是（ ）。

以下叙述中错误的是（ ）。

下列程序运行结果是( )。 a=25：b=-45 i=Not a=b Print i

以下程序段的输出结果为（ ）。 Dim 1，a(10)，p(3) k=5 Fori=0 To 10 a(i)=i Next i For i=0 To 2 p(i)=a(i*(i+1)) Next i For i=0 To 2 k=k+p(i)*2 Next i Frint k

表达式(7\2+1)*(8\2+2)的值为（ ）。

以下程序段运行时从键盘上输入字符“-”，则输出结果为（ ）。 op$=InputBox("op=") If op$="+" Then a=a+2 If op$="-" Then a=a-2 Print a

能够获得一个文本框中被选取文本的内容的属性是（ ）。

在窗体上添加标签控件Label1之后，标签控件的默认的名称Name是（ ）。

表达式x=Sqr(a^2-5)+sqr(b^2-5)的类型是（ ）。

下列程序段的执行结果为( )。 I=4 x=5 Do I=I + 1 X=K^2 Loop Until I＞=7 Print"I="；I Print"x="；x

设a=5,b=6,c=7,d=8,执行下列语句后,X的值为【 】 X=IIF((a>b)And(C>d),10,20)

运行下列程序段后，显示的结果为（ ）。 J1=23 J2=32 If J1＜J2 Then Print J2 Else Print J1

单击窗体上的关闭按钮时，触发的事件是（ ）。

如果一个变量未经定义就直接使用，则该变量的默认类型为（ ）。

设有声明语句 Dim b(-1 To 10，2 To 9，20)As Integer 则数组b中全部元素的个数是（ ）。

当把框架的何属性设置为False时，其标题会变灰，框架中所有的对象均被屏蔽

在窗体上画一个命令按钮，然后编写下列程序： Private Sub Command1 click( ) Dim a As Single，b As Single a=6:b=2 RC a，b Print a，b End Sub Sub RC(x As Single，y As Single) i=x x=i/y y=i Mod y End Sub 程序运行后，输出的结果为( )。

有如下事件过程，单击命令按钮扣，输出结果是( )。 Private Sub Command1 Click( ) Dim b% (1 To4) ,j%, t# For j=1 To 4 b(j) =j Next j t=Tax(b( ) ) Print "t="; t, End Sub Function Tax (a( ) As Integer) Dim t#, i% t=1 For i=2 To UBound (a) t=t * a(i) Next i Tax=t End Function

下列程序的执行结果为( )。 Private Sub Comrnandl_Click( ) Dim p As Integer, q As Integer p=12：q=20 Call Value(p, q) Print p; q End Sub Private Sub Value(ByVal m As Integer, ByVal n As Integer) m=m * 2: n=n - 5 Print m; n End Sub

单击命令按钮，下列事件过程的执行结果为( )。 Private Sub Command1_Click( ) Dim x As Integer, y As Integer x=40：y=72 Call PtoP(x, y) Print x; y End Sub Public Sub PtoP(Byval n AS Integer, ByVal m Aa Integer) n = n \ 10+2 m = m \ 10+2 End Sub

设a=5,b=6,c=7,d=8,执行下列语句后,X的值为【】 X=IIF((a>b)And(C>d),10,20)

与List1．Text属性值相同的是（）。

下面程序段的运行结果是（）。　　a=1 　　b=1 　　Do 　　　　a=a+1 　　　　b=b + 1 　　Loop Until b＞5 　　Print"k="；a；Spc(4)；"b="；b+a

以下属于Visual Basic合法的数组元素是（）。

下列表达式中不能判断x是否为偶数的是【】

关于Visual Basic"方法"的概念错误的是（）。

下列说明中，不属于随机文件特点的是（）。

执行语句s=Len(Mid("VisualBasic",1,6))后，s的值是（）。

通常情况下，垂直滚动条的值是（）。

以下为Visual Basic学习版的控件的是（）。

设有如下过程：　　Sub ff(x，y，z，) 　　　x=y+z 　　End Sub 　　以下所有参数的虚实结合都是传址方式的调用语句是（）。

下列程序段的执行结果为( )。　　a=1 　　b=2 　　For I=1 To 3 　　　f=a * b 　　　a=b 　　　b=f 　　　Print f 　　Next I

下列程序段的执行结果为（）。　　I=4 　　x=5 　　Do 　　　I=I+1 　　　x=x+2 　　Loop Until I＞=7 　　Print"I="；I 　　Print"X="；x

下列说法不正确的是（）。

窗体上有1个名称为Text1的文本框和1个名称为Command1.的命令按钮。要求程序运行时,单击命令按钮,就可把文本框中的内容写到文件out.txt中,每次写入的内容附加到文件原有内容之后。下面能够正确实现上述功能的程序是【】

下列程序段，在运行时最后输出的内容是（）。　　a=2 　　c=1 　　AAA: 　　c=c + a 　　If c＜10 Then 　　　　Print c 　　　　GoTo AAA 　　Else 　　　　Print "10以内的奇数显示完毕" 　　End If

要想在过程调用中返回两个结果，下面的过程定义语句合法的是（）。

以下各项，可以作为Visual Basic变量名的是（）。

下面程序段执行结果为（）。　　x=Iht(Rnd()+4) 　　Select Case x 　　　Case 5 　　　　　Print"excellent" 　　　Case 4 　　　　　Print"good" 　　　Case 3 　　　　　Print"paSS" 　　　Case Else 　　　　　Print "fail" 　　End Select

下面循环语句中在任何情况下都至少执行一次循环体的是【】

要使菜单项MenuOne在程序运行时失效，使用的语句是（）。

根据变量的作用域，可以将变量分为3类，分别为（）。

在Visual Basic中，被称为对象的是（）。

下列说法错误的是（）。

以下程序段运行时从键盘上输入字符“-”，则输出结果为（）。　　op$=InputBox("op=") 　　If op$="+" Then a=a+2 　　If op$="-" Then a=a-2 　　Print a

在窗体上画一个名称为Text1的文本框，要求文本框只能接收大写字母的输入。以下能实现该操作的事件过程是（）。

标签控件能够显示文本信息，决定其文本内容的属性是（）。

以下属于Visual Basic合法的数组元素是（）。

已知使用Show方法的格式为:[窗体名称]．Show[模式]，如果要使窗体是“模态型”宙体，则“模式”值为（）。

在窗体上有多个控件，要实现程序运行后焦点默认在某一控件上，应该设置的属性是（）。

下列说法错误的是（）。

以下叙述中错误的是（）。

下列程序运行结果是( )。　　　a=25：b=-45 　　　i=Not a=b 　　　Print i

以下程序段的输出结果为（）。　　Dim 1，a(10)，p(3) 　　k=5 　　Fori=0 To 10 　　　　a(i)=i 　　Next i 　　For i=0 To 2 　　　　p(i)=a(i(i+1)) 　　Next i 　　For i=0 To 2 　　　　k=k+p(i)2 　　Next i 　　Frint k

表达式(7\2+1)*(8\2+2)的值为（）。

以下程序段运行时从键盘上输入字符“-”，则输出结果为（）。　　op$=InputBox("op=") 　　If op$="+" Then a=a+2 　　If op$="-" Then a=a-2 　　Print a

能够获得一个文本框中被选取文本的内容的属性是（）。

在窗体上添加标签控件Label1之后，标签控件的默认的名称Name是（）。

表达式x=Sqr(a^2-5)+sqr(b^2-5)的类型是（）。

下列程序段的执行结果为( )。　　I=4 　　x=5 　　Do 　　　　I=I + 1 　　　　X=K^2 　　Loop Until I＞=7 　　Print"I="；I 　　Print"x="；x

设a=5,b=6,c=7,d=8,执行下列语句后,X的值为【】 X=IIF((a>b)And(C>d),10,20)

运行下列程序段后，显示的结果为（）。　　J1=23 　　J2=32 　　If J1＜J2 Then Print J2 Else Print J1

单击窗体上的关闭按钮时，触发的事件是（）。

如果一个变量未经定义就直接使用，则该变量的默认类型为（）。

设有声明语句　　Dim b(-1 To 10，2 To 9，20)As Integer 　　则数组b中全部元素的个数是（）。