单选题下列程序段的执行结果为______。 x=Int(Rnd+4) Select Case x Case 5 Print"优秀" Case 4 Print"良好" Case 5 Print"合格" Case Else Print"不合格" End Select
单选题在窗体上有一个文本框控件，名称为TextTime；--个计时器控件，名称为Timer1。要求每一秒在文本框中显示一次当前的时间。程序为： Private Sub Timer1_ ______() TxtTime.text=Time End Sub 在下画线上应填入的内容是
单选题在窗体上画一个名为Command1的命令按钮和一个名为Text1的文本框，并把窗体的 KeyPreview 属性设置为True，然后编写如下代码： Dim SaveAll As String Private Sub Form_ Load () Show Text1.Text = " " Text1. SetFocus End Sub Private Sub Command1 Click() Text1. Text= LCase(SaveAll) End Sub Private Sub Form_ KeyPress (KeyAscii As Integer) SaveAll = SaveAll + Chr(KeyAscii) End Sub程序运行后，在键盘上输入ABCDEFG，单击命令按钮，则文本框中显示的内容为 ______ 。
单选题在窗体上画一个名称为Command1的命令按钮，并编写如下程序： Option Base1 Private Sub Command1_Click()Dim a(4，4) For i=1 To 4 For i=1 To 4 a(i，j)=(i-1)*3+j Next i Next i For i=3 To 4 For i=3 To 4 Print a(j，i)； Next i Print Next i End Sub 运行程序，单击命令按钮，则输出结果为
单选题窗体上有一个图片框和一个命令按钮(拖动模式为自动)，执行程序后，拖动按钮经过图片框时输出结果为 Private Sub Picture1_DragOver(Source As Control, X As Single, Y As Single, State As Integer) Static a As Boolean If Not a Then Print"AA" a=True End If End Sub Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Shingle, Y As Single) Static b As Boolean If Not b Then Print"BB" b=True End If End Sub
单选题假设有下表所列的菜单结构
标题
名称
层次
显示
appear
1(主菜单)
大图标
bigicon
2(子菜单)
小图标
smallicon
2(子菜单)
要求程序运行后，如果单击菜单项"大图标"，则在该菜单项前添加一个"√"。以下事件过程正确的是______。
A. Ptivate Sub bigicon_Click()
bigicon.Checked=True End Sub
B. Ptivate Sub bigicon_Click()
bigicon.Checked=False End Sub
C. Private Sub bigicon_Click()
appear.bigicon.Checked=True End Sub
D. Private Sub bigicon_Click()
Me.appear.bigicon.Checked=True End Sub
单选题在列表框中当前被选中的列表项的序号是由下列哪个属性表示______。
单选题编写如下两个事件过程： Private Sub Form_KeyDown(KeyCode As Integer，Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Form_KeyPress(KeyAscii As Integer) Print Chr(KeyAscii) End Sub 在一般情况下(即不按住“Shift”键和锁定大写键时)运行程序，如果按“A”键，则程序输出的结果是
单选题在窗体上画一个名称为“Command1”、标题为“计算”的命令按钮，再画7个标签，其中5个标签组成名称为Label1的控件数组；名称为Label2的标签用于显示计算结果，其Caption属性的初始值为空，标签Label3的标题为“计算结果”。运行程序时会自动生成5个随机数，分别显示在标签控件数组的各个标签中。单击“计算”按钮，则将标签数组各元素的值累加，然后计算结果显示在Label2。下列为“计算”按钮的事件过程，请为空白处选择合适的语句()。PrivateSubCommand1_Click()Sum=0Fori=0To4Sum=Sum+______Next______=SumEndSub
单选题工程中有2个窗体，名称分别是Form1、Form2，Form1是启动窗体。Form1上有1个名称为Commandl的命令按钮。为了在单击Commandl按钮时能够在Form2窗体上显示“OK”，应在Commandl的Click事件过程中编写的代码是( )。
单选题使用语句Dim F(2)As Integer声明数组F之后，以下说法正确的是
A. F数组中所有元素值都为Empty
B. F数组中的所有元素值不确定
C. F数组中的所有元素都为0
D. 执行EraseF后，F数组中所有元素值都不为0
单选题假定有如下的Sub过程： Sub Func(x As Single， y As Single) t=x x=t/y y=t Mod y End Sub 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a As Single Dim b As Single a=6 b=5 Func(a, b) Print a, b End Sub 程序运行后，单击命令按钮，输出结果为 ______。
单选题设在窗体上有一个名称为Check1的复选框数组，并有以下事件过程： Private Sub Check1_Click(Index As Integer) … End Sub 则下面叙述中错误的是
单选题以下合法的VB变量名是( )。
单选题在窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框，一个名称为File1的文件列表框，两个名称分虽为Lahel1、Label2，标题分别为空白和"共有文件"的标签。编写程序，使得驱动器列表框与目录列表框、目录列表框与文件列表框同步变化，并且在标签Label1中显示当前文件夹中文件的数量。如图所示。能够正确实现上述功能的程序是
单选题在窗体上画一个驱动器列表框、一个目录列表框和一个文件列表框，其名称分别为Drive1、Dir1和File1，为了使它们同步操作，必须触发驱动器的Change事件和目录的Change事件，在这两个事件中执行的语句分别为( )。
单选题窗体上有一个用菜单编辑器设计的菜单。运行程序，并在窗体上单击鼠标右键，则弹出一个快捷菜单，如图所示。以下叙述中错误的是
单选题在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub
Command1_Click{{U}} {{/U}} Dim a(4)As Integer，x As
Integer，sum As Integern=4:sum=0 a(1)=1 For k=0
To n-1 For i=1 To k+1 x=k+2-i
a(x)=a(x)+a(x-1) If x＜n-k Then Exit For
sum=sum+a(x) Next i Next k
Print sum End Sub
程序运行后，单击命令按钮，则窗体上显示的内容是______。
A. 5
B. 6
C. 8
D. 11
单选题设有如下3个关系表：下列操作中正确的是
单选题窗体上有1个名称为Command1的命令按钮，事件过程如下：Private Sub
Command1_Click() m=-3.6 If
Sgn(m)Then n=Int(m) Else n=Abs(m) End If Print
nEnd Sub运行程序，并单击命令按钮，窗体上显示的内容为______。
A.-4
B.-3
C.3
D.3.6