执行下列程序段　　a$="visual Basic Programming...

单项选择题

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

A．Private Sub Text1 Change()
Labe11．Caption=Str(Len(Text1．Text))
End Sub
B．Private Sub Text1 Click()
Labe11．Caption=str(Len(Text1．Text))
End Sub
C．Private Sub Text1 Change()
Labe11．Caption=Text1．Text
End Sub
D．Private Sub Labe1 1_Change()
Labe11．Caption=Str(Len(Text1．Text))
End Sub

单项选择题

将E—R图转换为关系模式时，实体和联系都可以表示为( )。

A．属性
B．键
C．关系
D．域

单项选择题

假定有下列程序段　　For i=1 TO 3 　　 For j=5 TO 1 Step-1 　　 Print ij 　　 Next j 　　Next i 　　则语句Print ij的执行次数是( )。

A．15
B．16
C．17
D．18

单项选择题

执行语句Dim X，Y As Integer后，( )。

A．X和Y均被定义为整型变量
B．X和Y均被定义为变体类型变量
C．X被定义为整型变量，Y被定义为变体类型变量
D．X被定义为变体类型变量，Y被定义为整型变量

单项选择题

在窗体上画两个单选按钮(名称分别为Option1、Option2，标题分别为“宋体”和“黑体”)、1个复选框(名称为Check1，标题为“粗体”)和1个文本框(名称为Text1，Text属性为“改变文字字体”)，窗体外观如下图所示。程序运行后，要求“宋体”单选钮和“粗体”复选框被选中，则下列能够实现上述操作的语句序列是( )。

A．Option1．Valve=False
Checkl．Vaim=True
B．Option1．Value=True
Check1．Value=0
C．Olption2．Value=False
Check1．Value=2
D．Option1．Value=True
Check1．Value=1

单项选择题

执行下列程序段　　a$="visual Basic Programming" 　　b$="C++" 　　C$=UCase(Left$(a$，7))＆b$＆Right$(a$，1 2) 　　后，变量c$的值为( )。

A．Visual BASIC Programming
B．VISUAL C++Programming
C．Visual C++Programming
D．VISUAL BASIC Programming

单项选择题

在窗体上画一个名称为Command1的命令按钮，然后编写下列事件过程：　　Private Sub Command1Click() 　　 C=1234 　　 c1=Trim(Str(c)) 　　 For i=1 To 4 　　 Print 　　 Next 　　End Sub 　　程序运行后，单击命令按钮，要求在窗体上显示下列内容：1 　　12 　　123 　　1234 　　则在横线处应填入的内容为( )。

A．Right(c1，i)
B．Left(c1，i)
C．Mid(c1，i，1)
D．Mid(c1，i，i)

单项选择题

在窗体上画两个文本框(名称分别为Text1和Text2)和一个命令按钮(名称为Command1)，然后编写下列事件过程：　　Private Sub Command1 Click() 　　 x=0 　　 DO While x<50 　　 x=(x+2)*(x4．3) 　　 n=n+1 　　 Loop 　　 Text1．Text=Str(n) 　　 Text2．Text=Str(x) 　　End Sub 　　程序运行后，单击命令按钮，在两个文本框中显示的值分别为( )。

A．1和0
B．2和72
C．3和50
D．4和168

单项选择题

假定通过复制、粘贴操作建立了一个命令按钮数组Command1，下列说法中错误自是( )。

A．数组中每个命令按钮的名称(Name属性)均为Command1
B．若未做修改，数组中每个命令按钮的大小都一样
C．数组中各个命令按钮使用同一个Click事件过程
D．数组中每个命令按钮的Index属性值都相同

单项选择题

阅读程序：　　Private Sub Form Click() 　　 a=0 　　 For j=1 To 15 　　 a=a+j Mod 3 　　 Next j 　　 Print a 　　End Sub 　　程序运行后，单击窗体，输出结果是( )。

A．105
B．1
C．120
D．15

单项选择题

下列说法中正确的是( )。

A．当焦点在某个控件上时，按下一个字母键，就会执行该控件的KeyPress事件过程
B．因为窗体不接受焦点，所以窗体不存在自己的KeyPress事件过程
C．若按下的键相同，KeyPress事件过程中的KeyAscii参数与KeyDown事件过程中的KeyCode参数的值也相同
D．在KeyPress事件过程中，KeyAscii参数可以省略

单项选择题

语句Dim a(-3 To 4，3 To 6)As Integer定义的数组元素个数是( )。

A．18
B．28
C．21
D．32

单项选择题

