单选题在窗体上画一个命令按钮和一个文本框，名称分别为Command1和Text1，然后编写如下程序： Private Sub Command1_Click() a=InputBox(“请输入日期(1-3)”) t=“旅游景点：”＆IIf(a＞0 And a＜=10,“长城”，“”)&_ IIf(a＞10 And a＜=20，“故宫”，“”)＆IIf(a＞20 And a＜=31，“颐和园”，“”) Text1.Text=t End Sub 程序运行后，如果从键盘上输入16，则在文本框中显示的内容是( )。 A) 旅游景点：长城故宫 B) 旅游景点：长城颐和园 C) 旅游景点：颐和园 D) 旅游景点：故宫
单选题下列对话框有关属性中，用于设置初始的文件目录并返回用户选择的目录的属性是 ______。
单选题在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：
Private Sub Coinmand1 Click()
Dim a$，b$，c$，k％
a="ABCD"
b="123456"
c=""
k=1
Do While k<=Len(a)Or k<=Len(b)
If k<=Len(a)Then
c=c＆Mid(a，k，1)
End If
If k<=Len(b)Then
c=c＆Mid(a，k，1)
End If
k=k+1
Loop
Print c
End Sub
运行程序，单击命令按钮，输出结果是( )。
单选题在窗体上画两个滚动条，名称分别为Hscroll1、Hscroll2；六个标签，名称分别为Label1、Label2、Label3、Label4、Label5、Label6，其中标签Label4～Label6分别显示“A”、“B”、“A*B”等文字信息，标签Label1、Label2分别显示其右侧的滚动条的数值，Label3显示A*B的计算结果。当移动滚动框时，在相应的标签中显示滚动条的值。当单击命令按钮“计算”时，对标签Label1、Label2中显示的两个值求积，并将结果显示在Label3中。以下不能实现上述功能的事件过程是______。
单选题下列程序段的执行结果为
____
。
ForX=5 To 1 Step-1
For Y=1 To 6-X
Print Tab (Y+5)；"*"
Next Y
Print
Next X
单选题有如下程序：
Private Sub Form_Click()
Dim s As Integer,p As Integer
p=1
For i=1 To 4
For j=1 To i
S=s+j
Next j
p=p*s
Next i
Print p
End Sub
程序运行后，单击窗体，则输出结果是______。
单选题下列程序段的执行结果为{{U}} {{/U}}。 a=75
If a＞60 Then i=1 If a＞70 Then i=2 If
a＞80 Tnen i=3 If a＜90 Then i=4 Print "i=";i
A. i=1
B. i=2
C. i=3
D. i=4
单选题阅读下列程序： Dim SW As Boolean Function func(X As Integer)As Integer If X＜20 Then Y=X Else Y=20+X End If func=Y End Function Private Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Single， Y As Single) SW=False End Sub Private Sub Form_MouseUp(Button As Integer，Shift As Integer，X As Single， Y As Single) SW=True End Sub Private Sub Command1_Click() Dim intNum As Integer intNum=InputBox(" ") If SW Then Print func(intNum) End If End Sub 程序运行后，单击一次窗体，再单击命令按钮，将显示一个输入对话框，如果在对话框中输入20，则程序的输出结果为
单选题下列程序段的执行结果为（ ）。
a=75
If a>60 Then I=1
If a>70 Then I=2
If a>80 Then I=3
If a<90 Then I=4
Print "I="；I
单选题已知在4行3列的全局数组score(4，3)中存放了4个学生3门课程的考试成绩(均为整数)。现需要计算每个学生的总分，某人编写程序如下： Option Base 1 Private Sub Command1_Click() Dim sum As Integer sum=0 For i=1 To 4 For j=1 To 3 sum=sum+score(i，j) Next j Print"第"＆i＆个学生的总分是："；sum Next i End Sub 运行此程序时发现，除第一个人的总分计算正确外，其他人的总分都是错误的，程序需要修改。以下修改方案中正确的是______。 A) 把sum=sum+score(i,j)改为sum=sum+score(j,i) B) 把sum=sum+score(i，j)改为sum=score(i，j) C) 把外层循环语句"For i=1 To4"改为"For i=1 To 3"；内层循环语句"For j=1 To 3"改为"For j=1 To 4" D) 把sum=0移到"For i=1 To 4"和"For j=1 To 3"之间
单选题表达式Right("Beijing",4)的值是
____
。
单选题某人编写了下列程序，用来求10个整数(整数从键盘输入)中的最大值：
Private Sub Command1_Click()
Dim a(10) As Integer, max As Integer
For k=1 To 10
a(k)=InputBox("输入一个整数")
Next k
max=0
For k=1 To 10
If a(k)＞max Then
max=a(k)
End If
Next k
Print max
End Sub
运行程序时发现，当输入10个正数时，可以得到正确结果，但输入10个负数时结果是错误的。程序需要修改。下列修改中可以得到正确运行结果的是( )。
单选题在窗体上画一个名称为List1的列表框，一个名称为Label1的标签。列表框中显示若干国家的名称，当单击列表中的某个国家名时，在标签中显示选中国家的名称。下列正确实现上述功能的程序是( )。
单选题Visual Basic根据计算机访问文件的方式将文件分成3类，其中不包括{{U}} {{/U}}。
A. 顺序文件
B. Unix文件
C. 二进制文件
D. 随机文件
单选题对窗体上名称为Command1的命令按钮，编写如下事件过程： Pnvate Sub Command1_Click() Move 200，200 End Sub 程序运行时，单击命令按钮，则产生的操作是( )。
单选题若在窗体模块的声明部分声明了如下自定义类型和数组Private Type TemScore As IntegerStrName As StringEnd TypeDim Student(5)As Tem则下面的输出语句中正确的是( )。
单选题窗体上有一个如右图所示的图形控件，控件中显示了如图所示的文字，可以判断这个图形控件()。
单选题在窗体上画一个文本框，其名称为Text1，为了在程序运行后隐藏该文本框，应使用的语句为( )。
单选题用FontSize、FontBold、FontItalic、FontStrikethru和FontUnderline属性来设置大小和样式属性前，要先改变的属性是
单选题设运行程序时弹出的菜单如图所示，关于该菜单，以下叙述中错误的是()。A)菜单中能够显示分隔线是因为该菜单项的标题为“-”B)分隔线对应的菜单项的Name属性可以为空C)“退出”菜单项的有效性属性被设为FalseD)使用PopupMenu方法能够显示如图所示的菜单