单选题在窗体上画一个命令按钮,其名称为Command1,然后编写如下代码:
Option Base 0
Private Sub Command1_Click()
Dim arr
arr=Array("1","2","3","4","5","6","7","8","9","0")
Print arr(2);arr(4);arr(6)
End Sub
程序运行后,单击命令按钮,其输出结果是
单选题在窗体上画两个滚动条,名称分别为Hsroll1、Hsroll2;6个标签,名称分别为Label1、Label2、Label3、Label4、Label5、Label6,其中Label1~Label3分别显示"A"、"B"、"A*B"等文字信息,标签Label4、Label5分别显示其右侧的滚动条的数值,Label6显示A*B的计算结果。如下图所示。当移动滚动框时,在相应的标签中显示滚动条的值。当单击命令按钮"计算"时,对标签Label4、Label5中显示的两个值求积,并将结果显示在Label6中,则以下程序不能实现上述过程的是______。A)PrivateSubCommand1_Click()Label6.Caption=Str(Val(Label4.Caption)*Val(Label5.Caption))EndSubPrivateSubHScroll1_Change()Label4.Caption=HScroll1.ValueLabel5.Caption=HScroll2.ValueEndSubB)PrivateSubCommand1_Click()Label6.Caption=Str(Val(Label4.Caption)*Val(Label5.Caption))EndSubPrivateSubHScroll1_Change()Label4.Caption=HScroll1.ValueEndSubPrivateSubHScroll2_Change()Label5.Caption=HScroll2.ValueEndSubC)PrivateSubCommand1_Click()Label6.Caption=HScroll1*HScroll2EndSubPrivateSubHScroll1_Change()Label4.Caption=HScroll1.ValueEndSubPrivateSubHScroll2_Change()Label5.Caption=HScroll2.ValueEndSubD)PrivateSubCommand1_Click()Label4.Caption=HScroll1.ValueLabel5.Caption=HScroll2.ValueLabel6.Caption=HScroll1.Value*HScroll1.ValueEndSub
单选题下列选项中属于面向对象设计方法主要特征的是( )。 A) 继承 B) 自顶向下 C) 模块化 D) 逐步求精
单选题设a=10,b=5,c=1,执行语句Print a>b>c窗体上显示的是
单选题当文本框ScrollBars属性设置了非零值,却没有效果,原因是( )。
单选题执行语句Print"Sgn(-34)=";Sgn(-34)后,其输出结果为
____
。
单选题VB集成开发环境中,在( )中编写代码
单选题下列程序段的执行结果为{{U}} {{/U}}。 Dim
A(3,3) For M=1 To 3 For N=1 To
3 If N=M Or N=3-M+1 Then A(M, N)=1
Else A(M,N)=0 End
If Next N Next M For M=1 To
3 For N=1 To 3
Print A(M,N) Next N
Print Next M
A. 1 0 0 0 1
0 0 0 1
B. 1 1 1 1 1
1 1 1 1
C. 0 0 0 0 0
0 0 0 0
D. 1 0 1 0 1
0 1 0 1
单选题在窗体上有一个名为CD1的通用对话框,为了在运行程序时打开保存文件对话框,则在程序中应使用的语句是______。
单选题有关多文档界面(Multiple Document Interface)的不正确描述是
单选题设变量MyName(字符串型),Age(整型)分别表示一个人的姓名和年龄,要设计一个逻辑表达式,当该人姓张,并且超过60岁,则表达式的值为True,下面正确的是______。
单选题设有数组定义语句:Dim a(5) As Integer,List1为列表框控件。下列给数组元素赋值的语句错误的是( )。 A) a(3)=3 B) a(3)=InputBox("input data") C) a(3)=List1.ListIndex D) a=Array(1,2,3,4,5,6)
单选题以下合法的VB变量名是______。
A.#_1
B.123_a
C.string
D.x_123
单选题窗体上有1个名为List1的列表框,其中已经输入了若干个项目(如图所示);还有2个文本框,名称分别为Text1、Text2,1个名称为Command1的命令按钮,并有以下程序。PrivateSubCommand1Cliek()DimstrAsString,sAsString,kAsIntegers=Text1:str=""Fork=List1.ListCount-1To0Step-1IfInStr(List1.List(k),s)>0Thenstr=str&List1.List(k)&""EndIfNextkIfstr=""ThenText2="没有匹配项目"ElseText2=strEndIfEndSub程序运行时,在Text1中输入"京",单击命令按钮,则在Text2中显示的内容是()。
单选题在一个窗体上添加一命令按钮控件,名为Command1,事件过程如下,则执行结果是( )。 Option Base 1 Private Sub Command1_Click() Dim a(5) As Integer Dim k As Integer Dim total As Integer a(1)=2 a(2)=5 a(3)=4 a(4)=10 a(5)=6 For k=1 To 5 tota11=tota1+a(k) Next k Print tota1 End Sub
单选题下面关于完全二叉树的叙述中,错误的是 ______。A) 除了最后一层外,每一层上的结点数均达到最大值B) 可能缺少若干个左右叶子结点C) 完全二叉树一般不是满二叉树D) 具有结点的完全二叉树的深度为[log2+1]
单选题运行下列语句后,输出的结果是( )。 Option Base 1 Dim a i=1 a=Array(1,-2,9,0,-1,9) Do k=a(i) For m=10 To k Step-2 n=k+m Next m Print n+m i=i+1 Loop While Abs(m+n)<>27
单选题设有如下用户定义数据类型: Type Student Number As String Name As String Age As Integer End Type 则下列代码中能正确引用该类型成员的是
单选题结构化程序设计的基本原则不包括( )。
单选题在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim array1(10,10)As Integer Dim i As Integer,j As Integer For i=1 To 3 For i=2 To 4 array1(i,j)=i+j Next j Next i Text1.Text=array1(2,3)+array1(3,4) End Sub 程序运行后,单击命令按钮,在文本框中显示的值是( )。