在窗体上画一个命令按钮，其名称为Command1，然后编写下列代码：　　Option Base l 　　Private Sub Command1 Click() 　　Dim a 　　a=Array(1，2，3，4) 　　j=1 　　For i=4 To 1 Step-1 　　 s=s+a(i)j 　　 j=j10 　　Next i 　　Print S 　　End Sub 　　程序运行后，单击命令按钮，其输出结果是( )。

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

单项选择题

下列关于函数过程的叙述中，正确的是( )。

A．函数过程形参的类型与函数返回值的类型没有关系
B．在函数过程中，过程的返回值可以有多个
C．当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递
D．如果不指明函数过程参数的类型，则该参数没有数据类型

单项选择题

在窗体上画一个命令按钮，名称为Command1，然后编写下列代码：　　Option Base 0 　　Private Sub Command1 Click() 　　 Dim A1(4)As Integer，A2(4)As Integer 　　 For k=0 To 2 　　 A1(k+1)=InputBox(”请输入一个整数”) 　　 A2(3-k)=A1(k+1) 　　 Next k 　　 Print A2(k) 　　End Sub 　　程序运行后，单击命令按钮，在输入对话框中依次输入2、4、6，则输出结果为( )。

A．0
B．1
C．2
D．3

单项选择题

在窗体上画两个标签和一个命令按钮，其名称分别为Label1、Label2和Command1，然后编写下列程序：　　Private Sub rune(L AS Labe1) 　　 L．Caption="1234" 　　End Sub 　　　　Private Sub Form Load() 　　Labe11．Caption="ABCDE" 　　Labe12．Caption=10 　　End Sub 　　　　Private Sub Command1Click() 　　a=Va1(Label2．Caption) 　　Call func(Label1) 　　Label2．Caption a 　　End Sub 　　程序运行后，单击命令按钮，则在两个标签中显示的内容分别为( )。

A．ABCD和10
B．1234和100
C．ABCD和100
D．1234和10

单项选择题

在窗体上画一个命令按钮(名称为Command1)，并编写下列代码：　　Function Fun1(ByVa1 a As Integer，b As Integer)As Integer 　　 Dim t As Integer 　　 t=a-b 　　 b=t+a 　　 Fun1=t+b 　　End Function 　　Private Sub Command1Click() 　　Dim X As Integer 　　x=10 　　Print Fun1(Vun1(X，(Fun1(x，x-1)))，x-1) 　　End Sub 　　程序运行后，单击命令按钮，输出结果是( )。

A．10
B．0
C．11
D．21

单项选择题

下列关于过程及过程参数的描述中，错误的是( )。

A．过程的参数可以是控件名称
B．调用过程时使用的实参的个数应与过程形参的个数相同
C．只有函数过程能够将过程中处理的信息返回到调用程序中
D．窗体可以作为过程的参数

单项选择题

设有下列通用过程：　　Public Function Fun(xStr As String)As String 　　Dim tStr As String，strL As Integer 　　tStr="" 　　strL=Len(xStr) 　　i=strL／2 　　DO While i<=StrL 　　 tStr=tStr＆Mid(xStr，i+1，1) 　　 i=i+1 　　Loop 　　Fun=tStr＆tStr 　　End Function 　　在窗体上画一个名称为Textl的文本框和一个名称为Command1的命令按钮。然后编写下列的事件过程：　　Private Sub Commandl Click() 　　 Dim S1 As String 　　 S1="ABCDEF" 　　 Text1．Text=LCase(Fun(S1)) 　　End Sub 　　程序运行后，单击命令按钮，文本框中显示的是( )。

A．ABCDEF
B．abedef
C．defdef
D．defabc

单项选择题

设有下列程序　　Private Sub Form Click() 　　X=50 　　For i=1 T0 4 　　 y=InputBox("请输入一个整数") 　　 y=Val(v) 　　 If y Mod 5=0 Then 　　 a=a+y 　　 x=y 　　 Else 　　 a=a+x 　　 End If 　　Next i 　　Print a 　　End Sub 　　程序运行后，单击窗体，在输入对话框中依次输入15、24、35、46，输出结果为( )。

A．100
B．50
C．120
D．70

单项选择题

下列叙述中错误的是( )。

A．在程序运行时，通用对话框控件是不可见的
B．调用同一个通用对话框控件的不同方法(如ShowOpen或ShowSave)，可以打开不同的对话框窗口
C．调用通用对话框控件的Showopen方法，能够直接打开在该通用对话框中指定的文件
D．调用通用对话框控件的ShowColor方法，可以打开颜色对话框窗口

