在窗体上画一个文本框、一个标签，其名称分别为Text1、Label1，然后编...

设栈的存储空间为S(1:m)，初始状态为top=m+1。经过一系列入栈与退栈操作后，top=1。现又要将一个元素进栈，栈顶指针top值变为

在窗体上画一个文本框、一个标签，其名称分别为Text1、Label1，然后编写如下事件过程：Private Sub Text1_Change() Label1.Caption = UCase(Mid(Trim(Text1.Text), 7, 3))End Sub程序运行时，如果在文本框中输入字符串"VisualBasic计算机等级考试"，则在标签Label1中显示的内容是( )。

A．asi
B．ASI
C．Bas
D．BAS

单项选择题

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

A．设a=5，b=3，c=1，则执行语句Print a>b>c后的输出结果为False
B．语句Const x As Double = Sqr(2)能够定义一个符号常量x
C．在过程中，要定义可选参数，应使用的关键字是ParamArray
D．用Static定义的变量，其值在程序运行过程中始终存在，因此，该种类型的变量是全局变量

单项选择题

程序运行时若单击水平滚动条上滚动块右边的空白处，则其Value属性值的变化量为( )。

A．LargeChange属性的值
B．Min属性的值
C．Max属性的值
D．SmallChange属性的值

单项选择题

设窗体上有一个文本框Text1，程序代码中有以下赋值语句（假定用到的控件和变量都存在），其中错误的是( )。

A．Text1.MaxLength = 30
B．Text1.Text = 89
C．Text1.Caption = 89
D．Text1.FontBold = True

单项选择题

假定列表框List1中没有被选中的项目，则执行List1.RemoveItem List1.ListIndex 语句的结果是( )。

A．删除最后加入列表中的一项
B．删除最后一项
C．出错
D．删除第一项

单项选择题

假定Picture1和Text1分别为图片框和文本框的名称，则下列语句中错误的是( )。

A．Print 100
B．Text1.Print 100
C．Debug.Print 100
D．Picture1.Print 100

单项选择题

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

A．框架控件的标题不能在程序运行过程中修改
B．标签中显示的文本在运行阶段不能改变
C．组合框是组合文本框和列表框的特性而成的控件，所以它具有二者的全部属性
D．文本框可以显示多行文本

单项选择题

设窗体上有一个列表框控件List1，含有若干列表项。以下能表示当前被选中的列表项内容的是( )

A．List1.List
B．List1.ListIndex
C．List1.Text
D．List1.Text

单项选择题

若在窗体上画了一个名称为List1的列表框，并编写了如下事件过程：Private Sub Form_Load ( ) List1.AddItem "数学" List1.AddItem "物理" List1.AddItem "化学" List1.AddItem "外语" List1.AddItem "语文"End SubPrivate Sub Form_Click() List1.RemoveItem 1 List1.RemoveItem 2End Sub运行程序后，单击窗体，则列表框中显示的项目是( )。

A．数学化学语文
B．数学外语语文
C．化学外语语文
D．物理外语语文

单项选择题

有如下程序代码：Private Sub Form_Click() X = 8 If X > 8 Then Print "X > 8" ElseIf X < 10 Then Print "X < 10" ElseIf X = 8 Then Print "X = 8" End IfEnd Sub运行程序，单击窗体，输出结果是( )。

A．X < 10 X = 8
B．X < 10
C．X = 8
D．不确定

单项选择题

在窗体上画一个名称为Label1的标签，然后编写如下事件过程：Private Sub Form_Click() Dim S As Integer S = 0 For i = 1 To 15 x = 2 * i - 1 If x Mod 3 = 0 Then S = S + 1 End If Next i Label1.Caption = SEnd Sub运行程序，单击窗体，标签中显示的是( )。

A．5
B．1
C．27
D．45

单项选择题

有如下程序段：s = 0For i = 1 To 10 s = s + iNext iPrint s与上述程序段输出结果相同的程序段为( )。

