单选题以下关于过程及过程参数的描述中，错误的是
单选题现有表示患者和医疗的关系如下：P(P#，Pn，Pg，By)，其中P#为患者编号，Pn为患者姓名，Pg为性别，By为出生日期，Tr(P#，D#，Date，Rt)，其中D#为医生编号，Date为就诊日期，Rt为诊断结果。检索在1号医生处就诊的病人姓名的表达式是( )。
单选题以下能从字符串"VisualBasic"中直接取出子字符串"Basic"的函数是
单选题有如下事件过程： Private Sub Form_KeyDown(KeyCode As Integer，Shift As Integer) If (Button And 3) =3 Then Print "OK" End If End Sub 程序运行后，为了在窗体上输出“OK”，应当按下的鼠标键是 Ａ) 左键 Ｂ) 右键 Ｃ) 同时按下左键和右键 Ｄ) 按什么键都不显示
单选题窗体的MouseUp事件过程如下： Private Sub Form_MouseUp(Button As Integer，Shift As Integer，X As Single，Y As Single) …… End Sub 关于以上定义，以下叙述中错误的是
单选题窗体上有一个名称为Command1的命令按钮，一个名称为Text1的文本框。编写如下程序：Private Sub
Command1_Click() Dim x As
Integer x=Val(InputBox("输入数据")) Text1=Str(x+fun(x)+fun(x))End
SubPrivate Function fun(ByRef n As Integer) If n Mod 3=0
Then n=n+n Else n=n*n End If fun=nEnd
Function对于上述程序，以下叙述中错误的是______。
A.语句 fun=n 有错，因为n是整型，fun没有定义类型
B.运行程序，输入值为5时，文本框中显示655
C.运行程序，输入值为6时，文本框中显示42
D.ByRef表示参数按址传递
单选题现有如下程序：Private Sub Commandl_Click() Public Function f(x As Integer) s=0 If x＞=10 Then For i=1 To 5 t=x+1 s=s+f(5+i) ElseNext t=x+2Print s End IfEnd Sub f=t End Function运行程序，则窗体上显示的是
单选题在窗体上画一个命令按钮(名称为Command1)，然后编写如下事件过程： Private Sub Command1_Click() A = 4 : b = 5 : c = 6 Print a = b + c End Sub 程序运行后，单击命令按钮，其结果为________。
单选题代数式，|e2×A＋lgy13+sin y2|对应的Visual Basic表达式是 ______。
单选题数据库系统的核心是( )。
单选题下列事件过程运行后输出结果是______。
Private Sub Command1_Click()
Private Format $(123.456, "###.##%")
End Sub
单选题下面正确使用动态数组的是
单选题窗体上有1个名称为Text1、内容为空的文本框。编写如下事件过程： Private Sub Textl_KeyUp(KeyCode As Integer，Shift As Integer) Print Text1．Text； End Sub 运行程序，并在文本框中输入“123”，则在窗体上的输出结果为
单选题下列程序段的执行结果为 a="ABBACDDCBA" For I＝6 To 2 Step-2 x＝Mid(a,I,I) y＝Leh(a,I) z＝Right(a,I) z＝x & y & z Next I Print z
单选题已知通用对话框名为Cd1g，则执行下列的( )语句，将弹出“颜色”对话框对话框。
单选题在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Commaadl_Click() Dim arrayl(10, 10)As Integer Dim i, j As Integer For i=1 To 3 For j=2 To 4 arrayl(i, j)=i+j Next j Next i Text1. Text=arrayl(2, 3)+arrayl(3, 4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是______。
单选题在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下程序： Private Sub Form_Load() Text1．Text=””：Text2．Text=""：Text1．SetFocus End Sub Private Sub Text1_Change() Text2．Text=Mid(Text1．Text，6) End Sub 程序运行后，如果在文本框Text1中输入ChinaBeijing，则在文本框Text2中显示的内容是
单选题在窗体上画一个名称为Command1的命令按钮，再画两个名称分别为Label1、Label2的标签，然后编写如下程序代码： Private X As Integer Private Sub Command1_Click() X=5：Y=3 Call proc(X，Y) Label1．Caption=X Laebel2．Caption=Y End Sub Private Sub proc(a As Integer，ByVal b As Integer) X=a * a Y=b+b End Sub 程序运行后，单击命令按钮，则两个标签中显示的内容分别是( )。
单选题编写如下程序：
Private Sub Command1_Click()
Dim str1 As String,str2 As String
str1=InputBox("输入一个字符串")
subf str1，str2
Print str2
End Sub
Sub subf(s1 As String，s2 As String)
Dim temp As String
Static i As Integer
i=i+1
temp=Mid(s1,i,1)
If temp＜＞""Then subf s1.s2
s2=s2&temp
End Sub
程序运行后，单击命令按钮Command1，且输入“abcdef”，则输出结果为______。
单选题运行如下程序Private Sub Command1_Click() Dim a(5,5)As
Integer For i=1 To 5 For j=1 To 4 a(i,j)=i*2+j If
a(i,j)/7=a(i,j)/7 Then n=n+1 End If Next
j Next Print nEnd Subn的值是______。
A.2
B.3
C.4
D.5