单项选择题

在窗体上画一个命令按钮和一个文本框(名称分别为Command1和Text1)，并把窗体的KeyPreview属性设置为True，然后编写下列代码：　　Dim SaveAll As String 　　Private Sub Form Load() 　　Show 　　Text1．Text="" 　　Text1．SetFocus 　　End Sub 　　Private Sub Command1 Click() 　　Text1．Text=LCase(SaveAll)+SaveAll 　　End Sub 　　Private Sub Form KeyPress(KeyAscii As Integer) 　　SaveAll=SaveAll+Chr(KeyAscii) 　　End Sub 　　程序运行后，直接用键盘输入VB，再单击命令按钮，则文本框中显示的内容为( )。

A．vbVB
B．不显示任何信息
C．VB
D．出错

单项选择题

下列关于菜单的叙述中，错误的是( )。

A．当窗体为活动窗体时，用键可以打开菜单编辑器
B．把菜单项的Enabled属性设置为False，则可删除该菜单项
C．弹出式菜单在菜单编辑器中设计
D．程序运行时。利用控件数组可以实现菜单项的增加或减少

单项选择题

窗体上有一个名称为Command1的命令按钮，其单击事件过程及有关函数过程如下：　　Private Sub Command1 Click() 　　Dim n As Integer 　　n=add(5，10) 　　Print n 　　End Sub 　　Function add(v1 As Integer，v2 As Integer，Optiona1 v3)As Integer 　　If Not IsMissing(v3)Then 　　 add=v1+v2+v3 　　Else 　　 add=v1+v2 　　End If 　　End Function 　　运行程序，单击命令按钮，以下叙述中正确的是( )。

A．程序不能正常运行，因为函数add的参数定义有错
B．程序不能正常运行，因为函数定义与函数调用语句的参数个数不匹配
C．程序能正常运行，结果是在窗体上显示15
D．程序能正常运行，结果是在窗体上显示510v3

单项选择题

设在工程文件中有一个标准模块，其中定义了下列记录类型：　　Type Books 　　Name As String10 　　TelNum As String20 　　End，Type 　　在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Command1 Click 时，在顺序文件Person．txt中写入一条Books类型的记录。下列能够完成该操作的事件过程是　　( )。

A．Private Sub Command1 Click()
Dim B AS Books
Open"Person txt"For Output As#1
B．Name=InputBox(”输入姓名”)
B．relNum=lnputBox(”输入电话号码”)
Wlite#1 B Name，B TelNum
Ch,se#1
End Sub
B．Private Sub Command1 Click()
Dim B AS Books
Open"Person txt"For Input As#1
B．Name=InputBox("输入姓名")
B．TelNum=InputBox("输入电话号码")
Print#1，B．Name，B．TelNam
Close#1
End Sub
C．Private Sub Command1 Click()
Dim BAS Books
Open"Person txt"For Output As#1
B．Name=InputBox("输入姓名")
B．TelNum=InputBox("输入电话号码")
Write#1，B
Close#1
End Sub
D．Private Sub Commandl Click()
Open"Person txt"For Input As#1
Name=lnputBox("输入姓名")
TelNum=lnputBox("输入电话号码")
Prim#1 Name TelNum
Close#1
End Sub

单项选择题

以下关于函数过程的叙述中错误的是( )。

A．函数过程一定有返回值
B．函数过程一定有参数
C．函数过程可以在窗体模块和标准模块中定义
D．函数过程参数的类型与返回值的类型无关

单项选择题

目录列表框Path属性所表示的含义是( )。

A．当前驱动器或指定驱动器上的路径
B．当前驱动器或指定驱动器上的某目录下的文件列表
C．根目录下的文件列表
D．指定路径下的文件列表

单项选择题

设有如下程序：　　Option Base 1 　　Private Sub Form Click() 　　Dim a(5)As String，i As Integer 　　For i=1 To 5 　　 a(i)=Chr(Asc("A")+i) 　　 Call f(a，i) 　　Next i 　　End Sub 　　Sub f(ta()As String，n As．Integer) 　　Dim i As Integer 　　For i=1 To n 　　 Print ta(i)；　　Next i 　　Print 　　End Sub 　　对上述程序．以下叙述中正确的是( )。

A．程序有错，因为在过程f的定义中数组参数格式不正确
B．程序可正常运行，输出内容的第一行是一个字母“A”
C．程序可正常运行，输出内容的第一行是一个字母“B”
D．程序可正常运行，输出内容的第一行是数字65

单项选择题

