单选题现有语句：y=IIf(x＞0, x Mod 3, 0)设x=10，则y的值是
单选题下面关于算法的叙述中，正确的是( )。
单选题对于图片框和图像框，以下描述中正确的是
单选题双击窗体中的对象后，Visual Basic将显示的窗口是{{U}} {{/U}}。
A.项目(工程)窗口
B.工具箱
C.代码窗口
D.属性窗口
单选题下面语句中能够打开随机文件的是
单选题下面函数的功能应该是：删除字符串str中所有与变量ch相同的字符，并返回删除后的结果。例如：若str="ABCDABCD"，ch="B"，则函数的返回值为："ACDACD"
Function delchar(str As String，ch As String)As String
Dim k As Inlegcr，temp As String，ret As String
ret=""
For k=1 To Len(str)
temp=Mid(str，k，1)
If temp=ch Then
ret=ret＆temp
End If
Next k
delchar=ret
En d Function
但实际上函数有错误，需要修改，下面的修改方案中正确的是( )。
单选题单击命令按钮时，下列程序的执行结果为 Private Sub Command1_Click() Dim a As Integer，b As Integer，c As Integer a=2：b=3：C=4 Print P2(c，b，A) End Sub Private Function P1(x As Integer，y As Integer，z As Integer) P1=2 * X + y + 3 * z End Function Private Function P2(x As Integer，y As Integer，z As Integer) P2=P1(z，x，y) + X End Function
单选题如果要改变窗体的标题，则需要设置的属性是
单选题下列程序段的显示结果为 ______。 x=0 Print
x-1 x=3
A. -1
B. 3
C. 2
D. 0
单选题以下过程定义中正确的过程首行是______。
A.Private Sub Proc(Optional a as Integer, b as Integer)
B.Private Sub Proc(a as Integer)as Integer
C.Private Sub Proc(a()As Integer)
D.Private Sub Proc(ByVal a()As Integer)
单选题在新建一个VB工程时，将新建窗体的Name属性设置为TheFirst，则默认的窗体文件名为( )。
单选题设有如下程序段： x=2 For i=1 To 10 Step
2 x=x+i Next
运行以下程序后，x的值是{{U}} {{/U}}。
A.26
B.27
C.38
D.57
单选题编写如下程序： Option Base1 Private Sub Command1_Click() Dim a a=Array(1，2，3，4)：s=0：j=1 For i=4 To 1 Step-1 s=s+a(i)*j：j=j*10 Next i Print s End Sub 程序运行后，单击命令按钮Command1，输出结果为
单选题设a=“a”，b=“b”，c=“c”，d=“d”，执行语句x=Ilf((a＜b)Or(c＞d)，“A”，“B”)后，x的值为
单选题设a=5，b=6，c=7，d=8，执行下列语句后，x的值为 X=IIF((a＞b) And (c＞d),10,20)
单选题假定在工程文件中有一个标准模块，其中定义了如下记录类型 Type Books
NalTle As String*10 TelNum As
String*20 End Type
要求当执行事件过程ComlBandl_Click时，在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是{{U}}
{{/U}}。
A.Ptivate Sub Commandl_Click() DimB As Books
Open"c:/Person.txt"For Output As#1
B．Name=InputBox(“输入姓名”) B．TelNum=InputBox(“输入电话号码”)
Whte#1，B.Name,B.TelNum Close#1
End Sub B．Private Sub Commandl_Crick() DimB As
Books Open"C:/Person.txt"ForInput As#1
B．Name=InputBox(“输入姓名”)
B.TelNum=InputBox(“输入电话号码”)
Prin(#1，B.Name,B.Te1Num Close#1 End Sub
C.Private Sub Conullandl_CHCk() DimBAs Books
Open"c:/Person.txt"For Ouputut As#1
Name=hputBox(“输入姓名”) Temum=InputBox(“输入电话号码”)
Whte#1，B Close#1 End Sub
D.Privam Sub Commnandl_Click() DimBAsBook
Open"C:/Person.txt"For Input As#1
Name=InputBox(“输入姓名”) TelNum=InputBox(“输入电话号码”)
Print #1，B.Name，B.TelNum Close#1
End Sub
单选题在窗体上画—个名称为Text1的文本框，并编写如下程序： Private Sub
Form_Load() Show Text1.Text="
" Text1.SetFocus End Sub
Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y
As Single) Print "程序设计" End
Sub Private Sub Text1_KeyDown(KeyCode As Integer,Shift As
Integer) Print "Visual Basic"； End
Sub 程序运行后，如果按A键，然后单击窗体，则窗体上显示的内容是 ______。
A. Visual Basic
B. 程序设计
C. A程序设计
D. Visual Basic程序设计
单选题设有如下Commandl的单击事件过程及fun过程： Private Sub Commandl一Click() Dim x As Integer x=Val(InputBox(“请输入一个整数”)) fun(x) End Sub Private Sub fun(x As Integer) If x Mod 2=0 Then fun(x／2) Print x； End Sub执行上述程序，输入6，结果是( )。
单选题用下面的语句
Open"datafile.dat" Access Read Write As 1
所建立的datafile.dat文件是
单选题在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() A="12" B="34" C="56" Print A+B+C End Sub 程序运行后，单击命令按钮，输出结果是( )。 A．"123456" B．123456 C．102 D．显示出错信息