单选题执行以下程序后输出的是______。 Private Sub Command1_Click() ch $="VisualBasic" Print Mid(Right(ch $,6),Len(Left(ch $,4)),2) End Sub A) 1Basic B) Visu C) si D) asic
单选题以下关于Visual Basic数据类型的说法，不恰当的是（ ）。
单选题下列循环能正常结束的是( )。
单选题设在工程文件中有一个标准模块，其中定义了如下记录类型： Type Books Name As String*10 TelNum As String*20 End Type 在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Command1_Click时，在顺序文件Person．txt中写入一条记录。下列能够完成该操作的事件过程是( )。
单选题设窗体上有2个文本框Text1和Text2，并有下面的事件过程：
Dim n
Private Sub Text1_KeyPress(KeyAscii As Integer)
If "A"＜=Chr(KeyAscii)And Chr(KeyAscii)＜="Z" Then
n=n+1
End If
If KeyAscii=13 Then
Text2.Text=n
End If
End Sub
程序运行时，在文本框Text1中输入“Visual Basic 6.0”并按Enter键后，在文本框Text2中显示的是______。
单选题为了使一个复选框被禁用(灰色显示)，应把它的Value属性设置为
单选题下面的程序是利用公式：π=4-4/3+4/5-4/7+4/9-4/11+…计算π的近似值
Pvivate Sub Command1_Click()
Dim PI As Double, x As Double, k As Long, sign As Integer
sign=1
k=1
PI=0
Do
x=sign*4/(2*k-1)
PI=PI+x
k=k+1
sign=______
Loop Until Abs(x)＜0.000001
Print PI
End Sub
在空处应填写的是______。
单选题为了使用窗体输出，使Print方法在Form_Load事件中起作用，必须设置窗体的{{U}} {{/U}}属性。
A.AutoReDraw
B.BackColor
C.Moveable
D.Caption
单选题在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序： Private Sub Command1_Click() Static X As Integer Static Y As Integer Cls Y = 1 Y = Y + 5 X = 5 + X Print X， Y End Sub 程序运行时，三次单击命令按钮Commandl后，窗体上显示的结果为
单选题创建新类Visual FoxPro提供的工具有()
单选题已知通用对话框名为Cd1g，则执行下列的( )语句，将弹出“颜色”对话框。
单选题顺序文件在一次打开期间______。
A.只能读，不能写
B.只能写，不能读
C.既可读，又可写
D.或者只读，或者只写
单选题设有如下程序： Private Sub Form_Load() Show Dim b()As Variant Dim n As Integer b=Array(21, 64, 92, 15, 72, 38, 45, 72) Call search(b，45，n) Print n End Sub Private Sub search(a()As Variant, ByVal key As Variant, index%) Dim i % For i=LBound(a)To UBound(a) If key=a(i) Then index=i Exit Sub End If Next i index=-1 End Sub 程序运行后，输出结果是______。 A) 2 B) 6 C) 10 D) 12
单选题下面程序在调试时出现了死循环。
Private Sub Command1_Click()
n=InputBox("请输入一个整数")
Do
If n Mod 2=0 Then
n=n+1
Else
n=n+2
Else If
Loop Until n=1000
End Sub
下面关于死循环的叙述中正确的是______。
单选题组合框控件是将( )组合成一个控件。 A) 列表框控件和文本框控件 B) 标签控件和列表框控件 C) 标签控件和文本框控件 D) 复选框控件和选项按钮控件
单选题设有如下程序段： Dim a(10) For Each x In a Print x： Next x 在上面的程序段中，变量x必须是______。 A) 整型变量 B) 变体型变量 C) 动态数组 D) 静态数组
单选题某人编写了一个能够返回数组a中10个数中最大数的函数过程，代码如下：
Function MaxValue(a()As Integer)As Integer
Dim max%
max=1
For k=2 To 10
If a(k)＞a(max)Then
max=k
End If
Next k
MaxValue=max
End Function
程序运行时，发现函数过程的返回值是错的，需要修改，下面的修改方案中正确的是______。
单选题要把名为Form1的窗体从内存中卸载，应使用语句
____
。
单选题有如下事件过程： Private Sub Commandl_Click() b=10 Do Until b=-1 a=InputBox(“请输入a的值”) a=Val(a) b=InputBox(“请输入b的值”) b=Val(b) a=a*b Loop Pdnt a End Sub 程序运行后，依次输入数值30，20，10，-1，输出结果为( )。
单选题以下程序的功能是随机产生10个两位的整数： Option Base 1 Private Sub Command 1_Click() Dim a(10)As Integer，i As Integer Randomize For i=1 To 10 a(i)=Int(Rnd*100)+1：Print a(i) Next i End Sub 运行以上程序，发现有错误，需要对产生随机数的语句进行修改。以下正确的修改是