在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：　　Public Enum S 　　a=4 　　b=3 　　End Enum 　　Private Sub Command1 Click() 　　Dim x As Integer 　　x=a 　　If x>=3 Then MsgBox"Pass!" 　　End Sub 　　运行程序，其结果是( )。

A．运行错误．因为Enum定义有错
B．运行错误．因为x=a类型不匹配
C．运行正常结束，不显示任何信息
D．运行正常．显示内容为“Pass!”的信息框

执行下列程序段 a$="visual Basic Programming" b$="C++" C$=UCase(Left$(a$，7))＆b$＆Right$(a$，1 2) 后，变量c$的值为( )。

你可能感兴趣的试题

下列叙述中正确的是( )。

某二叉树有5个度为2的结点，则该二叉树中的叶子结点数是( )。

支持子程序调用的数据结构是( )。

下列排序方法中，最坏情况下比较次数最少的是( )。

有两个关系R，S如下： 由关系R通过运算得到关系S，则所使用的运算为( )。

下列叙述中错误的是( )。

软件按功能可以分为：应用软件、系统软件和支撑软件(或工具软件)。下列属于应用软件的是( )。

耦合性和内聚性是对模块独立性度量的两个标准。下列叙述中正确的是( )。

数据库应用系统中的核心问题是( )。

下列关系表达式中，其值为True的是( )。

下列叙述中正确的是( )。

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

将E—R图转换为关系模式时，实体和联系都可以表示为( )。

假定有下列程序段 For i=1 TO 3 For j=5 TO 1 Step-1 Print i*j Next j Next i 则语句Print i*j的执行次数是( )。

执行语句Dim X，Y As Integer后，( )。

执行下列程序段 a$="visual Basic Programming" b$="C++" C$=UCase(Left$(a$，7))＆b$＆Right$(a$，1 2) 后，变量c$的值为( )。

假定通过复制、粘贴操作建立了一个命令按钮数组Command1，下列说法中错误自是( )。

阅读程序： Private Sub Form Click() a=0 For j=1 To 15 a=a+j Mod 3 Next j Print a End Sub 程序运行后，单击窗体，输出结果是( )。

下列说法中正确的是( )。

语句Dim a(-3 To 4，3 To 6)As Integer定义的数组元素个数是( )。

在窗体上画一个命令按钮，其名称为Command1，然后编写下列代码： Option Base l Private Sub Command1 Click() Dim a 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 程序运行后，单击命令按钮，其输出结果是( )。

下列关于函数过程的叙述中，正确的是( )。

下列关于过程及过程参数的描述中，错误的是( )。

设有下列程序 Private Sub Form Click() X=50 For i=1 T0 4 y=InputBox("请输入一个整数") y=Val(v) If y Mod 5=0 Then a=a+y x=y Else a=a+x End If Next i Print a End Sub 程序运行后，单击窗体，在输入对话框中依次输入15、24、35、46，输出结果为( )。

下列叙述中错误的是( )。

下列关于菜单的叙述中，错误的是( )。

以下关于函数过程的叙述中错误的是( )。

目录列表框Path属性所表示的含义是( )。

在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Public Enum S a=4 b=3 End Enum Private Sub Command1 Click() Dim x As Integer x=a If x>=3 Then MsgBox"Pass!" End Sub 运行程序，其结果是( )。

执行下列程序段　　a$="visual Basic Programming" 　　b$="C++" 　　C$=UCase(Left$(a$，7))＆b$＆Right$(a$，1 2) 　　后，变量c$的值为( )。

有两个关系R，S如下：
　　由关系R通过运算得到关系S，则所使用的运算为( )。

假定有下列程序段　　For i=1 TO 3 　　 For j=5 TO 1 Step-1 　　 Print ij 　　 Next j 　　Next i 　　则语句Print ij的执行次数是( )。

执行下列程序段　　a$="visual Basic Programming" 　　b$="C++" 　　C$=UCase(Left$(a$，7))＆b$＆Right$(a$，1 2) 　　后，变量c$的值为( )。

阅读程序：　　Private Sub Form Click() 　　 a=0 　　 For j=1 To 15 　　 a=a+j Mod 3 　　 Next j 　　 Print a 　　End Sub 　　程序运行后，单击窗体，输出结果是( )。

在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：　　Public Enum S 　　a=4 　　b=3 　　End Enum 　　Private Sub Command1 Click() 　　Dim x As Integer 　　x=a 　　If x>=3 Then MsgBox"Pass!" 　　End Sub 　　运行程序，其结果是( )。