单选题向文本框中输入字符时，下面能够被触发的事件是( )。 A) GotFocus B) KeyPress C) Click D) MouseDown
单选题如果把命令按钮的Cancel属性设置为True，则程序运行后______。
A.按Esc键与单击该命令按钮的作用相同
B.按回车键与单击该命令按钮的作用相同
C.按Esc键将停止程序的运行
D.按回车键将中断程序的运行
单选题对于列表框控件List1，能够表示当前被选中列表项内容的是______。
单选题在窗体中添加一个命令按钮Commandl和一个文本框Text1，编写命令按钮Com-mand1 的 Click事件代码； Private Sub Command1_Click() Dim S As String*20 S=Text1. Text End Sub 该程序的功能是当单击按钮Command1时，把变量S中内容写入一个顺序文件 datl. dar中，正确的程序段是 ( )
单选题窗体上有一个名称为Command1的命令按钮，单击该按钮时所实现的功能是产生10个随机整数，然后从键盘输入一个整数，查找该数在数组中的位置。若找到，输出该数的位置；若没有找到，给出相应的提示。该命令按钮的单击事件过程如下：
Private Sub Command1_Click()
Dim a(10) As Integer, x As Integer
For i=1 To 10
a(i)=Int(Rnd*100)
Next
x=InputBox("输入100以内的整数:")
p=0
For i=1 To 10
If a(i)=x Then
p=i:Exit For
End If
Next
If p=0 Then
Print"没有找到与输入数据相同的数!"
Else
Print Str(x)+"在数组中的位置是"+Str(p)
End If
End Sub
对于上述事件过程，以下叙述中正确的是
单选题可通过“打开”对话框的( )属性设置对话框中所显示文件的类型。 A) FileName B) Filter C) FilterIndex D) InitDir
单选题一个二维数组可以存放一个矩形，在程序开始有语句Option Base 0，则下面定义的数组中正好可以存放一个4*3矩阵(即只有12个元素)的是
单选题窗体上有一个名称为Text1的文本框，一个名称为Combol的组合框。将文本框中的内容添加到组合框所使用的命令是
单选题设x是整型变量，与函数IIF(x＞0，-x，x)有相同结果的代数式是
单选题下面程序的功能是找出这样一个三位整数：它等于每位数字的阶乘之和，例如145就是这样的数（即145 = 1！+ 4！+ 5！）
Private Sub Command1_Click()
Dim x As Integer, i As Integer, j As Integer, k As Integer
For i = 1 To 9
For j = 0 To 9
For k = 0 To 9
a = ___________________
If a = fact(i) + fact(j) + fact(k) Then
Print a
End If
Next k
Next j
Next i
End Sub
Function fact(n As Integer) As Long
Dim x As Long
x = 1
For k = 1 To n
x = x * k
Next k
fact = x
End Function
程序不完整，在横线上应填写的是
单选题窗体上有一个名为List 1的列表框和一个名为Command 1的命令按钮，并有下面的事件过程： Private Sub Command 1_Click() n％=List 1．ListIndex If n>0 Then ch$=List 1．List(n) List 1．List(n)=List 1．List(n一1)：List 1．List(n-1)=ch End If End Sub 程序运行时，选中1个列表项，然后单击Command 1按钮，则产生的结果是
单选题下列叙述中正确的是( )。 A) 在栈中，栈中元素随栈底指针与栈顶指针的变化而动态变化 B) 在栈中，栈顶指针不变，栈中元素随栈底指针的变化而动态变化 C) 在栈中，栈底指针不变，栈中元素随栈顶指针的变化而动态变化 D) 以上说法都不正确
单选题下列程序段的执行结果为
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
Ａ) 1 0 0
0 1 0
0 0 0
Ｂ) 1 1 1
1 1 1
1 1 1
Ｃ) 0 0 0
0 0 0
0 0 0
Ｄ) 1 0 1
0 1 0
1 0 1
单选题Visual Basic中的数值可以用十六进制或八进制表示，十六进制数的开头符是&H，八进制数的开头符号是
单选题在窗体中画一个命令按钮，然后编写以下事件过程：
Private Sub Command1_Click()
For j=1 To 3
Print Tab(3(j)；11((2(j-1)；
Next j
Print
End Sub
程序的执行结果为
单选题在窗体上用复制、粘贴的方法建立了一个命令按钮数组，数组名为M1。设窗体Form1标题为“myform1”，双击控件数组中的第3个按钮，打开代码编辑器，写下如下代码： Prinvate Sub M1_Click(Index As Integer) Form1.Caption="myform2" End Sub 运行时，单击按钮数组中的第1个按钮，窗体标题为
单选题有一程序段，其功能是：当x＞0时，y=x；当-2=＜x＜=0时，y=-x，当x＜=2时，产生一个“输入错误”信息框。则下列程序空白处应为______。
Private Sub Form_Click()
x % =InputBox("请输入x的值:")
If x＞0 Then
y=x
______
y=-x
Else
NsgBox"输入错误"
End If
Print y
End Sub
单选题以下关于单选按钮和复选框的叙述中，正确的是
单选题下列叙述中，正确的是 ______。 A) 用E-R图能够表示实体集之间一对一的联系、一对多的联系、多对多的联系 B) 用E-R图只能表示实体集之间一对一的联系 C) 用E-R图只能表示实体集之间一对多的联系 D) 用E-R图表示的概念数据模型只能转换为关系数据模型
单选题为达到把a、b中的值交换后输出的目的，某人编程如下： Private Sub Command1_Click() a%=10:b%=20 Call swap(a,B) Print a,b End Sub Private Sub swap(ByVal a As Integer,ByVal b As Integer) c=a:a=b:b=c End Sub 在运行时发现输出结果错了，需要修改。下面列出的错误原因和修改方案中正确的是( )。