单选题窗体上有一个名称为Text1的文本框，一个名称为Command1的命令按钮。窗体文件的程序如下： Private Type x a As Integer：b As Integer End Type Private Sub Command1_Click() Dim Y As x y．a：=InputBox(“”) Ify．a＼2=y．a／2 Then y．b=y．a*y．a Else y．b=Fix(y．a／2) End If Text1．Text=y．b End Sub 对以上程序，下列叙述中错误的是
单选题以下不能用形状控件画出的图形是
单选题有如下一个函数过程： Function Fun(a As Integer) Static c b=0：b=b+1：c=c+1 Fun=a+b+c End Function 在窗体上添加一个命令按钮，事件过程如下： Private Sub Command1_Click() Dim a As Integer a=2 For i=1 To 3 Print Fun(
单选题默认情况下，下面声明的数组的元素个数是______。 Dim a(4，-1 To 2) A) 20 B) 24 C) 25 D) 30
单选题下列程序运行时输出的结果是( )。 Private Sub Form_Click() Dim a() a=Array(“天天向上”，“清华大学”，“天长地久”，“程序设计”) for I=Lbound(a,1) to Ubound(a,1) if ieft(a(I),1)="天”then print a(I); next I End Sub A) 天天向上 B) 天天向上天长地久 C) 出错信息 D) 天天向上清华大学天长地久程序设计
单选题假设用复制、粘贴的方法建立了一个命令按钮数组Command1，以下对该数组的说法错误的是( )。
单选题窗体上有1个名称为Text1的文本框，1个名称为Label1的标签。程序运行后，如果在文本框中输入信息，则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程为
单选题以下关于单选按钮和复选框的叙述中，正确的是
单选题在窗体上画一个命令按钮和一个文本框(名称分别为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)+SaveAll
End Sub
Private Sub Form KeyPress(KeyAscii As Integer)
SaveAll=SaveAll+Chr(KeyAscii)
End Sub
程序运行后，直接用键盘输入VB，再单击命令按钮，则文本框中显示的内容为( )。
单选题在面向对象方法中，实现信息隐蔽是依靠
单选题设M=3，N=5，P=4.5，Q=2.5，表达式(M*N＋2)/(P-Q)的计算结果为______。 A) 8 B) 9 C) 8.5 D) 8.0
单选题设变量x的值是845，则下面语句的输出是( )。Print x＼100+(x Mod 100)＼10+x Mod 10
单选题在窗体上画一个名称为Text1的文本框，并编写如下程序：Option Base 1Private Sub Form_Click() Dim arr Dim Start As Integer， Finish As Integer Dim Sum As Integer arr＝Array(12， 4， 8， 16) Start＝LBound(arr) Finish＝UBound(arr) Sum＝0 For i＝Start To Finish Sum＝Sum＋arr(i) Next i c＝Sum / Finish Text1.Text＝cEnd Sub运行程序，单击窗体，则在文本框中显示的是( )。
单选题以下关于文件的叙述中，错误的是
单选题如果要将窗体中的某个命令按钮设置成不可见状态，应该设置命令按钮的什么属性
单选题下列描述中，不符合良好程序设计风格要求的是
单选题从键盘上输入两个字符串，分别保存在变量str1、str2中。确定第二个字符串在第一个字符串中起始位置的函数是______。
单选题下面程序运行后，输出结果是______。
Private Sub mysub(b()As Integer,Optional ByVal n As Integer=2)
For I=1 to 4
b(I)=n*I
Next I
End Sub
Private Sub Command1_Click()
Dim a(1 to 4)As Integer，I As Integer
Call mysub(a()，5)
Mysub a()
ForI=1 to 4
Print a(i);
Next
End Sub
A 1 5 10 15 20 B．2 4 6 8 C．出错 D．0 0 0 0
单选题在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub
Command1_Click() s=InputBox("Please input
Password:") If s <> "car" Then
Print "您无权使用!"
Else Print "谢谢使用!"
End If End Sub
程序运行后在输入框中输入"car"，则输出结果为__________。
A.您无权使用!
B.谢谢使用!
C.什么也没有
D.程序出错
单选题设在窗体上有一个名称为Command1的命令按钮，并有以下事件过程： Private
Sub Commandl Click() StatiC b As
Variant b=Array(1，3，5，7，9)
... End Sub
此过程的功能是把数组b中的5个数逆序存放(即排列为9，7，5，3，1)。为实现此功能，省略号处的程序段应该是
A. For i=0 To 5-1/2 tmp=b(i) b(i)=b(5-i-1)
b(5-i-1)=tmp Next
B. For i=0 To 5 tmp=b(i) b(i)=b(5-i-1)
b(5-i-1)=tmp Next
C. For i-0 To 5/2 tmp=b(i) b(i)=b(5-i-1)
b(5-i-1)=tmp Next
D. For i=1 To 5/2 tmp=b(i) b(i)=b(5-i-1)
b(5-i-1)=tmp Next