A．s = 0: i = 0 While i <= 10 i = i + 1 s = s + i Wend Print s
B．s = 0: i = 1 While i < 10 i = i + 1 s = s + i Wend Print s
C．s = 0: i = 1 Do s = s + i i = i + 1 Loop While i < 10 Print s
D．s = 0: i = 1 Do s = s + i i = i + 1 Loop Until i > 10 Print s

单项选择题

运行如下程序Private Sub Command1_Click() Dim a(5, 5) As Integer For i = 1 To 5 For j = 1 To 4 a(i, j) = i * 2 + j If a(i, j) / 7 = a(i, j) \ 7 Then n = n + 1 End If Next j Next Print n End Sub则n的值是( )

A．2
B．3
C．4
D．5

单项选择题

要求函数的功能是：从参数str字符串中删除所有参数ch所指定的字符，返回实际删除字符的个数，删除后的字符串仍在str中，为此某人编写了函数DelChar如下：Function DelChar(str As String, ch As String) As Integer Dim n%, st$, c$ st = "" n = 0 For k = 1 To Len(str) c = Mid(str, k, 1) If c = ch Then st = st & c Else n = n + 1 End If Next k str = st DelChar = n End Function并用下面的Command1_Click()过程观察函数调用结果Private Sub Command1_Click() ch$ = Text1.Text Print DelChar(ch, "x"), chEnd Sub发现结果有错误，程序代码需要修改，以下正确的修改方案是( )。

A．把语句If c = ch Then 改为If c <> ch Then
B．把语句Print DelChar(ch, "x"), ch改为Print DelChar(ch, "x") ：Print ch
C．把语句DelChar = n 改为 DelChar = st
D．删掉语句str = st

单项选择题

如果窗体模块A中有一个过程：Private Sub Proc( ) ……End Sub则下面叙述中错误的是( )。

A．在标准模块中不能调用此过程
B．在窗体模块B中可以有与此相同名称的过程
C．窗体模块A中任何其他过程都可以调用此过程
D．在窗体模块B中可以调用此过程

单项选择题

对于通用对话框控件，下列说法中错误的是( )。

A．DefaultEXT和DialogTitle属性只用于打开对话框，不能用于保存对话框
B．用通用对话框控件可以建立打开文件对话框，也可以建立保存文件对话框
C．用打开文件对话框可以指定一个文件，由程序使用
D．用保存文件对话框可以指定一个文件，由程序使用

单项选择题

利用菜单编辑器在窗体中新建一个名称为mnuOpen的弹出式菜单，其中含有若干个菜单项，并编写如下事件过程：Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then _________________ End IfEnd Sub程序运行过程中，当在窗体上单击鼠标右键时，显示已建立的mnuOpen菜单，则在以上程序代码中的横线处应填入的语句是( )。

A．mnuOpen.Show
B．mnuOpen.PopupMenu
C．PopupMenu mnuOpen
D．Show mnuOpen

单项选择题

设窗体上无任何控件，且有如下程序代码：Private Sub Form_KeyPress(KeyAscii As Integer) Print Chr(KeyAscii) End Sub Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Print Chr(KeyCode) End Sub运行程序，直接按"A"键，输出结果是( )。

A．A A
B．A a
C．a A
D．a a

单项选择题

在窗体Form1上画一个名称为Command1的命令按钮，编写如下程序代码：Private Type stu sn As String * 20 class As String * 20End TypePrivate Sub Command1_Click() Dim s As stu Open "c:\allstu.dat" For Random As #1 Len = Len(s) s.sn = "John" s.class = "Computer 2013" Put #1, , s Close #1End Sub则以下叙述中正确的是( )。

A．定义记录类型stu的Type语句可以移到事件过程Command1_Click中
B．如果文件c:\allstu.dat不存在，则Open语句执行中出现"文件未找到"的错误
C．文件c:\allstu.dat中的每条记录是等长的
D．语句"Put #1, , s"中没有指明记录号，因此系统总是把记录写到文件的头部

