题库 题库
🏘️ 爱查询 > 题库 > VB

VB

单选题 在利用菜单编辑器设计菜单时,为了把组合键“Alt+X”设置为“退出(X)”菜单项的访问键,可以将该菜单项的标题设置为 查看答案
单选题 在窗体上画1个命令按钮和1个文本框,其名称分别为Command1和Text1,再编写如下程序:
Dim ss As String
Private Sub Text1_KeyPress(KeyAscii As integer)
If chr(KeyAscii)<>””Then ss=ss+chr(KeyAscii)
End Sub
Private Sub Command1_Click()
Dim m As String,i As Integer
For i=Len(ss) To 1 step -1
m=m+Mid(ss,i,1)
Next
Text1.Text=Ucase(m)
End Sub
程序运行后,在文本框中输入“Number100”,并单击命令按钮,则文本框中显示的是
查看答案
单选题 窗体的左右两端各有1条直线,名称分别为Line1、Line2;名称为Shape1的圆靠在左边的Line1直线上(见图);另有1个名称为Timer1的计时器控件,其Enable属性值是True。要求程序运行后,圆每秒向右移动100,当圆遇到Line2时则停止移动。
  
为实现上述功能,某人把计时器的Interval属性设置为1000,并编写了如下程序:
Private Sub Timer1_Timer()
For k=Line1.X1 To Line2.X1 Step 100
If Shape1.Left+Shape1.Width<Line2.X1 Then
Shape1.Left=Shape1.Left+100
End If
Next k
End Sub
运行程序时发现圆立即移动到了右边的直线处,与题目要求的移动方式不符。为得到与题目要求相符的结果,下面修改方案中正确的是
查看答案
单选题 下列有关文件的叙述中,正确的是 查看答案
单选题 窗体如图1所示。要求程序运行时,在文本框Text1中输入一个姓氏,单击“删除”按钮(名称为Command1),则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能:
 
