单选题关于Move方法,下列叙述正确的是________。 (A) 用来移动窗体和控件,不能改变其大小 (B) "对象"是窗体时,移动基准以屏幕左边界和上边界为准 (C) Move方法移动出计时器以外的所有标准控件 (D) "对象"是控件时,移动基准以屏幕左边界和上边界为准
单选题运行VB程序的快捷键为______ 。
单选题窗体上有名称为Text1、Text2的两个文本框,和一个由3个单选按钮构成的控件数组Optionl,如图1所示。程序运行后,如果单击某个单选按钮,则执行Text1中数值与该单选按钮所对应的运算(乘1、乘10或乘100),并将结果显示在Text2中,如图2所示。为了实现上述功能,在程序中的横线处应填入的内容是____PrivateSubOptionlClick(IndexAsInteger)IfText1.Text<>""ThenSelectCase__________________Case0Text2.Text=Text1.TextCase1Text2.Text=Text1.Text*10Case2Text2.Text=Text1.Text*100EndSelectEndIfEndSub
单选题在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() c="ABCD" For n=1 To 4 Print ______ Next End Sub 程序运行后,单击命令按钮,要求在窗体上显示如下内容; D CD BCD ABCD 则在填空处应填入的内容为______。
单选题具有3个结点的二叉树有
单选题建立数据表结构时,由系统自动设定宽度的字段类型有( )
单选题设有下列语句:x=5If x>0Then y=1y=5程序运行后,则下列叙述中正确的是( )。
单选题下面
____
不是VB的文件系统控件。
单选题击窗体中的对象后,Visual Basic将显示的窗口是
A. 工具箱
B. 项目(工程)窗口
C. 代码窗口
D. 属性窗口
单选题设程序中分别将a、b、c、d定义为布尔型、整型、字符串型、日期型变量,下列赋值语句错误的是
单选题为了通过传值方式来传送过程参数,在函数声明部分应使用的关键字为
单选题某程序列表框中有许多项,现在用Timer控件控制时间,0.1秒删除一项,直到删完为止,用一滚动条来显示删除的项目,请选择合适的语句,完成此程序()。PrivateSubCommand2_Click()HSeroll1.Min=0HScroll1.Max=List1.ListCountHScroll1.Value=0Timer1.Interval=______Timer1.Enabled=TrueEndSubPrivateSubTimer1_Timer()IfList1.ListCount>0ThenList1.RemoveItem0HScroll1.Value=HSeroll1.Max-List1.ListCountElseTimer1.Enabled=______MsgBox"全部删除!"EndIfEndSub
单选题在窗体上画一个命令按钮,然后编写如下事件过程:
Private Sub Command1_Click( )
Dim m As Integer,n As Integer,p As Integer
m=3:n=5:p=O
Call Y(m,n,p)
Print Str(p)
End Sub
Sub Y(ByVal i As Integer,ByVal j As Integer,k As Integer)
k=i + j
End Sub
程序运行后,如果单击命令按钮,则在窗体上显示的内容是( )。
单选题在菜单编辑器中建立如下图所示的菜单,并为了每个菜单项编写了鼠标单击事件过程。关于此菜单,以下叙述中错误的是( )。
单选题若在窗体模块的声明部分声明了如下自定义类型和数组 Private Type Tem Score As Integer StrNameAs String End Type Dim Student(5)As Tem 则下面的输出语句中正确的是( )。
单选题设有以下程序: Private Sub Form_Click()
x=50 For i=1 To 4
y=InputBox("请输入一个整数") y=Val(y) Ify Mod 5=0
Then a=a+y x=y Else
a=a+x End If Next i
Print a End Sub
程序运行后,单击窗体,在输入对话框中依次输入15、24、35、46,输出结果为______。
A.100
B.50
C.120
D.70
单选题为了在按下Ese键时执行某个命令按钮的Click事件过程,需要把该命令按钮的一个属性设置为True,这个属性是
单选题设有如下程序:
Private Sub Form_Click()
num=InputBox("请输入一个实数"):p=InStr(num, ".")
If p>0 Then
Print Mid(num,p+1)
Else
Print"END"
End If
End Sub
运行程序单击窗体,根据提示输入一个数值。如果不是输入实数,则输出“END”;否则
单选题假定有以下通用过程:
Function Fun(n As Integer)As Integer
x=n*n
Fun=x-11
End Function
在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:
Private Sub Command1_Click()
Dim i As Integer
For i=1 To 2
y=Fun(i)
Print y;
Next i
End Sub
程序运行后,单击命令按钮,在窗体上显示的内容是______。
单选题在窗体上放置一个命令按钮Command1,并编写下列单击事件的程序: Option Base 1 Pdvate Sub Command1_Click() Dim c As Integer,d As Integer d=0 c=6 X=Array(2,4,6,8,10,12) For i=1 To 6 If X(i)>c Then d=d+X(i) c=X(i) Else d=d-c End If Next i Print d End Sub 程序运行后,单击命令按钮,则在窗体上输山的结果是( )。
