单选题在窗体上有一个命令按钮Command1，编写如下程序： Private Sub
Command1_Click() Print pp1(3,7)
End Sub Public Function pp1(x As Single,n As Integer)As
Single If n=0 Then
pp1=1 Else
If n Mod 2=1 Then
pp1=x*x+n
Else
pp1=x*x-n End If
End If End Function
程序运行后，单击该命令按钮，屏幕上显示的是{{U}} {{/U}}。
A. 2
B. 1
C. 0
D. 16
单选题在窗体(Name属性为Form1)上画两个文本框(Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Command1)，然后编写如下两个事件过程( )。 Private Sub Command1_Click() a=Text1．Text+Text2．Text Print a End Sub Private Sub Form_Load() Text1．Text=""：Text2．Text="" End Sub 程序运行后，在第一个文本框(Text1)和第二个文本框(Text2)中分别输入123和321，然后单击命令按钮，则输出结果为( )。
单选题对窗体编写如下事件过程： Private Sub Form _ MouseDown(BuRon As Integer，Shift As Integer, X As Single， Y As Single) If Button=2 Then Print "AAAAA" End If End Sub Private Sub Form_MouseUp(Button As Integer，Shift As Integer，X As Single， Y As Single) Print "BBBBB" End Sub 程序运行后，如果单击鼠标右键，则输出结果为 ______。
单选题数据库设计的四个阶段是：需求分析、概念设计、逻辑设计和( )。
单选题以下( )不属于对象的基本特征。
单选题在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() c="ABCD" For n=1 T0 4 Print ______ Next End Sub 程序运行后，单击命令按钮，要求在窗体上显示如下内容： D CD BCD ABCD 则在______处应填入的内容为
单选题设有如下程序：Private Sub Inv(ByVal xStr As String，As String) Dim tStr As String Dim L AS Integer L=Len(xStr) Do While L＞=1 tStr=tStr+Mid(xStr，L，1)：L=L－1 Loop yStr=tStr End Sub Private Sub Form_Click() Dim S1 As String，S2 As String S1="abcdef"Inv S1，S2 Print S2End Sub运行程序，单击窗体，输出结果为
单选题有以下程序：
Option Base 1
Dim arr()As Integer
Private Sub Form_Click()
Dim i As Integer,j As Integer
ReDim arr(3,2)
FOr i=1 To 3
For j=1 To 2
an"(i,J)=i*2+j
Next j
Next i
ReDim Preserve arr(3,4)
For j=3 To 4
arr(3,j)=j+9
Next j
Print arr(3,2)；arr(3,4)
End Sub
程序运行后,单击窗体,输出结果为【 】
单选题
单选题下列程序段的运行结果是：Private Sub Command1_Click() Dim n AS Integer I =21: n = 3 do while I＞n I=I- n Loop Print IEnd Sub在窗体上打印的结果是______。
单选题若要把窗体上命令按钮Command1的状态设置为不可用，应该执行的命令是______。
单选题定时器的Interval属性的值是一个整数，它表示的是( )。
单选题以下程序段中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标题栏上显示了应用程序的（ ）。