单选题执行下列程序段后，整型变量n的值为( )。 n=0 For i=1 To 20 Step 5 n=n+1 Next i A．50 B．4 C．15 D．210
单选题在窗体上有一个名称为List1的列表框和一个名称为Command1的命令按钮，并编写有如下事件过程：Private Sub Form Load()List1．AddItem"Item1"：List1．AddItem"Item2"：List1．AddItem"Item3"End SubPrivate Sub Command1_lClick()List1．List(List1．List Count)="New Item"End Sub程序执行时，单击命令按钮，其结果为( )。
单选题设栈S和队列Q的初始状态为空。元素a、b、c、d、e、f依次通过栈S，并且一个元素出栈后即进入队列Q，若出队的顺序为b、d、c、f、e、a，则栈S的容量至少应该为________。
A. 3
B. 4
C. 5
D. 6
单选题写文件语句Print # 与Write # 的区别之一是
单选题.在Visual FoxPro中，建立数组的命令关键词为( )
单选题在窗体上画一个名称为Text1的文本框，然后画一个名称为Hscroll1的滚动条，其Max和Min属性分别是100和0。程序运行后，如果移动滚动框，则在文本框中显示滚动条的当前值，如下图所示。以下能实现上述操作的程序段是______。A)PrivateSubHScroll1_Change()Text1.Text=HScroll1.ValueEndSubB)PrivateSubHScroll1_Click()Text1.Text=HScroll1.ValueEndSubC)PrivateSubHScroll1_Change()Text1.Text=HScroll1.CaptionEndSubD)PrivateSubHScroII1_Scroll()Text1.Text=HScroll1.CaptionEndSub
单选题设有如下通用过程： Public Function f(X As Integer) Dim y As Integer x=20 y=2 f=x*y End Function 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Static x As Integer x=10 y=5 y=f(x) Print x；y End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是( )。
单选题在窗体上画一个命令按钮和一个文本框，并把窗体的KeyPreview属性设置为True，然后编写如下代码： Dim Save All As String Private Sub Command1_Click() Text1.Text=UCase(SaveAll) End Sub Private Sub Form_KeyPress(KeyAscii As Integer) SaveAll=SaveAll+Chr(KeyAscii) End Sub 程序运行后，在键盘上输入“abcdefg”，单击命令按钮，则文本框中显示的内容为 ______。
单选题下列关于通用对话框CommonDialog1的叙述中，错误的是( ) A．只要在“打开”对话框中选择了文件，并单击“打开”按钮，就可以将选中的文件打开 B．使用CommoDialog1.ShowColor方法，可以显示“颜色”对话框 C．CancelError属性用于控制用户单击“取消”按钮关闭对话框时，是否显示出错警告 D．在显示“字体”对话框前，必须先设置CommonDialog1的Flags属性，否则会出错
单选题命令按钮Command1的单击事件过程如下：Private Sub
Command1_Click() x=10 Print f(x)End SubPrivate Function f(y As
Integer) f=y*yEnd Function运行上述程序，如下叙述中正确的是______。
A.程序运行出错，x变量的类型与函数参数的类型不符
B.在窗体上显示100
C.函数定义错，函数名f不能又作为变量名
D.在窗体上显示10
单选题编写如下程序：
Private Sub Command1_Click()
Dim n As Integer:Static s As Integer
For n=1 To 3
s=s+n
Next
Print s
End Sub
程序运行后，第三次单击命令按钮Command1时，输出结果为
单选题运行下列程序： Private Sub Command1_Click() x = 0 Do While x＜10 x=x * x + 1 y=y+x Loop MsgBox y End Sub 单击Command1命令按钮后，弹出的消息对话框中会显示
单选题以下程序段：
Private Sub Form_Load( )
Dim Nop As Integer, Op As String * 1
Num1 = 3
Num2 = 2
Nop = val(Inputbox("请输入1-4之间的整数"))
Select Case Nop
Case 1
Op = "＋"
Result = Num1 + Num2
Case 2
Op = "－"
Result = Num1 - Num2
Case 3
Op = "×"
Result = Num1 * Num2
Case 4
Op = "÷"
Result = Num1 / Num2
End Select
Label1= Num1 & Op & Num2 & "=" & Result
End Sub
窗体运行后，输入2，则label1的标题显示结果为（ ）
单选题命令按钮不支持的事件为
单选题下列程序段的执行结果为 m=1 n=1 Select Case m Case 1 Select Case n Case 0 print"A" Case 1 Print"B" End Select Case 2 Print"C" End Select
单选题下面程序计算并输出的是______
单选题要设定文本框内的文字内容是否允许修改，应该设置的属性是( )。 A) Text B) Locked C) PasswordChar D) Multiline
单选题在窗体上画一个通用对话框，其名称为CommonDialogl，然后画一个命令按钮，并编写如 Private Sub Command1_Click() CommonDialogl. Flags = vbOFNHideReadOnly CommonDialogl. Filter =" All Files(*.*)|*. * |Text Files(*.txt)|*. txt CommonDialogl. FilterIndex = 1 CommonDialogl. ShowOpen MsgBox CommonDialogl. FileName End Sub 程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是
单选题在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() C=“ABCD” For n=1 To 4 Print____ Next End Sub 程序运行后，单击命令按钮，要求在窗体上显示如下内容： D CD BCD ABCD 则在横线处应填入的内容是( )。 A) Left(c,n) B) Right(c,n) C) Mid(c,n,1) D) Mid(c,n,n)
单选题下面关于控件数组的叙述中正确的是