单选题在窗体上画一个名称为Combo1的组合框,名称为Text1的文本框,以及名称为Command1的命令按钮,如图运行程序,单击命令按钮,将文本框中被选中的文本添加到组合框中,若文本框中没有选中的文本,则将文本框中的文本全部添加到组合框中。命令按钮的事件过程如下:PrivateSubCommand1_Click()IfText1.SelLength<>0Then______ElseCombo1.AddItemText1EndIfEndSub程序中横线处应该填写的是______。
单选题在名称为Frame1的框架中,有两个名称分别为op1、op2的单选按钮,标题分别为“单程”、“往返”,如图所示。以下叙述中,正确的是______。
单选题窗体如图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-1改为______。A)Fork=0ToList1.ListCountB)Fork=1ToList1.ListCountC)Fork=1ToList1.ListCount-1D)Fork=List1.ListCount-1To0Step-1
单选题下列选项中,不属于数据管理员(DBA)职责的是( )。
单选题编写如下程序代码:Private Sub Command1_Click() s = "Visual Basic" x = Left(s, 1) For i = 2 To Len(s) z = Mid(s, i, 1) If z > x Then x = z Next i Print xEnd Sub程序运行后,单击命令按钮Command1,输出结果为( )。
单选题在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
Dim arr(10,10)As Integer,i,j As Integer
For i=1 To 3
For j=2 To 4
arr(i,j)=i+j
Next
Next
Text1.Text=arr(2,3)+arr(3,4)
End Sub
程序运行后,单击命令按钮,在文本框中显示的值是
____
。
单选题窗体上有一个名称为Label1的标签和一个名称为Command1的命令按钮。命令按钮的单击事件过程如下: Private Sub Command1_Click() x=InputBox("输入x:",,0):y=InputBox("输入y:",,0) Label1.Caption=x+y End Sub 运行程序,单击命令按钮,在输入对话框中分别输入2、3,运行的结果是
单选题窗体上有一个名称为Picture1的图片框控件,一个名称为Label1的标签控件,如下图所示。现有如下程序:PublicSubDisplay(xAsControl)IfTypeOfxisLabelThenx.Caption="计算机等级考试"Elsex.Picture=LoadPicture("pic.jpg")EndIfEndSubPrivateSubLabel1_Click()CallDisplay(Label1)EndSubPrivateSubPicture1_Click()CallDisplay(Picture1)EndSub对以上程序,下列叙述中错误的是()A.程序运行时会出错B.单击图片框,在图片框中显示一幅图片C.过程中的X是控件变量D.单击标签,在标签中显示一串文字
单选题如果将布尔常量值True赋值给一个整型变量,则整型变量的值为( )。
单选题在结构化程序设计方法中,下面哪种内聚性最弱?
单选题为了使标签中的内容居中显示,应把Alignment属性设置为( )。
单选题应用程序窗体的名称属性为Frm1,窗体上有一个命令按钮,其名称属性为Cmd1,窗体和命令按钮的Click事件过程名分别为__________。
单选题某人编写了下面的程序,希望能把Text1文本框中的内容写到out.txt文件中:
Private Sub Command1_Click()
Open "out. txt" For Output As #2
Print "Text1"
Close #2
End Sub
调试时发现没有达到目的,为实现上述目的,应做的修改是______。
单选题关于数据库系统的特点,下列说法中错误的是数据______。
单选题在窗体画一名为CommonDialog1,则下列与CommonDialogl.ShowOpen方法等效的语句是
单选题设有声明语句 Dim b(-1 To 10,2 To 9,20)As Integer 则数组b中全部元素的个数A) 2310B) 2016C) 1500D) 1658
单选题编写如下事件过程; Private Sub Form_ MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single) If Shift = 6 And Button = 1 Then Print "BBBB" End If End Sub程序运行后,为了在窗体上输出 “BBBB”,应执行的操作为______ 。
单选题使用白盒测试法时,确定测试数据应该根据( )和指定的覆盖标准。
单选题对于代数式sin
2
(x+y)+e
5
,正确的Visual Basic表达式为
单选题当发生Form_Click事件时,下列程序的输出结果是( )。 Private m As Integer,n As Integer Private Sub Form_Click() Dim k As Integer,p As Integer k=6:p=60 Call sub1(k,p) Print m,n,m,k,p Call sub1(k,p) Print m,n,k,p End Sub Private Sub Form_Load() m=7 n=70 End Sub Public Sub sub1(x As Integer,ByVal y As Integer) Dim m As Integer n=n+5 m=n+x+y x=x+y y=x+y End Sub