Private Sub Command1_Click()
Dim n%,k%
n=Len(Text1.Text)
For k=0 To List1.ListCount-1
If Left(List1.List(k),n)=Text1.Text Then
List1.RemoveItem k
End If
Next k
End Sub
在调试时发现,如输入“陈”,可以正确删除所有姓“陈”的项目,但输入“刘”,则只删除了“刘邦”、“刘备”2项,结果如图2所示。这说明程序不能适应所有情况,需要修改。正确的修改方案是把For k=0 To List1.ListCount-1改为
查看答案
单选题 在深度为5的满二叉树中,叶子结点的个数为 查看答案
单选题 若某二叉树的前序遍历访问顺序是abdgcefh,中序遍历访问顺序是dgbaechf,则其后序遍历的结点访问顺序是 查看答案
单选题 一些重要的程序语言(如C语言和Pascal语言) 允许过程的递归调用。而实现递归调用中的存储分配通常用 查看答案
单选题 软件工程的理论和技术性研究的内容主要包括软件开发技术和 查看答案
单选题 开发软件时对提高开发人员工作效率至关重要的是 查看答案
单选题 在软件测试设计中,软件测试的主要目的是 查看答案
单选题 数据处理的最小单位是 查看答案
单选题 索引属于 查看答案
单选题 下述关于数据库系统的叙述中正确的是 查看答案
单选题 数据库系统的核心是 查看答案
单选题 下列说法错误的是 查看答案
单选题 下列四组控件属性中,属性值的类型不相同的一组是 查看答案
单选题 下列方法中不能退出Visual Basic的是 查看答案
单选题 任何控件都有的属性是 查看答案
单选题 可以实现从键盘输入一个作为双精度变量a的值的语句是 查看答案
单选题 下列符号常量的声明中,不合法的是 查看答案
单选题 在Visual Basic中,要强制用户对所用的变量进行显式声明,这可以在哪里设置? 查看答案
单选题 下列语句中,获得列表框List1中项目个数的语句是 查看答案
单选题 要获得当前驱动器应使用驱动器列表框的属性是 查看答案
单选题 如果将文本框的MaxLength属性设置为0,则文本框中的字符不能超过 查看答案
单选题 当在滚动条内拖动滚动块时触发 查看答案
单选题 设有声明语句
Dim b(-1 To 10, 2 To 9, 20) As Integer
则数组b中全部元素的个数
查看答案
单选题 设在窗体上有个文本框,然后编写如下的事件过程:
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Const Alt=4
Const Key_F2=&H71
altdown%=(Shift And Alt) > 0
f2down%=(KeyCode=Key_F2)
If altdown% And f2down% Then
Text1.Text="BBBBB"
End If
End Sub
上述程序运行后,如果按 【Shift+F2】 ,则在文本框中显示得是
查看答案
单选题 设已经在"菜单编辑器"中设计了窗体的快捷菜单,其顶级菜单为Bs,取消其"可见"属性,运行时,在以下事件过程中,可以使快捷菜单响应鼠标右键菜单的是 查看答案
单选题 下列程序的功能是调用字体对话框来设置文本框字体,单击按钮弹出对话框后,按Cancel键退出对话框,则
Private Sub Command1_Click()
CommonDialog1.CancelError=True
CommonDialog1.Flags=cdlCFEffects Or cdlDFBoth
CommonDialog1.Action=4
CommonDialog1.ShowFont
Text1.Font.Name=CommonDialog1.FontName
Text1.Font.Size=CommonDialog1.FontSize
Text1.Font.Bold=CommonDialog1.FontBold
Text1.Font.Italic=CommonDialog1.FontItalic
Text1.Font.Underline=CommonDialog1.FontUnderline
Text1.FontStrikethru=CommonDialog1.FontStrikethru
Text1.ForeColor=CommonDialog1.Color
End Sub
查看答案
单选题 要将名为MyForm的窗体显示出来,正确的使用方法是 查看答案
单选题 下列程序段的执行结果为
a=5
For k=1 To 0
a=a + k
Next k
Print k; a
查看答案
单选题 下列程序段的执行结果为
a=3
b=1
For I=1 To 3
f=a + b
a=b
b=f
Print f
Next I
查看答案
单选题 下列程序段的执行结果为
I=9
x=5
Do
I=I + 1
x=x + 2
Loop Until I >=7
Print "I="; I
Print "x="; x
查看答案
单选题 以下程序段运行时从键盘上输入字符"-",则输出结果为
op$=InputBox("op=")
If op$="+" Then a=a + 2
If op$="-" Then a=a - 2
Print a
查看答案
单选题 以下程序段的输出结果为
Dim l, a(10) , p(3)
k=5
For i=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
Print k
查看答案
单选题 下列程序的执行结果为
Private Sub Command1_Click()
Dim x As Integer, y As Integer
x=12: y=20
Call Value(x, y)
Print x; y
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 Command3_Click()
Tcl 2
Tcl 3
Tcl 4
End Sub
Sub Tcl(a As Integer)
Static x As Integer
x=x + a
Print x;
End Sub
程序运行后,单击命令按钮,输出结果为
查看答案
单选题 下面程序段,运行后的结果是Private Sub Command1_Click()
Dim b%(1 To 4) , i%, t#
For i=1 To 4
b(i) =i
Next i
t=Tof(b() )
Print "t="; t,
End Sub
Function Tof(a() As Integer)
Dim t#, i%
t=1
For i=2 To UBound(A)
t=t * a(i)
Next i
Tof=t
End Function
查看答案
单选题 单击按钮时,以下程序运行后的输出结果是
Private Sub Command1_Click()
Dim x As Integer, y As Integer, z As Integer
x=1: y=2: z=3
Call God(x, x, z)
Print x; x; z
Call God(x, y, y)
Print x; y; y
End Sub
Private Sub God(x As Integer, y As Integer, z As Integer)
x=3 * z + 1
y=2 * z
z=x + y
End Sub
查看答案
单选题 算法的空间复杂度是指 查看答案
单选题 用链表表示线性表的优点是 查看答案
单选题 数据结构中,与所使用的计算机无关的是数据的 查看答案
单选题 结构化程序设计主要强调的是 查看答案
单选题 软件设计包括软件的结构、数据接口和过程设计,其中软件的过程设计是指 查看答案
单选题 检查软件产品是否符合需求定义的过程称为 查看答案
单选题 数据流图用于抽象描述一个软件的逻辑模型,数据流图由一些特定的图符构成。下列图符名标识的图符不属于数据流图合法图符的是 查看答案
单选题 应用数据库的主要目的是 查看答案
单选题 在数据库设计中,将E-R图转换成关系数据模型的过程属于 查看答案
单选题 在数据管理技术的发展过程中,经历了人工管理阶段、文件系统阶段和数据库系统阶段。其中数据独立性最高的阶段是 查看答案