单选题以下程序段中Do...Loop循环执行的次数为( )。 n=5 Do lf n Mod 2=0 Then n=n/2 Else n=n*3+1 End If Loop untiln=1
单选题一个栈的初始状态为空。现将元素1、2、3、4、5、A、B、C、D、E依次入栈，然后再依次出栈，则元素出栈的顺序是
单选题设窗体中有一个文本框Text1，若在程序中执行了Text1．SetFocus，则触发
单选题Visual Basic规定工程文件的扩展名是______。
单选题在窗体上画两个名称分别为Text1、Texte2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) Dim x As Integer，n As Integer x=1 n=0 Do While x＜20 X=K*3 n=n+1 Loop Text1.Text=Str(x) Text2.Text=Str(n) End Sub 程序运行后，单击命令按钮，在两个文本框中显示的值分别是
单选题假定有下面的程序段： For i = 1 To 3 For j = 1 To i For k = j To 3 Print "i = "; i， "j = ";j， "k = "; k Next k Next j Next i 这是一个三重循环程序，在这个程序中，外层、中层和内层循环的循环次数是________。
单选题如果一个正整数从高位到低位上的数字依次递减，则称其为降序数(如：9632是降序数，而8516则不是降序数)。现编写如下程序，判断输入的正整数是否为降序数。
Private Sub Command1_Click()
Dim n As Long
Dim flag As Boolean
n=InputBox("输入一个正整数")
s=Trim(Str(n))
For i=2 To Len(s)
If Mid(s,i-1,1)＜Mid(s,i,1)Then Exit For
Next i
If i=Len(s)Then flag=True Else flag=False
If flag Then
Print n;"是降序数"
Else
Print n;"不是降序数"
End If
End Sub
运行以上程序，发现有错误，需要对给flag变量赋值的If语句进行修改。以下正确的修改是______。
单选题Visual Basic标题栏上显示了应用程序的（ ）。
单选题窗体上有一个名称为Combo1的组合框，一个名称为Command1的命令按钮。要求编写程序，在组合框中输入一个字符串，当单击命令按钮时，将该字符串逐项与组合框中原有列表项进行比较，若有相同列表项，则将其删除；若没有相同列表项，则将其添加到组合框中。现有人编写如下程序，以期实现上述功能：Private Sub Command1_Click()str1=Trim(Combo1.Text)flag=0If str1＜＞""ThenFor i=0 To Combo1.ListCount-1If str1=Combo1.List(i)ThenCombo1.RemoveItemi:Combo1.Text=""flag=1End IfNextIf flag=1ThenCombo1.AddItem Combo1.TextEnd IfEnd Sub程序中存在问题，以下关于程序问题的叙述中，正确的是
单选题编写如下程序代码： Option Explicit Private Sub Form_Click() Dim x As Variant Dim i As Variant x=Array(50，27，69，80，45) For Each i In x If i Mod 2=0 Then Print i End If Next i End Sub 以下叙述中正确的是( )。
单选题表达式Abs(-5)+Len("ABCDE")的值是( )。
单选题算法的空间复杂度是指( )。
单选题下列程序运行后，输出的结果为______ 。B=1Do while b＜40 b=*(b+1)LoopPrint B
单选题下面叙述中正确的是______。
单选题为了使标签具有“透明”的显示效果，需要设置的属性是
单选题设在工程中有一个标准模块，其中定义了如下记录类型______。 Type Books Name As String*10 TelNum As String*20 End Type 在窗体上画一个名为Commandl的命令按钮，要求当执行事件过程Commandl_click时，在顺序文件Person．txt中写入一条记录。下列能够完成该操作的事件过程是______。
单选题单击命令按钮，并在对话框内依次输入5，7，6下列程序段的执行结果为______。 Private Sub Command1_Click() Dim n AS Integer, a As Integer, b As Integer, c As Integer n = 0 For i = 1 To 3 a = InputBox ("请输入数字") n = n+a*a If n ＞ 50 Then GoTo ex End If Next i ex: Print n End Sub
单选题阅读下面程序：
Option Base 1
Private Sub Form_Click()
Dim arr,Sum
Sum=0
arr=Array(1,3,5,7,9,11,13,15,17,19)
For i=1 To 10
If arr(i)/3=arr(i)/3 Then
Sum=Sum+arr(i)
End If
Next i
Print Sum
End Sub
程序运行后，单击命令按钮，输出结果为______。
单选题下列说法中，错误的是______。
A.将焦点移至命令按钮上，按Enter键，则引发命令按钮的Click事件
B.单击命令按钮，将引发命令按钮的Click事件
C.命令按钮没有Picture属性
D.命令按钮不支持Db1Click事件
单选题以下关于过程及过程参数的描述中，错误的是
____
。