单项选择题

Print #语句的作用是( )。

A．向随机文件中写数据
B．向顺序文件中写数据
C．向窗体上输出数据
D．从顺序文件中读入数据

单项选择题

在Visual Basic工程中，可以作为"启动对象"的是( )。

A．Sub Main过程
B．任何过程
C．在标准模块中专门定义的启动过程
D．Sub Main过程以及任何过程

你可能感兴趣的试题

设栈的存储空间为S(1:m)，初始状态为top=m+1。经过一系列入栈与退栈操作后，top=1。现又要将一个元素进栈，栈顶指针top值变为

下列处理中与队列有关的是

下列叙述中正确的是,,

设二叉树共有150个结点，其中度为1的结点有10个，则该二叉树中的叶子结点数为

非空循环链表所表示的数据结构

设二叉树中共有31个结点，其中的结点值互不相同。如果该二叉树的后序序列与中序序列相同，则该二叉树的深度为

在最坏情况下，堆排序的时间复杂度是

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

存储在计算机内有结构的数据集合是

在数据库技术中，为提高数据库的逻辑独立性和物理独立性，数据库的结构被划分成用户级、存储级和

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

下列说法中错误的是( )。

下面是Visual Basic合法变量名的是( )

以下不是Visual Basic合法常量的是( )。

以下叙述中，错误的是( )。

在运行时，如果按Tab键跳过了一个可以获得焦点的控件（如文本框），其原因可能是( )。

下列符号常量声明中，不合法的是( )。

对于代数式sin 2 (x+y)+e 5 ，正确的Visual Basic表达式为

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

程序运行时若单击水平滚动条上滚动块右边的空白处，则其Value属性值的变化量为( )。

设窗体上有一个文本框Text1，程序代码中有以下赋值语句（假定用到的控件和变量都存在），其中错误的是( )。

假定列表框List1中没有被选中的项目，则执行List1.RemoveItem List1.ListIndex 语句的结果是( )。

假定Picture1和Text1分别为图片框和文本框的名称，则下列语句中错误的是( )。

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

设窗体上有一个列表框控件List1，含有若干列表项。以下能表示当前被选中的列表项内容的是( )

有如下程序代码：Private Sub Form_Click() X = 8 If X > 8 Then Print "X > 8" ElseIf X < 10 Then Print "X < 10" ElseIf X = 8 Then Print "X = 8" End IfEnd Sub运行程序，单击窗体，输出结果是( )。

在窗体上画一个名称为Label1的标签，然后编写如下事件过程：Private Sub Form_Click() Dim S As Integer S = 0 For i = 1 To 15 x = 2 * i - 1 If x Mod 3 = 0 Then S = S + 1 End If Next i Label1.Caption = SEnd Sub运行程序，单击窗体，标签中显示的是( )。

有如下程序段：s = 0For i = 1 To 10 s = s + iNext iPrint s与上述程序段输出结果相同的程序段为( )。

运行如下程序Private Sub Command1_Click() Dim a(5, 5) As Integer For i = 1 To 5 For j = 1 To 4 a(i, j) = i * 2 + j If a(i, j) / 7 = a(i, j) \ 7 Then n = n + 1 End If Next j Next Print n End Sub则n的值是( )

如果窗体模块A中有一个过程：Private Sub Proc( ) ……End Sub则下面叙述中错误的是( )。

对于通用对话框控件，下列说法中错误的是( )。

设窗体上无任何控件，且有如下程序代码：Private Sub Form_KeyPress(KeyAscii As Integer) Print Chr(KeyAscii) End Sub Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Print Chr(KeyCode) End Sub运行程序，直接按"A"键，输出结果是( )。

Print #语句的作用是( )。

在Visual Basic工程中，可以作为"启动对象"的是( )。

对于代数式sin ² (x+y)+e ⁵ ，正确的Visual Basic表达式为