有如下程序：　　Private Sub Commandl_Click()　　...

单项选择题

单击命令按钮时，下列程序的执行结果为（）。　　Private Sub Command1_Click() 　　　　Dim x As Integer，y As Integer 　　　　x=50：y=78 　　　　Call PPP(x，y) 　　　　Print x；y 　　End Sub 　　Public Sub PPP(ByVal n As Integer，ByValm As Integer) 　　　　n=n\10 　　　　m=m\10 　　End Sub

A．多态
B．继承
C．封装
D．垃圾回收

单项选择题

设在名称为My form的窗体上只有1个名称为C1的命令按钮,下面叙述中正确的是【】

A．窗体的Click事件过程的过程名是My form Click
B．命令按钮的Click事件过程的过程名是C1-Click
C．命令按钮的Click事件过程的过程名是Command1_Click
D．上述3种过程名称都是错误的

单项选择题

用InputBox函数设计的对话框，其功能是（）。

A．只能接收用户输入的数据，但不会返回任何信息
B．能接收用户输入的数据，并能返回用户输入的信息
C．既能用于接收用户输入的信息，又能用于输出信息
D．专门用于输出信息

单项选择题

一个工程中含有窗体Form1、Form2和标准模块Model1，如果在Form1中有语句Pubilc X As Integer，在Model1中有语句Pubilc Y As Integer，则以下叙述中正确的是（）。

A．变量X、Y的作用域相同
B． Y的作用域是Model1
C．在Form1中可以直接使用X
D．在Form2中可以直接使用X和Y

单项选择题

下列程序段，在运行时最后输出的内容是（）。　　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以内的奇数显示完毕

单项选择题

有如下程序：　　Private Sub Commandl_Click() 　　　　Dim a As Single 　　　　Dim b As Single 　　　　a=2：b=4 　　　　Call CS(a，b) 　　End Sub 　　Sub CS(x As Single，y As Single) 　　　　t=X 　　　　x=t\y 　　　　y=t Mod y 　　End Sub 　　程序运行后，单击命令按钮，a和b的值分别为( )。

A．Dim pict[3,4]As Integer
B．Dim pict(3，4)As Integer
C．Dim pict[3．4]As Integer
D．Dim pict(3：4)As Integer．

单项选择题

有如下事件过程：　　Private Sub Command1_Click() 　　b=10 　　Do Until b=-1 　　　a=InputBox("请输入a的值") 　　　a=Val(a) 　　　b=InputBox("请输入b的值") 　　　b=Val(b) 　　　a=a * b 　　Loop 　　Print a 　　End Sub 　　程序运行后，依次输入数值30，20，10，-1，输出结果为（）。

A． 34a
B． _AB
C． A_B
D． A25

单项选择题

有如下的程序段，该程序段执行完后，共执行的循环次数是( )。　　total=0 　　Counter=1 　　Do 　　Print Counter 　　total=total * Counter + 1 　　Print total 　　Counter=Counter +1 　　If total ＞ 10 Then 　　　　　Exit Do 　　　End If 　　Loop While Counter＜=10

A．4
B．10
C．15
D．20

单项选择题

对话框在关闭之前，不能继续执行其他操作，这种对话框属于（）。

A．输入对话框
B．输出对话框
C．模式(模态)对话框
D．无模式对话框

单项选择题

在窗体上有若干控件，其中有一个名称为Text1的文本框。影响Text1的Tab顺序的属性是（）。

A． TabStop
B． Enabled
C． Visible
D． TabIndex

单项选择题

下面的数组声明语句中正确的是（）。

A．标准模块一般用于存放其他Access数据库对象使用的公共过程
B．在Access系统中可以通过创建新的模块对象而进入其代码设计环境
C．标准模块所有的变量或函数都具有全局特性，是公共的
D．标准模块的生命周期是伴随着应用程序的运行而开始、关闭结束的

单项选择题

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

A．可移植性和跨平台的特点
B．多线程的并发机制
C．编译器将Java源程序转换成机器码
D． Applet是Java的特殊应用程序，它嵌入到HTML中，随主页发布到互连网上

单项选择题

以下关于Visual Basic数据类型的说法，不恰当的是（）。

A．char str[ ]；
B．char str[ ][ ]；
C．String str[ ] = new String[10]；
D．String str[10]；

单项选择题

下列程序执行的结果为（）。　　x=25：y=20：z=7 　　Print "S"；x+z*y；")"

A．!a=b
B．a!=b
C．a=：b
D．a=b

单项选择题

窗体上有 1 个过程为 CD1 的通用对话框，1 个名称为 Command1 的命令按钮。命令按钮的单击事件过程如下： Private Sub Command1_Click() CD1.FileName = "" CD1.Filter = "All Files|.|(.Doc)|.Doc|(.Txt)|.Txt" CD1.FilterIndex = 2 CD1.Action = 1 End Sub 关于以上代码，错误的叙述是______。

