单选题下面不能在信息框中输出“Visual Basic”的是( )。
单选题在窗体上画一个命令按钮,名称为Command1,然后编写如下事件过程:
Private Sub Command1_Click()
a$="software and hardware"
b$=Right(a$,8)
c$=Mid(a$,1,8)
MsgBox a$,,b$.C$,1
End Sub
运行程序,单击命令按钮,则在弹出的信息框的标题栏中显示的是______。
单选题在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim a(5)As String For i=1 T0 5 a(i)=Chr(Asc("A")+(i-1)) Next i For Each b In a Print b; Next End Sub 程序运行后,单击命令按钮,输出结果是______。
单选题变量未赋值时,数值型变量的值为0,字符串变量的值为
单选题窗体上有一个用菜单编辑器设计的菜单(见上图)。运行程序,并在窗体上单击鼠标右键,则弹出一个快捷菜单,如图所示。以下叙述中错误的是()A.在设计“粘贴”菜单项时,在菜单编辑器窗口中设置了“有效”属性(有“√”)B.菜单中的横线是在该菜单项的标题输入框中输入了一个“-”(减号)字符C.在设计“选中”菜单项时,在菜单编辑器窗口中设置了“复选”属性(有“√”)D.在设计该弹出菜单的主菜单项时,在菜单编辑器窗口中去掉了“可见”前面的“√”
单选题若窗体上的图片框中有一个命令按钮,则此按钮的Top属性是指______。 A) 按钮上边到窗体上边界的距离 B) 按钮上边到图片框上边界的距离 C) 按钮中心点到窗体上边界的距离 D) 按钮中心点到图片框上边界的距离
单选题在窗体上画一个命令按钮,名称为Command1。然后编写如下程序:
Private Sub Command1_Click()
Dim a As Integer, b As Integer
b=1
for a=1 To 100
if b>=10 then exit for
if b Mod 3=1 then
b=b+3
End if
Next a
Print a
End Sub
在命令按钮上单击后,窗体上显示的结果是______。
单选题软件测试中根据测试用例设计方法的不同可分为黑盒测试和白盒测试,它们 A) 前者属于静态测试,后者属于动态测试 B) 前者属于动态测试,后者属于静态测试 C) 都属于静态测试 D) 都属于动态测试
单选题以下不属于Visual Basic数据文件的是______。
单选题执行语句Dim X,Y As Integer后,
单选题下面程序运行时,若输入395,则输出结果是( )。 Private Sub Cmdl_Click() Dim a% a=InputBox("请输入一个3位整数") Print a Mod 10,a\100,(a Mod 100)\10 End Sub
单选题设有如下函数:Function DelSpace(ch As String)As IntegerDim n%,st$,c$st="":n=0For k=1 To Len(ch) c=Mid(ch,k,1) Ifc<>""Then st=st&c Else n=n+1 End If Next k ch=st:DelSpace=nEnd Function该函数的功能是
单选题设一棵满二叉树共有15个结点,则在该满二叉树中的叶子结点数为( )。
单选题在窗体上画一个名称为Command1的命令按钮。单击命令按钮时执行如下事件过程: Private Sub Command1_Click() a$="software and hardware" b$=Right(a$,8) c$=Mid(a$,1,8) MsgBox a$,,b$,c$,1 End Sub 则在弹出的信息框标题栏中显示的标题是( ) A.software and hardware B.hardware C.software D.1
单选题检查软件产品是否符合需求定义的过程称为
单选题已知使用Show方法的格式为:[窗体名称].Show[模式],如果要使窗体是“模态型”宙体,则“模式”值为( )。
单选题下列程序段的执行结果为 Dim M(10) For k=1 To 10 M(k)=11-k Next k x=6 Print M (2+M(x))
单选题窗体如图1所示。要求程序运行时,在文本框Text1中输入一个姓氏,单击“删除”按钮(名称为Command1),则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能:PrivateSubCommand1_Click()Dimn%.k%n=Len(Text1.Text)Fork=0ToList1.ListCount一1IfLeft(List1.List(k),n)=Text1.TextThenList1.RemoveItemkEndIfNextkEndSub在调试时发现,如输入“陈”,可以正确删除所有姓“陈”的项目,但输入“刘”,则只删除了“刘邦”、“刘备”2项,结果如图2所示。这说明程序不能适应所有情况,需要修改。正确的修改方案是把Fork=0ToList1.ListCount—l改为()。
单选题有如下函数过程: Function Fun(By Val x As Ingeger,ByVal y As Integer)As Integer Do While…Y<>0 reminder=x Mod Y x=y y=reminder Loop Fun=X End Function 以下是调用该函数的事件过程,该程序的运行结果是 Private Sub Command1_Click() Dim a As Integer Dim b As Integer a=100:b=25 x=Fun(a,b) Print x End Sub
单选题阅读下面的程序段:For a=1 To 2 For b=1 To a For C=b To 2 I=I + 1 Next NextNextPrint I执行上面的三重循环后,I的值为