A．执行以上事件过程，通用对话框被设置为"打开"文件对话框
B．通用对话框的初始路径为当前路径
C．通用对话框的默认文件类型为*.Txt
D．以上代码不对文件执行操作

单项选择题

在窗体上画一个名称为List1的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为（）。

A．For i=0 To List1.ListCount-1　　……　　Next
B．For i=0 To ListCount-1　　　……　　Next
C． For i=1 To List1.listCount　　……　　Next
D．For i=1 To ListCount　　……　　Next

单项选择题

如果要将窗体中的某个命令按钮设置成无效状态，应该动命令按钮的何种属性？

A． Value
B． Visible
C． Default
D． Enabled

单项选择题

单击命令按钮时，下列程序的执行结果是( )。　　Private Sub Command1_Click() 　　　　Dim a As Integer，b As Integer，C As Integer 　　　　a=3 　　　　b=4 　　　　c=5 　　　　Print SecProc(c，b，a) 　　End Sub 　　Function FirProc (x As Integer，y As Integer，z As Integer) 　　　　FirProc=2 * x + y + 3 * z+2 　　End Function 　　Function SecProc (x As Integer，y As hteger，z As Integer) 　　　　SecProc=FirProc(z，x，y)+x+7 　　End Function

A．13
B．16
C．36
D．33

单项选择题

如下事件过程：　　Function Feed(x) 　　　　If x ＜10 Then 　　　　　　Feed=X 　　　　Else 　　　　　　Feed=10+x 　　End If 　　End Function 　　Private Sub Command1_Click( ) 　　　　x=Val(Input Box(" "，0)) 　　　　pay=Feed(x) 　　　　Print pay 　　End Sub 　　运行时在输入框内输入变量x的值为15，输出结果为( )。

A．0
B．15
C．25
D．30

单项选择题

有如下事件过程，单击命令按钮扣，输出结果是( )。　　 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．私有成员
B．保护成员
C．公有成员
D．所有成员

单项选择题

在窗体上画 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．无任何输出

单项选择题

有如下事件过程，当同时按下转换键Shift和功能键F5时其最后输出的信息是（）。　　Const ShiftKey=1 　　Const CtrlKey=2 　　Const Key_F5=&H74 　　Const Key_F6=&H75 　　Private Sub Text1_KeyDown(KeyCode As Integer，Shift As Integer) 　　　　If KeyCode=Key_F5 And Shift=ShiftKey Then 　　　　　　Print"Press Shift+F5" 　　　　ElseIf KeyCode=Key_F6 And Shift=CtrlKey Then 　　　　　　Print"Press Ctrl+F6" 　　　　End If 　　End Sub

A．无任何信息
B． Press Shift+F5
C． Press Ctrl+F6
D．程序出错

单项选择题

在窗体上面1个名称为Command1的命令按钮,然后编写如下事件过程 Option Base 1 Private Sub Command1_Click() Dim a (5,5) As Integer For i=1 to 5 For j = 1 to 5 A ( i ,j)=(i+j)85\10 Next j Next i S=0 For i=1 to 5 S=s+a(i,i) Next i Print s End sub 程序运行后,单击命令按钮,输出结果是【】

A．15
B．13
C．11
D．9

单项选择题

有如下事件过程：　　Private Sub Commaild1_Click( ) 　　　　Dim i As Integer 　　　　For i =1 To 2 　　　　　　DC 　　　　Next i 　　End Sub 　　Sub DC( ) 　　　　Dim x As Integer，m As String 　　　　Static y，n 　　　　x=x + 1 　　　　y=y + 1 　　　　m=m&"*"：n=n &"#" 　　　　Print x，y，m，n 　　End Sub 　　程序运行后，输出的结果是( )。

A． 1 1 * # 　　 1 1 * #
B． 1 1 * #　　 1 2 * #
C．1 1 * #　　1 1 * ##
D． 1 1 * #　　 1 2 * ##

有如下程序： Private Sub Commandl_Click() Dim a As Single Dim b As Single a=2：b=4 Call CS(a，b) End Sub Sub CS(x As Single，y As Single) t=X x=t\y y=t Mod y End Sub 程序运行后，单击命令按钮，a和b的值分别为( )。

你可能感兴趣的试题

单击命令按钮时，下列程序的执行结果为（ ）。 Private Sub Command1_Click() Dim x As Integer，y As Integer x=50：y=78 Call PPP(x，y) Print x；y End Sub Public Sub PPP(ByVal n As Integer，ByValm As Integer) n=n\10 m=m\10 End Sub

设在名称为My form的窗体上只有1个名称为C1的命令按钮,下面叙述中正确的是【 】

用InputBox函数设计的对话框，其功能是（ ）。

一个工程中含有窗体Form1、Form2和标准模块Model1，如果在Form1中有语句Pubilc X As Integer，在Model1中有语句Pubilc Y As Integer，则以下叙述中正确的是（ ）。

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

有如下程序： Private Sub Commandl_Click() Dim a As Single Dim b As Single a=2：b=4 Call CS(a，b) End Sub Sub CS(x As Single，y As Single) t=X x=t\y y=t Mod y End Sub 程序运行后，单击命令按钮，a和b的值分别为( )。

当滚动条位于最左端或最上端时，Value属性被设置为（ ）。

下列叙述中正确的是【 】

下面关于菜单的叙述中错误的是【 】

下列语句的输出结果为( )。 Print Format ＄(10009．36，“000，000．000”)

Visual Basic中的数值可以用十六进制或八进制表示，十六进制数的开头符是&H，八进制数的开头符号是（ ）。

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

图片框与图像框的区别是图片框可以作为其他控件的父对象，即为容器控件，而图像框只能 （ ）。

Visual Basic程序设计采用的编程机制是（ ）。

用什么语句可以选择指定的表项或取消已选择的表项

若设置了文本框的属性Password Char=“$”,则运行程序时向文本框中输入8个任意字符后,文本框中显不的是【 】

有关菜单的说法不恰当的是（ ）。

有如下事件过程： Private Sub Command1_Click() b=10 Do Until b=-1 a=InputBox("请输入a的值") a=Val(a) b=InputBox("请输入b的值") b=Val(b) a=a * b Loop Print a End Sub 程序运行后，依次输入数值30，20，10，-1，输出结果为（ ）。

有如下的程序段，该程序段执行完后，共执行的循环次数是( )。 total=0 Counter=1 Do Print Counter total=total * Counter + 1 Print total Counter=Counter +1 If total ＞ 10 Then Exit Do End If Loop While Counter＜=10

对话框在关闭之前，不能继续执行其他操作，这种对话框属于（ ）。

在窗体上有若干控件，其中有一个名称为Text1的文本框。影响Text1的Tab顺序的属性是（ ）。

下面的数组声明语句中正确的是（ ）。

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

以下关于Visual Basic数据类型的说法，不恰当的是（ ）。

下列程序执行的结果为（ ）。 x=25：y=20：z=7 Print "S"；x+z*y；")"

在窗体上画一个名称为List1的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为（ ）。

如果要将窗体中的某个命令按钮设置成无效状态，应该动命令按钮的何种属性？

如下事件过程： Function Feed(x) If x ＜10 Then Feed=X Else Feed=10+x End If End Function Private Sub Command1_Click( ) x=Val(Input Box(" "，0)) pay=Feed(x) Print pay End Sub 运行时在输入框内输入变量x的值为15，输出结果为( )。

有如下事件过程，单击命令按钮扣，输出结果是( )。 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 Commaild1_Click( ) Dim i As Integer For i =1 To 2 DC Next i End Sub Sub DC( ) Dim x As Integer，m As String Static y，n x=x + 1 y=y + 1 m=m&"*"：n=n &"#" Print x，y，m，n End Sub 程序运行后，输出的结果是( )。

设在名称为My form的窗体上只有1个名称为C1的命令按钮,下面叙述中正确的是【】

用InputBox函数设计的对话框，其功能是（）。

一个工程中含有窗体Form1、Form2和标准模块Model1，如果在Form1中有语句Pubilc X As Integer，在Model1中有语句Pubilc Y As Integer，则以下叙述中正确的是（）。

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

当滚动条位于最左端或最上端时，Value属性被设置为（）。

下列叙述中正确的是【】

下面关于菜单的叙述中错误的是【】

下列语句的输出结果为( )。　　Print Format ＄(10009．36，“000，000．000”)

Visual Basic中的数值可以用十六进制或八进制表示，十六进制数的开头符是&H，八进制数的开头符号是（）。

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

图片框与图像框的区别是图片框可以作为其他控件的父对象，即为容器控件，而图像框只能（）。

Visual Basic程序设计采用的编程机制是（）。

若设置了文本框的属性Password Char=“$”,则运行程序时向文本框中输入8个任意字符后,文本框中显不的是【】

有关菜单的说法不恰当的是（）。

对话框在关闭之前，不能继续执行其他操作，这种对话框属于（）。

在窗体上有若干控件，其中有一个名称为Text1的文本框。影响Text1的Tab顺序的属性是（）。

下面的数组声明语句中正确的是（）。

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

以下关于Visual Basic数据类型的说法，不恰当的是（）。

下列程序执行的结果为（）。　　x=25：y=20：z=7 　　Print "S"；x+z*y；")"

在窗体上画一个名称为List1的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为（）。